* Script  1 Activate(1)
scrp 2 18 5 1
	negv ov01
	setv actv 0
endm

* Script  6 Colission
scrp 2 18 5 6
	doif wall eq 0
		negv ov01
	endi
	doif wall eq 1
		negv ov01
	endi
endm

* Script  9 TIMER
scrp 2 18 5 9
	stim sign 0 255 0 0 42 10 45 10 0 0 0 0
	doif ov00 eq 0
		doif tmod eq 4
			setv ov00 1
			tick 10
		endi
	endi
	doif ov00 eq 1
		doif ov01 lt 0
			gsub left
		else
			gsub rite
		endi
		setv var9 0
		esee 2 18 5
		setv var0 posl
		setv var9 1
	next
	doif var9 eq 1
		setv ov00 3
	endi
endi
setv var9 0
esee 2 18 5
setv var0 posl
setv var9 1
next
doif var9 eq 1
	setv ov00 3
endi
doif ov00 eq 3
	setv var1 posl
	subv var1 var0
	doif var1 gt 0
		base 6
		pose 0
	else
		base 0
		pose 0
	endi
	anim [030]
	rndv var0 -25 -15
	setv vely var0
	rndv var0 2 15
	tick var0
	addv ov02 1
	doif ov02 gt 10
		setv ov00 4
		setv ov02 0
		tick 10
	endi
endi
doif ov00 eq 4
	doif ov01 lt 0
		gsub left
	else
		gsub rite
	endi
	addv ov02 1
	doif ov02 gt 20
		setv ov00 1
	endi
endi
doif tmod ne 4
	setv ov00 0
endi
subr left
	base 6
	anim [012345R]
	setv vely -10
	setv velx -5
retn
subr rite
	base 0
	anim [012345R]
	setv vely -10
	setv velx 5
retn
endm

