Top 10k strings from submari5.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /

Back to the directory listing

   6 d(q),b(q):
   5 ;"                                ":
   4 ;"JUGADOR ";q;
   4 ;"                                "
   4 (((((((((((((
   4 ((((((((((
   3 u(x)=b(q)-32
   3 u(x)=b(q)-16
   3 u(x)=b(q)+32
   3 u(x)=b(q)+16
   3 u(r)=b(q)-16
   3 u(r)=b(q)+16
   3 ;" subs.";x(x):
   3                           
   2 f(q)=f(q)-10
   2 d(q)-g,b(q)-c:
   2 S         
   2 B><|<|<|<x><~
   2 B><B<@BBBx><~
   2 (((((((((((
   2                                
   2                            
   1 x(x)=x(q):
   1 x(q)=x(q)+1
   1 w(q)=w(q)-500
   1 u(r)=u(r)-l(r):
   1 u(r)=u(r)+l(r)
   1 t(x)=d(q)-32
   1 t(x)=d(q)-16
   1 t(x)=d(q)+32
   1 t(x)=d(q)+16
   1 t(r)=t(r)-k(r):
   1 t(r)=t(r)+k(r)
   1 t(r)=d(q)-16
   1 t(r)=d(q)+16
   1 subrutina,cuando barco choca con mina
   1 subrutina,borra manchas en campo de juego
   1 subrutina dibuja circulo al final de trayecto
   1 subrutina d(q)=255 y avanza hacia arriba
   1 subrutina controla fuel
   1 subr.puntuaciones
   1 submarino apuntodeatacar
   1 random profundidad del submarino.
   1 r(q)=w(q)+(w(q)-k1):
   1 q(q)=f(q)+(f(q)-k2)
   1 poNE MINAS
   1 o(m1)=u(r):
   1 o$="OFICIAL"
   1 o$="COMANDANTE"
   1 o$="CAPITAN"
   1 o$="ALMIRANTE"
   1 m(m1)=t(r):
   1 l(r)=-l(r)
   1 k(r)=-k(r)
   1 j$="                                         MENSAJE A LA FLOTA                 365 SYLDAVA                                                                                LOS BORDURIOS ATACARON ELPUERTO DE SYLVA INESPERADAMENTE.UN SOLO SUBMARINO U-95 CONSIGUIOACABAR CON TODA NUESTRA FLOTA   ALLI ANCLADA.                          POR OTRA PARTE LOS U-95  BORDURIOS SOBREPASAN LA FRONTERAQUE DIVIDE NUESTRAS AGUAS Y LAS SUYAS CONTINUAMENTE.                     "
   1 j$=           "PRESIONE LA TECLA S PARA PEDIR  "
   1 j$=            "PARA MOVER PRESIONE LA TECLA M. "
   1 j$=            "
   1 j$=              "                 N                          
   1 j$=                   "   SIEMPRE QUE EXISTE PELIGRO DEQUE UN SUBMARINO LE ATAQUE,UN   PITIDO LE AVISARA DEL PELIGRO.     ENTONCES DISPONE DE 2 SEGUN- DOS DESPUES DEL PITIDO PARA PRE-SIONAR LA TECLA -E- Y ESCAPARSE.   SI LA PRESIONA A TIEMPO PODRAMOVER DE NUEVO."
   1 j$=                    "                                    FASES O NIVELES:                                                  1-GRUMETE-no existen minas                                      2-OFICIAL                                                       3-CAPITAN                                                       4-COMANDANTE                                                    5-ALMIRANTE-pone mina por                   todo el terri-                  torio.                                          ENERGIA Y FUEL VARIAN CON EL    NIVEL."
   1 j$=                    "                                         MOVIMIENTO DE U-95              __________________                                                                      -SE PRODUCE ENTRE LA FASE B Y    LA FASE C                      -EL U-95 ES MAS VELOZ QUE SU     DESTRUCTOR PUDIENDO MOVER DOS   CUADROS EN CADA SENTIDO(TAM-    BIEN EN DIAGONAL)."
   1 j$=                    "                                                                   ENERGIA: LA UTILIZACION DE SURADAR ES LIMITADA.CADA VEZ QUE  LO UTILIZA SU ENERGIA DISMINUYE 500 PUNTOS.                                 CUANDO SE QUEDA SIN ENERGIA PIERDE EL RADAR.SI QUIE-RE RECUPERARLO Y RENOVAR SU ENERGIA VAYA AL PUNTO X."
   1 j$=                    "                                                                    FUEL: TAMBIEN SU GASOIL ES  LIMITADO.CUANDO SE QUEDA SIN    FUEL NO PODRA MOVER NUNCA MAS.            POR ELLO DEBE REPOSTAREN EL PUNTO X ANTES DE QUE ESTO LE OCURRA.EL FUEL DISMINUYE 10  LITROS POR CADA CUADRO DE AVANCE"
   1 j$=                    "                                                                       LA CAPACIDAD DE AVANCE DESU DESTRUCTOR ES DE DOS CUADROS:                                           *DOS EN HORIZONTAL              *DOS EN VERTICAL                *O UNO EN DIAGONAL                                   "
   1 j$=                    "                                                                       ESTO SIGNIFICA UNA AMENA-ZA A SYLDAVIA.                         LA FLOTA 365 DEBE CUMPLIRUNA MISION:                                                            DESTRUIR A LOS SUBMARINOSBORDURIOS.                                                             CADA DESTRUCTOR DISPONE  DE UNA EXCELENTE TRIPULACION Y  DE UN PRECISO RADAR.                                                                                                                           K.L. Lesklovsk                                                      (JEFE F.N.)"
   1 j$=                    "                                                                        MISION PUNTO X                  ______________                                                                           -CUANDO LE INDIQUEN ESTA MISION  SU DESTRUCTOR DEBE DIRIGIRSE    AL PUNTO CITADO(ver mapa).     -SU RADAR SEGUIRA LOCALIZANDO    SUBMARINOS BORDURIOS SI LO U-   TILIZA,PERO NO PODRA DISPARAR   FINALMENTE SOBRE NINGUN U-95.  -UNA VEZ QUE HA LLEGADO AL PUN-  TO X SU DESTRUCTOR ES REPARADO  TOTALMENTE,PUDIENDO VOLVER A    LA LUCHA."
   1 j$=                    "                                                                        B)MOVIMIENTO.                                                      LA SEGUNDA FASE QUE  PUEDE REALIZAR ES MOVER SU DES- TRUCTOR.         "
   1 j$=                    "                                                                        A)INFORMACION.                                                      LA PRIMERA ACCION   QUE PUEDE REALIZAR SI QUIERE ES CONSULTAR EL RADAR PARA PEDIR   INFORMACION SOBRE LOS U-95." 
   1 j$=                    "                                                                         ULTIMO MENSAJE                  FLOTA SILDAVA.                                                                            ESTRATEGIA A SEGUIR:                                               *DETECTE LAS MINAS M-95          ESTUDIANDO LA SITUACION         DEL U-95 ANTES DE ENTRAR        EN SUS AGUAS.                  *ACORRALEN U-95 EN ZONAS         FRONTERIZAS DONDE SU A-         VANCE ES LIMITADO.             *PROTEJA LA COSTA DE LA          INVASION BORDURIA AL ME-        NOS CON UN DESRUCTOR EN         LA ZONA.                                                               K.L. Tlosvsky    "
   1 j$=                    "                                                                         HAY TRES FASES IMPOR-  TANTES A LO LARGO DEL JUEGO:                                                                               A)INFORMACION.                                                  B)MOVIMIENTO.                                                   C)POSIBILIDAD DE                  DISPARO.        "
   1 j$=                    "                                                                         ATAQUE DE LOS U-95              __________________                                                                        -UN U-95 QUE CONSIGUE COLO-      CARSE BAJO SU CASCO PUEDE       ATACARLE.                      -UN U-95 PROTEJE SUS AGUAS       TERRITORIALES COLOCANDO MI-     NAS CUANDO USTED LAS INVADE     Y EL SE ENCUENTRA EN ELLAS.    -UN U-95 QUE DESCUBRE SU PUN-    TO DE REPARACION(PUNTO X)CO-    MIENZA LA INVASION DE SYLDA-    VIA,FRACASANDO ASI LA MISION    DE LA FLOTA 365.               -UN DESTRUCTOR QUE CHOCA CON     UNA MINA QUEDA DETRUIDO."
   1 j$=                    "                                                                          REGLAS DEL JUEGO.               _________________                                     ELECCION DE NIVEL DE JUEGO(1-5)                                      PUEDEN JUGAR DE 1-4 JUGADO-RES.ELECCION DE NUMERO DE SUBMA-RINOS(1-4).                          CADA JUGADOR ELIGE SU COLOREL ORDEN DE ELECCION SERA IGUAL AL ORDEN DE JUEGO."
   1 i(q);d(q)-3
   1 i(q);d(q),b(q),2
   1 i(q);"QUEDA DESCENDIDO DE RANGO!"
   1 i(q);"BUQUE ";x;" FUE HUNDIDO.":
   1 g(q)=x(q):
   1 ffff,0.001
   1 f(q)=f(q)-20
   1 dibuja tierra abajo
   1 dibuja sub destruido arriba
   1 d(q)=d(q)-g:
   1 d(q)=d(q)+g:
   1 d(q)-g=255
   1 d(q)-g,b(q)-c-1
   1 d(q)-g,b(q)-c+1
   1 cuando un submarino descubre el punto x
   1 cuando todos los barcosson destruidos por minas
   1 cuando barco encuentra punto x
   1 b(q)=b(q)-c
   1 b(q)=b(q)+c
   1 b(q)-c=167
   1 U-95      Z
   1 Tercera parte,mueve submarino
   1 TODOS  LOS BARCOS DESTRUIDOS    ":
   1 Segunda parte,mueve el barco
   1 SUBMARINO ";r;" INICIA INVASION.":
   1 SUBMARINO  ATACA AL JUGADOR 
   1 Random submarinos
   1 Primera parte,da informacion del submarino
   1 Pregunta jugadores
   1 NUESTRA FRONTERA .              "
   1 MISION FRACASA.EL ENEMIGO INVADE":
   1 MANUAL    
   1 LOS SUBMARINOS HAN VENCIDO!!!!!"
   1 Juan del Pozo.   "
   1 J$=                    "                                                                        EXISTIRA LA POSIBILIDAD DE DISPARAR CUANDO TENGA UN SUB-MARINO U-95 A UN RADIO DE UN    CUADRO DE SU DESTRUCTOR O DEBAJODE EL.                                  SU DESTRUCTOR SOLO SE   PUEDE OCUPAR DE ATACAR A UN U-95AUNQUE HAYA MAS A SU ALCANCE.           SI ACIERTA LA PROFUNDI- DAD DEL U-95 LO HUNDE."
   1 J$=                    "                                                                         C)POSIBILIDAD DE                   DISPARO.                                                         LA TERCERA ACCION  QUE PUEDE HACER ES PREGUNTAR SI PUEDE DISPARAR.                              PUEDE HACERLO EN   CUANTO APAREZCA UNA LETRA P IN- TERMITENTE."
   1 INFORMACION.
   1 GRANDES DESTROZOS EN EL CASCO.  ":
   1 Dibuja tierra de arriba
   1 Dibuja rayas verticales
   1 Dibuja rayas horizontales
   1 Dibuja linea de movimiento
   1 Da valor a coordenadas de barcos
   1 Compara posicion del    barco y submarino para posibilidad de disparo
   1 CUANTOS SUBMARINOS?(1,2,3,4)
   1 CUANTOS JUGADORES?(1,2,3,4)"
   1 ;"Velocidad? (1,2)  ";
   1 ;"TODOS LOS SUBMARINOS HUNDIDOS.  ":
   1 ;"TODO PREPARADO PARA DISPARAR.   ":
   1 ;"TODO LISTO PARA DISPARAR.       ":
   1 ;"TECLA F "
   1 ;"SUBMARINOS FUERA DE SU ALCANCE  ":
   1 ;"SUBMARINO LOCALIZADO.           ":
   1 ;"SUBMARINO HUNDIDO.             "
   1 ;"SUBMARINO FUERA DE SU ALCANCE   ":
   1 ;"SUBMARINO EN RADIO DE ACCION.   "
   1 ;"SUBMARINO ALEJADO.              "
   1 ;"SUBMARINO A DISTANCIA 1.        "
   1 ;"SUBMARINO ";y;" VA A ATACAR.";
   1 ;"SUBMARINO ";x;" EN RADIO DE ACCION."
   1 ;"SUBMARINO ";x;" BAJO SUS NARICES.   "
   1 ;"SUBMARINO ";x;" ALEJADO.            "
   1 ;"SUBMARINO ";r;" HUNDIDO.          ":
   1 ;"SUBMARINO ";r;" A SU ALCANCE.       ":
   1 ;"SU DESTRUCTOR SIN FUEL.         ":
   1 ;"SU DESTRUCTOR QUEDA AISLADO.    "
   1 ;"SU DESTRUCTOR FUE HUNDIDO.      ":
   1 ;"SU BARCO HUNDIDO               "
   1 ;"SE HA QUEDADO SIN FUEL.         ":
   1 ;"Rumbo?",
   1 ;"Quiere volver a jugar?(s/n)     "
   1 ;"Quiere copia en impresora?(s/n)":
   1 ;"QUEDA DEGRADADO A GRUMETE.":
   1 ;"QUEDA DEGRADADO A GRUMETE."
   1 ;"QUEDA DEGRADADO A COMANDANTE."
   1 ;"QUEDA ASCENDIDO!!!"
   1 ;"QUE COLORES QUIEREN?(1,2,3,0)"
   1 ;"QUE COLOR QUIERE?(1,2,3,0)  "
   1 ;"PUNTO x HA SIDO DESCUBIERTO.    ":
   1 ;"PUEDE SUBIR DE NIVEL.";
   1 ;"PRESIONE TECLA PARA CONTINUAR":
   1 ;"PRESIONE -S- PARA VER RESULTADOS"
   1 ;"PRESIONE -S- PARA CONTINUAR":
   1 ;"PARA REPOSTAR IR A PUNTO X      "
   1 ;"PARA RENOVARLA IR A PUNTO X.   "
   1 ;"PARA EL CASSETTE":
   1 ;"O.K. ";s$;" SUBMARINOS.             "
   1 ;"O.K. ";s$;" SUBMARINO.              "
   1 ;"O.K. ";j$;" JUGADORES.              "
   1 ;"O.K. ";j$;" JUGADOR.                "
   1 ;"NUEVO RANGO PARA ASCENDIDOS:";
   1 ;"NO EXISTEN MINAS"
   1 ;"NIVEL?(1,2,3,4,5)"
   1 ;"NIVEL ";a;"           "
   1 ;"MISION:PUNTO x                  ":
   1 ;"MINAS POR TODA LA EXTENSION"
   1 ;"MENSAJE DE K.L TLOVSKY:":
   1 ;"MEDALLA."
   1 ;"LOS ALMIRANTES ASCENDIDOS RECI- BEN UNA MEDALLA DE GUERRA."     
   1 ;"LE HUNDIERON PERO SER UN BUEN   ALMIRANTE ES REALMENTE DIFICIL.":
   1 ;"K.L TLOVSKY LE CONCEDE UNA      ":
   1 ;"JUGADOR ";q;"  SUBMARINOS HUNDIDOS:";x(q):
   1 ;"JUGADA INUTIL.                  ":
   1 ;"INTRODUCIR UNA DIRECCION"
   1 ;"HA SALIDO DE AGUAS TERRITORIALES":
   1 ;"HA GASTADO TODA SU ENERGIA      ":
   1 ;"HA GASTADO MUCHA ENERGIA.       ":
   1 ;"HA CHOCADO CON UNA MINA!!!!     ":
   1 ;"FUEL CONSUMIDO:";q(q)+c(q)
   1 ;"FELICITACIONES!!SUBMARINO OUT!":
   1 ;"FASE:OFICIAL";
   1 ;"FASE:GRUMETE";
   1 ;"FASE:COMANDANTE";
   1 ;"FASE:CAPITAN";
   1 ;"FASE:ALMIRANTE";
   1 ;"FALLO!!!!!                     "
   1 ;"EXPULSADO DE LA FLOTA!!":
   1 ;"ESTE NIVEL ES SU ADECUADO.      "
   1 ;"ENERGIA:5000";"  FUEL:400";
   1 ;"ENERGIA:3000";"  FUEL:350"
   1 ;"ENERGIA:2000";"  FUEL:300"
   1 ;"ENERGIA:2000";"  FUEL:200";
   1 ;"ENERGIA:1500";"  FUEL:250"
   1 ;"ENERGIA CONSUMIDA:";r(q)+v(q):
   1 ;"DIRIJASE A PUNTO x.             "
   1 ;"COLISION!!DIRIJASE A PUNTO x.   ":
   1 ;"CAPS SHIFT Y SPACE..RECOMIENZA"
   1 ;"BUQUE EN PUNTO X.REPOSTANDO!!!. ":
   1 ;"BUQUE ";q;" LISTO PARA LA LUCHA!!! ":
   1 ;"BUEN ALMIRANTE.";
   1 ;"BORDURIAS"
   1 ;"ATENCION:RADAR DETECTA MINA.    ":
   1 ;"ATENCION:DEPOSITO EN RESERVA!!! ":
   1 ;"AGUAS SYLDAVAS":
   1 ;"0.........LASERS"
   1 ;"-N,S,E ";
   1 ;"(presione tecla para seguir)":
   1 ;"(1/2/3)"
   1 ;"#OFICIAL"
   1 ;"#GRUMETE"
   1 ;"#COMANDANTE"
   1 ;"#CAPITAN"
   1 ;"#ALMIRANTE"
   1 ;" SUBMARINO ";x;" A DISTANCIA 1      "
   1 ;" QUEDA ASCENDIDO":
   1 ;" JUGADOR ";q;
   1 ;"  QUEDAN ASCENDIDOS":
   1 ;"  Profundidad?(0,1,2)           "  
   1 ;"    HAN FRACASADO              ":
   1 ;"      ":
   1 ;"           SU MISION            "
   1 ;"                           "
   1 ;"                              ":
   1 ;     "  PRESIONE ENTER CUANDO QUIERA "
   1 ;     "     MANUAL DE INSTRUCCIONES    "
   1 ;     "                                        PON EN MARCHA LA                                                    CINTA.                                              "
   1 ;     "                                                                                                                                          BY                                                                    Juan del Pozo.                                                                  "
   1 ;        "             \~   ||~   \/                     
   1 ;            "PRESIONE LA TECLA D PARA NO    "
   1 ;            "PRESIONE LA N SI NO QUIERE DIS- "
   1 ;            "PARAR."
   1 ;            "PARA PREGUNTAR SU POSIBILIDAD DE"
   1 ;            "MOVER."
   1 ;            "DISPARO PRESIONE LA TECLA P.   "
   1 ;             "AHORA PUEDES CARGAR EL PROGRAMA                                   PRINCIPAL."
   1 ;              "       MAPA DE GUERRA(F.365)"
   1 ;                    "O-";
   1 ;                     " ENTONCES PUEDE ELEGIR ENTREVELOCIDAD 1 O 2(1 O 2 CUADROS). EN CAMBIO LAS DEMAS DIRECCIONES SON A VELOCIDAD 1(1 CUADRO) YA  QUE SU BUQUE DE GUERRA SOLO PUE-DE MOVER UN CUADRO EN DIAGONAL."
   1 ;                      "U ";
   1 ;                             "                                                                
   1 ;                             "    
   1 8888888888888888888888888888888888888888888888888888888888888888>
   1 8888888888888888888888888888888888888888888888888888888888888888
   1 6                
   1 "SITUADA EN 60010."
   1 "SI LA PALABRA 'JOYSTICK'"
   1 "SE ENCUENTRA EN LA DIRECCION"
   1 "P............PARA ATERRIZAR"
   1 "LOS DATOS DEBERAN VOLVER AL RE-"
   1 "LOS CONTROLES SON :"
   1 "L............MUEVE EL RADAR"
   1 "J....SALTO AL HIPERESPACIO"
   1 "H....PARA","S...COMIENZO"
   1 "GISTRO 'A'. LA DISPOSICION DE "
   1 "ESTE PROGRAMA LO HACE ASI:"
   1 "ES POSIBLE USAR UN MANDO"
   1 "ENTRADA SE ENVIARAN A LA RUTINA"
   1 "ELIGE TU OPCION"
   1 "BITS DEBE SER LA DEL TECLADO."
   1 "AHORA PUEDES CARGAR EL PROGRAMA PRINCIPAL.                                        "
   1 "8...ARRIBA","9.....ABAJO"
   1 "60000 DE MEMORIA, LOS DATOS DE"
   1 "6.....IZQ.","7.....DERE."
   1 "3...DATOS TECNICOS"
   1 "2...MANDO INDESC. "
   1 "1........SIN MANDO"
   1 "1 A 5.........VELOCIDAD"
   1 " CONECTA EL CASSETTE"
   1 "   PULSANDO UNA TECLA APARECEN  LAS INSTRUCCIONES DE LA PAGINA  SIGUIENTE."
   1 "    QUIERES VER LAS INSTRUCCIO- NES OTRA VEZ?           "
   1      "SI QUIERE COMENZAR UN NUEVO JUE-GO PRESIONE LA TECLA F."
   1      "PRESIONE LA TECLA P PARA PREGUN-TAR SU POSIBILIDAD DE DISPARO.  PRESIONE N SI NO QUIERE DISPARAR"
   1      "PRESIONE -ENTER- PARA INTRODUCIRUNA DIRECCION."
   1      "  PRESIONE LA TECLA D PARA NO   MOVER."
   1          "
   1             "       LAS DIRECCIONES APARECEN INDICADAS ARRIBA.SI PONE ";
   1              :
   1                     "                                                                     SI ESTA JUGANDO Y QUIERE   EMPEZAR UN NUEVO JUEGO PRESIONE LA ";
   1                           "   LAS DIRECCIONES APARECEN IN- DICADAS ARRIBA.PUEDE MOVER 1 O 2CUADROS EN -E,O,N,S- Y 1 CUADRO EN -NE,SE,NO,SO-(MOVIMIENTO EN  DIAGONAL)." 
   1                                                                          ULTIMO MENSAJE                  FLOTA SILDAVA.                                                                            ESTRATEGIA A SEGUIR:                                               *DETECTE LAS MINAS M-95          ESTUDIANDO LA SITUACION         DEL U-95 ANTES DE ENTRAR        EN SUS AGUAS.                  *ACORRALEN U-95 EN ZONAS         FRONTERIZAS DONDE SU A-         VANCE ES LIMITADO.             *PROTEJA LA COSTA DE LA          INVASION BORDURIA AL ME-        NOS CON UN DESRUCTOR EN         LA ZONA.                                                               K.L. Tlosvsky    
   1                                                                                                                                                                                                                                                                                                                                                                                                               
   1