* 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
