* Script  1 Activate(1)
scrp 2 9 9 1
	base 1
	anim [012]
	over
	base 3
	anim [0123456789]
	snde potl
	over
	snde pop2
	reps 5
		gsub cpot
	repe
	targ ownr
	base 13
	anim [01234567]
	over
	base 0
	pose 0
	setv actv 0
	subr cpot
		setv var0 posl
		setv var1 post
		inst
		new: simp pota 7 0 7000 0
		setv cls2 2 23 2
		setv ov10 200
		setv ov11 200
		setv ov12 1000
		setv ov13 10000
		setv ov14 13
		setv ov15 2
		setv ov16 10
		setv ov00 4
		setv attr 192
		setv rnge 2000
		setv size 50
		base 0
		pose 0
		mvto var0 var1
		rndv velx -40 40
		setv vely -40
		tick 20
	retn
endm
