* 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
