;Spiraly Props 2.1b1 (by Iptscrae List ;) - http://hex.palaceplanet.net
;Usage: spprop [radius] [direction] [propname[#<end num>]
; Direction:  < == Outward. > == Inward.

	{	"$3" GREPSUB prp = "$2" GREPSUB dir = "$1" GREPSUB rad = "" CHATSTR = CLEARLOOSEPROPS
		{ "spgh" prp = } prp "" == IF
		{ 100 rad = } { rad ATOI rad = } rad "" == IFELSE
		{ ">" dir = } dir "" == IF
		{	"$1" GREPSUB prp = "$2" GREPSUB mode = "$3" GREPSUB ATOI edn =
			{ "<" dir = } { edn -- } mode "$" == IFELSE
		} prp "(.*)([#\$])([0-9]+)" GREPSTR IF
		{	{ rad strd = rad brd = 0 mxrd = }
			{ 0 strd = rad brd = rad mxrd = } dir ">" == IFELSE 1 num = mxrd edn / ch =
			strd rd = MOUSEPOS 22 - y = 22 - x = brd 7 / 1 + st = 360 RANDOM cst = 2 RANDOM ww =
			{	360 cst * st / poldir =
				{	prp num ITOA &
					{ { 1 num = } num edn > IF num ++ }
					{ { num ++ } rd mxrd edn / num * > IF } mode "#" == IFELSE
				} { prp } edn 0 > IFELSE
				x poldir { SINE } { COSINE } ww IFELSE rd * 1000 / +
				y poldir { COSINE } { SINE } ww IFELSE rd * 1000 / +
				ADDLOOSEPROP cst ++ rd 2 { + } { - } dir "<" == IFELSE rd =
			} { rd mxrd dir STRTOATOM EXEC } WHILE
		} { "Sorry, this script requires IptVersion 1" LOCALMSG } IPTVERSION IFELSE
	} CHATSTR "^spprop *([0-9]*) *([<>]*) *(.*)$" GREPSTR IF