DEFINT A-Z
DIM Tela(1 TO 10,1 TO 8),Pt(1 TO 2)
WIDTH 40
COLOR 15,1
CLS
LOCATE 1,1
?"ÚÄÄÄÄÄÄÄÄ¿
FOR i=1 TO 10
?"³        ³
NEXT
?"ÃÄÄÄÄÄÄÄÄ´
?"³12345678³
?"ÀÄÄÄÄÄÄÄÄÙ
LOCATE 1,20:?"Vetris 1.0
LOCATE 3,20:?"Jogador    1    2";
LOCATE 21,1:?"Tecle <ESC> para sair";
LOCATE 23,1:?"Copyright 1999 (c) WendelSoft";
DO
LOCATE 4,20:?USING "Pontos  #### ####";Pt(1);Pt(2);
vez=NOT vez
LOCATE 15,1:?"Jogador";vez+2
LOCATE 16,1:?"Escolha uma coluna (1-8)";
DO
a$=INPUT$(1)
IF a$="" THEN 1
a=VAL(a$)
LOOP UNTIL a>0 AND a<9
LOCATE 16,1:?space$(24);
l=2
IF Tela(2,a)=0 THEN
DO
LOCATE l,a+1:IF vez THEN ?"²";ELSE ?"°";
t!=TIMER:DO:LOOP UNTIL TIMER-t!>=.1
LOCATE l,a+1:?" ";
l=l+1
IF l=11 THEN EXIT DO
LOOP WHILE Tela(l,a)=0
END IF
LOCATE l,a+1:IF vez THEN ?"²";ELSE ?"°";
Tela(l-1,a)=vez+2
DO
r=0
FOR l=1 TO 10
FOR c=1 TO 8
IF Tela(l,c)>0 THEN
FOR vl=-1 TO 1
FOR vc=-1 TO 1
IF vl<>0 OR vc<>0 THEN
FOR z=9 TO 2 STEP-1
IF l+z*vl<11 AND l+z*vl>0 AND c+z*vc<9 AND c+z*vc>0 THEN
t=Tela(l,c)
IF t>0 THEN
tc=-1
l2=l
c2=c
FOR k=1 TO z
l2=l2+vl:c2=c2+vc
tc=tc AND Tela(l2,c2)=t
NEXT
IF tc THEN
Pt(t)=Pt(t)+z+1
Tela(l,c)=0
l2=l
c2=c
FOR k=1 TO z
l2=l2+vl:c2=c2+vc
Tela(l2,c2)=0
NEXT
r=-1
END IF
END IF
END IF
NEXT
END IF
NEXT
NEXT
END IF
NEXT
NEXT
IF r THEN
DO
x2=0
FOR cc=1 TO 8
x=0
FOR ll=10 TO 1 STEP-1
IF Tela(ll,cc)=0 THEN
x=-1
ELSEIF x THEN
Tela(ll+1,cc)=Tela(ll,cc):Tela(ll,cc)=0
x2=-1
END IF
NEXT
NEXT
FOR ll=1 TO 10:FOR cc=1 TO 8
LOCATE ll+1,cc+1
SELECT CASE Tela(ll,cc)
CASE 0:?" ";
CASE 1:?"²";
CASE 2:?"°";
END SELECT
NEXT cc,ll
LOOP WHILE x2
t!=TIMER:DO:LOOP UNTIL TIMER-t!>.1
END IF
LOOP WHILE r
LOOP
1
WIDTH 80
COLOR 7,0
CLS
SYSTEM