{A ver si esto te sirve }
program minas;
uses
crt;
type
tmatriz = array[1..80,1..24] of char;
var
tecla : char;
x, y : integer;
matri : tmatriz;
procedure mascara;
var
yi, xi, i : integer;
begin
for xi := 1 to 80 do
for yi := 1 to 24 do
matri[xi,yi] := ' ';
gotoxy(2,1);write('** JUEGO MINAS Mueven Flechas F10 Presenta minas ', ' y Finaliza ESC Avandona **');
y := 2;
gotoxy(3,2);write('Ú'); matri[3,y] := 'Ú';
for i := 4 to 78 do
begin
gotoxy(i,2);write('Ä'); matri[i,2] := 'Ä';
end;
gotoxy(79,2);write('¿'); matri[79,y] := '¿';
for i := 3 to 23 do
begin
gotoxy(3,i);write('³'); matri[3,i] := '³';
gotoxy(79,i);write('³'); matri[79,i] := '³';
end;
gotoxy(3,24);write('À'); matri[3,24] := 'À';
gotoxy(79,24);write('Ù'); matri[79,24] := 'Ù';
for i := 4 to 78 do
begin
gotoxy(i,24);write('Ä'); matri[i,24] := 'Ä';
end;
y := 22;
repeat
for i := 4 to 78 do
begin
gotoxy(i,y);write('Ä'); matri[i,y] := 'Ä';
end;
y := y - 2;
until y < 3;
x := 7;
repeat
for i := 3 to 23 do
begin
gotoxy(x,i);write('³'); matri[x,i] := '³';
end;
x := x + 4;
until x > 75;
gotoxy(5,3);write(' '); gotoxy(72,23);write(' '); gotoxy(73,24);write('Inicio'); gotoxy(5,2);write('Final'); end;
procedure colocaminas(difi : integer);
var
cont, num : integer;
xp, yp : integer;
tec : char;
begin
randomize;
cont := 1;
repeat
if keypressed then
tec := readkey;
xp := random(80);
yp := random(24);
if (matri[xp,yp] = ' ') and (xp > 3) and (yp > 3) and
(xp < 77) and (yp < 23) then
begin
if matri[xp - 1,yp] = ' ' then
matri[xp - 1,yp] := '*';
if matri[xp + 1,yp] = ' ' then
matri[xp + 1,yp] := '*';
matri[xp,yp] := '*';
cont := cont + 1;
end;
until (cont > difi) or (tec = #27);
end;
procedure jugador(xj, yj : integer; estado : boolean);
begin
if estado = true then
begin
gotoxy(xj,yj);write('@'); end
else
begin
gotoxy(xj,yj);write(' '); end;
end;
procedure recorrecampo;
var
tecla : char;
i, psx, psy : integer;
final, esplo : boolean;
begin
colocaminas(15); {este valor dará la dificultad aumentándolo mas} esplo := false;
final := false;
psx := 77;
psy := 23;
jugador(psx,psy,true);
repeat
tecla := readkey;
if tecla = #0 then
tecla := readkey;
if tecla = #68 then
begin
for psx := 1 to 80 do
for psy := 1 to 24 do
begin
gotoxy(psx,psy);write(matri[psx,psy]);
end;
readln;
final := true;
end;
jugador(psx,psy,false);
if tecla = #80 then
begin
psy := psy + 2;
if psy > 23 then
psy := 23;
end;
if tecla = #72 then
begin
psy := psy - 2;
if psy < 3 then
psy := 3;
end;
if tecla = #75 then
begin
psx := psx - 4;
if psx < 5 then
psx := 5;
end;
if tecla = #77 then
begin
psx := psx + 4;
if psx > 77 then
psx := 77;
end;
jugador(psx,psy,true);
if matri[psx,psy] = '*' then
begin
for i := 1 to 10 do
begin
TextBackground(i);
gotoxy(psx,psy);write(' '); delay(100);
end;
TextBackground(0);
textcolor(15);
for psx := 1 to 80 do
for psy := 1 to 24 do
begin
gotoxy(psx,psy);write(matri[psx,psy]);
end;
gotoxy(18,12);write('******* Mala Suerte Fallaste Pulsa Enter *******'); readln;
final := true;
end;
if (psx = 5) and (psy = 3) and (esplo = false) then
begin
gotoxy(18,12);write('******* Lo Consigio Bien Pulsa Enter *******'); readln;
final := true;
end;
until (tecla = #27) or (final = true);
end;
begin
clrscr;
mascara;
recorrecampo;
end.
Crear cuenta