* 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

