* Script  5 Dropped
scrp 2 6 2 5
	setv var0 posx
	subv var0 50
	setv var1 var0
	addv var1 100
	setv var2 posy
	setv var3 var2
	subv var3 300
	setv var9 0
	esee 2 16 2
		doif posx ge var0
			doif posx le var1
				doif posb ge var3
					doif posb le var2
						targ ownr
						addv ov00 20
						stop
					endi
				endi
			endi
		endi
	next
	targ ownr
	doif ov00 eq 0
		pose 1
	else
		pose 0
	endi
endm

* Script  6 Colission
scrp 2 6 2 6
	doif wall eq 3
		snde drp2
	endi
endm

* Script 
scrp 2 6 2 12
	doif ov00 gt 0
		subv ov00 1
		snde drnk
		stim writ from 0 255 0 0 73 100 37 100 0 0 0 0
	endi
	doif ov00 eq 0
		pose 1
	else
		pose 0
	endi
	setv actv 0
endm

