* Script  6 Colission
scrp 2 21 4 6
	doif wall eq 2
		setv vely 1
		setv grav 1
		setv ov00 1
		tick 20
	endi
	doif wall eq 3
		setv ov00 3
	endi
endm

* Script  9 TIMER
scrp 2 21 4 9
	doif ov00 eq 0
		doif grav eq 1
			setv var0 wndx
			divv var0 2
			setv var1 velx
			setv var2 wndy
			divv var2 2
			setv var3 vely
			doif var0 gt 0
				doif var0 gt var1
					addv var1 2
				endi
			else
				doif var0 lt var1
					subv var1 2
				endi
			endi
			doif var2 gt 0
				doif var2 gt var3
					addv var3 2
				else
					subv var3 2
				endi
			else
				doif var2 lt var3
					subv var3 2
				else
					addv var3 2
				endi
			endi
			anim [012345R]
			setv velx var1
			setv vely var3
		endi
	endi
	doif ov00 eq 1
		doif carr eq 0
			setv vely 1
			setv grav 1
		endi
	endi
	doif ov00 eq 2
		doif carr eq 0
			doif grav eq 0
				inst
				setv var0 posl
				setv var1 post
				new: simp trum 28 0 3000 0
				setv cls2 2 24 3
				setv attr 196
				bhvr 1 1
				setv size 15
				setv aero 1
				setv accg 1
				setv rest 100
				mvto var0 var1
				slow
				rndv var0 1 4
				setv ov01 var0
				kill ownr
			endi
		endi
	endi
endm

