* Script  4 Picked up
scrp 2 11 8 4
	doif ov01 eq 0
		setv attr 195
		setv size 127
		base 0
		pose 1
		setv ov01 1
	endi
endm

* Script  6 Colission
scrp 2 11 8 6
	base 0
	doif pose eq 1
		snde dr11
	endi
endm

* Script  9 TIMER
scrp 2 11 8 9
	lock
	setv var0 posl
	setv var1 post
	doif ov01 eq 0
		subv var1 0
	else
		subv var1 0
	endi
	inst
	new: simp pota 7 0 7000 0
	setv cls2 2 23 2
	setv ov10 200
	setv ov11 200
	setv ov12 1000
	setv ov13 10000
	setv ov14 13
	setv ov15 2
	setv ov16 10
	setv ov00 4
	setv attr 192
	setv size 50
	setv rnge 2000
	mvto var0 var1
	setv grav 1
	tick 20
	addv ontr 10
	kill ownr
endm

* Script 
scrp 2 11 8 12
	rndv var0 232 235
	stim writ from 10 255 0 0 18 50 var0 100 0 0 0 0
	kill ownr
endm
