* Script  1 Activate(1)
scrp 2 18 9 1
	doif ov00 eq 0
		setv ov00 1
	else
		setv ov00 0
	endi
	setv actv 0
endm

* Script  6 Colission
scrp 2 18 9 6
	doif wall eq 0
		setv ov00 0
	endi
	doif wall eq 1
		setv ov00 1
	endi
endm

* Script  9 TIMER
scrp 2 18 9 9
	doif ov01 gt 10
		subv ontr 1
		setv ov01 0
	endi
	doif ov00 eq 0
		gsub rite
	else
		gsub left
	endi
	addv ov01 1
	subr rite
		setv velx 2
		setv vely -12
		base 0
		anim [01234567]
	retn
	subr left
		setv velx -2
		setv vely -12
		base 8
		anim [01234567]
	retn
endm

