* Script  1 Activate(1)
scrp 2 13 2 1
	stim writ from 0 255 0 0 44 10 36 50 45 100 42 50
	setv var1 post
	anim [0123456]
	over
	doif ov00 eq 0
		setv var0 posl
		rndv var2 -40 -20
	else
		setv var0 posr
		subv var0 10
		subv var1 5
		rndv var2 20 40
	endi
	inst
	new: simp tgun 26 14 8000 0
	setv cls2 2 11 1
	setv attr 192
	setv accg 8
	setv aero 10
	setv rest 80
	mvto var0 var1
	slim
	anim [01234567R]
	tick 1
	setv velx var2
	setv vely -40
	snde pop1
	targ ownr
	setv actv 0
endm

* Script  2 Activate(2)
scrp 2 13 2 2
	stim writ from 0 255 0 0 44 10 36 50 45 100 42 50
	setv var1 post
	anim [0123456]
	over
	doif ov00 eq 0
		setv var0 posl
		rndv var2 -40 -20
	else
		setv var0 posr
		subv var0 10
		subv var1 5
		rndv var2 20 40
	endi
	inst
	new: simp tgun 26 14 8000 0
	setv cls2 2 11 1
	setv attr 192
	setv accg 8
	setv aero 10
	setv rest 80
	mvto var0 var1
	slim
	anim [01234567R]
	tick 1
	setv velx var2
	setv vely -40
	snde pop1
	targ ownr
	setv actv 0
endm

* Script  4 Picked up
scrp 2 13 2 4
	tick 5
	doif from eq pntr
		setv ov01 posl
	endi
endm
* Script  5 Dropped
scrp 2 13 2 5
	tick 0
endm

* Script  6 Colission
scrp 2 13 2 6
	doif wall eq 3
		snde drp1
		setv actv 0
	endi
endm

* Script  9 TIMER
scrp 2 13 2 9
	doif carr eq pntr
		setv var0 posl
		subv var0 ov01
		doif var0 gt 0
			setv ov00 1
			base 7
			pose 0
		endi
		doif var0 lt 0
			setv ov00 0
			base 0
			pose 0
		endi
		setv ov01 posl
	else
		targ carr
		doif dirn eq 2
			targ ownr
			setv ov00 1
			base 7
			pose 0
		else
			doif dirn eq 3
				targ ownr
				setv ov00 0
				base 0
				pose 0
			endi
		endi
	endi
endm

