* Script  1 Activate(1)
scrp 2 13 12 1
	loop
		rndv var0 -1 1
	untl var0 ne 0
	rndv var1 20 40
	mulv var0 var1
	setv velx var0
	setv vely -20
	setv actv 0
endm

* Script  4 Picked up
scrp 2 13 12 4
	rtar 2 20 10
	mesg wrt+ targ 110 0 0 0
endm

* Script  5 Dropped
scrp 2 13 12 5
	wait 1
	slim
	setv grav 1
endm
