Juego sencillo en Pascal (con.I/O)

Archivo: /media/cafe/DATOS/Viejo SSD/docs/Juegazo.pas

Página 1 de 1

program PrimerJuego;
{ Juego del bichito}
uses crt;
{ Funciones de CRT:
---- Borrar la pantalla gráfica
ClrScr;---Llevar el cursor a una ubicación en la pantalla
GotoXY(Columna, Renglón);
---Esperar hasta tipear una letra y obtener el código ASCII
ReadKey;
ó
Tecla:=ReadKey;
---Saber si se presiona una teclaPresionada_ := KeyPressed;
---Datos a tener en cuenta de la pantalla:
Máximo Columnas (X ó la Horizontal): 80
Máximo Renglones (Y ó la posición vertical): 25-1
}
var
XBicho, YBicho: Integer; {Ubicación del bichito en la pantalla; Inicializable }
Tecla, Bicho: Char; { Lugar donde tomar qué tecla se presiona, Dibujo del Bicho
respectivamente}
begin
ClrScr; { 1.: Borrar la pantalla }XBicho:= 5; { 2.: Inicializa las coordenadas del bicho }
YBicho:= 2;
Bicho:= chr(156); { 3.: Dibujo del bicho; Cualquier caracter ASCII mayor a 32 }
{ Dibujar el bicho en pantalla }
gotoXY(XBicho,YBicho); Write(Bicho); { 4.:Dibuja por primera vez al bicho }
{ El código ASCII para la tecla Escape es el caracter número 27 }
While Tecla chr(27) do { Mientras que no se presione tecla Escape repetir}
begin
Tecla:= ReadKey; { 1.: Presionar tecla y tenerla presente en variable Tecla }
{ 2.: Antes que todo Borrar la última pos. del bichito}
gotoXY(XBicho, YBicho); write(' ');
{ Verificarcambios de posición }
{ Las famosas teclas WASD de video juegos }
{ W y S modifican al YBicho }
{ A y D modifican al XBicho }
{ En lo vertical, la Y, aumenta al bajar el renglón }
{ En lo horizontal,la X, aumenta al moverse a la derecha }
if UpCase(Tecla) = 'W' then YBicho:=YBicho-1; { 3.a.: Subir bicho }
if UpCase(Tecla) = 'S' then YBicho:=YBicho+1; { 3.b.:Bajar bicho }
if UpCase(Tecla) = 'A'then XBicho:=XBicho-1; { 3.c.:Bicho a la Izquierda }
if UpCase(Tecla) = 'D' then XBicho:=XBicho+1; { 3.d.:Bicho a la Derecha }
{ 4.: Dibujar al bicho en su nueva ubicación }
gotoXY(XBicho,...