* 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

