Top 10k strings from zxmines.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /
Back to the directory listing
10 DIFICULTAD=0 7 DIFICULTAD 4 ; " "; : 3 V(CX,CY)=1 3 ; "3. New Hard" 3 ; "3. Dificil " 3 ; "2. New Normal"; : 3 ; "2. Medio "; : 3 ; "1. New Easy"; : 3 ; "1. Facil "; : 2 V(RX,RY)=1 2 PORCEN ; "%"; : 2 H(T(CX,CY)+1 2 DIFICULTAD=3 2 DIFICULTAD=2 2 DIFICULTAD=1 2 CY+IY,CX+IX ; 2 ; "Score: "; PUNTOS ; 2 ; "Puntos: "; PUNTOS ; 2 +DIFICULTAD 2 ******************************************************************** 2 *(ANCHO))+1 2 *(ALTO))+1 2 ; QUEDAN ; " ": 2 ; MINAS ; " " 2 ; " UNA "; : 2 ; " TECLA "; : 2 ; " PULSA "; : 2 ; " PRESS "; : 2 ; " KEY "; : 2 ; " ANY "; : 2 ; " "; : 1 zxmines 1 the Free Software Foundation; either version 2 of the License, or 1 must stick to the competition rules (only BASIC). 1 it under the terms of the GNU General Public License as published by 1 but WITHOUT ANY WARRANTY; without even the implied warranty of 1 and my recursive version of the "open empty cells" function. 1 along with this program; if not, write to the Free Software 1 ZXMines by Santiago Romero (c) 2003 1 You should have received a copy of the GNU General Public License 1 Y+IY,X+IX ; 1 Visto o no visto (0/1) 1 Version 1.03 1 This program is free software; you can redistribute it and/or modify 1 This program is distributed in the hope that it will be useful, 1 They could be rewritten much times faster using ASM, but I 1 T(CX,CY)=9 1 T(CX,CY)=0 1 Si no, generamos otro numeros y dec el indice 1 QUEDAN=QUEDAN-PD+1 1 QUEDAN=QUEDAN-1 1 QUEDAN=ANCHO*ALTO 1 Puntero a la pila 1 Puntero a casillas destapadas 1 Primero ponemos a cero todo el tablero 1 PUNTOS=PUNTOS+PD-2 1 PUNTOS=PUNTOS+1 1 PUNTOS = 0 1 PORCEN=PORCEN+INCR : 1 PORCEN=PORCEN+INCR 1 PAP; " "; 1 PAP; " "; 1 PAP ; " "; 1 P$=P$+C$(T(X,Y)+1 1 MINAS=QUEDAN 1 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1 IY+N,IX ; 1 IY+CY, IX+CX ; 1 IX, IY del tablero 1 H(T(X,Y)+1 1 Grafico 2 (esquina) (E) 1 Grafico 1 (mina) (M) 1 Grafico 0 (tablero) (I) 1 Generar tablero 1 GNU General Public License for more details. 1 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 1 Dibujar tablero 1 Dibujar pantalla 1 Destapar todos los cuadros de alrededor que sean blancos 1 DEFINIMOS LOS GRAFICOS 1 Comments at EOF 1 Campo de minas 1 CY+IY,CX+IX; 1 CX=ANCHO/2 1 COL; "Minesweeper"; 1 COL; "Buscaminas"; 1 Bucle principal de partida 1 Ahora plantamos las minas 1 Ahora instalamos las minas. Si encontramos un hueco, pasamos a por otra mina 1 ; "Total: "; 1 ; "SPACE"; 1 ; "Q,A=^,v"; 1 ; "O,P=<,>"; 1 ; "Mines: "; 1 ; "Minas: "; 1 ; "Cells: "; 1 ; "--> YOU WIN! <--"; 1 ; "--> GANASTE! <--"; 1 ; "--> GAME OVER <--"; 1 ; " " 1 ; " " 1 - I also avoided the FLAG stuff... I hate flags in minesweepers... :P 1 - Feel free to improve the mine placing algorithm 1 ,Y) = T(X-1 1 *** Victoria *** 1 *** Restaurar grafico bajo el cursor *** 1 *** Preparar tablero *** 1 *** Preparar pantalla *** 1 *** Preparacion de GDUs *** 1 *** Muerte: mina seleccionada *** 1 *** Mostrar tablero *** 1 *** GENERACION DE TABLERO *** 1 *** Destapar mina *** 1 *** Definicion de GDUs *** 1 *** Declaracion de las variables del programa *** 1 *** Borrar tablero *** 1 *** Blanquear los cuadros de alrededor de uno dado *** 1 *** BUCLE PRINCIPAL *** 1 *** Actualizar contadores minas *** 1 ) ;C$(T(CX,CY)+1 1 ) ; C$(T(X,Y)+1 1 ) ; C$(T(CX,CY)+1 1 (at your option) any later version. 1 "Spanish/English? (s/e)", L$ ; 1 "M"+I, FILA : 1 "I"+I, FILA : 1 "E"+I, FILA : 1 ","1","2","3","4","5","6","7","8"," 1 ; "speccy.org"; 1 ; "NoP/Compiler"; 1 ; "KEYS/Joy:"; 1 ; "Generating board..."; 1 ; "Generando tablero.."; 1 ; "Calculando..."; 1 ; "> Preparing board: 0%"; 1 ; "> Placing mines: 0%"; 1 ; "> Insert. minas: 0%"; 1 ; "> Gener. tablero: 0%"; 1 ; "4. Fin juego"; 1 ; "4. End game"; 1 ; "100%"; 1 ; "...Working..."; 1 ; "(c) 2003"; 1 ; " "; 1 ; " "; 1 ; " ";