DDD Q=0 $LA VENGANZA DEL CASTILLO ENCANTADO  9000(#  #J$="000000"90Z ($1;N$;", tus atributos son:" 2X(J$(1 2))>0 4; 1;"MAGIA: ";J$(1 2) 0 4; 1;"FUERZA: ";J$(3 4) FX(J$(5 6))>0 4; 1;"SABIDURIA:";J$(5 6) P>MONEY>0 4; 1;"RIQUEZA: ";MONEY;" Ptas" ZJ$="000000""La aventura ha terminado","Has agotado todas tus fuerzas.","Luchaste bravanente y bien","pero no has podido aguantar la","batalla....Adios...": dPAUSA nROOM xFM=0:Z>1 >.5 7000X:23692\,-1 PAUSA ACTION PAUSA 30 ************** SUBRUTINA MONSTRUO Q=1 "Hay un furioso Guardian en la","habitacion. Tiene una magia de ";M$(1, 2 3);", su fuerza es ";M$(1, 4 5);" y su","sabiduria es ";M$(1, 6 7) Q=2 "Hay un Sopla-fuegos Temible. Su","sabiduria es ";M$(2,6 7);", mientras que","su fuerza es ";M$(2,4 5);" y su magia es ";M$(2,2 3) Q=3 "Horror! Has caido en el horri-","ble lugar del Alma-en-Pena.","Su fuerza es ";M$(3,4 5);", su magia es ";M$(3,2 3);"y su sabiduria eS ";M$(3,6 7) Q=4 "Has tropezado con algo en la","oscuridad.":PAUSA:"Se despierta y te encuentras","cara a cara con el Rompe-Rodi-","llas. Su magia es ";M$(4,2 3);", su fuerza es ";M$(4,4 5);" y su sabiduria es ";M$(4,6 7) -Q=5 "Ahora si que tienes problemas!!":PAUSA:"Has encontrado al peor enemigo","del castigo: El Hombre Lobo.","Con una fuerza de ";M$(5,4 5);", sabiduria de ";M$(5,6 7);" y una magia de ";M$(5,2 3);" , es un enemigo dificil de vencer"  PAUSA   ************* FINAL DEL JUEGO "Has caido en el pantano de","fango que rodea La Laguna Negra","bajo el castillo. Para escapar","del castilLo debias haber","luchado con el Guardian de la","Laguna Negra" c'"En la lucha deberas usar todos","tus atributos... y","vas a necesitar l0 puntos para","escapar" PAUSA 2MONEY>0 "Tienes "; MONEY;" Ptas. en oro" PAUSA "Los atributoS del Guadian:" 13;"MAGIA: ";M$(6,2 3) 23;"FUERZA: ";M$(6,4 5) 53;"SABIDURIA: ";M$(6,6 7) "Sus atributos son:" )3;"MAGIA: ";J$(1 2) *3;"FUERZA: ";J$(3 4) ".3,"SABIDURIA: ";J$ (5 6) ,PAUSA 6MONEY<100d 4270 @<'"Puedes comprar puntos de","atrlbuto a 10o Ptas cada uno" J["Si quieres comprarlos, entra la","inicial del atributo que","quieras seguido del numero" T0"de puntos. Entra 'N' si no","quieres comprar" ^1;"Atributo? ";E$ hE$="N"4270 r1;"Cantidad? ";AM |-MONEY-AM<1 AM<100d 4210r IE$="M"J$(1 5)=((J$(1 2))+(AM/100d)) IE$="F"J$(3 4)=((J$(3 4))+(AM/100d)) IE$="S"J$(5 6)=((J$(5 6))+(AM/100d)) s"MAGIA: ";J$(1 2);" FUERZA: ";J$(3 4),"SABIDURIA: ";J$(5 6);" ORO $";MONEY -MONEY=MONEY-AM:MONEY>99c 4190^ &:"Ahora el Ultimo Examen...":PAUSA Y1; 1; 2;"Aprieta ENTER cuando estes listopara luchar ",A$:PAUSA: '"Primero, Magia;" BMH=(J$(1 2) ) :MG=(M$(6,2 3)) %3;"Tu: ";MH;" Guardian; ";MG DIFF=(MH-MG) "La diferencia es ";DIFF MH>MG "a tu favor" #MG>MH "y el Guardian ha ganado" ,PAUSA:COST=(*((MH+MG)/2))+1 O'"Esta vez tienes una penaliza-","cion de ";COST;" puntos de atributo":PAUSA RESULT=(*DIFF)+1 RESHU=(RESULT-MH) &RESGA=(RESULT-MG) 0jRESHU>RESGA "Y has ganado ";COST;" puntos magicos":MH=MM+COST:J$(1 2)=(MH):4420D :y"Y has perdido ";COST;" puntos magicos":MM=MH-COST:J$(1 2)="00":MH>0 J$(1 2)=(MH) p1; 7; 2;"Pulsa ENTER cuando estes listo","para continuar este crucial","reto",A$:PAUSA: "Ahora Fuerza:" @MH=(J$(3 4)):MG=(M$(6,4 5)) %3;"Tu: ";MH;" Guardian: ";MG DIFF=(MH-MG) "La diferencia es ";DIFF MH>MG "y tu ganas" MG>MH "y el Guardian gana" ,PAUSA:COST=(*((MH+MG)/2))+1 O'"Esta vez tienes una penaliza-","cion de ";COST;" puntos de atributo":PAUSA RESULT=(+DIFF)+1 RESHU=(RESULT-MH) RESGA=(RESULT-MG) kRESHU>RESGA "Has ganado ";COST;" puntos de fuerza":MH=MH+COST:J$(3 4) =(MH):4680H z"Has perdido ";COST;" puntos de fuerza":J$=(3 4)="00":MH>0 MH=MH-COST:J$(3 4)=(MH) >RESULT=(*DIFF)+1 H1; 1; 2; 7;"Ahora el reto final.","Pulsa "; 1;"ENTER"; 0;" cuando te atrevas",A$:PAUSA: M'"Ahora Sabiduria:" R@MH=(J$(5 6)):MG=(M$(6,6 7)) \&3;"Tu: ";MH;" GUardian: ";MG fDIFF=(MH-MG) p"La diferencia es ";DIFF zMH>MG "y vas ganando" MG>MH "y el Guardian gana" "PAUSA:COST=(*(MH+MG))+1 N"Esta vez tienes una penaliza-","cion de ";COST;" puntos de atributo":PAUSA RESULT=(*DIFF)+1 RESHU=(RESULT-MH) RESGA=(RESULT-MG) oRESHU>RESGA "Y has ganado ";COST," puntos de sabiduria":MH=MH+COST:J$(5 6)=(MH):4820 ~"Y has perdido ";COST;" puntos de sabiduria":MH=MH-COST:J$(5 6)="00":MH>0 J$(5 6)=(MH) A=(J$ (1 2)) B=(J$ (3 4)) C=(J$(5 6)) PAUSA 1'"Al final de esta crucial", "batalla, tienes:" $3;"MAGIA: ";A .3,"FUERZA: ",B 83;"SABIDURIA: ";C BA+B+C>9 ' 1, 1; 7; 2; "Lo has Logrado, Oh heroe de","estos oscuros y peligrosos","tiempos. Yo te nombro "; 1; "Sir"; 0," ";N$:PAUSA: Lm"Todo ha terminado. Necesitarias","al menos 10 puntos en total","para escapar de las garras","del Guardian" VO'"Mas Luchado con valentia, pero","ahora seras comido por el","Guardian....." ` PAUSA: j************** SUBRUTINA DE ACCION )D=4:B$(Z,9 )="0"D=1 '"Que quieres hacer ahora?" Z$:Z$="Q" Z$="":Z$="#" D(D=4 z$"LU") (D=4 z$"HU") D=0:5160( Z$="LU"Z$="HU"5130  EZ$="N"B$(Z,1 2)="00""NO SE PUEDE SALIR":5010 JZ$="S"B$(Z,3 4)="00""POR AQUI NO HAY PUERTA":5010 FZ$="E"B$(Z,5 6)="00""ESTO NO ES POSIBLE":5010 SZ$="O"B$(Z,7 8)="00""NO PUEDES ATRAVESAR LAS PAREDES":5010 'Z$="N"Z=(B$(Z,1 2)): 'Z$="S"Z=(B$(Z,3 4)): 'Z$="E"Z=(B$(Z,5 6)): 'Z$="O"Z=(B$(Z,7 8)): Z$"LU"Z$"HU"  GB$(Z,9 )="0""No hay nadie para luchar contra","el":5010 Z$="HU"D=(*2) -D=1 "En que direccion?":5015 (,D=0 "No!! Debes quedarte y luchar" 2+''"Con que atributo, prefieres","luchar?" <Q=(B$(Z,9 )) F&Z$:Z$"M"Z$"F"Z$"S"5190F PEZ$="M"HUM=(J$(1 2)):MON=(M$(Q, 2 3)) ZEZ$="F"HUM=(J$(3 4)):MON=(M$(Q, 4 5)) dEZ$="S"HUM=(J$(5 6)):MON=(M$(Q, 6 7)) nDIFF=(HUM-MON) xD,, 1; 1; 1; 7;"La diferencia es ";DIFF EHUM>MON 1; 1; 3; 7;"y tienes ventaja" DHUM.5 X CONTENIDO ]ZB$(Z,9 )"0"M=1::NO TE CONCEDE 'CONTENIDO' SI HAY UN MONSTRUO PARA LUCHAR b-:7000X+100d*(*5+1) lPAUSA v (CHEST=CHEST+1:CHEST *5 @"Frente a ti hay un cofre","marcado con un gran numero ";CHEST '"Lo abriras (S o N)?"  7600  Z$="N" J=(*3) :PAUSA yJ=0 CASH=100d+(*300,):"Contiene oro del Dragon por","valor de ";CASH;" Ptas!":MONEY=MONEY+CASH :  J=1 "Ha saltado fuera un duende ,", "apunalandote!":LOSS=(*6)+1:(J$(3 4))-LOSS0 J$(3 4)=((J$(3 4))-LOSS) : J=2 "Sale un extrano humo, que te","produce sueno y te disminuye","tu poder magico":LOSS=(*6)+1:(J$(1 2))-LOSS0 J$(1 2)=((J$(1 2))-LOSS):  POTION=1 7010b *POTION=1 4#"Ves una botella pequena grabada" >!"con curiosas letras torcidas." H:"Beberas el brebaje que hay den-","tro de ella (S o N)?" R 7600 \ Z$="N" fPAUSA p>.6 "Contiene un brebaje para aumen-","tar tu sabiduria":J$(5 6)=((J$(5 6))=(*6 +1)): z"Contiene un brebaje que te de-","bilita, transmitiendote sueno":PAUSA:LOSS=(*6)+1:(J$(3 4)) .5 "No puedes entender el idioma.":PAUSA: 9"Contiene un hechizo magico.","Quieres leerlo (S o N)?" 7600:PAUSA:Z$="N" >.5 1; 1; 7; 2;"Era un hechizo beneficioso":PAUSA:J$(1 2)=((J$(1 2))+(*6+1)): 2; 7; 1; 1;" Era un hechizo perjudicial!!!",:PAUSA:(J$(3 4))>5 J$(3 4-)=((J$(3 4))-(*6+1)): SAFE=1 7010b SAFE=1 T"En la pared hay una caja dorada", "pequena y en su parte frontal","hay una llave" ""Quieres abrir la caja? (S o N)"  7600  Z$="N" >.3 7460$  QPAUSA:'"Un murcielago sale chillando","y unde sus dientes en tu","garganta!!!" PAUSA G"Luchas con el y...":PAUSA:"...finalmente le retuerces el","cuello" h(J$(3 4))>5 J$(3 4)=((J$(3 4))-(*6+1)) PAUSA:7620 $K"Se oye un coro de voces","angelicales":PAUSA:"Te sientes reconfortado" 8FJ$(3 4)=((J$(3 4))+(*6+1)) B L 7100 Z$= Z$"N"Z$"S"7600  9.5,1:.5,2:.5,-1: **************** @CONTENIDO HABITACIONES JZ=1 "Te encuentras en la entrada de","un antiguo y prohibido castillo","Estas en la fachada oeste","mirando al este la desmoronada","estructura.",,"Te das cuanta de que el","portalon de entrada esta","abierto y sin guarda" TZ=2 "Te encuentras en la sala de","entrada que esta decorada con","ricas telas. Las puertas estan","en direccion Norte y Sur":BORRE EL RESTO DE LA LINEA ORIGINAL ^oZ=3 "Esto es solamente un almacen.","Solo tiene una salida, la que","has usado para entrar, al oeste" hZ=4 "Estas en una sala pequena con","una bella escultura a la Diosa","de la Luna en un pedestal en la","esquina Nordeste. Es la Camara","Real. Las puertas estan al Sur,","Este y por la ventana se ve el","Jardin" r Z=5 "La Sala de las Conspiraciones,","una habitacion forrada en","madera, llena de rumores y","susurros, con salidas al Oeste","y al Sur, de la que llega un","olor a azufre y un ambiente","sobrenatural. La ventana de la", "pared norte permite ver el","Jardin" |Z=6 "Has entrado en la Guarida de","Brujos, con un cazo hirbiendo","en un fuego de llamas verdes en","la esquina Sudeste.","Esta sala con hedor de azufre","y el eco de viejos sortilegios","la puedes abandonar hacia el","Norte, Oeste o Este" Z=7 "Te encuentras en un lugar que","parece tranquilo y apacible.","Es la Galeria de Pintura del","castillo, con un gran cuadro","del legendario Guardian de La","Laguna Negra a la izquierda de","la puerta de la pared norte.","Las salidas son hacia el Norte","y hacia el Este" PZ=8 "Esta es una sala respandeciente","del castillo: La Gran Sala.","Con un techo ricamente labrado.","Puedes salir hacia el Sur y","hacia el Norte por unas puertas","dobles de donde procede una","extrana musica. Desde las","ventanas del Oeste se puede ver","el Jardin y las ventanas de una","sala con muchos cuadros colgados" Z=9 "La musica de un cuarteto de","cuerda llena la sala. Puedes","abandonar la sala por unas","puertas situadas al Este o por","una hacia el Sur" Z=10 "Estas ahora en el Santuario del","Silencio. Una sala fria y","humeda. Tienes una salida hacia","el Oeste y una hacia el Sur" Z=11 "Este debe ser el Vestibulo de","las Apariciones, una oscura","sala, donde la leyenda dice que","algunas noches se puede oir al","Guardian de la Laguna Negra.","Hay una puerta hacia el Norte y una al Este" :Z=12 4000 mz1 B$(Z,9 )="0"ƥ>.55 B$(Z,9 )=((*5)):BORRE PARA TENER MENOS MONSTRUOS 3B$(Z,9 )"0"Q=(B$(Z,9 )):2000  ************* #(INICIALIZACION #2 #< Z=1 #FPAUSA=9900& #PROOM=8000@ #ZACTION=5000 #dMONEY=0 #nCHEST=0 #xPOTION=0 #SCROLL=0 #SAFE=0 #B$(12 ,10 ) ##M$(6,7):J$ (6) #+23692\,-1:23658j\,8 #"Como te llamas? ";N$ #1:7:1: #/"Hola, ";N$:"Por favor espera un momento..." $h FILL ROOMS $rT=1 12 $|T$ $ B$(T)=T$ $T $3B$((10 +(*2)),3 4)="12" $DISTRIBUYE Y CREA MONSTRUOS $-M$(1,1)=((*9 )+1) $A=2 5 $M$(A,1)=((*5)) $,B$((M$(A,1)),9 )=M$(A,1) $A:B$(1,9 )="0" $CARACTERISTICAS $A=1 6 %2M$(A,2 3)=((*11 )+10 ) %2M$(A,4 5)=((*11 )+10 ) %2M$(A,6 7)=((*11 )+10 ) %&A %0CARACTERISTICAS HUMANAS %:0J$(1 2)=((*11 )+10 ) %D0J$(3 4)=((*11 )+10 ) %N0J$(5 6)=((*11 )+10 ) %X %b"0000020000" %l"0407030400" %v"0000000700" %"0002050000" %"0006000400" %"0500100900" %"0200030000" %"0911000000" %"0008060800" %"0012000600" %"0800120000" %"0000000000" &PAUSA RUTINA &/23692\,-1:>.5 9950& &-I=*10 ̥*30+10 .5 &0.03{u\,I &I & & &I=1 502 &>.73333 *7 &I & 1 ' 9930& X