* Script  4 Picked up
scrp 2 25 10 4
	setv size 101
endm

* Script  6 Colission
scrp 2 25 10 6
	snde dr10
endm

* Script  9 TIMER
scrp 2 25 10 9
	lock
	addv ov00 1
	doif carr eq 0
		doif ov00 gt 20
			addv ontr 5
			kill ownr
		else
			doif ov00 gt 15
				setv grav 1
			endi
		endi
	endi
	unlk
endm

* Script 
scrp 2 25 10 12
	snde chwp
	stim writ from 0 255 0 0 158 200 73 50 37 50 97 100
	kill ownr
endm

