* Script  1 Activate(1)
scrp 3 3 1 1
	stim shou 60 8 128 0 0 0 0 0 0 0 0 0
	stim writ from 40 255 0 0 36 50 45 50 0 0 0 0
	doif from ne pntr
		addv obv0 1
		doif obv0 gt 16
			setv obv0 0
		endi
	else
		targ pntr
		setv var0 posl
		targ ownr
		subv var0 posl
		doif var0 ge 25
			doif var0 gt 45
				addv obv0 1
				doif obv0 gt 16
					setv obv0 0
				endi
			else
				doif obv0 eq 0
					setv obv0 16
				else
					subv obv0 1
				endi
			endi
		endi
	endi
	part 2
	anim [0011223344R]
	part 4
	anim [012345R]
	part 1
	base 69
	anim [0123]
	over
	setv var0 obv0
	mulv var0 4
	addv var0 1
	part 1
	base var0
	anim [0123R]
	bbd: show 1
	snde com_
	wait 10
	reps 2
		bbd: emit 0
	repe
	setv actv 0
	wait 10
	part 1
	pose 0
	wait 50
	bbd: show 0
	part 1
	base 73
	anim [0123R]
	rndv var0 0 4
	part 2
	pose var0
	rndv var0 0 5
	part 4
	pose var0
endm

* Script  2 Activate(2)
scrp 3 3 1 2
	doif from ne pntr
		snde com_
		stim writ from 40 255 0 0 36 50 45 50 0 0 0 0
		part 2
		anim [0011223344R]
		part 4
		anim [012345R]
		setv var0 obv0
		mulv var0 4
		addv var0 1
		part 1
		base var0
		anim [0123R]
		bbd: show 1
		reps 2
			bbd: emit 0
		repe
		setv actv 0
		wait 10
		part 1
		pose 0
		targ from
		doif fmly eq 4
			targ ownr
			wait 50
			bbd: show 0
			part 1
			base 73
			anim [0123R]
			rndv var0 0 4
			part 2
			pose var0
			rndv var0 0 5
			part 4
			pose var0
		endi
		stop
	endi
endm

* Script  9 TIMER
scrp 3 3 1 9
	addv ov00 1
	doif ov00 gt 16
		setv ov00 0
	endi
	mesg writ ownr 1
	part 2
	anim [41320R]
endm
