zonadeco.tap - top strings

Top 10k strings from zonadeco.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /
   4 ;"Codigo incorrecto!!":
   4 )="       
   4     ***                      ***
   3 x2=xblanco*8
   3 decimas=decimas-1
   3 decimas=20
   3 ang=c(canon,5
   3 )="            
   2 x2+alcance
   2 nueva fase
   2 giro canon
   2 explosion reactor
   2 cssn=cs/sn:
   2 c$(l)=c$(l-3
   2 c$(l)=c$(l-2
   2 UDGs char 1 & 2, minusculas
   2 PRINT OVER 1; INK 8;AT 17,xblanco;"*";
   2 No ha dado encima del reactor
   2 ;x-x1,y-y1:
   2 ;"       ";
   2 ,xblanco;"  ":
   2 )+longcanon+2
   2 )+(c(canon,6
   2  EddieTheWild 2006"
   2     ****************************
   2              ":
   2                                  ":
   1 zc-udgs   P
   1 z,col;puntosnave;" ptos":
   1 yy=yexp+(j*
   1 yn,xxn;n$(xn1
   1 yfinal=yfinal-dye:
   1 yfinal=c(ca,2
   1 yexp-dy,xexp-dx;"
   1 yexp-dy,xexp+dx;"
   1 yexp-dx,xexp-dy;"
   1 yexp-dx,xexp+dy;"
   1 ye=yca+dy-2
   1 yca=c(canon,2
   1 yactual=yfinal
   1 yactual=yactual+dye:
   1 yactual=c(ca,2
   1 xx=xexp+(j*
   1 xnn=x+cssn*(16
   1 xn=lo*(dir=1
   1 xn2=longnave:
   1 xn+longnave>31
   1 xexp=(c(ca,1
   1 xec=c(ca,1
   1 xe=xca+dx:
   1 xe+mx,ye-my/2
   1 xe+mx,ye+my/2
   1 xca=xexp*8
   1 xca=c(canon,1
   1 xblanco>18
   1 xblanco=x:
   1 xblanco=30
   1 xblanco<13
   1 x1=(xn+(longnave-1
   1 volvemos a presentar el menu
   1 una vida menos o fin partida
   1 una vida menos
   1 titulo zona de combate, menu
   1 tiponave=4
   1 tiponave=3
   1 tiponave=2
   1 tiponave=1
   1 tabla de records
   1 select CHARSET 2
   1 select CHARSET 1
   1 se acabo la recarga de canones
   1 s$="Era un apacible dia en el     pacifico planeta Krux":
   1 s$="Defiende tu planeta de las    oleadas de invasores usando elsistema de defensa":
   1 s$="...hasta que los temibles     insectoides atacaron y comenzola masacre!!":
   1 restaura los atributos originales en (16,xblanco)
   1 repeticion muy lenta de pulsaciones
   1 record=r(1
   1 record=puntos
   1 record en posicion i
   1 recargareactor=20
   1 recarga=recarga-inc:
   1 recarga=recarga-10
   1 recarga=recarga+100
   1 recarga=150
   1 recarga-10
   1 radio=c(canon,6
   1 r(j)=r(j-1
   1 r(i)=puntos:
   1 r(i)<puntos
   1 r$(j)=r$(j-1
   1 r$(i)="Eddie"+
   1 puntosnave=10
   1 puntosnave):
   1 puntos>record
   1 puntos=puntos+puntosnave:
   1 prob=fase/(2.5
   1 pp=fase/(fase+2
   1 para ver si hay pasillo
   1 para no comprobar el impacto de los disparos de las naves
   1 ones: ";recarga:
   1 on, se     bloquea el pasillo cercano":
   1 on hay     que situarse dentro":
   1 on explota si se agota":
   1 olordisparonav
   1 olordispar
   1 nueva partida
   1 nueva nave
   1 nueva fase sin inicializar numero de naves
   1 no hay mas vidas
   1 no ha dado a ningun canon
   1 no es nuevo record
   1 no borramos la barrita de la energia actual
   1 naves=naves-1
   1 mpactosnav
   1 mpactoreacto
   1 mpactocano
   1 mostrar cronometro
   1 menu, records, titulo
   1 mensaje y pulsacion tecla en lineas inferiores
   1 maxe=c(ca,8
   1 m=tiponave
   1 longcanon=8
   1 lo=-longnave+1
   1 le quita energia al canon. Puede devolver fin>0 si acaba explotando
   1 la subrutina 2000 necesita el "canon"
   1 isparonaveatra
   1 invocado desde explosion reactor
   1 inicializacion variables, intro
   1 inicializacion prograna, con posile reentrada
   1 inicializacion nave
   1 inc=-impactocanon*(longnave-3
   1 inc=-edisparo:
   1 impactosnave>0
   1 impactosnave=tiponave:
   1 impactosnave=impactosnave-1
   1 impactoreactor=200
   1 impactocanon=20
   1 hacer explosion reactor, actualizar tabla records
   1 ha dado en el reactor. Se trata en el prog. principal
   1 fin partida
   1 fase=fase+1
   1 fase completa. Se trata en programa principal
   1 explosion canon ca
   1 escritura de mensaje en pantalla
   1 escribimos tambien la energia del reactor
   1 ereactor=ereactor-destrcanon:
   1 ereactor=ereactor+recargareactor:
   1 ereactor=4000
   1 ereactor=0
   1 ereactor=(ereactor-dec)*(ereactor>dec):
   1 ereactor<100
   1 ereactor<0
   1 en la ultima pasada aun se ha cargado alguno
   1 efinal>maxe
   1 efinal=maxe:
   1 efinal=c(ca,7
   1 edisparo=10
   1 ecargareacto
   1 dx=dy*cssn:
   1 dx=dy*cssn
   1 disparonaveatras=2
   1 disparo en reactor o en canon con hombre
   1 difcanon=.30
   1 dif=xnn-(xn-dir):
   1 dif<(longnave-1
   1 dibujo energia reactor y carga canones
   1 dibujo del estado de la partida
   1 dibujo base
   1 destrcanon=500
   1 dec=impactoreactor*longnave:
   1 control hombre
   1 control de vidas !!!
   1 comprobacion impacto disparo nave en xblanco
   1 comprobacion disparo nave en xblanco
   1 comenzar cronometro
   1 colornave=5
   1 colornave;
   1 colordisparonave=2
   1 colordisparonave;x1,y1:
   1 colordisparonave;(i-x1),(y2-y1):
   1 colordisparo=4
   1 colordisparo;xca,yca:
   1 colordisparo;dx,dy
   1 canon (1-4, ninguno:0)
   1 c(canon, <x, y, maxang, minang, ang, radio, energia, maxenergia>)
   1 c(c,(x,y,maxang,minang,ang,radio,energia))
   1 c$="                                 
   1 borramos la ultima barrita
   1 borrado parte superior pantalla
   1 blanco=1 si hay impacto
   1 backdoor perdida vida
   1 b$="                                 
   1 atras=(xn+longnave-1
   1 ang=ang-difcanon:
   1 ang=ang+difcanon:
   1 ang+difcanon>c(canon,3
   1 ZonaDeComb}s
   1 ZonaDeCombP
   1 Verificacion impacto a nave, blanco=1 si es asi
   1 VARIABLES GLOBALES
   1 Una vida menos
   1 UDGs set 2: 
   1 UDGs set 1: 
   1 TECLA IZQUIERDA
   1 TECLA DISPARO
   1 TECLA DERECHA
   1 TECLA ARRIBA
   1 TECLA ABAJO
   1 Salimos si fin=1 (death canon), fin=2 game over reactor, fin=3 death quit
   1 REDEFINIR TECLAS
   1 Perdida de una vida o fin partida. Se trata en prog. principal
   1 PRINT OVER 1; PAPER 8; INK 0;AT yy,xx;s$
   1 PRINT INK 7;AT yexp,xexp;"*": PAUSE 0
   1 PRINT AT yn,xnn; INK 3;"*"
   1 PRINT AT 0,0;"prob:";prob;" tn:";tn;" dir:";dir
   1 PRINT #0;AT 1,5; PAPER 3; INK 9;"FIRE":
   1 PRINT #0;AT 0,0; PAPER 2; FLASH 1;"crono on"; PAPER 1; FLASH 0;"     ":
   1 Nueva partida
   1 Nueva fase
   1 No mas vidas
   1 LET y1=y1+30: REM :IF y1>110 THEN LET y1=70
   1 Inicializacion y dibujo base
   1 Inicializacion programa. Ver variables globales en 9900
   1 Inicializacion nave
   1 Inicializacion canones
   1 INSTRUCCIONES
   1 GO SUB 9200: REM escenario ya inicializado por intro o por fin vidas (6700)
   1 GESTION MUERTES (fin=1 death canon, fin=2 game over (reactor), fin=3 death quit
   1 Fin de ejecucion
   1 Fase completa
   1 FIN DEL PROGRAMA
   1 Explosion reactor y fin de partida (fin=2)
   1 Explosion nave en xca+dx, dya+dy, con tamano rexpl
   1 Explosion canon ca, devuelve fin=1 si muere el hombre, fin=2 si explosion reactor
   1 Explosion canon ca devuelve fin=1 muerte hombre, fin=2 explosion reactor
   1 Disparo de la nave
   1 Disparo canon "canon"
   1 Dibujo energia reactor
   1 Dibujo del canon "canon" en angulo "ang"
   1 Control nave
   1 Carga/descarga energia canon "ca" con "inc" energia (+ o -)
   1 CANON ACTIVO
   1 BUCLE PRINCIPAL
   1 BEEP .002,10
   1 Animacion titulo principal
   1 ;recarga;" ":
   1 ;naves;" naves":
   1 ;longcanon*cs,longcanon*sn:
   1 ;c(canon,1
   1 ;(i-x1),(y2-y1):
   1 ;"quedan ";naves;" naves":
   1 ;"o teclea codigo ";:
   1 ;"crono: ";((
   1 ;"comenzar en la fase ";fase:
   1 ;"Usa el codigo ";c;" para";
   1 ;"Redefinir Teclas":
   1 ;"Records"
   1 ;"Record:";
   1 ;"Recarga reactor: 0  ":
   1 ;"Recarga reactor: ";recarga;" ":
   1 ;"Recarga ca
   1 ;"Realmente quieres salir? (s/n) ":
   1 ;"Puntos:";
   1 ;"Pulsa una tecla para continuar";:
   1 ;"Programado por EddieTheWild":
   1 ;"Para la cinta":
   1 ;"Izquierda? ";
   1 ;"Instrucciones     (3/3)":
   1 ;"Instrucciones     (2/3)":
   1 ;"Instrucciones     (1/3)":
   1 ;"Has hecho ";puntos;" puntos (top ";i;")"
   1 ;"GAME OVER":
   1 ;"Fase ";fase;" completada!!":
   1 ;"FASE ";fase;
   1 ;"ENTER para comenzar";
   1 ;"Disparo?   ";
   1 ;"Dime tu nombre: ";
   1 ;"Derecha?   ";
   1 ;"Controles":
   1 ;"Arriba?    ";
   1 ;"Abajo?     ";
   1 ;"5 - Salir"
   1 ;"4 - Ver intro":
   1 ;"3 - Ver instrucciones":
   1 ;"2 - Redefinir teclas":
   1 ;"1 - Jugar":
   1 ;"0      ":
   1 ;"- Si el reactor es alcanzado,     estas acabado":
   1 ;"- Para controlar un ca
   1 ;"- Obtendras nueva energia al pa-  sar de fase"
   1 ;"- La superficie sobre el reactor  central es el punto mas debil,  protegela!!!":
   1 ;"- Cuando explota un ca
   1 ;"- Cada disparo consume energia,   el ca
   1 ;"(pulsa Intro para no cambiar)":
   1 ;"  Has reventado con el ca
   1 ;"     Hombre         Ca
   1 ;"      ":
   1 ;"         disparo":
   1 ;"            ";
   1 -m+tiponave*3
   1 -longnave*(dir=1
   1 -i;t$(j)(8
   1 -disparonaveatras
   1 ,xxn;m$(xn1
   1 ,xblanco;" ":
   1 ,xblanco-1
   1 ,xblanco-(1
   1 ,xblanco)=0
   1 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,:
   1 +xblanco)=0
   1 +i);t$(j)(22
   1 *tiponave*fase:
   1 *efinal/10
   1 )="                             "
   1 )="        
   1 )+radio*sn:
   1 )+radio*cs,c(canon,2
   1 )+lo*(dir=-1
   1 )+(xn+disparonaveatras
   1 (yfinal-yactual):
   1 (xn,yn), dir, longnave, prop
   1 (xblanco/8
   1 (x,y), (xa,ya), h$
   1 (ereactor)+"  ":
   1 (atras+rango*
   1 (ang-difcanon)<c(canon,4
   1 "ZonaDeCombate.scr"
   1 "Gracias por jugar"'''"
   1  EddieTheWild, 2006 ***
   1     ***     ZONA DE COMBATE  ***
   1     ***         V1.1         ***
   1     (65368-65535)
   1     (65200-65367)
   1             ":
   1              '";
   1              "
   1