* Script  1 Activate(1)
scrp 2 13 4 1
	stim writ from 20 9 20 0 42 10 36 50 45 100 44 50
	setv var0 posl
	setv var1 posr
	addv var0 var1
	divv var0 2
	targ from
	setv var1 posl
	targ ownr
	doif var1 lt var0
		rndv var2 15 25
		anim [12345670]
	else
		rndv var2 -25 -15
		anim [07654321]
	endi
	setv velx var2
	setv vely -40
	setv actv 0
endm

* Script  2 Activate(2)
scrp 2 13 4 2
	stim writ from 20 9 20 0 42 10 36 50 45 100 44 50
	setv var0 posl
	setv var1 posr
	addv var0 var1
	divv var0 2
	targ from
	setv var1 posl
	targ ownr
	doif var1 lt var0
		rndv var2 15 25
		anim [12345670]
	else
		rndv var2 -25 -15
		anim [07654321]
	endi
	setv velx var2
	setv vely -40
	setv actv 0
endm

* Script  4 Picked up
scrp 2 13 4 4
	pose 0
	stim writ from 0 255 0 0 44 10 36 50 43 100 42 50
endm

* Script  5 Dropped
scrp 2 13 4 5
	stim shou 30 9 20 0 0 0 0 0 0 0 0 0
	anim [067]
endm

* Script  6 Colission
scrp 2 13 4 6
	snde boi2
	setv actv 0
	doif wall eq 3
		doif velx lt 0
			anim [07654321]
		endi
		doif velx gt 0
			anim [12345670]
		endi
	endi
	doif wall eq 0
		anim [56765]
	endi
	doif wall eq 1
		anim [56765]
	endi
	doif grav eq 0
		pose 0
	endi
	stim shou 40 8 0 0 36 50 45 50 42 50 0 0
endm
