* 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
