* Script  1 Activate(1)
scrp 2 13 1 1
	stim writ from 0 255 0 0 44 10 36 50 45 100 27 50
	anim [3456701234670]
	snde boin
	doif ov00 eq 0
		etch 4 0 0
		rndv var0 -30 30
		rndv var1 -90 -100
		setv velx var0
		setv vely var1
		rndv var9 0 4
		doif var9 eq 0
			pose 126
		endi
		doif var9 eq 1
			pose 106
		endi
		doif var9 eq 2
			pose 66
		endi
		doif var9 eq 3
			pose 52
		endi
		doif var9 eq 4
			anim [148149150]
		endi
	next
endi
targ ownr
doif ov00 eq 1
	etch 4 0 0
	setv velx -250
	setv vely -900
next
endi
doif ov00 eq 2
	etch 4 0 0
	setv velx 270
	setv vely -1200
next
endi
doif ov00 eq 3
	etch 4 0 0
	loop
		rndv var0 -4 4
	untl var0 ne 0
	mulv var0 10
	setv vely -150
	setv velx var0
next
endi
targ ownr
setv actv 0
endm

