ZXTape! 0Created by SpectaculatorDardos **.*56999:6000p #-#1;"-Numero de jugadores (de 1 a 4)?" (n=""o=16:2:o:::2:::::6:::::4:::::5:::::2:40( 2<s$=:s$<491ůs$>5241,1:40( 5791,1:80P Uxt(o,11 )=s$:t(o,11 ):o:"":#1;13 ;"PULSA":nt=1:1,10 :0:7000X Zq=1numero:gd=t(q,11 ):2070:.1}L,20:"":#1;"-Ver pizarra (S=Si) ?":0:"":s$=:s$="s"s$="S"1000:2070 dG.1}L,10 :1,23;2;7;1;n$(q) nw=13:1100L:1500:z(w,3)=ti:z(w,1)=xx:z(w,2)=yy:2500 :w,1;4;a$:xx=202+w*15:yy=10 :3000 :w xAw=13:por=1:z(w,3)=6200 z(w,3)=1z(w,3)=2t(q,9 )=t(q,9 )+z(w,3):t(q,9 )>3so=t(q,9 )-3:t(q,9 )=3:m=1numero:t(q,10 )=t(q,10 )+(25*so*(t(m,9 )<3)):m *(z(w,3)/100d)=5nunu=z(w,3)-500:nunu>14t(q,21-nunu)=t(q,21-nunu)+por:t(q,21-nunu)>3so=t(q,21-nunu)-3:t(q,21-nunu)=3:m=1numero:t(q,10 )=t(q,10 )+(nunu*so*(t(m,21-nunu)<3)):m Y(z(w,3)/100d)=3nunu=z(w,3)-300,:code=3:180 Y(z(w,3)/100d)=4nunu=z(w,3)-400:code=2:180 200 nunu>14"":#1;"-";("Triple=(0)"code=3);("Doble=(0)"code=2);" ";(code);"X";(nunu);"=(Otro) ":0:"":s$=:s$"0"por=code:z(w,3)=z(w,3)-(300,*(code=3))-(400*(code=2))+500:150 t(q,5+code)=t(q,5+code)+1:t(q,5+code)>4t(q,5+code)=3:m=1numero:t(q,10 )=t(q,10 )+(code*nunu*(t(m,5+code)<3)):m /w,1;4;" ":w:57000 ,dm=19 :t(q,m)=3m:m=1numero:t(q,10 )t(m,10 )m:5000 q:nt=nt+1:90Z  PIZARRA '1:1:6:u$="XXX": _o=1numero:24*(4-numero)+43++o*535,3:0,172:o `24*(4-numero),175:43+,-11 :0,11 :-43+,-11 624*(4-numero),3:0,172 o=316316:24*(4-numero),o:43++535*numero,0:o:24*(4-numero),175:43++535*numero,0 $8000@:x=2011 -1:a$:42*-x*2,1+3*(4-numero);a$;"-":x:1;18,2+3*(4-numero);"#" 8o=1numero:0,6+(o-1)*7+3*(4-numero);1;n$(o,6):f=19 :f*2,7+(o-1)*7+3*(4-numero);u$(t(o,f)):f:20,6+(o-1)*7+3*(4-numero);t(o,10 ):o BT#0;14;1;"PULSA":.5,1:6:0:0: L TIRAR UN DARDO Vat=(9 -gd)/502:v1=1:v=1:x=1:y=0:1:1:8 `111 ,x+5;" ":gd9 t,30 ex=21x=0v=-v j211 ,x+5;" ":=""x=x+v:1120` tqxx=x+5:f=010 :.001wn,f*5:2:6:4:5:0:f:6 y,xx;" ":t,-30 8y,x+5;" ":y=y+v1:y=0y=21v1=-v1 =""1200 pf=06:.001wn,f*5:f:f:xx=44,+x*8:yy=172-y*8:0:0 A:r=*6+gd/3:a=*100d:xx=xx+a*r:yy=yy+a*r (yy5yy=6 2yy169yy=168 <3100 :  CALCULA TIRADA 9r=(((xx-127))^2+((87W-yy))^2) r<3ti=2: r<7ti=1: $r35#ti=5:1700 $r40(ti=3:1700 $r65Ati=5:1700 "$r70Fti=4:1700 , t=6: Aa=((xx-127)/r):(yy-87W)<0a=a+2*(-a) Dit=1+((a+/20)/(/10 )):it=21it=1 it=v(21-it) ti=ti*100d+it:  DIBUJO DIANA /0:0:6:0:6: 22012:o=60000`60040:a:o,a:o E237,75K,125},92\,197,205,206 C34",205,148,30,193,254,0 D192,197,205,229,34",193,4 M205,100d,234,5,5,205,100d,234 s4,12 ,205,100d,234,13 ,13 ,205,100d,234,12 ,201 f2021:o=17:r:127,87W,r:o:1;127,87W:60000` >3,7,35#,40(,65A,70F,87W eo=019:a=ep+pe*o:127+7*a,87W+7*a:63?*a,63?*a:o o=019:a=10 +ep+pe*o:r1=30+(6*(o/2=(o/2))):r2=2*r1-4*(o/2=(o/2)):1;127+r1*a,87W+r1*a:60000`:1;127+r2*a,87W+r2*a:60000`:o 6,13 ,4,18,1,20,5,12 ,9 ,14,11 ,8,16,7,19,3,17,2,15,10  v(20):1:o=201-1:n:v(o)=n:11 +(10 *(o*/10 ))+(n=1n=5n=12 n=18),16+(10 *(o*/10 ))-(n=12 n=20n=11 n=6n=17n=15n=10 n=13 );n:o  0,0:0,174:255,0:0,174:0:o=087W2:a=41)130:é(a,o)a /0,o:a,0:255,o:-a,0 F0,174-o:a,0:255,174-o:-a,0:o o=1721:p=2631:o,p;1;" ":p:o:208,0:47/,0:0,39':-47/,0:0,-39':yy=10 :o=21724715:xx=o:3000 :o o=03:p=07:o,p;4;" ":p:o:0,143:63?,0:0,32 :-63?,0:0,-32 o=12 14:o,28;1;" ":o:215,47/:40(,0:0,66B:-40(,0:0,-66B ;9 ,28;1;"Tir";10 ,28;"num"  6:57000:3,26;"Dif";4,27;gd;13 ,29;1;nt;1,23;2;7;1;n$(q):8000@:  TEXTO DE LA TIRADA Mcode2=0:z$=ti:code=z$(1):z$>1code2=z$(2) /a$=x$(code,j(code))+(code2code20):  DARDO DE PIE M1:xx-1,yy:-1,5:0,10 :2,5 Dxx+1,yy:1,5:0,10 :-2,5 Qxx-1,yy+13 :2,0:xx,yy:xx,yy+19:0,6 Lxx-1,yy-1:-4,-5:0,7:2,3 Lxx+1,yy-1:4,-5:0,7:-2,3 0:  DARDO PINCHADO &}1:xx,yy,3:o=-112:l=-112:xx+we*o,yy+we*l:we*o,we*l:l:o:0:  FINAL j:10 ,11 ;"GANADOR..";12 ,10 ;n$(q);14,8;"en ";nt+1;" tiradas." C=""b=07:.003xD,*b*7:b:b:5015 6:1000:0:0:7::7,0;"ENTER para empezar otra partida."'''"Otras para RESERT.":0:=13 :5 0:6::10 ,8;5;"AUTODESTRUCCION":N=10 0-1:12 ,14;n;" ":.01z# =,30:47/:n:0 p INICIALIZACION q}6000p:d$(10 ,3):l=110 :d$(l):l:"20-","19-","18-","17-","16-","15-","Do-","Tr-","-X-","Pt-" u+z(3,3):we=(2)*2 xx$(6,5):j(6):o=16:x$(o),j(o):o:"DIANA",5,"MOSCA",5,"III-",4,"II-",3,"",0,"Fuera",5 pe=/10 :ep=/20 i=5700057011:a:i,a:i:1,0,27,33!,0,64@,17,144,226,237,176,201 {2000:6050:57000:i=5700457008:a:i,a:i:144,226,17,0,64@ d X INSTRUCCIONES b<6:0:6::10 ;"INSTRUCCIONES" lf''" -El objetivo es pinchar tresdardos en cada num. del 15 al 20y anotarse mas puntos que nadie." vu'" -Tambien es necesario tenertres dobles, tres triples (Cir-culos concentricos)y tres dianas(Mosca=2 dianas)" s'" -Un triple o doble de los num.antes citados , podra anotarsecomo triple o como tres veces elnum. pinchado." '" -Los numeros sobrantes se ano-taran como N-puntos por cada ad-versario que aun no tenga tresde ese num.(Idem para triples ydobles mult. por 2 o 3)." 6#1;7;"PULSA PARA SEGUIR":0: " -Para tirar un dardo, el sis-tema es el siguiente:"''" -Primero aparecera un cua- dro moviendose de izquierda a derecha con velocidad mas rpaida a mayor dificultad." ''" -Al pulsar cualquier tecla el cuadro empezara a subir y bajar, con lo que habras elegido ya toda una franja vertical donde tirar." ''" -Al pulsar una segunda te- cla, tendras fijada la po- sicion de tiro, y el dardo pinchara proximo a esa zona, mas proximo a menor difi- cultad elegida." qgd=8:#1;12 ;1;"Pruebalo!!":1100L:"":#1;12 ;"PULSA":0: @1:7:0:l=110 :10 +l,0;d$(l);t(q,l);:l:19,1;1;"#":6:0:0::"20","19","18","17","16","15","Do","Tr","-X","Pt" W