* Script  4 Picked up
scrp 2 15 8 4
	setv size 101
endm

* Script  6 Colission
scrp 2 15 8 6
	snde dr10
endm

* Script  9 TIMER
scrp 2 15 8 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 15 8 12
	snde chwp
	stim writ from 0 255 0 0 18 50 234 100 168 100 169 100
	kill ownr
endm
