;SCouch by Hex - http://hex.palaceplanet.net
;Another Script Inspired by the Great and Powerful Zombie Woof!
;Usage: scouch [propname]  - propname should be like "zcouch" where the couch props are named zcouch1 thru zcouch6 
 	{	"$1" GREPSUB prp = { "purc" prp = } prp "" == IF 44 nx =
 		CLEARLOOSEPROPS
 		"\"" prp & "1\" 0 302 ADDLOOSEPROP" & STRTOATOM EXEC
 		"\"" prp & "4\" 0 345 ADDLOOSEPROP" & STRTOATOM EXEC
 		"\"" prp & "3\" 472 302 ADDLOOSEPROP" & STRTOATOM EXEC
 		"\"" prp & "6\" 472 345 ADDLOOSEPROP" & STRTOATOM EXEC
 		{	"\"" prp & "2\" " & nx ITOA & " 302 ADDLOOSEPROP" & STRTOATOM EXEC
 			"\"" prp & "5\" " & nx ITOA & " 345 ADDLOOSEPROP" & STRTOATOM EXEC
 			nx 43 + nx =
 		} { nx 435 < } WHILE
 		"" CHATSTR =
 	} CHATSTR "^scouch *(.*)" GREPSTR IF