* Script  1 Activate(1)
scrp 2 13 13 1
	snde top1
	stim shou 50 8 128 0 45 20 0 0 0 0 0 0
	stim writ from 50 255 0 0 45 100 36 100 0 0 0 0
	doif actv eq 0
		base 0
		anim [0123]
		over
	endi
	addv ov00 10
	loop
		rndv var0 -10 10
		base 4
		anim [13R]
		subv ov00 1
		setv velx var0
		setv vely -8
		wait 1
	untl ov00 le 0
	base 11
	reps 2
		anim [012345]
		over
	repe
	setv actv 0
endm

* Script  4 Picked up
scrp 2 13 13 4
	base 0
	pose 0
	setv actv 0
endm
