* Script  9 TIMER
scrp 2 18 6 9
	gsub watr
	doif ov03 eq 0
		doif ov04 eq 0
			gsub ccse
			gsub plnt
			gsub hang
			gsub bord
			gsub chkp
			gsub move
			stop
		endi
		doif ov04 eq 1
			tick 10
			gsub pinf
			doif var0 eq 1
				doif post le var2
					gsub jump
				else
					gsub clim
				endi
			else
				gsub drop
			endi
			stop
		endi
		doif ov04 eq 2
			gsub land
			stop
		endi
		stop
	endi
	doif ov03 eq 1
		gsub mkcc
		stop
	endi
	doif ov03 eq 2
		doif sean eq 2
			gsub cbut
			stop
		endi
	endi
	subr watr
		doif rtyp eq 2
			gsub die_
			stop
		endi
	retn
	subr ccse
		doif seav ge 15
			doif ov02 eq 0
				gsub die_
				stop
			endi
			setv ov03 1
			base 0
			anim [10]
			tick 30
			stop
		endi
	retn
	subr plnt
		etch 2 24 0
			doif ov00 eq 1
				setv var9 relx
				gsub absv
				doif var9 le 4
					targ ownr
					setv ov04 1
					subv attr 128
					doif ov00 eq 0
						base 12
					else
						base 18
					endi
					pose 3
					doif ov00 eq 0
						mvby 10 -8
					else
						mvby -2 -8
					endi
					tick 1
					stop
				endi
			endi
		next
	retn
	subr hang
		doif ov02 eq 1
			setv var9 ov06
			subv var9 posx
			gsub wrap
			doif ov00 eq 0
				doif var9 gt 100
					setv ov00 1
				endi
			else
				doif var9 lt -100
					setv ov00 0
				endi
			endi
		endi
	retn
	subr bord
		rndv var0 0 99
		doif var0 eq 0
			gsub turn
		endi
	retn
	subr chkp
		doif posl eq ov01
			addv ov05 1
			doif ov05 ge 10
				gsub turn
				setv ov05 0
			endi
		else
			setv ov05 0
		endi
	retn
	subr turn
		doif ov00 eq 0
			setv ov00 1
		else
			setv ov00 0
		endi
	retn
	subr move
		doif obst 3 le 1
			doif obst ov00 le 5
				setv var0 3
				setv var1 -17
			else
				setv var0 6
				setv var1 -12
			endi
			setv var9 0
			doif obst ov00 le 5
				setv vely var1
				wait 1
				setv var9 1
			endi
			doif ov00 eq 0
				base 0
				anim [3450000123]
				negv var0
				setv velx var0
			else
				base 6
				anim [3450000123]
				setv velx var0
			endi
			doif var9 eq 0
				setv vely var1
			endi
			setv ov01 posl
		endi
		stop
	retn
	subr pinf
		setv var0 0
		setv var3 posx
		etch 2 24 0
			doif ov00 eq 1
				setv var9 posx
				subv var9 var3
				gsub wrap
				gsub absv
				doif var9 le 8
					setv var2 post
					setv var0 1
				endi
			endi
		next
	retn
	subr jump
		tick 1000
		doif ov02 eq 0
			setv ov06 posx
		endi
		setv ov02 1
		addv attr 128
		wait 10
		setv vely -20
		wait 1
		doif ov00 eq 0
			setv velx -10
		endi
		doif ov00 eq 1
			setv velx 10
		endi
		base 0
		pose 0
		setv ov04 2
		tick 1
	retn
	subr clim
		doif ov00 eq 0
			base 12
		else
			base 18
		endi
		anim [3450000123]
		setv vely -2
		wait 3
		setv vely 0
	retn
	subr drop
		base 0
		pose 0
		addv attr 128
		setv grav 1
		setv ov04 2
	retn
	subr land
		doif grav eq 0
			pose 0
			setv ov04 0
			tick 10
		endi
	retn
	subr mkcc
		setv ov03 2
		base 0
		mvby 0 -2
		pose 24
		tick 30
	retn
	subr die_
		tick 0
		base 0
		pose 29
		wait 100
		kill ownr
	retn
	subr cbut
		tick 0
		base 25
		anim [0123]
		over
		setv var0 posl
		setv var1 post
		subv var1 6
		inst
		rndv var3 0 1
		doif var3 eq 0
			setv var4 30
		endi
		doif var3 eq 1
			setv var4 39
		endi
		new: simp cat2 9 var4 6200 0
		setv cls2 2 18 7
		setv ov02 0
		setv ov03 0
		setv ov05 var3
		setv ov07 10
		setv ov08 0
		setv ov23 0
		setv attr 66
		setv rest 100
		setv accg 3
		setv rnge 1000
		mvto var0 var1
		slim
		setv ov01 posl
		tick 4
		kill ownr
	retn
	subr wrap
		doif var9 gt 4176
			subv var9 8352
		endi
		doif var9 lt -4176
			addv var9 8352
		endi
	retn
	subr absv
		doif var9 lt 0
			negv var9
		endi
	retn
endm

* Script 
scrp 2 18 6 12
	stim writ from 10 255 0 0 37 10 74 10 79 10 0 0
	kill ownr
endm
