* Script  1 Activate(1)
scrp 2 16 1 1
	subv ov00 25
	doif ov00 le 0
		doif ov03 eq 1
			gsub cque
		endi
		kill ownr
		stop
	endi
	doif ov00 lt ov11
		base 0
		pose 0
	else
		doif ov00 lt ov12
			base 0
			pose 1
		endi
	endi
	gsub cant
	setv ov04 2
	targ ownr
	setv actv 0
	subr cant
		setv var0 posl
		setv var1 posr
		setv var2 post
		addv var2 50
		inst
		new: simp ants 15 0 6400 0
		setv cls2 2 17 1
		setv attr 195
		setv pupt -1 10 1
		setv accg 4
		setv thrt 100
		setv rest 100
		bhvr 0 64
		setv ov10 5
		setv ov11 -12
		setv ov02 var0
		setv ov03 var1
		rndv ov07 450 550
		mvto var0 var2
		setv grav 1
		rndv var8 0 1
		doif var8 eq 0
			base 0
			pose 0
			setv ov00 0
			setv var9 ov10
			negv var9
			setv velx var9
		else
			base 0
			pose 7
			setv ov00 1
			setv velx ov10
		endi
		doif obst 3 le 1
			setv vely ov11
		else
			setv vely 0
		endi
		tick 4
		setv ov01 posl
	retn
	subr cque
		setv var0 posl
		setv var1 post
		addv var1 50
		inst
		new: simp ants 4 18 6400 0
		setv cls2 2 17 3
		rndv ov00 0 1
		rndv ov01 0 2399
		setv ov02 0
		rndv ov03 400 600
		setv attr 192
		setv accg 2
		setv size 50
		setv rest 100
		doif ov00 eq 0
			base 0
			pose 0
		else
			base 2
			pose 0
		endi
		mvto var0 var1
		sndl buzz
		tick 2
	retn
endm

* Script  9 TIMER
scrp 2 16 1 9
	doif ov02 eq 0
		gsub make
		stop
	endi
	setv vely -12
	addv ov04 1
	doif ov04 ge ov01
		setv ov04 0
		gsub cant
		setv ov04 0
		targ ownr
		subv ov00 1
		doif ov00 le 0
			doif ov03 eq 1
				gsub cque
			endi
			kill ownr
			stop
		endi
		doif ov00 lt ov11
			base 0
			pose 0
		else
			doif ov00 lt ov12
				base 0
				pose 1
			endi
		endi
	endi
	subr make
		base 0
		doif pose eq 10
			pose 0
			setv attr 196
			bhvr 1 1
			setv ov02 1
			tick 2
		endi
		doif pose eq 9
			pose 10
		endi
		doif pose eq 8
			pose 9
		endi
		doif pose eq 7
			pose 8
		endi
	retn
	subr cant
		setv var0 posl
		setv var1 posr
		setv var2 post
		addv var2 50
		inst
		new: simp ants 15 0 6400 0
		setv cls2 2 17 1
		setv attr 195
		setv pupt -1 10 1
		setv accg 4
		setv rest 100
		bhvr 0 64
		setv ov02 var0
		setv ov03 var1
		rndv ov07 450 550
		mvto var0 var2
		setv grav 1
		rndv var8 0 1
		doif var8 eq 0
			base 0
			pose 0
			setv ov00 0
			setv var9 ov10
			negv var9
			setv velx var9
		else
			base 0
			pose 7
			setv ov00 1
			setv velx ov10
		endi
		doif obst 3 le 1
			setv vely ov11
		else
			setv vely 0
		endi
		tick 4
		setv ov01 posl
	retn
	subr cque
		setv var0 posl
		setv var1 post
		inst
		new: simp ants 4 18 6400 0
		setv cls2 2 17 3
		rndv ov00 0 1
		rndv ov01 0 2399
		setv ov02 0
		rndv ov03 400 600
		setv attr 192
		setv accg 2
		setv size 50
		setv rest 100
		doif ov00 eq 0
			base 0
			pose 0
		else
			base 2
			pose 0
		endi
		mvto var0 var1
		sndl buzz
		tick 2
	retn
endm

scrp 2 16 1 256
	base 0
	doif pose eq 2
		addv ov00 20
		doif ov00 ge ov16
			setv ov00 ov16
		endi
		doif ov03 eq 1
			setv var0 0
			enum 2 16 1
				addv var0 1
			next
			targ ownr
			doif var0 lt 3
				setv ov03 0
				gsub cque
			endi
		endi
		stop
	endi
	base 0
	doif pose eq 1
		addv ov00 20
		doif ov00 ge ov12
			base 0
			pose 2
			setv ov01 ov15
		endi
		stop
	endi
	base 0
	doif pose eq 0
		addv ov00 20
		doif ov00 ge ov11
			base 0
			pose 1
			setv ov01 ov14
		endi
		stop
	endi
	subr cque
		setv var0 posl
		setv var1 post
		addv var1 50
		inst
		new: simp ants 4 18 6400 0
		setv cls2 2 17 3
		rndv ov00 0 1
		rndv ov01 0 2399
		setv ov02 0
		rndv ov03 400 600
		setv attr 192
		setv accg 2
		setv size 50
		setv rest 100
		doif ov00 eq 0
			base 0
			pose 0
		else
			base 2
			pose 0
		endi
		mvto var0 var1
		sndl buzz
		tick 2
	retn
endm
