* Script  1 Activate(1)
scrp 2 4 5 1
	rndv var0 0 1
	doif var0 eq 0
		gsub rite
	else
		gsub left
	endi
	setv actv 0
	subr rite
		reps 5
			setv velx 5
			base 7
			anim [0123]
			over
		repe
		base 0
		pose 6
	retn
	subr left
		reps 5
			setv velx -5
			base 11
			anim [0123]
			over
		repe
		base 0
		pose 6
	retn
endm

* Script  9 TIMER
scrp 2 4 5 9
	doif ov00 eq 0
		doif pose lt 6
			setv var0 pose
			addv var0 1
			pose var0
		else
			setv ov00 1
			tick 1000
		endi
	endi
	doif ov00 eq 1
		rndv var0 0 9
		doif var0 eq 0
			rndv var0 0 1
			doif var0 eq 0
				gsub rite
			else
				gsub left
			endi
		endi
	endi
	subr rite
		reps 5
			setv velx 5
			base 7
			anim [0123]
			over
		repe
		base 0
		pose 6
	retn
	subr left
		reps 5
			setv velx -5
			base 11
			anim [0123]
			over
		repe
		base 0
		pose 6
	retn
endm

