* Script  1 Activate(1)
scrp 2 24 2 1
	doif ov00 eq 1
		rndv var0 0 1
		doif var0 eq 0
			setv ov00 4
			pose 8
		else
			setv ov00 5
			pose 13
		endi
		inst
		setv var0 posx
		setv var1 posy
		new: simp trif 2 45 1100 0
		setv cls2 2 25 3
		setv attr 199
		bhvr 0 67
		setv puhl -1 18 12
		mvto var0 var1
		slim
		slow
		tick 4000
	else
		setv actv 0
	endi
endm

* Script  9 TIMER
scrp 2 24 2 9
	doif ov00 eq 0
		doif pose lt 7
			setv var0 pose
			addv var0 1
			pose var0
		else
			pose 18
			setv ov00 1
		endi
	endi
	setv var0 posl
	setv var1 post
	addv var0 15
	subv var1 5
	doif ov00 eq 2
		base 27
		anim [01234]
		over
		inst
		new: simp trif 9 32 3000 0
		setv cls2 2 21 3
		bhvr 0 67
		setv attr 195
		setv accg 3
		setv rest 100
		setv aero 3
		setv size 15
		setv ov00 0
		mvto var0 var1
		slow
		tick 10
		rndv var9 -50 -35
		setv vely var9
		anim [01234567R]
		targ ownr
		subv ov01 1
		doif ov01 le 0
			setv ov00 3
		else
			setv ov00 1
		endi
		base 0
		pose 18
	endi
	doif ov00 eq 3
		doif pose lt 26
			setv var0 pose
			addv var0 1
			pose var0
		else
			kill ownr
		endi
	endi
	doif ov00 eq 4
		doif pose lt 12
			setv var0 pose
			addv var0 1
			pose var0
		else
			setv ov00 1
			pose 18
			setv actv 0
		endi
	endi
	doif ov00 eq 5
		doif pose lt 18
			setv var0 pose
			addv var0 1
			pose var0
		else
			setv ov00 1
			setv actv 0
		endi
	endi
endm
