* Script  1 Activate(1)
scrp 2 1 26 1
	setv var0 posl
	setv var1 post
	setv var2 ov00
	inst
	new: simp zand 32 0 6000 0
	setv cls2 2 20 3
	setv ov10 var2
	setv ov11 1000
	setv ov00 0
	setv ov01 0
	setv ov02 1
	loop
		rndv ov50 -5 5
	untl ov50 ne 0
	rndv var2 0 1
	doif var2 eq 0
		setv ov51 1
	else
		setv ov51 1
	endi
	rndv ov03 4 7
	doif sean eq 0
		addv ov03 4
	endi
	doif sean eq 2
		addv ov03 12
	endi
	doif sean eq 3
		addv ov03 8
	endi
	setv var2 seav
	divv var2 5
	setv var3 4
	subv var3 var2
	addv ov03 var3
	setv ov04 seav
	divv ov04 5
	addv ov04 1
	mulv ov04 5
	modv ov04 20
	setv attr 67
	setv rest 100
	setv accg 3
	setv rnge 40
	setv puhl -1 16 8
	bhvr 0 64
	mvto var0 var1
	doif ov50 lt 0
		base 0
	endi
	doif ov50 gt 0
		base 8
	endi
	anim [01234567R]
	setv velx ov50
	setv vely ov51
	tick 1
	targ ownr
	addv ov00 1
	setv actv 0
endm
