
* Script  1 Activate(1)
scrp 3 6 2 1
	part 3
	pose 0
	part 2
	anim [012]
	over
	doif posr ge 1040
		part 2
		anim [210]
		over
		setv actv 0
		stop
	endi
	sndl dngy
	gpas
	anim [3456789R]
	setv velx 20
	setv var0 3
	loop
		mvby 0 var0
		negv var0
		mvby 0 var0
		wait 1
		doif posr ge 950
			dps2 0
			etch 4 0 0
				setv vely -50
				setv velx 80
				doif dead eq 0
					pose 128
				endi
			next
		endi
	untl posr ge 1040
	fade
	snde dng3
	setv velx 0
	wait 3
	targ ownr
	part 2
	anim [210]
	over
	setv actv 0
	tick 1200
endm

* Script  2 Activate(2)
scrp 3 6 2 2
	part 2
	pose 0
	part 3
	anim [012]
	over
	doif posl le 340
		part 3
		anim [210]
		over
		setv actv 0
		stop
	endi
	sndl dngy
	gpas
	anim [3456789R]
	setv velx -20
	setv var0 3
	loop
		mvby 0 var0
		negv var0
		mvby 0 var0
		wait 1
		doif posl le 430
			dps2 0
			etch 4 0 0
				setv vely -50
				setv velx -50
				doif dead eq 0
					pose 128
				endi
			next
		endi
	untl posl le 340
	fade
	snde dng3
	setv velx 0
	wait 3
	targ ownr
	part 3
	anim [210]
	over
	setv actv 0
	tick 1200
endm

* Script  9 TIMER
scrp 3 6 2 9
	setv var0 0
	doif actv eq 0
		etch 4 0 0
			setv var0 1
		next
		targ ownr
		doif var0 eq 1
			doif posl le 340
				mesg writ ownr 0
			endi
			doif posr gt 1040
				mesg writ ownr 1
			endi
		endi
	endi
	tick 1200
endm
