* Script  1 Activate(1)
scrp 2 9 25 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 gfsl 1 11 5999 0
		setv cls2 2 20 11
		setv attr 195
		rndv accg 3 5
		setv rest 0
		setv size 20
		mvto var0 var1
		slim
		doif var9 eq 0
			rndv velx -40 -20
		else
			rndv velx 20 40
		endi
		setv vely -20
		rndv var0 100 200
		tick var0
		slow
		targ ownr
	retn
endm
