;Lick by Hex - http://hex.palaceplanet.net
ox GLOBAL oy GLOBAL
nx GLOBAL ny GLOBAL
restore_props GLOBAL
	{	{	0 i = "["
		    { " " i USERPROP ITOA & & i ++ } { i NBRUSERPROPS < } WHILE
		    " ] SETPROPS" & restore_props =
		} { "NAKED" restore_props = } NBRUSERPROPS IFELSE
		POSX ox = POSY oy = 0 i =
		MOUSEPOS ny = nx = ny 50 + ny =
		[ "1191tounge" ] SETPROPS nx ny SETPOS
		{	ny 5 - ny = ny 50 + ny =
			ny 50 - ny = nx ny SETPOS
			i ++ } { i 20 < } WHILE
		ox oy SETPOS restore_props STRTOATOM EXEC "" CHATSTR =
	} CHATSTR "lick" == IF