* Script  1 Activate(1)
scrp 2 17 2 1
	addv ov13 50
	snde bez2
	setv actv 0
	tick 1
endm

* Script  4 Picked up
scrp 2 17 2 4
	stim writ from 50 255 0 0 18 100 0 0 0 0 0 0
endm

* Script  6 Colission
scrp 2 17 2 6
	doif wall eq 0
		doif ov10 lt 0
			setv ov10 0
		endi
	endi
	doif wall eq 1
		doif ov10 gt 0
			setv ov10 0
		endi
	endi
	doif wall eq 2
		doif ov11 lt 0
			setv ov11 0
		endi
	endi
	doif wall eq 3
		doif ov11 gt 0
			setv ov11 0
		endi
	endi
endm

* Script  9 TIMER
scrp 2 17 2 9
	lock
	sndl beez
	doif rtyp eq 2
		setv size 0
		setv ov07 -5
		doif ov11 eq 1
			setv ov11 0
		endi
		setv vely ov07
		stop
	endi
	setv size 40
	doif ov05 le 500
		setv ov00 4
	endi
	doif ov05 le 0
		setv ov00 10
	endi
	doif ov13 gt 0
		tick 0
		loop
			setv velx 0
			setv vely 0
			rndv var0 -10 10
			rndv var1 -5 5
			doif var0 gt 0
				anim [01R]
			else
				anim [23R]
			endi
			mvby var0 var1
			stim tact 50 255 0 0 18 50 0 0 0 0 0 0
			subv ov13 1
		untl ov13 lt 0
		tick 10
	endi
	doif ov00 eq 0
		loop
			rndv ov10 -1 1
		untl ov10 ne 0
		rndv ov11 -1 1
		setv ov06 ov10
		mulv ov06 3
		setv ov07 ov11
		mulv ov07 3
		setv ov00 1
		tick 20
		setv ov04 5
		setv velx ov06
		setv vely ov07
		doif ov06 gt 0
			anim [01R]
		endi
		doif ov06 lt 0
			anim [23R]
		endi
		stop
	endi
	doif ov00 eq 1
		gsub move
		subv ov04 1
		doif ov04 le 0
			setv rnge 1000
			setv var0 0
			esee 2 24 0
			doif ov00 eq 1
				rndv var9 0 3
				doif var9 ne 0
					setv var0 1
					setv var1 posl
					setv var2 post
				endi
			endi
		next
		targ ownr
		doif var0 eq 1
			setv ov02 var1
			setv ov03 var2
			setv ov00 2
			setv ov10 0
			setv ov11 0
			setv ov12 1000
			setv ov09 0
		else
			setv ov04 5
		endi
	endi
	setv velx ov06
	setv vely ov07
	doif ov06 gt 0
		anim [01R]
	endi
	doif ov06 lt 0
		anim [23R]
	endi
endi
doif ov00 eq 2
	doif ov09 eq 1
		setv ov00 3
		setv velx 0
		setv vely 0
		stop
	endi
	gsub move
	gsub home
	gsub touc
	setv velx ov06
	setv vely ov07
	doif ov06 gt 0
		anim [01R]
	endi
	doif ov06 lt 0
		anim [23R]
	endi
	subv ov12 1
	doif ov12 le 0
		setv ov00 1
	endi
endi
doif ov00 eq 3
	etch 2 24 0
	doif ov00 eq 1
		mesg wrt+ targ 100 0 0 0
		targ ownr
		addv ov08 1
	endi
next
targ ownr
doif ov08 gt 3
	setv ov00 4
	setv ov09 0
else
	rndv var0 0 2
	doif var0 eq 0
		setv ov09 0
		setv ov00 4
	else
		setv ov04 10
		setv ov00 1
	endi
endi
endi
doif ov00 eq 4
	setv size 0
	targ ov01
	doif targ eq 0
		targ ownr
		setv ov00 10
		stop
	else
		setv var0 posl
		setv var1 post
	endi
	targ ownr
	setv ov02 var0
	setv ov03 var1
	doif ov09 eq 1
		setv ov00 5
		setv velx 0
		setv vely 0
		stop
	endi
	gsub move
	gsub home
	gsub touc
	setv velx ov06
	setv vely ov07
	doif ov06 gt 0
		anim [01R]
	endi
	doif ov06 lt 0
		anim [23R]
	endi
endi
doif ov00 eq 5
	setv size 40
	setv var0 ov08
	setv ov08 0
	targ ov01
	addv ov11 var0
	subv ov11 1
	targ ownr
	addv ov05 1000
	setv ov00 0
endi
doif ov00 eq 10
	fade
	setv velx 0
	setv vely 0
	addv attr 128
	setv grav 1
	wait 20
	kill targ
endi
subr move
	doif velx lt 0
		rndv var0 -3 1
	else
		doif velx gt 0
			rndv var0 -1 3
		else
			doif velx eq 0
				rndv var0 -3 3
			endi
		endi
	endi
	doif vely lt 0
		rndv var1 -3 1
	else
		doif vely gt 0
			rndv var1 -1 3
		else
			doif vely eq 0
				rndv var1 -3 3
			endi
		endi
	endi
	setv var2 flor
	subv var2 posb
	doif var2 lt 30
		subv var1 4
	endi
	setv var9 obst 2
	doif var9 lt 20
		addv var1 4
	endi
	addv var0 ov10
	addv var1 ov11
	addv ov06 var0
	addv ov07 var1
	doif ov06 gt 5
		setv ov06 6
	endi
	doif ov06 lt -5
		setv ov06 -6
	endi
	doif ov07 gt 5
		setv ov07 6
	endi
	doif ov07 lt -5
		setv ov07 -6
	endi
	subv ov05 1
retn
subr home
	setv var0 ov02
	setv var1 ov03
	addv var0 20
	addv var1 20
	subv var0 posl
	subv var1 posb
	doif var0 lt 0
		doif velx ge 0
			rndv var9 2 4
			subv ov06 var9
		else
			addv ov06 -1
		endi
	endi
	doif var0 gt 0
		doif velx le 0
			rndv var9 2 4
			addv ov06 var9
		else
			addv ov06 1
		endi
	endi
	doif var1 lt 0
		doif vely ge 0
			rndv var9 2 4
			subv ov07 var9
		else
			addv ov07 -1
		endi
	endi
	doif var1 gt 0
		doif vely le 0
			rndv var9 2 4
			addv ov07 var9
		else
			addv ov07 1
		endi
	endi
retn
	subr touc
		setv ov09 0
		setv var0 ov02
		addv var0 50
		setv var1 ov03
		addv var1 100
		setv var2 0
		setv var3 0
		doif posl ge ov02
			doif posl le var0
				setv var2 1
			endi
		endi
		doif posb ge ov03
			doif posb le var1
				setv var3 1
			endi
		endi
		andv var2 var3
		doif var2 eq 1
			setv ov09 1
			setv velx 0
			setv vely 0
		endi
	retn
	unlk
endm

scrp 2 17 2 120
	tick 0
	setv velx 0
	setv vely 3
	wait 20
	kill ownr
endm
