REYES Y...  Program Cargador de Caratulas Creado en 1987  Version 1 ()Autor Ariel Genis (TRACKABYTE SOFTWARE) 2 65301 75:5: 97:1 < "":1:8:8 d20,0; i"" n20,0;:"" iARO @.< X@88?B<<  t0<D@8?(BB W<D@?B<(T@>@?>BH}߀?@B~@?B><<  G<Y(BO IJ@zq<0`x A`@$a@RQ@p}N)@0  @ IH@x<x~?8">@ % @ p ~!i HH@0<@@B@ > Bt@ pӿ |N!@ e@8  @A)@?#N@@@oٟ *>w0?w@_@5eO?<@xv @  AF@`@!?@@(ޯ:@~~ 0OSO?<@x@z@<@A@ @Pq 7c-?w?@wHO?<@x Dh*@?  <@| @?  DQ/X8U?DO?<@x0@ (j@<@A|`p_d. I@@@#S@@iD U @@ [@@!B @ wV@!p?@  @<Ѐ@ `x7@@@^k@ B @@ 6ȀB@@@u  @< @ @ :z+@@B @ u A  o  |X$(h `?@`@+*+@A!    @o  dT`T? p<@  /w~@ !e   @7! @@@ xdT?4T @=@   ߩ !g@@@ @;x@ x Tx$LT= `@@O@zӫހ @ ~ !@l@   >`@ @ǧӫ? ~@ Z@ @B @  !  g?@  @<@@:::::::::::::6666666666666666666:99999999==?:6662222222222222>>6:???????9===:6662222222222222666:?????:?9?=?:6662222262222226666:????:::9::?:6222222222222222226:???::::9::::2262222222222222222:??::::::::::622222222222222222>:??::::::::::6666666666666666666:??;:;;;;;;;::::::::::::::::::::====;;????;;=============;=====:==<=;;;;;;;;<<=========;;;;====:==<<;;?;;?;;<<<<=======?;?;;;==:<<<<<<<;;<<<<<<<<<=====;:::;===:$$$$$<<$$<<$$$$$$<<===::::::===:8<<<<<<<<<<<<<<<<<8===::::::===:888<<<<<<<<<<<<10 ,6;1;"PULSE ALGUNA TECLA...":0: !a$=:a$=""33! #:10 ,0;"R e y e s y C a s t i l l o s -------------------------------":''"El escenario es el antiguo, secoy caluroso pais que ahora se co-noce como Espaa, en algun mo- mento de la Edad Media." $z=.4L:z,2:z,7:z,7:2*z,7:z,11 :z,14:z,7:z,7:2*z,7:z,11 :z,14:z,7:z,7:2*z,7:z,6:z,4:4*z,2:60<*z:z,2:z,12 :z,12 :2*z,12 :z,11 :z,9 :z,14:z,11 :2*z,7:z,11 :z,9 :z,12 :z,9 :2*z,6:z,9 :z,6:4*z,7 % 300, (999:"Quien sera el rey del reino del norte? ";n$:60<:999:"Y del reino del sur? (si desea jugar contra el computador,","ingrese 'computador'";s$ -ms$="computador"1:''"** Acepto el desafio! **":0:765:765:765:765 2er=0:wr=0 7T545!:m5=0:m=(300000u*)+1:m=(m+150000|):nm=m:sm=m <r=0:r1=0 Ax=(10000'*)+1:nw=x+20000 N:x=(10000'*)+1:sw=x+20000 N:n=(10000'*)+1:n=n+20000 N:s=(10000'*)+1:s=s+20000 N:cn=500:cs=500 Fknc=(10000'*)+1:sc=(10000'*)+1:i=(5*)+1:i1=(5*)+1 K>ns=0:x=(100d*)+1:x<25ns=1 P>ss=0:x=(100d*)+1:x<25ss=1 U7725::0,0;n$,0,16;s$ Z q=0 _#a=nm:b=0:1000:nm=a iSa=nw:b=0:1000:nw=a:a=sw:1000:sw=a:a=nc:1000:nc=a n#a=sc:b=0:1000:sc=a s51,0;"************** ****************" t+0,13 ;wr,0,31;er x23,0;"$";nm,3,16;"$";sm }Enw>04,0;"Guerr: ",4,6;nw ~nw0465 Gsw>04,16;"Guerr: ",4,22;sw sw0470 T5,0;"Puntos: Puntos: ":n>05,7;n n0550& s>05,23;s s0555+ ;a=cn:b=0:1000:cn=a:a=cs:1000:cs=a 6,0;"Caones: Caones: ",7,0;"Civiles: Civiles: ",6,8;cn,6,24;cs fa=nc:b=0:1000:nc=a:7,8;nc:a=sc:1000:sc=a:7,24;sc 8,0;"Espias: Espias: ":a=i:b=0:1000:i=a:8,7;i:a=i1:1000:i1=a:8,23;i1:ns19 ,0;"Catapultas:";ns 0ss19 ,16;"Catapultas:";ss Vt=0t=1:20,0;"Le toca a ";n$;" ":165 t=1t=0:20,0;"Le toca a ";s$;" ":s$="computador"1:21,0;"** NO ME APURE!! **":0 285 11 ,5;"1.- Disparar caon",12 ,5;"2.- Avanzar";13 ,5;"3.- Catapulta";14,5;"4.- Reclutar civiles";15,5;"5.- Comprar caon";16,5;"6.- Infiltrar";17,5;"7.- Licenciar guerreros":.5,0 a$=:a$=""170 6:435:475:670:a$="1"179 a$="2"215 a$="3"225 a$="4"245 a$="5"265  a$="6"5600 a$="7"190 165 ":"Disparen el caon!.giles!"''' Hcn0"No rompas no tenemos caon,seor!":cn=0:540 ] "Disparar a:"''5;"1.- su castillo, o"''5;"2.- su tropa?"'':.5,0 a$=:a$=""185 *a$="1""Castillo":760:195 'a$="2""Tropa":760:210 185 P:"Licenciando guerreros"''':"Cuantos seran licenciados? ",a:a>nw190 onw=nw-a:775:"Ya van rumbo a su hogar.":"La proxima vez que regresen aunque sea sanos":540 Hv=(*3)+1:v=1"Erraste! sos chicato?":540: d=(*5000)+1:a=s:b=d:1000:s=a:d=b:"Buuumm!!":'s$;" perdio ";d;" puntos!":d=(*100d)+1:a=cs:b=d:1000:cs=a:d=b:"Tambien perdio ";d;" caon";:d>1"es":" Y por poco a su mujer!" :d=(*99c)+1 La=sc:b=d:1000:sc=a:d=b:"y ";d;" civiles":ss<1540 bd=(*10 )+1:d<4"*** Y la catapulta! ***":a=ss:b=1:1000:ss=a 540 ҍv=(*3)+1:v=1"C R I M I N A L ":80P:"Le diste a un campo!, has matado 6000 hormigas!...asesino !!!":540 Ud=(*5000)+1:a=sw:b=d:1000:sw=a:d=b:s$;" perdio ";d;" hombres!":d>3000 d=(*3000 )+1:a=nw:b=d:1000:nw=a:d=b:"Pero los guerreros de ";n$,"estaban demasiado cerca de las","tropas de ";s$;"."'"Perdieron ";d;" hombres.":"Si los giles no tuvieran pun- teria me llamaria ";n$;" !" 540 (:"Las tropas avanzaron."::800  d=(4500*)+1:a=sw:b=d:1000:sw=a:d=b:s$;" perdio ";d;" hombres, y":d=(4500*)+1:a=nw:b=d:1000:nw=a:d=b:n$;" perdio ";d;" de los de","el en esta batalla.":"Si los bobos fueran estrategas perderias tus hombres":540 p:"Disparen catapulta!":ns<1''"No tenemos catapulta, seor! (amarrete compra una !!)":540: c''"A que le disparamos, seor?"'''''5;"1.- a su castillo, o"''5;"2.- a sus tropas?" a$=:a$=""230 ,a$="1"''"Castillo":760:235 *a$="2"''"Tropas":760:240 230 x=(10 *)+1:x=5'"Se descompuso la catapulta...":"Idiotas no compren mas en segun-da mano.":d=(1000*)+1:a=n:b=d:1000:n=a:d=b:n$;" perdio ";d;" puntos!":540 cx=(2*)+1:x=2'"La proxima vez apunten mejor o compre anteojos!":540 d=(11000**)+1:a=s:b=d:1000:s=a:d=b:"El castillo de ";s$;" perdio",d;" puntos!":"Y encima se te rompio el bao":540 Mx=(3*)+1:x<3'"Le pifio!":"sos un perro!":540 id=(11000**)+10 :a=sw:b=d:1000:sw=a:d=b:s$;" perdio ";d;" guerreros!":540 :"Reclutando civiles.": anc=0"No queda ninguno que pueda ser reclutado."::"Ya nos comimos a todos":540 "Cuantos se necesitan? ";a 'a>nc"Solo hay ";nc;"!":540 ]b=a:a=nc:1000:nc=a:a=b:nw=nw+a:785:"Ya se dirigen al frente!":540  :"Comprando caon.": p780 :"Desde abajo se escucha soplar uncuerno. Uno de los mercaderes pregunta cuantos deseas comprar." N x=(100d*)+1:"Cada uno cuesta $";x:"Cuantos compra usted? ";a _a1=a:a1=a1*x:a1>nm"Su oro no le alcanza, seor!. Tiene que vender su arito.":540 d'"El armero esta cargando sus","vagones.":cn=cn+a:a=nm:b=a1:1000:nm=a:a1=b:540  11 ,5;"1.- Disparar caon";12 ,5;"2.- Avanzar";13 ,5;"3.- Catapulta";14,5;"4.- Reclutar civiles";15,5;"5.- Comprar caon";16,5;"6.- Infiltrar";17,5;"7.- Licenciar guerreros":.5,5 "2s$="computador"815/:505:990 #a$=:a$=""291# $+:505:670:a$="1"320@ %a$="2"365m &a$="3"375w 'a$="4"395 (a$="5"415 )a$="6"580D *a$="7"300, + 285 ,s$="computador"290" -M:"Licenciando guerreros":"Cuantos seran licenciados? ";a:a>sw300, .ksw=sw-a:775: "Estan felices de volver a casa! Pero la proxima vez que regresen sanos.":540 0 990 12s<8000@sm>9999'i11580D 2'nw<3000 sw>600X365m 3ss1375w 4cs1320@ 5 365m 6zsw<11000*d=11000*:x=d-sw:sc>x:"Reclutando ";x;" civiles":sw=11000*:sc=sc-x:785:540 7fsw<8000@sc>502:"Reclutando ";sc;" civiles":785:sw=sw+sc:sc=0:540 ;cs<1sm>5000d=(502*)+1:a1=d*100d:cs=cs+100d:sm=sm-a1::"Comprando 100 caones a $";d,"cada uno.":780 :540 @C:"Disparad el caon a vos te digo,si al que esta enfrente mio!" E-cs0'"No queda ninguno!":540 F6,0;"A donde apuntamos,"''5;"1.- a su tropa, o"''5;"2.- a su castillo?"''5;"3.- al que esta sentado?"::.5,5 Js$="computador"335O Ka$=:a$=""331K La$="2"340T Ma$="1"355c N"Era una broma":326F On1"es" Vh:d=(100d*)+1:a=nc:b=d:1000:nc=a:d=b:"y ";d;" civiles":ns<1540 Wmd=(10 *)+1:d<4"*** Le dio a la catapulta! ***":ns=ns-1:ns<1ns=0 X 540 cT"Tropa":760:v=:v<.33(''"Fallaste por un centiMETRO !!":540 dHd=(5000*)+1:a=nw:b=d:1000:nw=a:d=b:n$;" perdio ";d;" hombres!":d>3000 d=(3000 *)+1:a=sw:b=d:1000:sw=a:d=b:"Los guerreros de ";s$'"estaban demasiado cerca de las tropas de ";n$;" y"'"perdieron ";d;" hombres.":"Si los giles fueran vasos ";s$;" seria una jarra." h 540 m):"Las tropas avanzaron.":::800  rd=(4500*)+1:a=nw:b=d:1000:nw=a:d=b:n$;" perdio ";d;" hombres, y":d=(4500*)+1:a=sw:b=d:1000:sw=a:d=b:s$;" perdio ";d;" de sus","hombres en este combate.":540 w's$="computador"ss<1290" xz:"Disparen catapulta":ss<1"No teneis ninguna, Seor!": "La ultima la usamos para hacer el asado!":540 yN6,5;"1.- A su castillo, o",8,5;"2.- a su tropa?"'' |8s$="computador"nx=:x<.5"Mala punteria...sos un PERRO!!":540 }d=(11000**)+1:a=n:b=d:1000:n=a:d=b:"El castillo de ";n$,"acaba de perder ";d;" puntos!":540 kx=:x<.6"Erraste el disparo!, sos mas malo que Martinez de Hoz como economista!":540 yd=(11000**)+10 :a=nw:b=d:1000:nw=a:d=b:n$;" perdio ";d;" de sus bravos","guerreros.":540 :"Reclutando civiles": *sc0''"No queda ninguno, Seor!" W "Cuantos desea reclutar? ",a:a>sc"Solamente dispone de ";sc,"civiles!":540 Jsc=sc-a:sw=sw+a:785:'"Ya se les entregan armaduras.":540 :"Comprando caon": 780 :"Desde el pueblo se escucha una trompeta."'"Es el armero, que te hace saber la cotizacion del dia de los caones." 3x=(100d*)+1:"Cada caon cuesta $";x  "Cuantos le vas a comprar? ",a:a1=a:a1=a1*x:a1>sm"La venta es al contado, y no","dispones de suficiente efectivo."'"Sos un seco!":540 D''"Han sido agregados a tu arsenal.":sm=sm-a1:cs=cs+a:540 m5=m5+2:m512 :"Dia de pago!.(Sonaste macho)":795:'"Se estan pagando $ 2.00 por cadaguerrero."::m5=0:p=nw*2:p1=sw*2:a=nm:b=p:1000:nm=a:p=b:a=sm:b=p1:1000:sm=a:p1=b:nm0sm0450 nm0445 sm0440  535 jx=:x<.5d=(sw*)+1:sw=sw-d:d;" de los hombres de"'s$;" murieron de hambre.":535 d=(sw*)+1:sw=sw-d:nw=nw+d:d;" hombres de las tropas de"'s$;" pasaron a las de "'n$;" porque ";s$;" no los"'"podia mantener!!":"Estos si que son piolas":535 ex=:x.5d=(nw*)+1:nw=nw-d:d;" hombres de ";n$'"perecieron de hambre.":535 d=(nw*)+1:nw=nw-d:sw=sw+d:d;" de los hombres de "'n$;" cambiaron de bando"'"porque ";n$;" no podia pagar!":535 •x=:x>.5d=(nw*)+1:nw=nw-d:" ";d;" de los hombres de "'n$;" murieron de hambre"'"porque no pudieron comprar"'"comida.":455 Mn$;" no puede pagar a sus":"hombres, pero ellos son giles! y se quedan" džx=:x<.5d=(sw*)+1:sw=sw-d:"De los hombres de ";s$;","'d;" murieron porque no podian"'"comprar comida.":535 Ws$;" no tiene dinero para"'"pagarles, pero ellos son"'"giles y se quedan.":535 ::"Pulse ...";a: ј :"Lo siento, ";n$;".":770:'"Todos tus guerreros han muerto, y tu castillo fue tomado por lastropas del tirano ";s$;".":y=2:615g ր:"Lo lamento ,";s$;".":770:'"No te queda ningun guerrero, y"'n$;" se apodero de tu"'"castillo.":y=1:615g x=:x>.15~ r=r+1:r>7 ݖ:"** Llego un barco **":"Para ";s$;"":90Z:"que susto llego para ";n$;"":790:''"El padre de ";n$'"le envia:":p=(*7)+1 ?p=1x=(100d*)+1:cn=cn+x:x;c$:535 Ap=2x=(10000'*)+1:nw=nw+x:x;w$:535 /p=3ns=ns+1:"Una";d$:535 yp=4x=(20000 N*)+1:n=n+x:"Una cuadrilla de reparacion de castillos. Ahora tiene ";n;h$:535 Ep=5x=(300000u*)+1:nm=nm+x:m$;"$";x:535 Ap=6x=(10000'*)+1:nc=nc+x:x;e$:535 c5=(500*)+1:w5=(300000u*)+1:ns=ns+1:h5=(300000u*)+1:m8=(300000u*)+1:e5=(10000'*)+1:cn=cn+c5:nw=nw+w5:n=n+h5:nm=nm+m8:nc=nc+e5:c5;c$ w5;w$:" 1";d$:" Una cuadrilla de reparacion de castillos, que le devuelve ";h5;h$:" $";m8:e5;e$:x=(5*)+1:x1" y ";x;" espias!":i=i+x  535 x=:x>.15~ &s$="computador"q1300, r1=r1+1:r1>7 j:"** Barco a la vista **":790:'"El padre de ";s$;" envia:":q=q+1:p=(7*)+1 ?p=1x=(100d*)+1:cs=cs+x:x;c$:535 Ap=2x=(10000'*)+1:sw=sw+x:x;w$:535 /p=3ss=ss+1:"Una";d$:535 yp=4x=(20000 N*)+1:s=s+x:"Una cuadrilla de reparacion de castillos. Tiene ahora ";s'h$:535 : p=5x=(300000u*)+1:sm0sm=x )p=5sm=sm+x:m$;"$";x:535 Ap=6x=(10000'*)+1:sc=sc+x:x;e$:535 c5=(500*)+1:w5=(300000u*)+1:ss=ss+1:h5=(300000u*)+1:d=(300000u*)+1:e5=(10000'*)+1:cs=cs+c5:sw=sw+w5:s=s+h5:sm0sm=d  sm=sm+d:sc=sc+e5  c5;c$:w5;w$:" Una";d$:" Una cuadrilla de reparacion de castillos que le devuelve ";h5'h$:e5;e$:x=(5*)+1:x1" y ";x;" espias!":i1=i1+x  T"Pulse ...";a$::t=12080 :20,0;"Le toca a ";n$  !"Pulse ...";a$:85U !Kc$=" caones":d$=" catapulta":h$=" puntos":m$=" dinero":e$=" civiles" "w$=" guerreros": &:"Lo siento, ";n$;".":770:''"Tu castillo fue arrasado por"'s$;". Estas huyendo!. Cobarde!":y=2:615g +m:"Lo lamento, ";s$;".":770:''"Tu castillo fue demolido por"'n$;". Perdiste!":y=1:615g 04:"Infiltrando"'':765:765:765 59nm<10000'"No tienes bastante dinero!":540 :9i04,0;"Estan muertos!":540 ;0x4=(5*)+1:x4=1570:  para los mismos jugadores y rangos. Si desea"'"cambiar, escriba ""nuevo""";a$:a$="nuevo"35#  557 ''s$;" termino con un"'"rango (";er;")."''n$;", en cambio, alcanzo"'"un rango maximo, y ahora se le dio el comando sobre todo el pais!!!":"sonamos otra vez 7 aos con la marchita!":q=15:765:q:9999' ''n$;" termino con el"'"rango (";wr;")."''s$;", en cambio, excedio"'"el rango de rey, y ahora"'"se le dio el control del pais!!!"'"sonamos otra vez 7 aos con la marchita!":q=15:765:q:9999' <nw<1000n<10000'sw<10000's<10000' ?x=(1000*)+1:x500x515675 ?x=(1000*)+1:x500x515700  :7:7:7:3:0:0:7:200*:1:"Seor el pais no se hunde.":80P:''"Una lluvia torrencial causa gran"'"inundacion!":0  810*:d=(10000'*)+1:a=nw:b=d:1000:nw=a:d=b:n$;" perdio:"''d;" hombres":d=(10000'*)+1:a=n:b=d:1000:n=a:d=b:d;" puntos":d=(250*)+1:a=cn:b=d:1000:cn=a:d=b:d;" caon";:d>1"es";  \d=(1000*)+1:a=nc:b=d:1000:nc=a:d=b:d;" civil";:d>1"es";  810*:'''s$;" perdio:"'':d=(10000'*)+1:a=sw:b=d:1000:sw=a:d=b:d;" hombres":d=(10000'*)+1:a=s:b=d:1000:s=a:d=b:d;" puntos":d=(250*)+1:a=cs:b=d:1000:cs=a:d=b:d;" caon";:d>1"es";  \d=(1000*)+1:a=nc:b=d:1000:nc=a:d=b:d;" civil";:d>1"es"; 810*::1,-12 :60<:1,-12 :60<:1,-12 :60<:2,-24:"Cielos!!" '"La comida se arruino!!"'"Hay una peste!!"'':810* n$;" perdio:":d=(10000'*)+1:a=nw:b=d:1000:nw=a:d=b:d;" hombres":d=(10000'*)+1:a=n:b=d:1000:n=a:d=b:d;" puntos":d=(1000*)+1:a=nc:b=d:1000:nc=a:d=b d;" civil";:d>1"es";  '''s$;" perdio:":d=(10000'*)+1:a=sw:b=d:1000:sw=a:d=b:d;" hombres":d=(10000'*)+1:a=s:b=d:1000:s=a:d=b:d;" puntos":d=(1000*)+1:a=sc:b=d:1000:sc=a:d=b:d;" civil";:d>1"es";   540 nw0465 n0550& sw0470 s0555+   815/: y=1wr=wr+1 y=2er=er+1  y=2er=er+1:  650 0l=20-20-2:.4L,l:l: dj=k(1,255,25,2,100d)+k(0,0,10 ,4,10 ): /l=-15155:.1}L,l:l: i=12:1,0:1,2:.5,3:.5,2:1,0:i:i=12:1,3:1,5:2,7:i:a=12:.75@,7:.25,8:.5,7:.5,5:.5,3:.5,2:1,0:a:d=12:1,0:1,-5:2,0:d: .3,2:.3,11 :.3,2:.3,11 :.6,14:.3,2:.3,11 :.3,2:.3,11 :.3,14:.3,11 :  z=12:.2~L,7:.2~L,12 :.2~L,16:.6,12 :z:.2~L,7:.2~L,12 :.2~L,19:.2~L,16:.6,12 : .6,19:.6,24:.45fffg,24:.15~,24:.6,24:.6,26:.45fffg,28:.15~,26:.45fffg,24:.15~,23:.6,24:.6,19:.6,21:.45fffg,21:.15~,21:.45fffg,21:.15~,23:.45fffg,24:.15~,21:.45fffg,19:.15~,17:.45fffg,16:.15~,17:1.2,19: z=.5:z,5:z,10 :z,12 :z,13 :z*.5,12 :z*.5,10 :2*z,17:z,17:z,17:z,18:z,18:z,18:z*.5,17:z*.5,15:3*z,17:5:z,17:z,15:z,15:z,15:z*.5,13 :z*.5,12 :z,13 :z,15:z,17:z,13 :z,12 :z,12 :z,15:z*.5,13 :z*.5,12 :3*z,10 : .15~,11 :.15~,12 :.3,14:.3,16:.3,14:.3,9 :.3,11 :.3,12 :.3,11 :.3,9 :.3,11 :.6,9 :.15~,11 :.15~,12 :.3,14:.3,16:.3,14:.3,9 :.3,11 :.3,12 :.3,11 :.3,9 :.3,11 :.6,9 :.3,2:.3,7:.3,6:.3,7:.3,9 :.3,7:.3,9 :.9fffg,11 :.6,9 :.3,9 :.3,11 :.3,12 :.3,11 :.3,9 :.3,7:.3,9 :1.5@,7:  'l=12:1.1 ,17:.1}L,12 :.3,9 :.1}L,12 :l:.2~L,17:.1}L,17:.1}L,17:l=16:.2~L,17:l:.4L,21:.2~L,19:.1}L,12 :.1}L,12 :l=14:.2~L,12 :l:l=12:1.1 ,19::.1}L,16:.3,12 :.1}L,16:l:.2~L,19:.1}L,19:.1}L,19:l=16:.2~L,19:l:.4L,21:.4L,17: % 150: * 300,: / 450: 1ns1sw<11000*sc13106 $sw<800 sc13106 %cs<1sm>4999315; ?ns1sw<11000*sm>9999'i11580D 3sw<8000@sm>9999'i11580D >ns1s<11000*sm>9999'i11580D  3051 '.5,-24:2,0: a