castillo ÓŒVÕÿ êaventura en el castillo ê** inicializacion Ú0:ç0:Ù7:û >õ¬10 ,10 ;"CASTILLO";¬12 ,10 ;"ENCANTADO" kéh(12 ,6):éo(16,2):éi$(6,5):és$(16,25):ép(16,6) (êleer disposicion habitaciones 2 å9000(# <'ëi=1Ì12 :ëj=1Ì6 Fãh(i,j):ój:ói Pêleer nombres Zëi=1Ì16:ãs$(i):ói dêleer acciones nëi=1Ì6:ãi$(i):ói xêleer matriz posibles ‚5ëi=1Ì16:ëj=1Ì6:ãp(i,j):ój:ói Œêcolocar objetos –ëi=1Ì8  ñhab=º(¥*12 )+1 ªño(i,1)=hab ´ói ¾êcaja donde monstruo? È\úo(3,1)=o(5,1)Ëño(5,1)=º(¥*12 )+1:ì200È Òêgenerar y colocar conjuros Ü2ú¥>.5ÿÿÿËñm$="astrar galar":ñb$="gollem dereu" á2ú¥Ç.5ÿÿÿËñb$="astrar galar":ñm$="gollem dereu" æñobjeto=º(¥*3)+1 ð#ño(objeto+5,2)=1 úñobjeto=º(¥*3)+1 .úo(objeto+5,2)É0Ëì250ú #ño(objeto+5,2)=2 êcolocar inicio "ñsitio=1 ,ñmuerte=0 6ñtesoro=0 @ ñtm=0 Eñnumobj=0 J ì1000è èêdar descripcion òû:õ"Estoy en una habitacion" üõ"hay salidas hacia: " ëi=1Ì6 -úh(sitio,i)É0Ëõs$(i+10 ,Ì6) ói $ëi=1Ì8 .,úo(i,1)=sitioËõ"hay ";s$(i,Ì25) 8ói Ðêreconocedor de ordenes Úî"Que hago? ";a$ äña$=a$+" *" î.úa$(1)=" "Ëña$=a$(2Ì):ì2030î øñq$="":ñw$="" ëi=1̱(a$)  =úa$(i)=" "Ëñq$=a$(Ìi-1):ña$=a$(i+1Ì):ì2080  ói  .úa$(1)=" "Ëña$=a$(2Ì):ì2080  *ñw$=a$ 4êajustar a cuatro >&ú±(q$)<4Ëñq$=q$+" ":ì2110> H&ú±(w$)<4Ëñw$=w$+" ":ì2120H J"ñq$=q$(Ì4):ñw$=w$(Ì4) Rêcomprobar existencia \ëi=1Ì6 f)úi$(i,Ì4)=q$Ëñnumacc=i:ì2180„ pói zõ"no entiendo.":ì6000p „ëi=1Ì16 Ž)ús$(i,Ì4)=w$Ëñnumsuj=i:ì2220¬ ˜ói ¢õ"no entiendo.":ì6000p ¬êcomprobar instruccion logica ¶&úp(numsuj,numacc)=1Ëì2250Ê À*õ"esa orden no tiene sentido":ì6000p Êì2500Ä +500ô*numacc ¸êir en direccion Â{ú(h(sitio,numsuj-10 )=13 )Æ(o(1,1)É0)Ëõ"esta cerrado con encantamiento, no puedo.":ì6000p ÌJú(h(sitio,numsuj-10 )=0)Ëõ"no puedo, es una pared":ì6000p Ö8ñsitio=h(sitio,numsuj-10 ):ñtm=0:ì6000p ¬êhacer inventario ¶ útesoro=1Ëõ"tiene tesoro" Àëi=1Ì8 Ê3úo(i,1)=0Ëõ"tenemos: ";s$(i,Ì20) Ôói Þ ì6000p  êmirar objeto ª9úo(numsuj,1)É0Ëõ"No lo tenemos.":ì6000p ´Aúo(numsuj,2)=0Ëõ"No tiene nada especial":ì6000p ¾=úo(numsuj,2)=1Ëõ"Tiene escrito: ";b$:ì6000p È=úo(numsuj,2)=2Ëõ"Tiene escrito: ";m$:ì6000p Òâ ”êcoger ™:úo(numsuj,1)ÉsitioËõ"No lo puedo coger":ì6000p ž:únumobj=2Ëõ"No puedo llevar mas cosas.":ì6000p £ñnumobj=numobj+1 ¨ño(numsuj,1)=0 ² ì6000p ˆêdejar objeto ’Júo(numsuj,1)É0Ëõ"No lo puedo dejar, no lo tengo.":ì6000p —ñnumobj=numobj-1 œño(numsuj,1)=sitio ¦ ì6000p |êdecir conjuro †î"Que conjuro digo? ";c$ 3ú(c$Éb$)Æ(c$Ém$)Ëõ"No ha pasado nada.":ì6000p šBú(c$=m$)Æ(o(4,1)É0)Ëñmuerte=1:ì6000p ¤Wú(c$=m$)Æ(o(4,1)=0)Ëõ'"!!AY!!,me ha dado un calambrazo!":ì6000p ®eú(c$=b$)Æ(o(2,1)=0)Ëõ"Se abre el arcon con el tesoro!":ñtesoro=1:ì6000p ¸Hú(c$=b$)Æ(o(2,1)É0)Ëõ"No ha pasado nada.":ì6000p Ââ púsitioÉ13 Ëì6100Ô zõ"He salido del castillo" „0útesoro=1Ëõ"Llevo el tesoro. MUY BIEN.":â Ž2útesoro=0Ëõ"No llevo el tesoro. MUY MAL.":â ÔúmuerteÉ1Ëì62008 Þõ"!!HA MUERTO!!":â 8&úo(3,1)ÉsitioËì6300œ B*útm=1Ëõ"!!LE COMIO EL MONSTRUO!!":â L ñtm=1 œ$ëi=1Ì200È:ói:ì1000è #(êpuertas habitaciones. #2bä3,13 ,0,2,0,0,4,0,1,0,0,0 #