* Script  9 TIMER
scrp 2 17 3 9
	doif ov02 eq 0
		gsub tryh
		subv ov03 1
		doif ov03 le 0
			setv ov02 1
			rndv ov03 400 600
		endi
		stop
	endi
	doif ov02 eq 1
		gsub tryh
		doif ov03 le 0
			rndv ov01 0 2399
			rndv ov03 400 600
		endi
		subv ov03 1
		setv var0 0
		doif intr ge 10
			doif intr le 254
				setv var0 1
			endi
		endi
		doif var0 eq 1
			slim
			setv var0 liml
			addv var0 10
			setv var1 limr
			subv var1 66
			rndv ov04 var0 var1
			setv ov02 2
		endi
		stop
	endi
	doif ov02 eq 2
		doif posl gt ov04
			base 0
			anim [01]
			setv velx -4
			setv ov00 0
		else
			base 2
			anim [01]
			setv velx 4
			setv ov00 1
		endi
		setv var0 obst 3
		doif var0 lt 100
			setv vely -5
		else
			setv vely 0
		endi
		doif ov00 eq 0
			setv var0 ov04
			addv var0 10
			doif posl le var0
				setv ov02 3
			endi
		else
			setv var0 ov04
			subv var0 10
			doif posl ge var0
				setv ov02 3
			endi
		endi
		stop
	endi
	doif ov02 eq 3
		doif posl gt ov04
			base 0
			anim [01]
			setv velx -2
			setv ov00 0
		else
			base 2
			anim [01]
			setv velx 2
			setv ov00 1
		endi
		setv vely 0
		setv var0 obst 3
		doif var0 le 0
			setv ov02 4
		endi
		stop
	endi
	doif ov02 eq 4
		setv var0 0
		etch 2 16 1
			setv var0 1
		next
		targ ownr
		doif var0 eq 1
			rndv ov00 0 1
			setv ov02 0
			rndv ov03 400 600
			stop
		endi
		setv var0 posl
		setv var1 post
		inst
		new: simp ants 11 15 1500 0
		setv cls2 2 16 1
		setv ov10 100
		setv ov11 200
		setv ov12 400
		setv ov13 400
		setv ov14 200
		setv ov15 100
		setv ov16 800
		setv ov00 ov10
		setv ov01 ov13
		setv ov02 0
		setv ov03 1
		setv ov04 ov13
		setv attr 196
		bhvr 1 1
		base 0
		pose 7
		subv var1 hght
		mvto var0 var1
		slim
		setv grav 1
		tick 10
		targ ownr
		kill targ
		stop
	endi
	subr tryh
		setv var0 obst ov00
		doif var0 le 50
			doif ov00 eq 0
				setv ov00 1
			else
				setv ov00 0
			endi
		endi
		doif ov00 eq 0
			base 0
			anim [01]
			setv velx -8
		else
			base 2
			anim [01]
			setv velx 8
		endi
		doif rtyp eq 2
			setv vely -50
			stop
		endi
		doif posb gt ov01
			setv var0 obst 2
			doif var0 gt 10
				setv vely -8
			else
				setv vely 0
			endi
		else
			setv var0 obst 3
			doif var0 lt 10
				setv vely -8
			else
				setv vely 0
			endi
		endi
	retn
endm
