* 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

