* Script  9 TIMER
scrp 2 14 1 9
	gsub chck
	gsub move
	doif ov04 eq 1
		doif post gt 100
			setv velx 0
			subv pres 1
			setv vely -1
			tick 10
			stop
		endi
		setv vely 0
		inst
		setv var0 posl
		setv var1 post
		new: simp weat 5 3 8000 0
		setv cls2 2 14 2
		mvto var0 var1
		slim
		setv ov00 psrc
		setv var9 ov00
		negv var9
		setv psrc var9
		anim [0123R]
		tick 100
		kill ownr
		setv ov04 0
	endi
	doif ov05 eq 1
		setv rnge 1000
		setv var9 0
		esee 2 14 1
		doif ov07 eq 1
			setv var9 1
		endi
	next
	doif var9 eq 0
		setv ov07 1
		sndl rai2
	endi
	reps 5
		doif pose eq 0
			rndv var2 -60 0
		else
			doif pose eq 1
				rndv var2 -120 30
			else
				doif pose eq 2
					rndv var2 -140 60
				endi
			endi
		endi
		inst
		targ ownr
		setv var0 posx
		setv var1 posb
		subv var1 50
		addv var0 var2
		new: simp weat 1 ov06 4000 0
		setv cls2 2 14 3
		setv attr 192
		setv aero 2
		setv accg 2
		setv size 1
		setv rest 100
		mvto var0 var1
		slim
		setv grav 1
		slow
		wait 5
		targ ownr
	repe
	subv ov01 5
	doif ov01 le 0
		fade
		kill ownr
	endi
endi
subr chck
	doif ov01 gt 200
		setv ov04 1
	else
		doif ov01 gt 150
			pose 2
		else
			doif ov01 gt 100
				pose 1
			endi
		endi
	endi
	doif ov01 gt 50
		doif temp lt 40
			setv ov05 1
			setv ov06 27
		else
			doif temp lt 100
				doif pres lt 60
					setv ov05 1
					setv ov06 22
				endi
			else
				doif temp lt 150
					doif pres gt 120
						setv ov05 1
						setv ov06 23
					endi
				endi
			endi
		endi
	endi
retn
subr move
	setv var0 wndx
	doif var0 ge 0
		doif ov03 lt 0
			doif ov02 gt 0
				subv ov02 1
				addv ov01 5
			else
				addv ov01 5
				setv ov02 0
				addv ov03 1
			endi
			setv velx ov03
			stop
		endi
	endi
	doif var0 lt 0
		doif ov03 gt 0
			doif ov02 gt 0
				subv ov02 1
				addv ov01 5
			else
				addv ov01 5
				setv ov02 0
				subv ov03 1
			endi
			setv velx ov03
			stop
		endi
	endi
	setv var1 0
	doif var0 lt 0
		setv var1 1
		negv var0
	endi
	doif var0 gt 100
		setv ov03 4
		addv ov02 2
	else
		doif var0 gt 70
			setv ov03 3
			addv ov02 2
		else
			doif var0 gt 30
				setv ov03 2
				addv ov02 1
			else
				setv ov03 1
				addv ov02 1
			endi
		endi
	endi
	doif var1 eq 1
		negv ov03
	endi
	setv velx ov03
	doif posb gt 150
		setv var1 wndy
		doif var1 lt -50
			mvby 0 -5
		endi
		setv var2 temp
		doif var2 lt ov00
			subv ov00 2
			mvby 0 -5
		endi
	endi
retn
endm
