
* Script  1 Activate(1)
scrp 3 6 3 1
	doif ov00 eq 0
		subv attr 4
		part 1
		anim [210]
		wait 10
		gpas
		part 1
		anim [012]
		wait 10
		part 1
		anim [23456R]
		setv velx 20
		sndl shut
		loop
			mvby 0 2
			wait 1
		untl posr ge 6170
		fade
		setv velx 0
		part 1
		pose 6
		reps 10
			mvby 0 2
			wait 1
		repe
		part 1
		anim [89]
		dps2 0
		wait 10
		etch 4 0 0
			setv velx 80
			setv vely -20
		next
		targ ownr
		wait 5
		part 1
		anim [987]
		addv attr 4
		setv ov00 1
	endi
	setv actv 0
endm

* Script  2 Activate(2)
scrp 3 6 3 2
	doif ov00 eq 1
		subv attr 4
		part 1
		anim [89]
		wait 10
		gpas
		part 1
		anim [986]
		reps 10
			mvby 0 -2
			wait 1
		repe
		part 1
		anim [65432R]
		setv velx -20
		sndl shut
		loop
			mvby 0 -2
			wait 1
		untl posl le 4550
		fade
		setv velx 0
		part 1
		anim [10]
		dps2 0
		wait 10
		etch 4 0 0
			setv velx -80
			setv vely -20
		next
		targ ownr
		wait 5
		part 1
		anim [017]
		addv attr 4
		setv ov00 0
	endi
	setv actv 0
endm
