{Mira esto}
program candy_crush;
uses
crt;
type
candy = array[1..9,1..20] of byte;
caracteres = array[1..6] of char;
var
cand : candy;
carac : caracteres;
posx, posy, x, y, i, t : integer;
car : byte;
procedure limpia;
begin
fillchar(cand,sizeof(cand),0);
fillchar(carac,sizeof(carac),'0');
end;
procedure rellenacandy;
begin
for i := 1 to 6 do
carac[i] := chr(i);
for y := 1 to 20 do
for x := 1 to 9 do
begin
t := random(5) + 1;
cand[x,y] := ord(carac[t]);
end;
end;
procedure presentacandy(cx, cy : integer);
var
u, d : integer;
begin
TextBackground(7);
for u := 1 to (11 * 2) do
for d := 1 to 22 do
begin
gotoxy((cx - 2) + u,(cy - 1) + d);write(' '); end;
for y := 1 to 20 do
for x := 1 to 9 do
begin
case cand[x,y] of
1 : textcolor(14);
2 : textcolor(15);
3 : textcolor(4);
4 : textcolor(3);
5 : textcolor(1);
6 : textcolor(7);
end;
if cand[x,y] > 0 then
begin
gotoxy(cx + (x * 2),cy + y);write(cand[x,y]);
end
else
begin
textcolor(0);
gotoxy(cx + (x * 2),cy + y);write(' '); end;
textcolor(15);
end;
end;
procedure compara_derecha(ll,ii : integer; m : byte);
var
jj, g : integer;
ss : byte;
begin
for jj := ll + 1 to 9 do
if cand[jj,ii] = m then
begin
for g := ii downto 2 do
cand[jj,g] := cand[jj,g - 1];
ss := random(5) + 1;
cand[jj,g - 1] := ss;
end
else
begin
break;
end;
end;
procedure compara_izquierda(ll,ii : integer; m : byte);
var
jj, g : integer;
ss : byte;
begin
for jj := ll - 1 downto 1 do
if cand[jj,ii] = m then
begin
for g := ii downto 2 do
cand[jj,g] := cand[jj,g - 1];
ss := random(5) + 1;
cand[jj,g - 1] := ss;
end
else
begin
break;
end;
end;
procedure compara_abajo(ll,ii : integer; m : byte);
var
jj, g : integer;
ss : byte;
begin
for jj := ii to 20 do
if cand[ll,jj] = m then
begin
for g := ii downto 2 do
cand[ll,jj] := cand[ll,jj - 1];
ss := random(5) + 1;
cand[ll,jj - 1] := ss;
end
else
begin
break;
end;
end;
procedure compara_arriva(ll,ii : integer; m : byte);
var
jj, g : integer;
ss : byte;
begin
for jj := ii downto 1 do
if cand[ll,jj] = m then
begin
for g := ii downto 2 do
cand[ll,jj] := cand[ll,jj - 1];
ss := random(5) + 1;
cand[ll,jj - 1] := ss;
end
else
begin
break;
end;
end;
procedure entrada_cordenadas(var corx, cory : integer);
begin
TextBackground(0);
gotoxy(19,24);write(' '); gotoxy(19,24);write(' Entre cordenada X : '); gotoxy(40,24);readln(corx);
gotoxy(19,24);clreol;
gotoxy(19,24);write(' Entre cordenada Y : '); gotoxy(40,24);readln(cory);
gotoxy(19,24);clreol;
end;
begin
clrscr;
randomize;
limpia;
rellenacandy;
presentacandy(20,2);
entrada_cordenadas(posx, posy);
car := cand[posx,posy];
compara_derecha(posx,posy,car);
compara_izquierda(posx,posy,car);
compara_abajo(posx,posy,car);
presentacandy(20,2);
readkey;
TextBackground(0);
clrscr;
end.
Crear cuenta