* Script  1 Activate(1)
scrp 2 19 4 1
	setv thrt 80
	stim writ from 0 255 0 0 18 50 0 0 0 0 0 0
	doif ov00 ne 0
		base 21
		anim [01234]
		over
		setv ov00 4
		tick 10
	endi
	setv actv 0
endm

* Script  2 Activate(2)
scrp 2 19 4 2
	setv thrt 120
	stim writ from 0 255 0 0 18 100 0 0 0 0 0 0
	base 27
	anim [0123]
	over
	base 31
	anim [01234567893210]
	over
	base 25
	anim [543210]
	over
	setv actv 0
	setv ov00 4
	tick 10
endm

* Script  9 TIMER
scrp 2 19 4 9
	doif ov00 eq 0
		doif pose lt 8
			setv var0 pose
			addv var0 1
			pose var0
		else
			setv ov00 1
		endi
	endi
	doif ov00 eq 1
		doif pose lt 18
			setv var0 pose
			addv var0 1
			pose var0
		else
			setv ov00 2
		endi
	endi
	doif ov00 eq 2
		base 18
		anim [000111222R]
		setv ov00 3
		tick 10
	endi
	doif ov00 eq 3
		setv var0 0
		setv var3 posl
		setv var4 var3
		addv var4 20
		setv var5 post
		addv var5 10
		setv var6 var5
		addv var6 40
		etch 2 20 3
		doif post gt var5
			doif post lt var6
				setv var0 1
			endi
		endi
	next
	targ ownr
	doif var0 eq 1
		tick 0
		base 21
		anim [012345]
		over
		mesg writ targ 1
	endi
endi
doif ov00 eq 4
	base 0
	pose 11
	setv ov00 1
endi
endm

