* Script  1 Activate(1)
scrp 3 3 2 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 21
			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 21
					setv obv0 0
				endi
			else
				doif obv0 eq 0
					setv obv0 21
				else
					subv obv0 1
				endi
			endi
		endi
	endi
	part 2
	anim [0011223344R]
	part 4
	anim [012345R]
	part 1
	base 23
	anim [3210]
	over
	setv var0 obv0
	addv var0 1
	part 1
	base var0
	pose 0
	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 23
	anim [00112233R]
	part 2
	rndv var0 0 4
	pose var0
	rndv var0 0 5
	part 4
	pose var0
endm

* Script  2 Activate(2)
scrp 3 3 2 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 [01234R]
		setv var0 obv0
		part 4
		anim [012345R]
		addv var0 1
		part 1
		base var0
		pose 0
		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 23
			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 2 9
	addv ov00 1
	doif ov00 gt 21
		setv ov00 0
	endi
	mesg writ ownr 1
	part 2
	anim [41320R]
endm
