* Script  1 Activate(1)
scrp 2 24 1 1
	setv var0 posl
	setv var1 post
	doif ov01 eq 1
		doif ov00 eq 1
			inst
			setv ov00 5
			pose 49
			new: simp pear 2 55 1100 0
			setv cls2 2 25 4
			setv attr 199
			bhvr 0 67
			setv puhl -1 15 12
			tick 3000
			mvto var0 var1
			slim
			setv grav 1
		else
			setv actv 0
		endi
	else
		setv actv 0
	endi
endm

* Script  9 TIMER
scrp 2 24 1 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 tmod ge 1
			doif tmod lt 3
				doif pose lt 12
					rndv var9 100 300
					tick var9
					setv var0 pose
					addv var0 1
					pose var0
				else
					setv ov01 1
					rndv var9 1000 2000
					tick var9
				endi
			else
				doif pose gt 8
					rndv var9 100 300
					tick var9
					setv ov01 0
					setv var0 pose
					subv var0 1
					pose var0
				endi
				rndv var9 1000 2000
				tick var9
			endi
		endi
		doif sean eq 3
			setv ov00 6
			setv ov01 0
			rndv var0 50 150
			tick var0
		endi
	endi
	doif ov00 eq 6
		doif pose lt 12
			setv var0 pose
			addv var0 1
			pose var0
		else
			doif pose gt 12
				setv var0 pose
				subv var0 1
				pose var0
			else
				setv ov00 7
				pose 24
			endi
		endi
	endi
	doif ov00 eq 7
		doif pose lt 32
			setv var0 pose
			addv var0 1
			pose var0
		else
			setv ov00 8
			tick 1500
		endi
	endi
	doif ov00 eq 8
		doif sean ge 0
			doif sean le 2
				setv ov00 0
				pose 2
				rndv var0 100 300
				tick var0
			endi
		endi
	endi
	doif ov00 eq 2
		doif tmod ge 1
			doif tmod lt 3
				doif pose lt 17
					setv var0 pose
					addv var0 1
					pose var0
				else
					pose 18
					mesg wrt+ ownr 104 0 0 0
					targ ownr
					subv ov03 1
					doif ov03 gt 0
						setv ov00 3
					else
						setv ov00 4
					endi
				endi
			endi
		endi
	endi
	doif ov00 eq 3
		doif pose lt 23
			setv var0 pose
			addv var0 1
			pose var0
		else
			pose 12
			setv ov00 1
		endi
	endi
	doif ov00 eq 4
		doif pose lt 32
			setv var0 pose
			addv var0 1
			pose var0
		else
			setv ontr 10
			kill ownr
		endi
	endi
	doif ov00 eq 5
		doif pose lt 54
			setv var0 pose
			addv var0 1
			pose var0
		else
			pose 8
			subv ov02 1
			setv ov00 1
			setv actv 0
		endi
	endi
	doif ov02 lt 0
		setv ov00 4
	endi
endm

scrp 2 24 1 100
	doif ov01 eq 1
		setv ov00 2
		setv ov01 0
	endi
endm

