* Script  1 Activate(1)
scrp 2 9 24 1
	snde lott
	base 1
	anim [0123456789R]
	wait 10
	reps 5
		wait 1
		gsub cegg
	repe
	wait 5
	base 0
	pose 0
	setv actv 0
	subr cegg
		rndv var9 0 1
		setv var0 posx
		doif var9 eq 0
			subv var0 12
		else
			addv var0 8
		endi
		setv var1 post
		subv var1 5
		inst
		new: simp zand 1 34 5999 0
		setv cls2 2 20 7
		setv attr 195
		rndv accg 3 5
		setv rest 0
		setv rnge 1000
		setv size 20
		mvto var0 var1
		slim
		doif var9 eq 0
			rndv velx -40 -20
		else
			rndv velx 20 40
		endi
		setv vely -20
		tick 50
		slow
		targ ownr
	retn
endm
