* Script  1 Activate(1)
scrp 2 20 2 1
	stim writ from 0 255 0 0 45 50 0 0 0 0 0 0
	setv velx 0
	setv vely 0
	setv grav 0
	tick 0
	rndv var0 0 1
	doif var0 eq 0
		base 12
	else
		base 15
	endi
	anim [012R]
	snde doos
	setv var0 posl
	setv var1 post
	inst
	new: bkbd blnk 1 0 0 0 0 0 0
	setv cls2 3 3 10
	new: part 0 0 0 0 0
	mvto var0 var1
	mesg writ targ 8
	slow
	targ ownr
	wait 15
	setv actv 0
	tick 4
endm

* Script  5 Dropped
scrp 2 20 2 5
	setv actv 0
	tick 5
endm

* Script  6 Colission
scrp 2 20 2 6
	doif wall eq 0
		setv ov00 1
	endi
	doif wall eq 1
		setv ov00 -1
	endi
endm

* Script  7 Enter scope
scrp 2 20 2 7
	setv actv 0
	tick 5
endm

* Script  9 TIMER
scrp 2 20 2 9
	rndv var0 0 2
	doif var0 eq 0
		snde doz2
	endi
	stim shou 0 255 0 0 42 10 0 0 0 0 0 0
	doif ov99 lt 5
		setv var9 0
		esee 4 1 0
			setv var9 1
			setv ov99 0
		next
		doif var9 eq 0
			negv ov00
			addv ov99 1
		endi
	else
		addv ov98 1
	endi
	doif ov98 gt 30
		setv ov99 0
		setv ov98 0
	endi
	doif grav eq 0
		doif ov00 eq 1
			gsub rite
		else
			gsub left
		endi
	else
		doif ov00 eq 1
			base 6
			anim [012345]
		else
			base 0
			anim [012345]
		endi
	endi
	doif rtyp eq 2
		snde doz3
		setv vely -150
		loop
			rndv var0 -1 1
		untl var0 ne 0
		mulv var0 80
		setv velx var0
	endi
	subr rite
		rndv var0 -25 -15
		setv velx 5
		setv vely -15
		base 6
		anim [012345]
		setv velx 5
		setv vely -15
	retn
	subr left
		rndv var0 15 25
		setv velx -5
		setv vely -10
		base 0
		anim [012345]
		setv velx -5
		setv vely -15
	retn
endm
