* 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

