;cb blanket by Hex, concept by Zombie Woof - http://hex.palaceplanet.net
;Usage: cb <propname>[, <propname2>] <- If a 2nd propname is given it will blanket with a checkerboard effect
	{	prp2 GLOBAL "$1" GREPSUB prp1 = 
		{ "$1" GREPSUB prp1 = "$2" GREPSUB prp2 = } { prp1 prp2 = } prp1 "(.*), (.*)" GREPSTR IFELSE
		CLEARLOOSEPROPS 0 nx = 0 ny =
		{	{ 44 nx = } { 0 nx = } nx 528 == IFELSE
			{ prp1 nx ny ADDLOOSEPROP 88 nx += } { nx 512 < } WHILE
			44 ny +=
		} { ny 384 < } WHILE
		{	nx GLOBAL ny GLOBAL prp2 GLOBAL
			44 nx = 0 ny =
			{	{ 0 nx = } { 44 nx = } nx 572 == IFELSE
				{ prp2 nx ny ADDLOOSEPROP 88 nx += } { nx 512 < } WHILE
				44 ny +=
			} { ny 384 < } WHILE
		} 80 ALARMEXEC
		"" CHATSTR =
	} CHATSTR "^cb (.*)$" GREPSTR IF
ÿ