ZXTape! 0Created by SpectaculatorZXGorilla 9 o; jE(20,2):Punt1=0:Punt2=0:Nivel=3:Grav=10 :Jug=1:2000 )Punt1=2Punt2=21600@ &1:1:1:6: (P100d:200:Alt=Y1:X=X1:300,:X=X2-3:Alt=Y2:300, 25:127,156:0,2:0,-1:4*Viento,0:Viento0-2*((Viento)/Viento),-2*((Viento)/Viento):2*((Viento)/Viento),2*((Viento)/Viento):-2*((Viento)/Viento),2*((Viento)/Viento) P6:SolX=(*200):SolY=150-(*20):9000(#:n=010 :m=012 :D:(D>0)SolX+m,SolY-n Um:n XlSolX+6,SolY+4:0,-4:SolX-4,SolY-5:4,0:SolX+11 ,SolY-5:4,0:SolX+6,SolY-11 :0,-4:SolX+1,SolY+1:1,-1:SolX+11 ,SolY+1:-1,-1:SolX+1,SolY-11 :1,1:SolX+11 ,SolY-11 :-1,1 c 1000 dInicializacion de variables nKn=120:m=12:E(n,m)=(*11 )-5:m:n xGXEdif=0:Altura1=0:Altura2=0:Ancho=4:C$="" CViento=(*5):Viento=Viento*(2*(*2)-1) =A(8):n=18:A(n)=(*(4+Nivel)):n |X1=(*3)+1:X2=8-(*3):Y1=20-A(X1):Y2=20-A(X2):X1=(X1-1)*Ancho:X2=X2*Ancho  Pintar edificios E=18 Tinta=(*5)+1 %n=21(21-A(E))-1 ^m=1Ancho:n,(E-1)*Ancho+m-1;Tinta;6*(*2);0;"":m n:E  " 210 ,Pintar gorila 6M2;Alt-2,X+1;"@";Alt-1,X;"";Alt,X+1;"M" @j2;1;Alt-2,X+1;"""";Alt-1,X;"..";Alt,X+1;"_";Alt,X+1;","  Rutina de input a$="":yy,xx;"_" 9a$>0Ư=12 a$=a$(̱a$-1):470 2=13 a$""Retorno =a$:yy,xx;a$;" ":  b$=:b$<"0"b$>"9"420 b$="0"Ʊa$=0420 @a$=a$+b$:.05|L,30:(a$)>Maxa$=a$(̱(a$)-1) yy,xx;a$;"_ "  420 Ciclo principal 0,2;5;"JUG 1";0,21;"JUG 2";1,2;7;"Ang: ";1,21;"Ang: ":2,2;3;"Pot: ";2,21;"Pot: " CPunt1>00,0;5;"V";1,0;"I" EPunt2>00,31;5;"V";1,31;"I" xx=6 + 19 *(Jug-1):yy=1:Max = 180:400:Ang=Retorno:yy=2:Max = 999:400:Pow=Retorno YJug = 1Xi=1+(X1+3)*8:Yi=179 - (Y1*8):1070. $<Xi=(X2-3)*8-1:Yi=179-(Y2*8) .gTime=0:Ang=Ang*2*/360h:VarX=Pow*Ang:VarY = Pow*Ang:AntX=0:AntY=0 8hVarX=VarX - 5*Viento*((Jug-1)*2-1):VarX=-VarX*((Jug-1)*2-1) BXAct= Xi+(VarX*Time)/502:YAct=Yi+(-Grav/2*Time*Time+VarY*Time)/502:Time=Time+1:Mas rapido TIME*TIME que TIME^2 L)XAct<0XAct>2551350F Q YAct>175YAct=175 Vk8;1;XAct, YAct:8;1;AntX,AntY:AntX=XAct:AntY=YAct:.005y# =, YAct/3 `6Atrib=(((176-YAct)/8),(XAct/8)) j1130 j+ Atrib 1500:1350F  1090B  1400x E 1090B F8;1;AntX,AntY P&Jug=1Jug=2:1000 ZJug=1:1000 x Acierto  1500 BXAct/8 < X1 + 5Punt2 = Punt2 + 1:1440 Punt1 = Punt1 + 1 $Jug=1Jug=2:20 Jug=1:20  Explosion "XAct > 250XAct=250 "YAct > 175YAct=175 (m=12:n= 120 N8;1;XAct+E(n,1),YAct+E(n,2):.003xD,*10 n:m  @ Game Over J&2:2:9 :1: TO1:7:0:y=3:C$="FIN DEL JUEGO":8020T:0 ^9y=7:2:6:C$="Enhorabuena, Jugador " h&Punt1=2C$=C$+"1":1660| r C$=C$+"2" | 8020T =C$="Pulse cualquier tecla":y=17:5:8020T =""1680  Pantalla inicial &0:0:1:7: 8C$="CEZGS PRESENTA...":y=1:1:8020T DC$="Una produccion Panik Software":y=3:6:8020T GC$="para el concurso de BYTEMANIACOS":y=4:3:8020T AC$=" ":y=8:2:8000@  AC$=" ":y=9 :6:8000@ BC$=" ":y=10 :4:8000@  BC$=" ":y=11 :5:8000@ *EC$="Programado por Luis I. Garcia":y=15:7:8020T 48C$="a.k.a. Dr.Benway":y=16:0:8020T ><LET C$="benway@computeremuzone.com": LET y=17: GO SUB 8020 HQC$="http://cezgs.computeremuzone.com":1:1:y=21:8020T RC$=" PULSE 'i' PARA INSTRUCCIONES O CUALQUIER TECLA PARA COMENZAR ":Off=1 \((*7)+1) fX19,0;C$(OffOff+31):Off=Off+1:OffȱC$-32 Off=1 p="i"Ŧ="I"3000 =""2140\  20 Instrucciones 3:3:1: 1C$="ZX-Gorilla":y=0:1:8020T <9 :5,0;"Armados con bananas explosivas" $"los dos gorilas se pelean a mu -" $"erte. Ayudalos indicando el an -" $"gulo de tiro (1-180) y la poten-" E"cia de disparo (1-999). El ven -cedor sera el mejor de 3 tiros.": !"No olvides tener en cuenta el" #"viento a la hora de calcular tu" ""disparo y acertar al oponente." :10:C$="PULSA CUALQUIER TECLA":y=19 D"ٺ(*7)+1:8000@ N=""3140D X 20 ? @Centrar cadenas J y,16-(C$)/2;C$: TCentrar cadenas letra a letra ^n=1̱(C$) h#y,15-(C$)/2+n;C$(n) r%""n=C$:8000@:8060| w.003xD,*20 |n: #(0,0,0,0,1,1,1,1,1,0,0,0,0:0,0,0,1,1,1,1,1,1,1,0,0,0:0,0,0,0,0,0,0,0,0,0,0,0,0:0,1,1,0,0,0,1,0,0,0,1,1,0:0,1,1,1,0,0,1,0,0,1,1,1,0:0,1,1,1,1,1,0,1,1,1,1,1,0:0,1,1,1,1,0,0,0,1,1,1,1,0:0,1,0,1,1,1,1,1,1,1,0,1,0:0,0,1,0,1,1,1,1,1,0,1,0,0:0,0,0,1,0,0,0,0,0,1,0,0,0:0,0,0,0,1,1,1,1,1,0,0,0,0:Sol untuntivera uy f/nedilturalturanchCient+M