* Script  1 Activate(1)
scrp 2 20 10 1
	inst
	doif ov02 eq 0
		setv ov00 3
	endi
	doif ov02 eq 1
		setv ov00 14
	endi
	doif ov03 eq 2
		setv ov00 11
	endi
	setv actv 0
	tick 5
endm

* Script  4 Picked up
scrp 2 20 10 4
	tick 0
	doif ov01 lt 0
		base 172
		anim [0123456789]
		over
		anim [66778899]
	else
		base 182
		anim [0123456789]
		over
		anim [66778899]
	endi
endm

* Script  5 Dropped
scrp 2 20 10 5
	tick 5
	doif ov01 lt 0
		base 172
		anim [3210]
		over
		base 0
		pose 0
	else
		base 182
		anim [3210]
		over
		base 8
		pose 0
	endi
	setv grav 1
endm

* Script  9 TIMER
scrp 2 20 10 9
	tick 20
	doif rtyp eq 2
		doif ov01 lt 0
			base 172
			anim [0123456789]
			over
			base 126
			anim [01234567]
			over
			anim [4567R]
			wait 20
			targ ov10
			kill targ
			targ ownr
			kill targ
		else
			base 182
			anim [0123456789]
			over
			base 134
			anim [01234567]
			over
			anim [4567R]
			wait 20
			targ ov10
			kill targ
			targ ownr
			kill targ
		endi
	endi
	doif ov02 eq 0
		doif ov00 eq 0
			reps 3
				gsub walk
			repe
		endi
		doif ov00 eq 1
			gsub pant
		endi
		doif ov00 eq 2
			gsub look
		endi
		doif ov00 eq 3
			gsub wag_
		endi
		doif ov00 eq 4
			gsub snif
		endi
		doif ov00 eq 5
			reps 3
				gsub run_
			repe
		endi
		doif ov00 eq 6
			gsub sit_
		endi
		doif ov00 eq 15
			gsub pick
		endi
		doif ov00 eq 16
			gsub cock
		endi
	endi
	doif ov02 eq 1
		doif ov00 eq 7
			gsub _up_
		endi
		doif ov00 eq 8
			gsub spnt
		endi
		doif ov00 eq 9
			gsub lay_
		endi
		doif ov00 eq 13
			gsub beg_
		endi
		doif ov00 eq 14
			gsub swag
		endi
	endi
	doif ov02 eq 2
		doif ov00 eq 10
			gsub l_up
		endi
		doif ov00 eq 11
			gsub roll
		endi
		doif ov00 eq 12
			gsub r_up
		endi
	endi
	doif ov03 eq 0
		doif ov02 eq 0
			rndv ov00 0 6
		endi
		doif ov02 eq 1
			rndv var0 0 3
			doif var0 lt 3
				addv var0 7
				setv ov00 var0
			else
				addv var0 11
				setv ov00 var0
			endi
		endi
		doif ov02 eq 2
			rndv var0 0 4
			doif var0 le 1
				addv var0 10
				setv ov00 var0
			endi
		endi
		rndv var0 0 5
		doif var0 eq 0
			negv ov01
		endi
	endi
	doif ov03 eq 1
		setv ov04 0
		targ ov10
		setv var0 posx
		targ ownr
		snde bark
		loop
			setv var3 posx
			subv var3 var0
			doif var3 lt 0
				negv var3
			endi
			doif var3 gt 100
				gsub run_
			else
				gsub walk
			endi
			setv var1 0
			setv var2 0
			doif var0 lt posl
				setv ov01 -1
			else
				setv var1 1
			endi
			doif var0 gt posr
				setv ov01 1
			else
				setv var2 1
			endi
			andv var1 var2
		untl var1 eq 1
		setv ov03 2
	endi
	doif ov03 eq 2
		doif touc ownr ov10 gt 0
			gsub pick
			setv ov03 0
		else
			targ ov10
			setv var0 posx
			targ ownr
			doif var0 ge posl
				doif var0 le posr
					addv ov04 1
					rndv var9 0 3
					doif var9 eq 0
						gsub roll
					else
						doif var9 eq 1
							gsub beg_
						else
							doif var9 eq 2
								gsub lay_
							else
								doif var9 eq 3
									gsub swag
								endi
							endi
						endi
					endi
				else
					setv ov03 1
				endi
			else
				setv ov03 1
			endi
			doif ov04 gt 20
				setv ov03 0
			endi
		endi
	endi
	targ ownr
	tick 5
	subr walk
		setv var8 obst 3
		doif var8 gt 10
			loop
				setv var8 obst 3
				wait 1
			untl var8 lt 10
		else
			snde step
			doif ov01 lt 0
				base 0
				anim [01234567]
				setv velx -20
				setv vely -8
			else
				base 8
				anim [01234567]
				setv velx 20
				setv vely -8
			endi
		endi
	retn
	subr pant
		snde pant
		doif touc ownr ov10 gt 0
			mesg writ ov10 5
		endi
		doif ov01 lt 0
			base 16
			anim [01234R]
		else
			base 21
			anim [01234R]
		endi
	retn
	subr look
		doif touc ownr ov10 gt 0
			mesg writ ov10 5
		endi
		doif ov01 lt 0
			base 26
			anim [01222223456666654]
			over
		else
			base 33
			anim [01222223456666654]
			over
		endi
		setv ov00 1
	retn
	subr wag_
		snde wine
		doif ov01 lt 0
			base 56
			anim [012R]
		else
			base 59
			anim [012R]
		endi
	retn
	subr snif
		doif ov01 lt 0
			base 62
			anim [012345678]
			over
			anim [8765445678R]
		else
			base 71
			anim [012345678]
			over
			anim [8765445678R]
		endi
		wait 10
		setv ov00 1
	retn
	subr run_
		setv var8 obst 3
		doif var8 gt 10
			loop
				setv var8 obst 3
				wait 1
			untl var8 lt 10
		else
			snde step
			doif ov01 lt 0
				base 40
				anim [01234567]
				setv velx -30
				setv vely -10
			else
				base 48
				anim [01234567]
				setv velx 30
				setv vely -10
			endi
		endi
	retn
	subr sit_
		doif ov01 lt 0
			base 80
			anim [0123456789]
			over
		else
			base 90
			anim [0123456789]
			over
		endi
		setv ov02 1
	retn
	subr _up_
		doif ov01 lt 0
			base 80
			anim [9876543210]
			over
		else
			base 90
			anim [9876543210]
			over
		endi
		setv ov02 0
	retn
	subr spnt
		snde pant
		doif touc ownr ov10 gt 0
			mesg writ ov10 5
		endi
		doif ov01 lt 0
			base 100
			anim [01234R]
		else
			base 105
			anim [01234R]
		endi
	retn
	subr lay_
		doif touc ownr ov10 gt 0
			mesg writ ov10 5
		endi
		doif ov01 lt 0
			base 110
			anim [01234567]
			over
		else
			base 118
			anim [01234567]
			over
		endi
		setv ov02 2
	retn
	subr l_up
		doif touc ownr ov10 gt 0
			mesg writ ov10 5
		endi
		doif ov01 lt 0
			base 110
			anim [76543210]
			over
		else
			base 118
			anim [76543210]
			over
		endi
		setv ov02 1
	retn
	subr roll
		doif touc ownr ov10 gt 0
			mesg writ ov10 5
		endi
		doif ov01 lt 0
			base 126
			anim [01234567]
			over
			anim [4567R]
		else
			base 134
			anim [01234567]
			over
			anim [4567R]
		endi
		wait 10
		setv ov00 12
	retn
	subr r_up
		doif touc ownr ov10 gt 0
			mesg writ ov10 5
		endi
		doif ov01 lt 0
			base 126
			anim [76543210]
			over
			base 117
			pose 0
		else
			base 134
			anim [76543210]
			over
			base 125
			pose 0
		endi
		wait 10
		setv ov00 10
	retn
	subr beg_
		snde wine
		doif ov01 lt 0
			base 142
			anim [0123456789]
			over
			wait 10
			anim [9876543210]
			over
			base 89
			pose 0
		else
			base 152
			anim [0123456789]
			over
			wait 10
			anim [9876543210]
			over
			base 99
			pose 0
		endi
		setv ov00 8
	retn
	subr swag
		doif ov01 lt 0
			base 162
			anim [01234R]
		else
			base 167
			anim [01234R]
		endi
	retn
	subr pick
		snde grow
		doif ov01 lt 0
			base 62
			anim [012345678]
			mesg writ ov10 4
			targ ownr
			over
		else
			base 71
			anim [012345678]
			mesg writ ov10 4
			targ ownr
			over
		endi
		wait 10
		setv ov00 3
	retn
	subr cock
		doif touc ownr ov10 gt 0
			mesg writ ov10 5
		endi
		doif ov01 lt 0
			base 192
			anim [0123]
			over
			wait 10
			anim [3210]
			over
		else
			base 196
			anim [0123]
			over
			wait 10
			anim [3210]
			over
		endi
		setv ov00 3
	retn
	subr stnd
		doif ov01 lt 0
			base 0
			pose 2
		else
			base 8
			pose 2
		endi
	retn
endm

scrp 2 20 10 100
	setv ov03 1
	tick 5
endm
