* Script  1 Activate(1)
scrp 2 17 4 1
	setv thrt 200
	stim writ from 0 255 0 0 18 50 144 50 0 0 0 0
	targ from
	setv objp targ
	targ ownr
	setv ov99 1
	setv ov02 0
	setv actv 0
endm

* Script  2 Activate(2)
scrp 2 17 4 2
	setv thrt 200
	stim writ from 0 255 0 0 18 50 144 50 0 0 0 0
	targ from
	setv objp targ
	targ ownr
	setv ov99 1
	setv ov02 0
	setv actv 0
endm

* Script  7 Enter scope
scrp 2 17 4 7
	setv ov99 0
endm

* Script  9 TIMER
scrp 2 17 4 9
	doif ov99 eq 0
		doif ov02 gt 10
			esee 2 17 4
			rndv var0 0 2
			doif var0 gt 0
				setv var0 posl
				setv var1 post
			endi
		next
		targ ownr
		setv var2 posl
		setv var3 post
		subv var2 var0
		doif var2 gt 0
			doif ov00 gt 0
				negv ov00
			endi
		else
			doif ov00 lt 0
				negv ov00
			endi
		endi
		subv var3 var1
		doif var3 gt 0
			doif vely gt 0
				subv vely 5
			endi
		else
			doif vely lt 0
				addv vely 5
			endi
		endi
	endi
	doif ov00 gt 0
		setv velx 5
		addv ov01 1
	else
		setv velx -5
		addv ov01 1
	endi
	rndv var0 -2 2
	addv vely var0
	doif vely gt 10
		subv vely 5
	endi
	doif vely lt -10
		addv vely 5
	endi
	doif ov01 gt 10
		setv ov01 0
		negv ov00
	endi
	addv ov02 1
endi
doif ov99 eq 1
	targ objp
	setv var0 posl
	setv var1 posb
	targ ownr
	setv var2 posl
	setv var3 posb
	subv var2 var0
	doif var2 gt 0
		setv velx -8
	endi
	doif var2 lt 0
		setv velx 8
	endi
	subv var3 var1
	doif var3 gt 0
		subv vely 2
	endi
	doif var3 lt 0
		addv vely 2
	endi
	etch 4 0 0
	stim writ targ 0 255 0 0 17 100 0 0 0 0 0 0
next
addv ov02 1
doif ov02 gt 20
	setv ov02 0
	setv ov99 0
endi
endi
endm

