* Script  4 Picked up
scrp 2 23 1 4
	doif ov01 eq 0
		inst
		setv attr 195
		setv size 127
		doif ov00 eq 2
			setv ov00 3
			setv var8 ov13
			setv var9 ov16
			gsub sett
		endi
		base 0
		pose 6
		setv ov01 1
	endi
	subr sett
		setv var6 var8
		setv var0 var9
		negv var0
		setv var1 var9
		rndv var2 var0 var1
		setv var3 100
		doif var2 eq 0
			setv var4 0
		else
			divv var3 var2
			setv var4 var6
			divv var4 var3
		endi
		setv var5 var6
		addv var5 var4
		tick var5
	retn
endm

* Script  6 Colission
scrp 2 23 1 6
	doif ov00 ne 4
		snde dr10
	endi
endm

* Script  9 TIMER
scrp 2 23 1 9
	lock
	doif ov00 eq 0
		gsub chk1
		gsub chk2
		gsub chk3
		gsub chk4
		setv ov00 1
		setv var8 ov11
		setv var9 ov16
		gsub sett
		stop
	endi
	doif ov00 eq 1
		gsub grow
		stop
	endi
	doif ov00 eq 2
		doif ov01 eq 0
			doif ov02 lt 2
				gsub sprt
				targ ownr
				addv ov02 1
				doif ov02 eq 2
					setv ov00 3
					setv var8 ov13
					setv var9 ov16
					gsub sett
				endi
			endi
		endi
		stop
	endi
	doif ov00 eq 3
		gsub dcay
		stop
	endi
	doif ov00 eq 4
		doif grav eq 0
			setv ov00 0
			setv size 5
			mvby 0 9
			setv attr 64
			setv var8 ov10
			setv var9 ov16
			gsub sett
		endi
		stop
	endi
	subr chk1
		setv var0 0
		esee 2 23 1
			doif ov01 eq 0
				addv var0 1
			endi
		next
		doif var0 gt 12
			kill ownr
		endi
	retn
	subr chk2
		setv var0 0
		etch 2 23 0
			doif ov01 eq 0
				setv var0 1
			endi
		next
		targ ownr
		doif var0 eq 1
			kill ownr
		endi
	retn
	subr chk3
		doif temp lt 30
			kill ownr
		endi
		doif temp gt 225
			kill ownr
		endi
	retn
	subr chk4
		doif intr lt 80
			kill ownr
		endi
		doif intr lt 100
			rndv var0 0 1
			doif var0 eq 0
				kill ownr
			endi
		endi
		doif intr gt 130
			rndv var0 0 1
			doif var0 eq 0
				kill ownr
			endi
		endi
		doif intr gt 150
			kill ownr
		endi
	retn
	subr grow
		base 0
		doif pose eq 4
			pose 5
			setv ov00 2
			wait 10
			reps 9
				mvby 0 -1
			repe
			setv attr 67
			bhvr 0 64
			setv var8 ov12
			setv var9 ov16
			gsub sett
		else
			setv var0 pose
			addv var0 1
			pose var0
		endi
	retn
	subr sprt
		setv var0 posl
		setv var1 post
		subv var1 12
		doif ov02 eq 1
			doif ov03 eq 0
				setv var2 1
			else
				setv var2 -1
			endi
		else
			rndv ov03 0 1
			doif ov03 eq 0
				setv var2 -1
			else
				setv var2 1
			endi
		endi
		setv var4 ov15
		negv var4
		rndv var3 var4 ov15
		addv var3 ov14
		mulv var2 var3
		inst
		new: simp carr 7 0 7000 0
		setv cls2 2 23 1
		setv ov10 200
		setv ov11 200
		setv ov12 1000
		setv ov13 10000
		setv ov14 8
		setv ov15 1
		setv ov16 10
		setv ov00 4
		setv attr 192
		setv size 50
		setv rnge 2000
		base 0
		pose 0
		mvto var0 var1
		setv velx var2
		setv vely -2
		tick 20
		slow
	retn
	subr dcay
		setv var0 attr
		setv var1 ov01
		setv var2 posl
		setv var3 post
		setv var4 ov13
		setv var5 ov16
		inst
		new: simp carr 2 7 7001 0
		setv cls2 2 11 7
		setv attr var0
		bhvr 0 64
		setv puhl 1 24 11
		setv ov01 var1
		base 0
		doif ov01 eq 0
			pose 0
		else
			pose 1
		endi
		mvto var2 var3
		setv grav 1
		setv var8 var4
		setv var9 var5
		gsub sett
		kill ownr
	retn
	subr sett
		setv var6 var8
		setv var0 var9
		negv var0
		setv var1 var9
		rndv var2 var0 var1
		setv var3 100
		doif var2 eq 0
			setv var4 0
		else
			divv var3 var2
			setv var4 var6
			divv var4 var3
		endi
		setv var5 var6
		addv var5 var4
		tick var5
	retn
endm

* Script 
scrp 2 23 1 12
	stim writ from 10 255 0 0 37 100 73 100 79 100 97 100
	kill ownr
endm

