;Alan's Banner Script
;Turns letters on/off to create a moving banner
;Place this script in the left-most letter spot in the room
;Start from another script by:
;	L1 GLOBAL
;	0 L1 SETALARM
ON ENTER
{
	L1 GLOBAL
	ME L1 =
	bstep GLOBAL 0 bstep =
	0 ME SETSPOTSTATELOCAL
}
ON ALARM
{
	bstep GLOBAL
	{ GLOBAL } [ L2 L3 L4 L5 L6 L7 L8 L9 L10 L11 L12 L13 L14 ] FOREACH
	[
;***Banner Movement***
;1 is on, 0 is off
	[ 1 0 0 0 0 0 0 0 0 0 0 0 0 0 ]
	[ 1 1 0 0 0 0 0 0 0 0 0 0 0 0 ]
	[ 1 1 1 0 0 0 0 0 0 0 0 0 0 0 ]
	[ 1 1 1 1 0 0 0 0 0 0 0 0 0 0 ]
	[ 1 1 1 1 1 0 0 0 0 0 0 0 0 0 ]
	[ 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ]
	[ 1 1 1 1 1 1 1 0 0 0 0 0 0 0 ]
	[ 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ]
	[ 1 1 1 1 1 1 1 1 1 0 0 0 0 0 ]
	[ 1 1 1 1 1 1 1 1 1 1 0 0 0 0 ]
	[ 1 1 1 1 1 1 1 1 1 1 1 0 0 0 ]
	[ 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ]
	[ 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ]
	[ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ]
;***end of data***
	] barray =
	[ ME L2 L3 L4 L5 L6 L7 L8 L9 L10 L11 L12 L13 L14] spotarray =
	barray bstep GET temparray =
	0 i =
	{ temparray i GET spotarray i GET SETSPOTSTATELOCAL
	i ++
	} { i temparray LENGTH < } WHILE
	{ bstep ++
	60 ME SETALARM
	} bstep barray LENGTH 1 - < IF
}
ON OUTCHAT
{
	{ bstep GLOBAL
	0 bstep =
	0 ME SETALARM
	"" CHATSTR =
	} CHATSTR "banner" == IF
}




;Place this script in the remaining letter spots.
;Change L2 to L3 through L14 for letter spots 3 through 14.
ON ENTER
{
	L2 GLOBAL ME L2 =
	0 ME SETSPOTSTATELOCAL
}