ZXTape! 2gPanicEduardo Mena NietoSpanishArcadeHome-made program%(version 1) TZXed by Juan Pablo LopezPANIC eF(#DgF 9045U# ^FASE=0:SCORE=0:VIDAS=3:1:0:7:0::5516 a: b*** CICLO PRINCIPAL ** c: dTIEMPO=TIEMPO-.5:0;1;0;8;TIEMPO,165:0;1;0;8;0,-3:TIEMPO=70F5000 n-N=15:A(N)=-1290" o""300, pmF$=("abcdefgh"E(N)=-1)+("efghabcd"E(N)=1)+("ijklmnop"E(N)=0)+("mnopijkl"E(N)=2) q: rBICHO EN AGUJERO sA(N)1120x t*T(N)=T(N)+C(N):T(N)36$270 uT(N)=0:A(N)=0:E(N)=A(N)+B(N):W(N)=0:0;Y(N),X(N);1;"qq";Y(N)+1,X(N);0;" ":Y(N)=Y(N)-2 v<F$=("abcd"E(N)=-1)+("efgh"E(N)=1):270 >R=15:Y(R)=YX(R)=XX(R)+1=X5030 R  BICHO LIBRE (MOV.) A(N)0220 (Y(N)+2,X(N))=" "(Y(N)+2,X(N)+1)=" "Y(N)=Y(N)+2:A(N)=1:W(N)=0:V(N)=0:F$=("ijklefgh"E(N)=-1)+("mnopabcd"E(N)=1):270 jY(N)=Y(Y(N)+1)/4=((Y(N)+1)/4)V(N)=0:W(N)=(X(N)X):212 tY(N)Y(Y(N)-2,X(N))=568ƫ(Y(N)-2,X(N)+1)=568((Y(N)-2,X(N))" "ƪ(Y(N)-2,X(N)+1)" ")W(N)=0:V(N)=-1:270 e(Y(N)+1)/4=((Y(N)+1)/4)W(N)=0W(N)=(X(N)X):V(N)=0 ;W(N)=1ƫ(Y(N),X(N)+2)568W(N)=-1 <W(N)=-1(Y(N),X(N)-1)568W(N)=1 (X(N)<1X(N)>29W(N)=-W(N) 270  BICHO CAYENDO  A(N)1270 =(Y(N)+1)/4ɺ((Y(N)+1)/4)235 F(Y(N)+2,X(N))=" "ƪ(Y(N)+2,X(N)+1)=" "235 240 A(N)=A(N)+1:B(N)=-B(N):E(N)=(2E(N)=0):Y(N)=Y(N)+1:(Y(N)-3)/4=((Y(N)-3)/4)0;1;Y(N)-2,X(N);"qq" 280 |A(N)<2*C(N)A(N)=0:W(N)=(X(N)X):F$=("abcdmnop"E(N)=0)+("efghijkl"E(N)=2):270 ^A(N)=-1:0;7;Y(N),X(N);F$(56);Y(N)+1,X(N);F$(7);Y(N),X(N);"";Y(N)+1,X(N);"":K=30-30-5:.01z# =,K:K:Y(N),X(N);"";Y(N)+1,X(N);"":X(N)=-1:Y(N)=-1:SCORE=SCORE+C(N)*40(+FASE*20:#0;1,13 -(SCORE);1;SCORE;  /BICHO=BICHO-1:BICHO>0290"  ]0:N=TIEMPO70F-1:Y-1,X;"";Y,X;"";Y+1,X;" ":.01z# =,502:0;0;8;1;N,165:0;0;8;1;0,-3:SCORE=SCORE+FASE*10 :#0;1,13 -(SCORE);1;SCORE;:Y-1,X;" ";Y,X;"";Y+1,X;"":.01z# =,30  'N:1:FASE215500|  9200#   ACTUALIZAR POSICION  <B(N)=-B(N):E(N)=A(N)+B(N):X(N)=X(N)+W(N):Y(N)=Y(N)+V(N)  DIBUJAR  VF$=89 ;I(N),H(N);F$(56);I(N)+1,H(N);F$(7) \Y(N),X(N);C(N);F$(2);Y(N)+1,X(N);F$(34):H(N)=X(N):I(N)=Y(N) ! VOLVER A REPETIR  "N:100d ): * MOVIMIENTO HOMBRE  +: @8:8 J="P"SENTIDO=1X<30X=X+1:Y,X-1;"";Y+1,X-1;"":.01z# =,0:Y,X;"";Y+1,X;"";Y,X;"";Y+1,X;"" T`="P"SENTIDO=-1SENTIDO=1:Y,X;"";Y+1,X;"";Y,X;"";Y+1,X;"": ^="O"SENTIDO=-1X>1X=X-1:Y,X;"";Y+1,X;"":.01z# =,0:Y,X;"";Y+1,X;"";Y,X;"";Y+1,X;"" h`="O"SENTIDO=1SENTIDO=-1:Y,X;"";Y+1,X;"";Y,X;"";Y+1,X;"": rFSENTIDO=-1A$="":B$="":X$="":Y$=" ":V$="":W$="" |ESENTIDO=1A$="":B$="":X$="":Y$=" ":V$="":W$="" i="Q"ƫ(Y-2,X)=568Y3Y,X;A$;Y+1,X;B$:Y=Y-1:Y,X;A$;Y+1,X;B$ ^="A"ƫ(Y+2,X)=568Y,X;A$;Y+1,X;B$:Y=Y+1:Y,X;A$;Y+1,X;B$ ^(Y+2,X)=" "Y,X;A$;Y+1,X;B$:Y=Y+1:Y,X;A$;Y+1,X;B$:410 "Z"Ʀ"M" S$=(Y+2,X+SENTIDO) +O$=("r"S$="q")+("s"S$="r")+(" "S$="s") +C$=("q"S$="r")+("r"S$="s")+("s"S$=" ") o="M"Y<18SENTIDO=1((Y+2,X+1)=579ƪ(Y,X+1)=" ")F$=O$:V=X:510 x="M"Y<18SENTIDO=-1((Y+2,X-1)=579ƪ(Y,X-1)=" ")F$=O$:V=X-1:510  "Z" O="Z"SENTIDO=1(Y+2,X+1)568F$=C$:V=X:510 P="Z"SENTIDO=-1(Y+2,X-1)568F$=C$:V=X:510 J=15:Y(J)=Y+2(X(J)=XSENTIDO=1)(X(J)+1=XSENTIDO=-1)V=X:510:A(J)=2: J  Y,X;A$;Y+1,X;B$;Y,V;X$;Y+1,V;Y$:.01z# =,30:Y,V;X$;Y+1,V;Y$;Y,V;V$;Y+1,V;W$;Y+2,X+SENTIDO;0;1;F$:.01z# =,0:Y,V;V$;Y+1,V;W$;Y,X;A$;Y+1,X;B$: PIERDE UNA VIDA POR TIEMPO 0:1,1;0;7;1;1;"TIEMPO":N=115:Y,X;"";Y+1,X;"":.1}L,40(:Y,X;"";Y+1,X;"":.1}L,502:N 1,1;0;7;1;"TIEMPO":A=X*8:B=176-Y*8:N=BB-16-1:.001wn,(*40(+20):0;1;A,N:0;1;8,0:N:Y,X;" ";Y+1,X;" ":5040 POR BICHO -SENTIDO=1Y,X;"";Y+1,X;""; .SENTIDO=-1Y,X;"";Y+1,X;""; YN=15:K=60<30-5:.005y# =,0:.005y# =,K:K:N PROTOCOLO >0:VIDAS=VIDAS-1:0,29;0;1;7;VIDAS:VIDAS>05050:HIGH=(SCOREHIGHX(N))-(X7)-(7FASE>14) lx7999?+FAS:A:N=1A:L,LL,LLL:K=LLLLLL+(L*4)-1:0;0;7;K,LL;"tu":K:N: ? FASE I @5,2,5,5,1,8,5,1,17,13 ,3,26,9 ,1,5,17 A5,3,3,5,1,19,5,2,27,5,2,10 ,13 ,1,27,17 B6,2,5,5,2,11 ,9 ,2,26,5,1,22,13 ,1,5,17,1,26,17 C5,4,3,5,1,24,5,1,18,9 ,1,10 ,13 ,1,18,17 D6,1,3,5,2,9 ,5,3,14,5,1,26,9 ,2,5,13 ,1,22,17 E5,4,5,5,3,10 ,5,2,15,5,3,20,5,4,25,5 F6,2,3,9 ,1,10 ,5,2,10 ,13 ,2,23,5,1,19,17,2,26,13 G H J)2,2,2,2,2 K)2,2,2,2,4 L)2,2,2,4,4 M)2,2,2,2,6 N)2,2,2,4,6 O)2,2,4,4,4 P)2,2,4,4,6 Q)2,2,2,6,6 R)2,4,4,4,4 S)2,2,4,6,6 T)2,4,4,4,6 U)2,4,4,6,6 V)2,2,6,6,6 W)4,4,4,4,4 X)4,4,4,4,6 Y)4,4,4,6,6 Z)2,4,6,6,6 [)4,4,6,6,6 \)2,6,6,6,6 ])4,6,6,6,6 ^)6,6,6,6,6 #'INICIACION #(358879:0:0:1:0: #-290102#:N=60000`60011k:A:N,A:N #2l33!,0,60<,17,0,230,1,0,4,237,176,201 #<60000` #F""59656:"""A" #G 7 #K:8,8;0;"PARA LA CINTA!!!":A=8:B=23:C=8:D=8:9900&:.5,0:30:.5,0 #PA23658j\,8:236066\,0:236077\,230 #Q:A$=" qqqqq qqqqq q q q qqqqq q q q q qq q q q q q q q q q q q q qqqqq qqqqq q q q q q q q q q qq q q q q q q q q qqqqq " #R8,0;0;0;A$:A=4:B=28:C=8:D=13 :9900&:0;18,0;"PROGRAMADO POR......EDUARDO MENA":A=0:B=19:C=18:D=18:40(:9900&:40(:A=20:B=31:9900& #S0,0;0;"qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq PULSA UNA TECLA PARA EMPEZAR qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq":A=0:B=31:C=0:D=2:9900&:0:0 #UHIGH=0 #ZD0:1:23658j\,8:6:0:6: #_0,10 ;"";1,10 ;" ";2,10 ;" ";3,10 ;" ";4,10 ;"" #`52,12 ;1;1;"P A N I C" #dF7,0;5;0;"TECLAS DE CONTROL:";9 ,5;"IZQUIERDA ---------- 'O'";11 ,5;"DERECHA ------------ 'P'";13 ,5;"ARRIBA ------------- 'Q'";15,5;"ABAJO -------------- 'A'";17,5;"ABRIR AGUJERO ------ 'M'";19,5;"CERRAR AGUJERO ----- 'Z'" #n.#1;"PULSA 'S' PARA COMENZAR A JUGAR."; #x"S"9080x# # 10 #: #GRABACION #: #"PANIC"9000(# #="PANIC 1"59656,168:"PANIC 2""A",168 # # FINAL #/0:0:7:0:1: $N=03:N,0;7;1;"qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq";:N:N=13 21:N,0;7;1;"qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq";:N $k10 ,30;7;1;"qq";7;2;11 ,31;"q";12 ,31;"q" $A$=" ":B$=" ":C$=" ":D$=" ":E$="ababab ":F$="cdcdcd ":G$="efefef ":H$="ghghgh ":I$="mnmnmn":J$="opopop" $"5;11 ,25;G$(6);12 ,25;H$(6):N=15:.1}L,N:11 ,N;" ";12 ,N;" ":N:20:11 ,6;"";12 ,6;" ":.1}L,502:11 ,6;"";12 ,6;"":.1}L,0 $'pN=13 20:N,7;" ":.05|L,20:N:11 ,6;" ";12 ,6;" " $,N=7242:11 ,31-N;5;E$(N);12 ,31-N;F$(N):.1}L,N:5;11 ,30-N;G$(N);12 ,30-N;H$(N):.1}L,40(-N:N $6N=12 19:5;N,7;I$;N+1,7;J$;N-1,7;" ":.01z# =,N+40(:N:.73333,-40(:19,7;3;I$;20,7;J$ $;F20:N=712 :1;8;8;128,0:1;8;8;N*8+4-128,150:1;8;8;128,0:1;8;8;N*8+4-128,150:.01z# =,502:3,N;" ";4,N;7;1;"q":N $@N=520:7;1;N,7;"qqqqqq";0;N-1,7;" ":.05|L,60<-N:N:1,0 $JHN=1913 -1:7;1;N,7;"qqqqqq":N $TN=1222:11 ,31-N;A$(N);12 ,31-N;B$(N):.05|L,30:11 ,31-N;C$(N);12 ,31-N;D$(N):.05|L,40(:11 ,30-N;A$(N);12 ,30-N;B$(N):.05|L,502:N $^N=110 :10 ,9 ;A$(11 );11 ,9 ;B$(11 );12 ,9 ;" ":.1}L,60<:10 ,9 ;" ";11 ,9 ;A$(11 );12 ,9 ;B$(11 ):.1}L,65A:N $h5502::5,10 ;"FELICIDADES";10 ,5;"HAS COMPLETADO EL JUEGO";12 ,2;"Y HAS CONSEGUIDO ";SCORE;" PUNTOS";14,2;"EL ";((SCORE*100d/455700^)+.5);"% DE LA PUNTUACION MAXIMA":N=110 :K=60<-30-5:.003xD,K:K:N $r@0:HIGH=(SCOREHIGH667ccx|llxؼ ``666ccc=xxlll@ @H  6n080pxlvs @UUUU