* Script  1 Activate(1)
scrp 2 13 9 1
	doif movs ne 0
		setv ov02 0
		setv actv 0
		stop
	endi
	doif from eq pntr
		doif ov02 eq 0
			setv actv 0
			stop
		endi
	endi
	setv ov02 0
	setv ov01 posy
	stim writ from 0 9 100 0 36 100 42 100 44 100 45 100
	targ from
	setv var0 relx
	targ ownr
	doif from eq pntr
		subv var0 19
	endi
	doif var0 lt 0
		setv ov00 1
		setv attr 192
		tick 1
	else
		setv ov00 0
		setv attr 192
		tick 1
	endi
endm

* Script  6 Colission
scrp 2 13 9 6
	snde drp8
endm

* Script  9 TIMER
scrp 2 13 9 9
	lock
	base 0
	doif obst ov00 ge 40
		doif obst 3 le 0
			setv vely -20
		endi
		doif ov00 eq 0
			base 1
			anim [01234567]
			over
			base 9
			anim [012]
			over
			snde slnk
			anim [3456]
			over
			base 0
			anim [0]
			mvby -39 0
		else
			base 16
			anim [01234567]
			over
			base 25
			anim [012]
			over
			snde slnk
			anim [3456]
			over
			base 0
			anim [0]
			mvby 39 0
		endi
		setv grav 1
		loop
			wait 1
		untl obst 3 le 0
		stim sign 100 9 100 0 36 100 42 100 44 100 45 100
	endi
	doif posy gt ov01
		setv ov01 posy
	else
		tick 0
		setv attr 199
		setv actv 0
	endi
	unlk
endm
