* 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
