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); Textcolor (Blanco);
Ventana (31, 2, 51, 25); ;
Tipo: =Aleatorio(7); Trans: =Aleatorio(4); Ahorax: =4;
Para N: =0 a 7 Hacer <; /p>
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>
p>
Gotoxy(7, 12); Write('JUEGO TERMINADO');
FIN.