* Script  1 Activate(1)
scrp 2 13 5 1
	stim writ from 0 255 0 0 44 10 36 50 45 100 42 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 30 50
	else
		rndv var2 -50 -30
	endi
	setv velx var2
	setv vely -40
	setv actv 0
endm

* Script  2 Activate(2)
scrp 2 13 5 2
	stim writ from 0 255 0 0 44 10 36 50 45 100 42 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 30 50
	else
		rndv var2 -50 -30
	endi
	setv velx var2
	setv vely -40
	setv actv 0
endm

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

* Script  5 Dropped
scrp 2 13 5 5
	anim [01234567R]
endm

* Script  6 Colission
scrp 2 13 5 6
	snde tbou
	doif grav eq 0
		pose 0
	else
		wait 5
		doif grav eq 0
			pose 0
		endi
	endi
	stim shou 30 8 30 0 36 50 45 50 0 0 0 0
endm

