
* 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
