* 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
