* Script  1 Activate(1)
scrp 3 6 1 1
	setv ov01 1
	gpas
	setv actv 0
	doif from eq pntr
		doif ov00 eq 0
			gsub rght
		else
			gsub left
		endi
	else
		gsub rght
	endi
	setv ov01 0
	subr rght
		part 3
		base 12
		anim [12]
		setv ov00 1
		part 2
		base 2
		loop
			doif posl lt 7030
				anim [8765432109]
				snde row1
			else
				anim [8]
			endi
			setv velx 8
			wait 1
			setv velx 6
			wait 2
			setv velx 4
			wait 3
			setv velx 2
			wait 3
		untl posl ge 7070
		setv velx 0
		gsub ejer
		setv velx -6
		loop
			wait 1
		untl posl le 6940
		setv velx -2
		loop
			wait 1
		untl posl le 6930
		setv velx 0
	retn
	subr left
		part 3
		base 12
		anim [10]
		setv ov00 0
		part 2
		base 2
		loop
			doif posl gt 6460
				anim [9012345678]
				snde row1
			else
				anim [9]
			endi
			setv velx -8
			wait 1
			setv velx -6
			wait 2
			setv velx -4
			wait 3
			setv velx -2
			wait 3
		untl posl le 6420
		setv velx 0
		gsub ejel
		setv velx 6
		loop
			wait 1
		untl posl ge 6550
		setv velx 2
		loop
			wait 1
		untl posl ge 6560
		setv velx 0
	retn
	subr ejel
		dps2 0
		etch 4 0 0
			doif posb gt 666
				setv var0 attr
				setv attr 0
				slim
				mvby -50 -50
				setv attr var0
				slim
				setv grav 1
			endi
		next
	retn
	subr ejer
		dps2 0
		etch 4 0 0
			doif posb gt 662
				setv var0 attr
				setv attr 0
				slim
				mvby 50 -50
				setv attr var0
				slim
				setv grav 1
			endi
		next
	retn
endm

* Script  2 Activate(2)
scrp 3 6 1 2
	setv ov01 1
	gpas
	setv actv 0
	gsub left
	dpas
	setv ov01 0
	subr left
		part 3
		base 12
		anim [10]
		setv ov00 0
		part 2
		base 2
		loop
			doif posl gt 6460
				anim [9012345678]
				snde row1
			else
				anim [9]
			endi
			setv velx -8
			wait 1
			setv velx -6
			wait 2
			setv velx -4
			wait 3
			setv velx -2
			wait 3
		untl posl le 6420
		setv velx 0
		gsub ejel
		setv velx 6
		loop
			wait 1
		untl posl ge 6550
		setv velx 2
		loop
			wait 1
		untl posl ge 6560
		setv velx 0
	retn
	subr ejel
		dps2 0
		etch 4 0 0
			doif posb gt 666
				setv var0 attr
				setv attr 0
				slim
				mvby -50 -50
				setv attr var0
				slim
				setv grav 1
			endi
		next
	retn
endm

* Script  9 TIMER
scrp 3 6 1 9
	doif ov01 eq 0
		setv var0 0
		etch 4 0 0
			setv var0 1
		next
		doif var0 eq 1
			doif posl lt 6745
				mesg writ ownr 0
			else
				mesg writ ownr 1
			endi
		endi
	endi
	tick 1200
endm
