Cómo programar juegos usando Pascal gratis

Por supuesto. Cuando te duelen las muñecas por la programación, es el mejor momento para jugar.

Es un poco problemático usar Pascal, pero se puede implementar fácilmente. Pero es más conveniente utilizar Delphi.

Usando Pascal, puedes usar programas orientados a unidades, pero no son muy atractivos. Déjame darte un código de muestra.

Tetris:

UTILIZA Crt

CONST

Cambio: Matriz:=1

Ventana ( 31, 2, 50, 25); Color de texto (Blanco); Fondo de texto (Azul);

Ventana (31, 2, 51, 25); ;

Tipo: =Aleatorio(7); Trans: =Aleatorio(4); Ahorax: =4;

Para N: =0 a 7 Hacer

Ahora[N]:=Cambiar[Kind, Trans, N];

Mientras se puede mover(Nowx, Nowy) Hacer

Comenzar

Repetir

Limpiar; Nowy:=Nowy 1 Mostrar

Repetir

Si se presiona la tecla entonces

Mayúsculas y minúsculas (Tecla de lectura) De

#0: Clave de lectura de caso de

#75: Si se puede mover(Nowx-1, Nowy) entonces comenzar limpio Nowx:=Nowx-1; > p>

#77: Si se puede mover (Nowx 1, Nowy) Entonces comience a limpiar Nowx: = Nowx 1; p > If Canmove(Nowx, Nowy 1) Then Nowy:=Nowy 1;

Hasta No(Canmove(Nowx, Nowy 1)); Comenzar Gotoxy(9, 12); Escribir('Pausa'); Repetir retraso(1000); Finalizar; /p>

p>

' ', #13: Comenzar

Limpiar; Trans:=Trans 1

Si Trans=4 Entonces Trans:=0;

Para N:=0 a 7 Hacer

Ahora[N]:=Cambiar[Kind, Trans, N]

Si no(Canmove(Nowx) , Nowy)) Luego comience Trans: =Trans-1; Para N: =0 a 7 Haga

Ahora[N]: =Change[Kind, Trans, N];

De lo contrario Mostrar

Fin;

Fin;

Hasta que no se presione

Retraso ((10 velocidades)*50); Not(Canmove(Nowx, Nowy 1));

Puntuación:=Puntuación 1; Gotoxy(1, 1); Escritura(Puntuación: 5, '0'); 1;

Tablero[0, Nowx Ahora[0], Nowy Ahora[1]]:=1

Tablero[0, Nowx Ahora[2], Nowy Ahora[3; ]]:=1;

Tablero[0, Nowx Ahora[4], Nowy Ahora[5]]:=1

Tablero[0, Nowx Ahora[6], Nowy Ahora[7]]:=1;

Borrar

Tipo:=Aleatorio(7); Trans:=Aleatorio(4); 1;

Para N:=0 A 7 Hacer

Ahora[N]:=Cambiar[Kind, Trans, N]

Fin

p>

Gotoxy(7, 12); Write('JUEGO TERMINADO');

FIN.