* Script  1 Activate(1)
scrp 2 15 2 1
	setv thrt 200
	tick 0
	targ from
	setv var0 posl
	targ ownr
	setv var1 posr
	setv var2 wdth
	divv var2 2
	subv var1 var2
	setv var2 wdth
	divv var2 4
	setv var3 posl
	addv var2 var3
	doif var0 ge var3
		doif var0 le var2
			doif pose lt 8
				loop
					setv var9 pose
					addv var9 1
					pose var9
				untl pose eq 8
			endi
			doif pose gt 8
				loop
					setv var9 pose
					subv var9 1
					pose var9
				untl pose eq 8
			endi
			base 29
			anim [0123456]
			over
			snde snap
			anim [78]
			over
			base 0
			pose 8
			stim writ from 50 255 0 0 18 100 0 0 0 0 0 0
		else
			doif var0 le var1
				doif pose lt 23
					loop
						setv var9 pose
						addv var9 1
						pose var9
					untl pose eq 23
				endi
				doif pose gt 23
					loop
						setv var9 pose
						subv var9 1
						pose var9
					untl pose eq 23
				endi
				base 38
				anim [0123456]
				over
				snde snap
				anim [78]
				over
				base 0
				pose 23
				stim writ from 50 255 0 0 18 100 0 0 0 0 0 0
			endi
		endi
	endi
	setv actv 0
	rndv var0 10 50
	tick var0
endm

* Script  9 TIMER
scrp 2 15 2 9
	setv thrt 70
	doif pose lt 27
		setv var0 pose
		addv var0 1
		pose var0
	else
		pose 0
	endi
endm
