jaildesigner-fantasy-console/pepe-runner-ascii
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
28f2d91c5ca993b7ffa26ebbc9863aba6be50dab
pepe-runner-ascii/original_turbopascal/CODI.BAK
T

776 lines
20 KiB
Plaintext
Raw Blame History

uses grafix, jinput, utext, tipos, crt;
procedure FaseNova;forward;
{##############################################################}
{# O F F S E T M A P A #}
{##############################################################}
function OffsetMapa:longint;
var i:longint;
fich : file of byte;
buffer : byte;
marca : integer;
begin
i := 0;
Assign(fich, 'runner.exe');
Reset(fich);
marca := 0;
repeat
Read(fich, buffer);
inc(i);
if buffer = ord('*') then
inc(marca)
else
marca := 0;
until (marca = 10);
OffsetMapa := i;
end;
{##############################################################}
{# C A R R E G A R E C O R D S #}
{##############################################################}
procedure CarregaRecords;
var fich : file of byte;
buffer : byte;
begin
Assign(fich, 'runner.exe');
Reset(fich);
Seek(fich, FileSize(fich)-6);
Read(fich, buffer); { centenes }
hi_score := buffer * 100;
Read(fich, buffer); { decenes }
hi_score := hi_score + (buffer * 10);
Read(fich, buffer); { unitats }
hi_score := hi_score + buffer;
Read(fich, buffer); { 1¦ lletra }
nom_hi_score := chr(buffer+45);
Read(fich, buffer); { 2¦ lletra }
nom_hi_score := nom_hi_score + chr(buffer+45);
Read(fich, buffer); { 3¦ lletra }
nom_hi_score := nom_hi_score + chr(buffer+45);
Close(fich);
end;
{##############################################################}
{# G U A R D A R E C O R D S #}
{##############################################################}
procedure GuardaRecords;
var fich : file of byte;
buffer : byte;
begin
Assign(fich, 'runner.exe');
Reset(fich);
Seek(fich, FileSize(fich)-6);
buffer := score div 100;
Write(fich, buffer); { centenes }
buffer := (score - (buffer*100)) div 10;
Write(fich, buffer); { decenes }
buffer := (score - (buffer*10));
Write(fich, buffer); { unitats }
buffer := ord(nom_hi_score[1])-45;
Write(fich, buffer); { 1¦ lletra }
buffer := ord(nom_hi_score[2])-45;
Write(fich, buffer); { 2¦ lletra }
buffer := ord(nom_hi_score[3])-45;
Write(fich, buffer); { 3¦ lletra }
Close(fich);
end;
{##############################################################}
{# T R A G A P A N T A L L A #}
{##############################################################}
procedure TragaPantalla;
begin
for k:=0 to 23 do
begin
{ despla‡a cap avall }
for i:=0 to 39 do
for j:=23 downto 1 do
begin
mem[pant1:(i shl 1)+(j*80)] := mem[pant1:(i shl 1)+((j-1)*80)];
mem[pant1:(i shl 1)+1+(j*80)] := mem[pant1:(i shl 1)+1+((j-1)*80)];
end;
espera_VGA;espera_VGA;espera_VGA;
move(mem[pant1:0], mem[$B800:0], 2000);
GotoXY(1,1); TextBackGround(Blue); TextColor(LightGray);
Write('LEVEL ', level:2, ' SCORE ', score:3, ' LIVES ', pepe.vides:1);
GotoXY(13,2);
Write('HI-SCORE ', hi_score:3, ' ', nom_hi_score);
end;
end;
{##############################################################}
{# P O S A R N O M #}
{##############################################################}
procedure PosarNom;
var index : integer;
Key : byte;
Tecla : Pchar;
begin
nom_hi_score := '...';
index := 1;
PutStringCENTERED(13, 15, 'Enhorabona, has');
PutStringCENTERED(14, 15, 'aconseguit un nou record');
PutStringCENTERED(16, 15, nom_hi_score);
repeat
if QTeclaPuls then
begin
Key := AgarrarTecla;
Tecla := nomTECLES[Key];
nom_hi_score[index] := Tecla^;
inc(index);
PutStringCENTERED(16, 15, nom_hi_score);
repeat until not(QTeclaPuls);
end;
until (index = 4);
GuardaRecords;
end;
{##############################################################}
{# G A M E O V E R #}
{##############################################################}
procedure GameOver;
begin
pepe.vides := 0;
TragaPantalla;
cls($B800);
PutStringCENTERED(10, 15, 'G A M E O V E R');
for i:=0 to 100 do espera_VGA;
if score > hi_score then PosarNom;
GetPaleta(paleta);
FadeDown(0,0,0,0);
cls($B800);
SetPaleta(paleta);
end;
{##############################################################}
{# F I N A L P A N T A L L A #}
{##############################################################}
procedure FinalPantalla;
begin
TragaPantalla;
FaseNova;
end;
{##############################################################}
{# M O R T #}
{##############################################################}
procedure Mort;
begin
dec(pepe.vides);
pepe.posX := 19;
pepe.posY := 23;
end;
{##############################################################}
{# M O R T M A L O #}
{##############################################################}
procedure MortMalo(num: byte);
begin
malo[num].posX := 39;
malo[num].posY := 1;
malo[num].color := 3;
malo[num].estat := caent;
malo[num].IAclock := 0;
mapa[malo[num].carrega.posX, malo[num].carrega.posY].tipo := diners;
malo[num].carrega.OK := false;
malo[num].carrega.posX := 0;
malo[num].carrega.posY := 0;
end;
{##############################################################}
{# F O R A D A R #}
{##############################################################}
procedure Foradar(posX, posY : word);
begin
{ mapa[posX, posY].tipo := buit;}
mapa[posX, posY].temps := bloc_out;
end;
{##############################################################}
{# M O U P E P E #}
{##############################################################}
procedure MouPepe;
var hi_ha_malo_baix : boolean;
begin
if TeclaPuls(KeyQ) then
begin
if mapa[pepe.posX, pepe.posY].tipo=escala then
begin
dec(pepe.posY);
end;
end
else
if TeclaPuls(KeyA) then
begin
if (mapa[pepe.posX, pepe.posY+1].tipo=escala) or (mapa[pepe.posX, pepe.posY+1].tipo=buit) then
inc(pepe.posY);
end;
if TeclaPuls(KeyO) then
begin
if (mapa[pepe.posX-1, pepe.posY].tipo<>pedra) and (pepe.estat<>caent) then
dec(pepe.posX);
end
else
if TeclaPuls(KeyP) then
begin
if (mapa[pepe.posX+1, pepe.posY].tipo<>pedra) and (pepe.estat<>caent) then
inc(pepe.posX);
end
else
if TeclaPuls(KeySPACE) then
begin
if (mapa[pepe.posX-1, pepe.posY+1].tipo=pedra)
and (mapa[pepe.posX-1, pepe.posY].tipo<>pedra)
and (pepe.estat=normal) then
Foradar(pepe.posX-1, pepe.posY+1);
end
else
if TeclaPuls(KeyM) then
begin
if (mapa[pepe.posX+1, pepe.posY+1].tipo=pedra)
and (mapa[pepe.posX+1, pepe.posY].tipo<>pedra)
and (pepe.estat=normal) then
Foradar(pepe.posX+1, pepe.posY+1);
end;
if TeclaPuls(KeyH) then
begin
repeat until not(TeclaPuls(KeyH));
repeat until TeclaPuls(KeyH);
repeat until not(TeclaPuls(KeyH));
end;
{ si no passa res... }
pepe.estat := normal;
{ final pantalla }
if pepe.posY = 1 then FinalPantalla;
{ emparedat }
if mapa[pepe.posX, pepe.posY].tipo = pedra then
Mort;
{ agarra diners }
if mapa[pepe.posX, pepe.posY].tipo = diners then
begin
mapa[pepe.posX, pepe.posY].tipo := buit;
inc(score);
dec(diners_pantalla);
end;
{ bordes X pantalla }
if pepe.posX<0 then pepe.posX:=0;
if pepe.posX>39 then pepe.posX:=39;
{ gravetat }
if ((mapa[pepe.posX, pepe.posY+1].tipo<>escala) and (mapa[pepe.posX, pepe.posY+1].tipo<>pedra))
and ((mapa[pepe.posX, pepe.posY].tipo=buit) or (mapa[pepe.posX, pepe.posY].tipo=diners)) then
begin
hi_ha_malo_baix := FALSE;
for i:=0 to num_malos-1 do
if (pepe.posX = malo[i].posX) and (pepe.posY+1 = malo[i].posY) then
hi_ha_malo_baix := TRUE;
if not(hi_ha_malo_baix) then
begin
inc(pepe.posY);
pepe.estat := caent;
end;
end;
{ bordes Y pantalla }
if pepe.posY<0 then pepe.posY:=0;
if pepe.posY>24 then pepe.posY:=24;
end;
{##############################################################}
{# S E L E C T E S T A T #}
{##############################################################}
function SelectEstat(num: byte):byte;
var nou_estat : byte;
Sestat:byte;
x:byte;
estat_pX,estat_pY:byte;
buscar:byte;
begin
nou_estat := 0;
Sestat:=0;
if mapa[malo[num].posX+1, malo[num].posY].tipo <> pedra then
nou_estat := nou_estat+dreta;
if mapa[malo[num].posX-1, malo[num].posY].tipo <> pedra then
nou_estat := nou_estat+esquerra;
if mapa[malo[num].posX, malo[num].posY].tipo = escala then
nou_estat := nou_estat + pujar;
if mapa[malo[num].posX, malo[num].posY+1].tipo = escala then
nou_estat := nou_estat + baixar;
if nou_estat=0 then Sestat:=10; {no pot moure's}
if malo[num].posX>pepe.posX then estat_pX:=esquerra
else estat_pX:=dreta;
if malo[num].posY>pepe.posY then estat_pY:=pujar
else estat_pY:=baixar;
x:=random(4);
buscar:=random(100);
if (buscar<50) and ((nou_estat and estat_PX=estat_PX) or
(nou_estat and estat_PY=estat_PY)) then
begin
if (nou_estat and estat_PX=estat_PX) then Sestat:=estat_PX
else Sestat:=estat_PY;
end
else
repeat
case x of
0:if nou_estat and dreta =dreta then Sestat:=dreta;
1:if nou_estat and esquerra =esquerra then Sestat:=esquerra;
2:if nou_estat and pujar =pujar then Sestat:=pujar;
3:if nou_estat and baixar =baixar then Sestat:=baixar;
end;
inc(x);
x:=x and $03;
until Sestat<>0;
SelectEstat:=Sestat;
if (mapa[malo[num].posX, malo[num].posY+1].tipo <> pedra)
and (mapa[malo[num].posX, malo[num].posY+1].tipo <> escala) then
SelectEstat:=caent;
end;
{##############################################################}
{# A G A F A R E S C A L A #}
{##############################################################}
function AgafarEscala(num:byte):byte;
var x:byte;
ag:boolean;
estat:byte;
begin
estat:=malo[num].estat;
if (estat=dreta) or (estat=esquerra) then
begin
x:=random(100);
if x<80 then ag:=True else ag:=false;
if ag then
begin
if (mapa[malo[num].posX, malo[num].posY].tipo = escala) then
estat:=pujar
else
if (mapa[malo[num].posX, malo[num].posY+1].tipo = escala) then
estat:=baixar;
end;
end;
AgafarEscala:=estat;
end;
{##############################################################}
{# M O U M A L O S #}
{##############################################################}
procedure MouMalos;
begin
for i:=0 to num_malos-1 do
begin
if malo[i].IAclock = 0 then
malo[i].estat := SelectEstat(i);
malo[i].estat:=AgafarEscala(i);
if ((mapa[malo[i].posX, malo[i].posY+1].tipo <> pedra) and
(mapa[malo[i].posX, malo[i].posY+1].tipo <> escala)) and
(mapa[malo[i].posX, malo[i].posY].tipo <> corda) then
malo[i].estat:=caent;
if ((mapa[malo[i].posX, malo[i].posY+1].tipo = pedra) or
(mapa[malo[i].posX, malo[i].posY+1].tipo = escala)) and
(malo[i].estat=caent) then
malo[i].estat:=SelectEstat(i);
if ((mapa[malo[i].posX, malo[i].posY].tipo = buit) and
(malo[i].estat=pujar)) then
malo[i].estat:=SelectEstat(i);
if ((mapa[malo[i].posX, malo[i].posY+1].tipo = pedra) and
(malo[i].estat=baixar)) then
malo[i].estat:=SelectEstat(i);
case malo[i].estat of
dreta : inc(malo[i].posX);
esquerra : dec(malo[i].posX);
pujar : dec(malo[i].posY);
baixar : inc(malo[i].posY);
caent : inc(malo[i].posY);
end;
{ bordes X }
if malo[i].posX<0 then
begin
malo[i].posX:=0;
malo[i].estat := dreta;
end;
if malo[i].posX>39 then
begin
malo[i].posX:=39;
malo[i].estat := esquerra;
end;
{ bordes Y }
if malo[i].posY<0 then
begin
malo[i].posY:=0;
end;
if malo[i].posY>24 then
begin
malo[i].posY:=24;
end;
{ agarrar diners }
if (mapa[malo[i].posX, malo[i].posY].tipo = diners)
and not(malo[i].carrega.OK) then
begin
mapa[malo[i].posX, malo[i].posY].tipo := buit;
malo[i].color := 11;
malo[i].carrega.OK := TRUE;
malo[i].carrega.posX := malo[i].posX;
malo[i].carrega.posY := malo[i].posY;
end;
{ emparedat }
if mapa[malo[i].posX, malo[i].posY].tipo = pedra then
MortMalo(i);
inc(malo[i].IAclock);
if malo[i].IAclock = temps_IA then malo[i].IAclock := 0;
end;
end;
{##############################################################}
{# C A R R E G A M A P A #}
{##############################################################}
procedure CarregaMapa;
var fich : file of byte;
i,j : word;
buffer : byte;
begin
Assign(fich,'runner.exe');
Reset(fich);
Seek(fich, (level * 1000)+offset_mapa);
for i:=0 to 39 do
for j:=0 to 24 do
begin
Read(fich, buffer);
mapa[i,j].tipo:=buffer;
for k:=0 to num_items-1 do
if llista_items[k] = mapa[i,j].tipo then
mapa[i,j].color := color_items[k];
end;
Close(fich);
end;
{##############################################################}
{# C H E C K M O R T P E R M A L O S #}
{##############################################################}
procedure CheckMortPerMalos;
begin
for i:=0 to num_malos-1 do
if (malo[i].posX = pepe.posX) and (malo[i].posY = pepe.posY) then
Mort;
end;
{##############################################################}
{# C H E C K M A P A C O M P L E T #}
{##############################################################}
procedure CheckMapaComplet;
begin
if diners_pantalla = 0 then
for j:=1 to 23 do
begin
if mapa[0,j].tipo <> pedra then
begin
mapa[0,j].tipo := escala;
mapa[0,j].color := color_escala;
end
else
break;
end;
end;
{##############################################################}
{# C H E C K M A P A #}
{##############################################################}
procedure CheckMapa;
begin
for i:=0 to 39 do
for j:=0 to 24 do
begin
case mapa[i,j].temps of
0 : begin
mapa[i,j].temps := -1;
mapa[i,j].tipo := pedra;
end;
1,bloc_out-1 : begin
mapa[i,j].tipo := bloc3;
dec(mapa[i,j].temps)
end;
2,bloc_out-2 : begin
mapa[i,j].tipo := bloc2;
dec(mapa[i,j].temps)
end;
3,bloc_out-3 : begin
mapa[i,j].tipo := bloc1;
dec(mapa[i,j].temps)
end;
4,bloc_out-4 : begin
mapa[i,j].tipo := buit;
dec(mapa[i,j].temps)
end;
-1 : ;
else dec(mapa[i,j].temps)
end;
end;
CheckMapaComplet;
end;
{##############################################################}
{# F A S E N O V A #}
{##############################################################}
procedure FaseNova;
begin
inc(level);
if level = (num_fases + 1) then
level := 1;
pepe.posX := 19;
pepe.posY := 23;
pepe.dibuix := 2;
pepe.color := 15;
malo[0].posX := 9;
malo[0].posY := 2;
malo[0].dibuix := ord('X');
malo[0].color := 3;
malo[0].carrega.OK := FALSE;
malo[0].estat := esquerra;
malo[0].IAclock := 0;
malo[1].posX := 20;
malo[1].posY := 2;
malo[1].dibuix := ord('X');
malo[1].color := 3;
malo[1].carrega.OK := FALSE;
malo[1].estat := esquerra;
malo[1].IAclock := 0;
malo[2].posX := 39;
malo[2].posY := 2;
malo[2].dibuix := ord('X');
malo[2].color := 3;
malo[2].carrega.OK := FALSE;
malo[2].estat := esquerra;
malo[2].IAclock := 0;
CarregaMapa;
clock := 0;
diners_pantalla := 0;
for i:=0 to 39 do
for j:=0 to 24 do
begin
mapa[i,j].temps := -1;
if mapa[i,j].tipo = diners then
inc(diners_pantalla);
end;
end;
{##############################################################}
{# I N I C I A L I T Z A C I O #}
{##############################################################}
procedure Inicialitzacio;
begin
level := 1;
pepe.posX := 19;
pepe.posY := 23;
pepe.dibuix := 2;
pepe.color := 15;
pepe.vides := 3;
malo[0].posX := 9;
malo[0].posY := 2;
malo[0].dibuix := ord('X');
malo[0].color := 3;
malo[0].carrega.OK := FALSE;
malo[0].estat := esquerra;
malo[0].IAclock := 0;
malo[1].posX := 20;
malo[1].posY := 2;
malo[1].dibuix := ord('X');
malo[1].color := 3;
malo[1].carrega.OK := FALSE;
malo[1].estat := esquerra;
malo[1].IAclock := 0;
malo[2].posX := 39;
malo[2].posY := 2;
malo[2].dibuix := ord('X');
malo[2].color := 3;
malo[2].carrega.OK := FALSE;
malo[2].estat := esquerra;
malo[2].IAclock := 0;
CarregaMapa;
clock := 0;
diners_pantalla := 0;
for i:=0 to 39 do
for j:=0 to 24 do
begin
mapa[i,j].temps := -1;
if mapa[i,j].tipo = diners then
inc(diners_pantalla);
end;
end;
{##############################################################}
{# T I T O L #}
{##############################################################}
procedure Titol;
begin
getpaleta(paleta);
blackout;
PutStringCENTERED(10, 15, 'JAILDESIGNER');
PutStringCENTERED(12, 15, 'presenta');
FadeUp(paleta, 1);
for i:=0 to 100 do espera_VGA;
Fadedown(0,0,0,0);
level := 0;
CarregaMapa;
for i:=0 to 39 do
for j:=0 to 24 do
begin
mem[pant1:(i shl 1)+(j*80)]:=mapa[i,j].tipo;
mem[pant1:(i shl 1)+1+(j*80)]:=mapa[i,j].color;
end;
move(mem[pant1:0], mem[$B800:0], 2000);
FadeUp(paleta, 0);
for i:=0 to 100 do espera_VGA;
for k:=0 to 2 do
begin
{ despla‡a cap amunt }
for i:=0 to 39 do
for j:=0 to 23 do
begin
mem[pant1:(i shl 1)+(j*80)] := mem[pant1:(i shl 1)+((j+1)*80)];
mem[pant1:(i shl 1)+1+(j*80)] := mem[pant1:(i shl 1)+1+((j+1)*80)];
end;
espera_VGA;espera_VGA;espera_VGA;
move(mem[pant1:0], mem[$B800:0], 2000);
end;
end;
{##############################################################}
{# M E N U #}
{##############################################################}
procedure Menu;
var num : integer;
begin
num := 1;
PutStringWINDOWED(18, 14, 'COMEN€AR JOC');
PutStringCENTERED(20, 15, 'EIXIR');
repeat
repeat until QteclaPuls;
if (TeclaPuls(KeyArrowDown)) or (TeclaPuls(KeyA)) then
num := 2;
if (TeclaPuls(KeyArrowUp)) or (TeclaPuls(KeyQ)) then
num := 1;
espera_VGA;
move(mem[pant1:0], mem[$B800:0], 2000);
if num = 1 then
begin
PutStringWINDOWED(18, 14, 'COMEN€AR JOC');
PutStringCENTERED(20, 15, 'EIXIR');
end
else
begin
PutStringCENTERED(18, 15, 'COMEN€AR JOC');
PutStringWINDOWED(20, 14, 'EIXIR');
end;
until TeclaPuls(KeyENTER);
if num = 1 then
{ joc }
begin
Inicialitzacio;
CarregaRecords;
repeat
MouPepe;
CheckMortPerMalos;
if (Clock mod 4) = 0 then MouMalos;
CheckMortPerMalos;
PintaPantalla;
CheckMapa;
until TeclaPuls(KeyESC) or (Pepe.vides<0);
if TeclaPuls(keyESC) then
score := 0;
GameOver;
end;
if num = 2 then
{ menu d'opcions }
exit_game := TRUE;
end;
{##############################################################}
begin
instalarKB;
setmode(1);
HideCursor;
SetUpVirtual(ptrpant1, pant1);
randomize;
offset_mapa := OffsetMapa;
exit_game := FALSE;
Titol;
repeat
Menu;
until exit_game;
TancarVirtual(ptrpant1);
setmode(3);
desinstalarKB;
end.
Reference in New Issue View Git Blame Copy Permalink