ZXTape! 0Created with BASin Release 12cHetty qsDrecmax2=1:recmax1=101e:z$="RVC":m$="Rob" /*VARIBALES*/ y=10 :x=1:l$="":r$="^":t$="O":joy=0:puntos=0:vidas=2:xb=0:yb=0:bombaY=0:bombaX=0:cont=0:a$="q":b$="a":i$="o":d$="p":level=1:c=1:time=0:bote=0: '0:0:5::6: 1;7;0,0;"      ";1;0,0;"O O OOO OOOOOOO OOOOOOO O O";0 71;1,0;"           ";7;1;1,0;"O O O O O O O O O O O ";0:1;2,0;"    ";7;1;2,0;"OOOO OOO O O OOOOOO";0:7;3,0;"     ";1;3,0;"O O O O O O";0:3:0;7;4,0;"     ";1;4,0;"O O OOO O O OOOOOOO";0: A1:1;1;;7,12 ;"";1;7,12 ;1;"M";0;7,13 ;1;"";7,14;1;"E";7,15;1;"";1;7,16;"N";1;7,17;"";1;7,18;"U";1;7,19;"";0 ti=030:20,i-1;" ";7;20,i;"";1;1;20,i;";";0:i  4: y9 ,10 ;"S - SINCLAIR.":11 ,10 ;"T - TECLADO.":1;1;6;11 ,10 ;" " !15,10 ;"J - JUGAR." P1;1;20,0;"-Home made crap Software 2005-";0 #13 ,10 ;"R - RANKING." y<17bote=0y,5;" ":y=y+1:7;y,5;l$;1;7;y,5;r$;0:y=17bote=1 y>6bote=1y,5;" ":y=y-1:7;y,5;l$;1;7;y,5;r$;0:y=6bote=0 d="t"0.1}L,1:11 ,10 ;1;1;6;" ":9 ,10 ;"" q="s"0.1}L,1:9 ,10 ;1;6;1;" ":11 ,10 ;"":joy=1 1="j"0.1}L,1:3000 :133 !&="r"0.1}L,1:2000 #*time=500time=0:2000 (time=time+1 2 27 n/* PANTALLA DEL JUEGO */ time=0:vidas00::0:20,1;":";20,7;"000";(puntos);21,1;"VES:";"0";(vidas):20,20;"LEVEL:";"0";(level):21,20;"TIME: ";(time):1:i=030:6;18,i;"":1:18,i;"":0:i:i=018:1;i,0;"";i,0;"0":i:i=018:1;i,31;"";i,31;"0":i:0 fvidas=02;6;15,9 ;"G a m e O v e r":2200:80P:5 cont=0 /* MOSTRAR PERSONAJE */; y=17:x=10 : G1;1;y,x;l$;0;1;7;y,x;r$;0 i=110 8xb=*i:yb=(*i)+i:c=c+1:c=10 c=1 K1;1;1;c;xb,yb;"":0:0:0 ]i:1;1;1;7;xb-1,yb-1;t$:0:0:0 0bombaY=(xb+0.5):bombaX=(yb+0.5) $c=c+1:c=10 c=1 bote=0:/* Teclas */ ӈy>0bote=0y,x;" ":y=y-1:410:7;y,x;l$;1;7;y,x;r$;0:y=0bote=1 Ԋy<17bote=1y,x;" ":y=y+1:410:7;y,x;l$;1;7;y,x;r$;0:y=17bote=0 time=time+1:21,25;(time):time=2001;1;1;10 ,10 ;"Time out";0;7;0;11 ,4;"Haz perdido una vida":80P:133: =a$3106 =b$330J =d$341U =i$350^ 211 /* usar joystick */ ="9"3106 ="8"330J ="7"341U ="6"350^ 240: -*/ Movimientos /* 7Yy>0y,x;" ":y=y-1:410:y,x;l$;1;7;y,x;r$;0 @ J */ Abajo /* Ocy<17y,x;" ":y=y+1:410:7;y,x;l$;1;7;y,x;r$;0 T U/* Derecha */ Vcx<30y,x;" ":x=x+1:410:7;y,x;l$;1;7;y,x;r$;0 Y Z/* Izquierda */ ^bx>1y,x;" ":x=x-1:410:7;y,x;l$;1;7;y,x;r$;0 c /* PRINCIPAL /* ( a(y,x)=""500:puntos=puntos+1:cont=cont+1:20,7;"000";puntos D(y,x)="O"puntos=puntos+20:20,7;"000";puntos Ipuntos=100dpuntos=150puntos=200vidas=vidas+1 ocont=9 :10 ,10 ;1;"Nivel pasado":level=level+1:10 :0:133  %/* Comprobar que no es una bomba */ 0.1}L,1:y=bombayx=bombaxvidas=vidas-1:10 ,4;1;7;1;"Haz caido en una trampa!!":11 ,5;"una vida menos, animo!!!":f=120:i=07:i:i:f:80P:4:0:3000 :133  /* RANKING */ 83000 ::2:0,10 ;"==RANKING==" ki=011 :7:10 :10 ,i;m$;"...";(recmax1):10 ,i-1;" "::i j6:i=011 :10 :11 ,i;z$;"...";(recmax2):11 ,i-1;" ":i 100d:12 /* RECORD MAXIMO */ -puntos