* Script  1 Activate(1)
scrp 2 18 4 1
	setv velx ov00
	setv vely ov01
	tick 3
endm

* Script  6 Colission
scrp 2 18 4 6
	inst
	doif ov02 eq 1
		doif ov03 eq -1
			doif wall eq 0
				setv velx 0
				rndv var0 2 3
				doif var0 eq 2
					setv ov03 1
				endi
				setv ov02 var0
				stop
			endi
		else
			doif wall eq 2
				setv vely 0
				rndv var0 0 1
				doif var0 eq 1
					setv var0 3
				else
					setv ov03 -1
				endi
				setv ov02 var0
				stop
			endi
		endi
	endi
	doif ov02 eq 0
		doif ov03 eq -1
			doif wall eq 3
				setv vely 0
				rndv var0 1 2
				doif var0 eq 1
					setv ov03 1
				endi
				setv ov02 var0
				stop
			endi
		else
			doif wall eq 0
				setv velx 0
				rndv var0 2 3
				doif var0 eq 3
					setv ov03 -1
				endi
				setv ov02 var0
				stop
			endi
		endi
	endi
	doif ov02 eq 2
		doif ov03 eq -1
			doif wall eq 2
				setv vely 0
				rndv var0 0 1
				doif var0 eq 1
					setv var0 3
					setv ov03 1
				endi
				setv ov02 var0
				stop
			endi
		else
			doif wall eq 1
				setv velx 0
				rndv var0 0 1
				doif var0 eq 1
					setv ov03 -1
				endi
				setv ov02 var0
				stop
			endi
		endi
	endi
	doif ov02 eq 3
		doif ov03 eq -1
			doif wall eq 1
				setv velx 0
				rndv var0 0 1
				doif var0 eq 0
					setv ov03 1
				endi
				setv ov02 var0
				stop
			endi
		else
			doif wall eq 3
				setv vely 0
				rndv var0 1 2
				doif var0 eq 2
					setv ov03 -1
				endi
				setv ov02 var0
				stop
			endi
		endi
	endi
endm

* Script  9 TIMER
scrp 2 18 4 9
	stim shou 0 255 0 0 42 10 0 0 0 0 0 0
	doif rtyp eq 2
		rndv vely -40 -30
		stop
	endi
	doif velx gt 0
		anim [4567R]
	endi
	doif velx lt 0
		anim [0123R]
	endi
	doif ov00 gt 10
		setv ov00 10
	endi
	doif ov00 lt -10
		setv ov00 -10
	endi
	doif ov01 gt 10
		setv ov01 10
	endi
	doif ov01 lt -10
		setv ov01 -10
	endi
	setv velx ov00
	setv vely ov01
	doif ov02 eq 0
		doif ov03 eq -1
			doif ov00 le 0
				rndv var0 1 2
				doif var0 eq 2
					negv ov03
				endi
				setv ov02 var0
			endi
		else
			doif ov01 ge 0
				rndv var0 2 3
				doif var0 eq 2
					negv ov03
				endi
				setv ov02 var0
			endi
		endi
		subv ov00 ov99
		addv ov01 ov99
	endi
	doif ov02 eq 1
		doif ov03 eq -1
			doif ov01 le 0
				rndv var0 2 3
				doif var0 eq 3
					negv ov03
				endi
				setv ov02 var0
			endi
		else
			doif ov00 le 0
				rndv var0 0 1
				doif var0 eq 1
					setv var0 3
				else
					negv ov03
				endi
				setv ov02 var0
			endi
		endi
		subv ov00 ov99
		subv ov01 ov99
	endi
	doif ov02 eq 2
		doif ov03 eq -1
			doif ov00 ge 0
				rndv var0 0 1
				doif var0 eq 1
					setv var0 3
				else
					negv ov03
				endi
				setv ov02 var0
			endi
		else
			doif ov01 le 0
				rndv var0 0 1
				doif var0 eq 0
					negv ov03
				endi
				setv ov02 var0
			endi
		endi
		addv ov00 ov99
		subv ov01 ov99
	endi
	doif ov02 eq 3
		doif ov03 eq -1
			doif ov01 ge 0
				rndv var0 0 1
				doif var0 eq 1
					negv ov03
				endi
				setv ov02 var0
			endi
		else
			doif ov00 ge 0
				rndv var0 1 2
				doif var0 eq 1
					negv ov03
				endi
				setv ov02 var0
			endi
		endi
		addv ov00 ov99
		addv ov01 ov99
	endi
endm
