★ APPLICATIONS ★ AIDE A LA CREATION DE JEUX ★ CREADOR DE LABERINTOS ★ |
| Creador de Laberintos | Applications Aide A La Creation De Jeux |
Ofrecemos al aficionado programador de juegos, una herramienta, que le permitirá generar laberintos de una pantalla de tamaño (como máximo), con el uso de los cursores. Para dibujarlos se emplea-la Unicamente el carácter "a" redefinido, de forma que al añadirlo al juego, el carácter simulará ladrillos, piedras, etc... Una vez esté dibujado el laberinto, pulsando la tecla "D" se mostrará en pantalla el programa necesario para dibujar en BASIC ese laberinto. Entonces subiendo el cursor, y pasando sobre todas las líneas pulsando COPY formará parte del programa actual. Para borrar el programa CREADOR DE LABERINTOS puedes hacer NEW antes de introducir las líneas que dibujarán el laberinto. O si ya las tienes introducidas emplea la instrucción DELETE 10-760. Para que el programa generado ocupe otras líneas, no tendrás más que renumerarlo con RENUM. Para unirlo a tu programa usa la instrucción MERGE, que Sobrepondrá el último programa cargado al ya existente en memoria. En lo referente al programa, la presentación ocupa las líneas 10-380. A continuación se redefi-ne la letra "a" con un gráfico que la distinga. Luego se te preguntará el modo de pantalla y las dimensiones del laberinto en caracteres. Seguidamente se dimen-siona una tabla alfanumérica que contendrá el carácter de cada posición del laberinto. Se prepara la pantalla poniendo el modo requerido y definiendo una ventana del tamaño del laberinto. Entramos luego en el bucle principal donde se leen las teclas del cursor para mover éste por la pantalla, el espacio para pintar, la tecla "z" para borrar y la "D" para obtener el programa. La subrutina que genera las líneas de programa está localizada entre las 690 a 760.
|
