* 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
