;############################################################# ;############ ngPAWS - LIBRERÍA DE INICIO 4.0 ############# ;############ 23/02/2017 ############# ;############################################################# ;# # ;# ESTA LIBRERÍA BASE ES DE DOMINIO PÚBLICO # ;# Ha sido creada por Uto y Radin, y cedida # ;# de manera que podáis decidir qué licencia aplicáis a # ;# vuestra aventura sin restricciones. # ;############################################################# ;------------------------------------------------------------- ;---------------- An UnDAADed game o'hacker -------------- ;------------------------------------------------------------- ; Version : 1 ; Signature : 015Fh ; Data : Little-endian ; Objects : 9 ; Locations : 49 ; Usr Mess : 140 ; Sys Mess : 63 ; Processes : 17 ;------------------------------------------------------------- ;------------------------------------------------------------- ; Deficiones flags del sistema ;------------------------------------------------------------- #define flg fInicio2Parte 100 #define flg fElfito 101 ; 4 contigo, 3 , 2, 1 presente? #define flg fEnano 102 #define flg fLlave 103 ; 1 ya está cogido #define flg fDichoCasa 104 #define flg fLintPilas 105 ; f11 es de sistema #define flg fMoneda 106 ; f12 es de sistema #define flg fCandado 107 ; f14 es de sistema #define flg fElfitoEnCasa 108 #define flg fHayNiebla 114 #define flg fPuente 115 #define flg fSerpiente 116 #define flg f2P105 117 #define flg fOstra 118 #define flg fDragon 119 #define flg fJudias 120 #define flg fTroll 121 #define flg fOso 122 #define flg fJaula 123 #define flg fPuerta 124 #define flg fMaquina 125 #define flg fEnano2P 126 #define flg fFallasEnano2P 127 #define flg fEnano2P120 128 #define flg fTesoros 129 #define flg fPajaroVuelve 130 #define flg fPepita 131 #define flg fTesorosFaltan 150 #define flg fElfito2Phasalido 151 #define flg fEntradaAbierta 152 #define flg fLocFisuraIzda 160 #define flg fGraficosActivados 203 #define flg fGrosero 254 ; 1 controla si se usan palabrotas #define flg fConsejo 253 ;flg 255. Si ya has visto los créditos ;------------------------------------------------------------- ; Deficiones de objetos ;------------------------------------------------------------- #define obj oLinterna 0 #define obj oMoneda 1 #define obj oTortilla 2 #define obj oBotella 3 #define obj oLlave 4 #define obj oPila 5 #define obj oBotas 6 ;------------------------------------------------------------- ; Deficiones de objetos. 2ª parte ;------------------------------------------------------------- #define obj oJaula 7 #define obj oVarita 8 #define obj oBoteAceite 9 #define obj oHueso 10 #define obj oAlmohada 11 #define obj oHacha 12 #define obj oCanto 13 ; ALERTA Mayor que oCanto es tesoro #define obj oPepita 14 ; ALERTA Menor que oPepita es objeto #define obj oDiamante 15 #define obj oTitanio 16 #define obj oJoya 17 #define obj oEspecias 18 #define obj oAlfombra 19 #define obj oTridente 20 #define obj oPerla 21 #define obj oHuevo 22 #define obj oCadena 23 #define obj oPiramide 24 #define obj oEsmeralda 25 #define obj oJarron 26 #define obj oGarfio 27 ;------------------------------------------------------------- ; Deficiones de localidades ;------------------------------------------------------------- #define loc lFrontera 3 #define loc lCampo 4 #define loc lArida 5 #define loc lTapizado 6 #define loc lPaisajeAl 7 #define loc lColina 8 #define loc lPrecipicio 9 #define loc lHabGuarra 10 #define loc lPozo 11 #define loc lLava 12 #define loc lBosqueProf 16 #define loc lRamas 17 #define loc lPicnic 18 #define loc lBoscillo 19 #define loc lBosqueCer 20 #define loc lRampa 21 #define loc lRampa2 22 #define loc lEspiral 23 #define loc lValle 24 #define loc lValleProf 25 #define loc lReja 26 #define loc lCanon 28 #define loc lMuerte 29 ; ;------------------------------------------------------------- ; Deficiones de localidades. Parte 2 ;------------------------------------------------------------- #define loc lP2Hab00 124 ; 0 #define loc lP2Hab01 125 ; 1 #define loc lP2Hab02 30 ; 2 #define loc lP2Hab03 31 ; 3 #define loc lP2PasadizoBajo 32 ; 4 #define loc lP2CaminoGuijarros 33 ; 5 #define loc lP2Hab06 34 ; 6 #define loc lP2CanonCamara 35 ; 7 #define loc lP2Agujero 36 ; 8 #define loc lP2DensoVapor 37 ; 9 #define loc lP2AnchaFisura 38 ; 10 #define loc lP2PuenteMagico 39 ; 11 #define loc lP2VariasSalidas 40 ; 12 #define loc lP2Hab13 41 ; 13 #define loc lP2Hab14 42 ; 14 #define loc lP2Hab15 43 ; 15 #define loc lP2Hab16 44 ; 16 #define loc lP2Hab17 45 ; 17 #define loc lP2Hab18 46 ; 18 #define loc lP2Hab19 47 ; 19 #define loc lP2Hab20 48 ; 20 #define loc lP2Hab21 49 ; 21 #define loc lP2Hab22 50 ; 22 #define loc lP2Hab23 51 ; 23 #define loc lP2Hab24 52 ; 24 #define loc lP2Maquina 53 ; 25 #define loc lP2Hab26 54 ; 26 #define loc lP2Hab27 55 ; 27 #define loc lP2Hab28 56 ; 28 #define loc lP2Hab29 57 ; 29 #define loc lP2Hab30 58 ; 30 #define loc lP2Hab31 59 ; 31 #define loc lP2Hab32 60 ; 32 #define loc lP2Hab33 61 ; 33 #define loc lP2Hab34 62 ; 34 #define loc lP2Hab35 63 ; 35 #define loc lP2Hab36 64 ; 36 #define loc lP2Hab37 65 ; 37 #define loc lP2Trono 66 ; 38 #define loc lP2PsajeInclinado 67 ; 39 #define loc lP2SalaAcustica 68 ; 40 #define loc lP2Mirador 69 ; 41 #define loc lP2Hab42 70 ; 42 #define loc lP2Hab43 71 ; 43 #define loc lP2Hab44 72 ; 44 #define loc lP2Hab45 73 ; 45 #define loc lP2Hab46 74 ; 46 #define loc lP2Hab47 75 ; 47 #define loc lP2Hab48 76 ; 48 #define loc lP2HabMarina 77 ; 49 #define loc lP2InclCor 78 ; 50 #define loc lP2FinalCor 79 ; 51 #define loc lP2Hab52 80 ; 52 #define loc lP2HabSecreta 81 ; 53 #define loc lP2Hab54 82 ; 54 #define loc lP2GalAlta 83 ; 55 #define loc lP2LagSubte 84 ; 56 #define loc lP2Hab57 85 ; 57 #define loc lP2Hab58 86 ; 58 #define loc lP2Hab59 87 ; 59 #define loc lP2HabQues 88 ; 60 #define loc lP2Hab61 89 ; 61 #define loc lP2Hab62 90 ; 62 #define loc lP2Hab63 91 ; 63 #define loc lP2FondPozoOes 92 ; 64 #define loc lP2DepoFosoEst 93 ; 65 #define loc lP2DosFos 94 ; 66 #define loc lP2DosFosos 95 ; 67 #define loc lP2HabBlanda 96 ; 68 #define loc lP2Hab69 97 ; 69 #define loc lP2HabOlien 98 ; 70 #define loc lP2Hab71 99 ; 71 #define loc lP2Alcoba 100 ; 72 #define loc lP2HabMagica 101 ; 73 #define loc lP2AbismoSO 102 ; 74 #define loc lP2AbismoNe 103 ; 75 #define loc lP2EncimaCornisa 104 ; 76 #define loc lP2HabNegra 105 ; 77 #define loc lP2EscudoGigante 106 ; 78 #define loc lP2Hab79 107 ; 79 #define loc lP2Hab80 108 ; 80 #define loc lP2Hab81 109 ; 81 #define loc lP2Hab82 110 ; 82 #define loc lP2Hab83 111 ; 83 #define loc lP2HabParedesCal 112 ; 84 #define loc lP2Hab85 113 ; 85 #define loc lP2Hab86 114 ; 86 #define loc lP2Hab87 115 ; 87 #define loc lP2HumPasadInc 116 ; 88 #define loc lP2ApestosaJaula 117 ; 89 #define loc lP2MagnLago 118 ; 90 #define loc lP2Hab91 119 ; 91 #define loc lP2NoHasLogrado 120 ; 92 #define loc lP2Hab93 121 ; 93 #define loc lP2Hab94 122 ; 94 #define loc lP2Hab95 123 ; 95 ;------------------------------------------------------------- ; Deficiones imágenes de localidades ;------------------------------------------------------------- #define grf intro.png 1 #define pic loc00.svg 0 #define pic loc03.png 3 ; lFrontera #define pic loc04.png 4 #define pic loc05.png 5 #define pic loc06.png 6 #define pic loc07.png 7 #define pic loc08.png 8 #define pic loc09.png 9 #define pic loc10.png 10 #define pic loc11.png 11 #define pic loc12.png 12 #define pic loc13.png 13 #define pic loc14.png 14 #define pic loc15.png 15 #define pic loc16.png 16 #define pic loc17.png 17 #define pic loc18.png 18 #define pic loc19.png 19 #define pic loc20.png 20 #define pic loc21.png 21 #define pic loc22.png 22 #define pic loc23.png 23 #define pic loc24.png 24 #define pic loc25.png 25 #define pic loc26.png 26 #define pic loc26abierta.png 27 #define grf loc26sincand.png 3 #define pic loc28.png 28 ; lCanon #define pic loc29.png 29 ; lMuerte ;------------------------------------------------------------- ; Deficiones imágenes de localidades de la 2ª parte ;------------------------------------------------------------- #define grf enanomalauva.png 4 #define grf dragon.png 5 #define grf loc117osolibre.png 6 #define grf loc117vacia.png 7 #define grf pirata.png 8 #define pic loc30.png 30 #define pic loc31.png 31 #define pic loc32.png 32 #define pic loc33.png 33 #define pic loc35.png 35 #define pic loc36.png 36 #define pic loc37.png 37 #define pic loc38.png 38 #define pic loc39.png 39 #define pic loc40.png 40 ;--- Laberinto al sur del puente #define pic loc42.png 42 ;--- ;--- Laberinto al norte del puente #define pic loc48.png 48 ;--- #define pic loc66.png 66 #define pic loc67.png 67 #define pic loc68.png 68 #define pic loc69.png 69 #define pic loc77.png 77 #define pic loc78.png 78 #define pic loc79.png 79 #define pic loc81.png 81 #define pic loc82.png 82 #define pic loc83.png 83 #define pic loc84.png 84 #define pic loc88.png 88 #define pic loc92.png 92 #define pic loc93.png 93 #define pic loc94.png 94 #define pic loc96.png 96 #define pic loc98.png 98 #define pic loc100.png 100 #define pic loc101.png 101 #define pic loc102.png 102 #define pic loc103.png 103 #define pic loc104.png 104 #define pic loc105.png 105 #define pic loc106.png 106 #define pic loc112.png 112 #define pic loc116.png 116 #define pic loc117.png 117 #define pic loc118.png 118 ;------------------------------------------------------------- ; Deficiones constantes propias ;------------------------------------------------------------- #define const cMaxCosas = 4 ; Máximo de objetos que se pueden llevar -1 #define const cMaxCosas2P = 6 ; Máximo de objetos que se pueden llevar -1 (2ªparte) #define const NOTCREATED = 252 #define const PROCINICIO = 12 ;------------------------------------------------------------- ; Definiciones por defecto para atributos de objeto ;------------------------------------------------------------- #define const aLight = 0 #define const aWear = 1 #define const aContainer = 2 #define const aNPC = 3 #define const aConcealed = 4 #define const aEdible = 5 #define const aDrinkable = 6 #define const aEnterable = 7 #define const aFemale = 8 #define const aLockable = 9 #define const aLocked = 10 #define const aMale = 11 #define const aNeuter = 12 #define const aOpenable = 13 #define const aOpen = 14 #define const aPluralName = 15 #define const aTransparent = 16 #define const aScenery = 17 #define const aSupporter = 18 #define const aSwitchable = 19 #define const aOn = 20 #define const aStatic = 21 ;------------------------------------------------------------- ; Definiciones propias para atributos de objeto ;------------------------------------------------------------- #define const aFull = 22 ;------------------------------------------------------------- ; Definiciones propias para atributos de objeto. 2ª parte ;------------------------------------------------------------- #define const aPajaro = 23 #define const aTesoro = 24 /CTL /VOC ;--Movimientos, verbos y nombres < 14-- N 2 noun NORTE 2 noun S 3 noun SUR 3 noun E 4 noun ESTE 4 noun O 5 noun OESTE 5 noun NE 6 noun NORESTE 6 noun NORDESTE 6 noun NOROESTE 7 noun NO 7 noun SE 8 noun SURESTE 8 noun SUDESTE 8 noun SUROESTE 9 noun SO 9 noun ARRIBA 10 noun ABAJO 11 noun SUBIR 10 verb SUBO 10 verb ASCENDER 10 verb ASCIENDE 10 verb SUBETE 10 verb SUBE 10 verb SUBIRSE 10 verb SUBIRTE 10 verb BAJAR 11 verb BAJA 11 verb ; BAJO 11 verb DESCENDER 11 verb DESCIENDE 11 verb BAJATE 11 verb BAJARSE 11 verb BAJARTE 11 verb ENTRAR 12 verb ENTRO 12 verb ENTRA 12 verb INTRODUCET 12 verb INTERNATE 12 verb INTERNARTE 12 verb SAL 13 verb SALIR 13 verb SALGO 13 verb ;--Nombres-- <20 indica que pueden ser usados como verbos ; <50 indica que son nombres propios, no serán ; tenidos en cuenta por los pronombres. I 14 noun INVEN 14 noun INVENTARIO 14 noun ESTAS 15 noun LLORAS 15 noun ; LLORAR 15 noun ; Ya es un verbo QUE 15 noun OCURRE 15 noun PASA 15 noun QUIER 15 noun QUIERES 15 noun RABIA 15 noun SUCED 15 noun SUCEDE 15 noun SUCEDIDO 15 noun ; ----------------------------------------------------------------------------------------------------------- CERRADURA 19 noun TODO 20 noun GRAFICOS 31 noun GRAFI 31 noun TIEMP 36 noun TIEMPO 36 noun LAMPA 50 noun LAMPARA 50 noun LINTE 50 noun LINTERNA 50 noun MONEDA 51 noun MONED 51 noun TORTI 52 noun TORTILLA 52 noun BOTEL 53 noun BOTELLA 53 noun LLAVE 54 noun PILA 55 noun PILAS 55 noun BATERIAS 55 noun BATERIA 55 noun CABAÑ 56 noun CABAÑA 56 noun CASA 56 noun CASIT 56 noun CASITA 56 noun CAVER 56 noun CAVERNA 56 noun VIVES 56 noun AGUA 57 noun ARROY 57 noun ARROYO 57 noun ARROYUELO 57 noun RIO 57 noun ARBOL 58 noun BOSQU 58 noun BOSQUE 58 noun RAMA 58 noun RAMAS 58 noun AZUFR 60 noun AZUFRE 60 noun FRAGA 60 noun FRAGANCIA 60 noun PESTE 60 noun AIRE 60 noun VOLCA 62 noun VOLCAN 62 noun LAVA 63 noun MAGMA 63 noun COLIN 65 noun COLINA 65 noun CAMIN 66 noun CAMINO 66 noun RAMPA 66 noun SENDA 66 noun PRECI 67 noun PRECIPICIO 67 noun ENANO 68 noun HABIT 69 noun HABITACION 69 noun PARED 70 noun PAREDES 70 noun DESCO 71 noun DESCONCHAD 71 noun SUELO 72 noun VENTA 73 noun ESCAL 74 noun ESCALERA 74 noun CHARC 75 noun CHARCO 75 noun CHARCOS 75 noun BORDE 76 noun AGUJE 77 noun AGUJERO 77 noun TORRE 78 noun ESPIRAL 78 noun CLARO 79 noun VALLE 80 noun PICNI 81 noun PICNIC 81 noun MESA 82 noun MESAS 82 noun SILLA 83 noun LECHO 86 noun GRIETAS 87 noun GRIETA 87 noun DEPRE 88 noun DEPRESION 88 noun PUERT 89 noun PUERTA 89 noun REJA 89 noun REJAS 89 noun VERJA 89 noun VERJAS 89 noun BARRO 90 noun CANDA 90 noun CANDADO 90 noun CASCA 92 noun CASCADA 92 noun CARTE 93 noun CARTEL 93 noun LETRE 93 noun LETRERO 93 noun RAM 99 noun BOTA 101 noun BOTAS 101 noun ZAPAT 101 noun ZAPATO 101 noun ZAPATOS 101 noun ELFIT 104 noun ELFITO 104 noun ELFO 104 noun FIGUR 104 noun FIGURA 104 noun SIGUEME 106 noun SIGUE 106 noun VIENES 106 noun BRILL 107 noun BRILLO 107 noun ; Para poder hablar con el enano. Decir "Cómo te llamas" LLAMAS 109 noun NOMBR 109 noun NOMBRE 109 noun ENTRADA 110 noun ; ------------------------------------------------------- BOCA 111 noun POZO 111 noun ESTRU 114 noun ESTRUCTURA 114 noun HOLA 115 noun LUZ 116 noun MIERDA 117 noun CORTADO 118 noun ROCAS 119 noun ROCA 119 noun CANON 120 noun MALEZA 121 noun ESPINO 121 noun HUMO 122 noun FUEGO 123 noun NOTA 124 noun MENSAJE 124 noun TEXTO 124 noun ; -----------2ª parte ------------------------------------ ALFOMBRA 125 noun CATIFA 125 noun ESTERA 125 noun ALMEJA 126 noun OSTRA 126 noun ALMOHADA 127 noun COJIN 127 noun BARRA 128 noun TITANIO 128 noun BARROTE 129 noun ; ALERTA : Reja BARROTES 129 noun JAULA 129 noun DRAGON 130 noun BICHO 130 noun ACEITE 131 noun ; Botella con aceite ; En 2ª parte es **verbo** sinónimo del noun charco BROTE 132 noun TRONCO 132 noun SEMILLA 132 noun PLANTA 132 noun JUDIA 132 noun CACA 133 noun EXCREMENTOS 133 noun HECES 133 noun CADENA 134 noun CANTO 135 noun PIEDRA 135 noun ; ALERTA con roca DIAMANTE 136 noun ESMERALDA 137 noun ESPECIAS 138 noun ESPEJO 139 noun ; En el original es sinónimo de «AD» FIE 140 noun VENTANA 145 noun ; ALERTA en 2ª parte ex fugura y ventana es lo mismo: Es el espejo (pero son != noun) FISURA 146 noun ABISMO 146 noun GANCHO 147 noun GARFIO 148 noun HACHA 149 noun HUESO 150 noun HUEVO 151 noun JARRON 152 noun JOYA 153 noun MAGIA 154 noun MAGICA 154 noun MAGICO 154 noun MAQUINA 155 noun NIEBLA 156 noun VAPOR 156 noun OSO 157 noun PEPOSO 157 noun PAJARO 158 noun PEPITA 159 noun PERLA 160 noun PILAR 161 noun ; ALERTA en 2ª parte es sinónimo de pared PIRAMIDE 162 noun PLOVE 163 noun PLUGH 163 noun PUENTE 164 noun RECOLECTOR 165 noun SERPIENTE 166 noun TRIDENTE 167 noun VARITA 168 noun TROLL 169 noun ; XYZZY ; ALERTA Ya es verbo GRABADO 170 noun ESCUDO 171 noun GIGANTE 172 noun TAPIZ 173 noun TAPICES 173 noun TROFEO 174 noun TROFEOS 174 noun LAGUNA 175 noun LAGO 175 noun DEPOSITO 176 noun TRONO 177 noun CUADLOS 178 noun CUADROS 178 noun CUADLO 178 noun CUADRO 178 noun SEDAS 179 noun SEDA 179 noun GAS 180 noun GASES 180 noun CORNISA 181 noun ANIMAL 182 noun PARTIDAS 183 noun ;--Verbos-- COGER 20 verb COGE 20 verb COJO 20 verb TOMAR 20 verb TOMA 20 verb TOMO 20 verb AGARR 20 verb AGARRA 20 verb AGARRO 20 verb AGARRAR 20 verb DEJAR 21 verb DEJA 21 verb DEJO 21 verb SOLTAR 21 verb SUELTA 21 verb SUELTO 21 verb QUITAR 22 verb QUITA 22 verb QUITO 22 verb QUITATE 22 verb QUITARTE 22 verb QUITARSE 22 verb QUITASE 22 verb SACATE 22 verb SACARTE 22 verb SACARSE 22 verb SACASE 22 verb DESVISTE 22 verb DESVISTO 22 verb DESVESTIR 22 verb DESVESTIRSE 22 verb DESVESTIRTE 22 verb SENTAR 23 verb SENTARSE 23 verb SENTARTE 23 verb SIENTATE 23 verb SIENTO 23 verb M 24 verb MIRAR 24 verb MIRA 24 verb MIRO 24 verb D 24 verb DESCRIBIR 24 verb DESCRIBE 24 verb DESCRIBO 24 verb FIN 25 verb ABANDONA 25 verb ABANDONO 25 verb ABANDONDAR 25 verb RINDO 25 verb SAVE 26 verb GRABAR 26 verb GRABA 26 verb SALVAR 26 verb SALVA 26 verb GUARDAR 26 verb GUARDA 26 verb LOAD 27 verb CARGAR 27 verb CARGA 27 verb RAMSAVE 28 verb GRABARAM 28 verb RAMLOAD 29 verb CARGARAM 29 verb EXAMINAR 30 verb EXAMINA 30 verb EXAMINO 30 verb EX 30 verb INSPECCION 30 verb OBSERVAR 30 verb OBSERVA 30 verb DECIR 31 verb DIGO 31 verb DI 31 verb HABLAR 31 verb HABLA 31 verb HABLO 31 verb RESPONDER 31 verb RESPONDE 31 verb LANZAR 32 verb LANZA 32 verb LANZO 32 verb LANZARSE 32 verb LANZASE 32 verb TIRAR 32 verb TIRA 32 verb TIRO 32 verb TIRARSE 32 verb TIRASE 32 verb ARROJA 32 verb ARROJO 32 verb ARROJAR 32 verb ARROJARSE 32 verb ARROJASE 32 verb EMPUJAR 33 verb EMPUJA 33 verb EMPUJO 33 verb AYUDA 34 verb GIRAR 35 verb GIRA 35 verb GIRO 35 verb ROTA 35 verb ROTO 35 verb ROTAR 35 verb VOLTEAR 35 verb VOLTEA 35 verb MOSTRAR 36 verb MOSTRARSE 36 verb MUESTRA 36 verb MUESTRASE 36 verb ENSEÑAR 36 verb ENSEÑA 36 verb ENSEÑARSE 36 verb ENSEÑASE 36 verb ESCUCHAR 37 verb ESCUCHA 37 verb ESCUCHO 37 verb OIR 37 verb OYE 37 verb OIGO 37 verb COMER 38 verb COMO 38 verb COME 38 verb COMETE 38 verb COMERTE 38 verb COMERSE 38 verb TRAGA 38 verb TRAGAR 38 verb TRAGARTE 38 verb TRAGARSE 38 verb TRAGATE 38 verb INGIERE 38 verb INGERIR 38 verb MASTICA 38 verb MASTICAR 38 verb BEBER 39 verb BEBE 39 verb BEBO 39 verb BEBETE 39 verb BEBERSE 39 verb BEBERTE 39 verb TOCAR 40 verb TOCA 40 verb TOCO 40 verb ACARICIAR 40 verb ACARICIA 40 verb PALPA 40 verb PALPAR 40 verb SALIDAS 41 verb EXITS 41 verb X 41 verb OLER 42 verb HUELE 42 verb OLFATEAR 42 verb OLFATEA 42 verb HUSMEA 42 verb HUSMEAR 42 verb ESPERAR 43 verb ; ALERTA En la 2ª parte es sinónimo de dormir ESPERA 43 verb ESPERO 43 verb CANTAR 44 verb CANTA 44 verb SALTAR 45 verb SALTA 45 verb SALTO 45 verb SALTATE 45 verb SALTARSE 45 verb SALTARTE 45 verb BRINCAR 45 verb BRINCA 45 verb BRINCATE 45 verb BRINCARTE 45 verb BRINCARSE 45 verb ATACA 46 verb ATACAR 46 verb AGREDIR 46 verb AGREDE 46 verb MATAR 46 verb MATA 46 verb MATO 46 verb ASESINAR 46 verb ASESINA 46 verb ESTRANGULA 46 verb PATEA 46 verb PATEAR 46 verb PISOTEA 46 verb PISOTEAR 46 verb TORTURA 46 verb TORTURAR 46 verb NOQUEA 46 verb NOQUEAR 46 verb LUCHAR 46 verb ORINAR 47 verb ORINA 47 verb ORINATE 47 verb ORINARSE 47 verb ORINARTE 47 verb MEAR 47 verb MEA 47 verb MEATE 47 verb MEARSE 47 verb MEARTE 47 verb DEFECAR 47 verb DEFECA 47 verb DEFECATE 47 verb DEFECARSE 47 verb DEFECARTE 47 verb CAGAR 47 verb CAGA 47 verb CAGATE 47 verb CAGARTE 47 verb CAGARSE 47 verb ERUCTAR 47 verb ERUCTA 47 verb ERUCTATE 47 verb ERUCTARTE 47 verb ERUCTARSE 47 verb VOMITAR 47 verb VOMITA 47 verb VOMITATE 47 verb VOMITARTE 47 verb VOMITARSE 47 verb ESCUPIR 48 verb ESCUPE 48 verb AGITAR 49 verb AGITO 49 verb AGITA 49 verb MENEAR 49 verb MENEA 49 verb SACUDIR 49 verb SACUDE 49 verb SACUDO 49 verb REMOVER 49 verb REMUEVE 49 verb BALANCEA 50 verb BALANCEAR 50 verb BALANCEARTE 50 verb BALANCEARSE 50 verb BALANCEATE 50 verb COLUMPIARTE 50 verb COLUMPIARSE 50 verb COLUMPIATE 50 verb EXCAVAR 51 verb EXCAVA 51 verb CAVAR 51 verb CAVA 51 verb DESENTERRAR 51 verb DESENTIERRA 51 verb ENTERRAR 51 verb ENTIERRA 51 verb CORTAR 52 verb CORTA 52 verb RASGAR 52 verb RASGA 52 verb LEVANTATE 53 verb LEVANTARSE 53 verb LEVANTARTE 53 verb ATAR 54 verb ATA 54 verb ENLAZAR 54 verb ENLAZA 54 verb ANUDA 54 verb ANUDAR 54 verb LLENAR 55 verb LLENA 55 verb LLENO 55 verb RELLENAR 55 verb RELLENA 55 verb NADAR 56 verb NADA 56 verb TREPAR 57 verb TREPA 57 verb TREPO 57 verb ESCALAR 57 verb ESCALA 57 verb RETORCER 58 verb RETUERCE 58 verb TORCER 58 verb TUERCE 58 verb REZAR 59 verb REZA 59 verb ORAR 59 verb ORA 59 verb PENSAR 60 verb PIENSA 60 verb DORMIR 61 verb DUERME 61 verb DORMIRSE 61 verb DORMIRTE 61 verb DESCANSA 61 verb DESCANSAR 61 verb RONCAR 61 verb RONCA 61 verb ECHATE 61 verb ECHARSE 61 verb ECHARTE 61 verb BESAR 62 verb BESAME 62 verb BESA 62 verb CHUPAR 63 verb CHUPA 63 verb LAMER 63 verb LAME 63 verb PROBAR 63 verb PRUEBA 63 verb PALADEAR 63 verb PALADEA 63 verb SABOREAR 63 verb SABOREA 63 verb ABRIR 64 verb ABRE 64 verb ABRO 64 verb OPEN 64 verb CERRAR 65 verb CIERRA 65 verb CLOSE 65 verb QUEMAR 66 verb QUEMA 66 verb ENCENDER 66 verb ENCIENDO 66 verb ENCIENDE 66 verb INCENDIAR 66 verb INCENDIA 66 verb PRENDE 66 verb PRENDER 66 verb APAGAR 67 verb APAGA 67 verb APAGO 67 verb EXTINGUIR 67 verb EXTINGUE 67 verb SOFOCAR 67 verb SOFOCA 67 verb TRANSCRIP 68 verb TRANSCRIPC 68 verb TRANSCRIPT 68 verb ROMPER 69 verb ROMPE 69 verb ROMPO 69 verb PARTIR 69 verb PARTE 69 verb QUEBRAR 69 verb QUIEBRA 69 verb DESTRUYE 69 verb DESTRUIR 69 verb VERSION 70 verb PONER 71 verb PON 71 verb PONGO 71 verb PONTE 71 verb PONSE 71 verb PONERSE 71 verb PONERTE 71 verb VISTE 71 verb VISTESE 71 verb VESTIRSE 71 verb VESTIRTE 71 verb VESTIR 71 verb GOLPEAR 72 verb GOLPEA 72 verb PEGAR 72 verb PEGO 72 verb DAR 73 verb DOY 73 verb DA 73 verb DARSE 73 verb DARTE 73 verb DALE 73 verb DARLE 73 verb OFRECE 73 verb OFRECESE 73 verb OFRECER 73 verb OFRECERSE 73 verb REGALA 73 verb REGALAR 73 verb REGALARSE 73 verb REGALASE 73 verb METER 74 verb METE 74 verb INTRODUCE 74 verb INTRODUCIR 74 verb INTRODUZCO 74 verb INSERTAR 74 verb INSERTA 74 verb INSERTO 74 verb ECHA 74 verb ECHAR 74 verb SACAR 75 verb SACA 75 verb SACO 75 verb EXTRAE 75 verb EXTRAER 75 verb EXTRAIGO 75 verb LLAMA 76 verb LLAMO 76 verb LLAMAR 76 verb GRITA 77 verb GRITAR 77 verb CHILLA 77 verb CHILLAR 77 verb REGISTRA 78 verb REGISTRAR 78 verb REBUSCA 78 verb REBUSCAR 78 verb ARRANCAR 79 verb ARRANCA 79 verb ESTIRAR 79 verb ESTIRA 79 verb USAR 80 verb USA 80 verb UTILIZAR 80 verb UTILIZA 80 verb MATATE 81 verb MATARTE 81 verb MATARSE 81 verb SUICIDATE 81 verb SUICIDARTE 81 verb SUICIDARSE 81 verb XYZZY 82 verb ARRASTRAR 83 verb ARRASTRA 83 verb REGISTRATE 84 verb REGISTRARSE 84 verb REGISTRARTE 84 verb MIRATE 85 verb MIRARSE 85 verb MIRARTE 85 verb EXAMINATE 85 verb EXAMINARSE 85 verb EXAMINARTE 85 verb VACIAR 86 verb VACIA 86 verb VACIO 86 verb VERTER 86 verb VERTIR 86 verb ; Término erróneo pero ampliamente extendido VIERTE 86 verb DESPIERTA 87 verb DESPERTAR 87 verb DESPIERTATE 87 verb DESPERTARSE 87 verb DESPERTARTE 87 verb ESPABILAR 87 verb ESPABILATE 87 verb ESPABILARTE 87 verb ESPABILARSE 87 verb LAVATE 88 verb LAVARTE 88 verb LAVARSE 88 verb LIMPIATE 88 verb LIMPIARTE 88 verb LIMPIARSE 88 verb INSULTAR 89 verb INSULTA 89 verb INCREPAR 89 verb INCREPA 89 verb IR 90 verb VE 90 verb VETE 90 verb IRTE 90 verb IRSE 90 verb CAMINA 90 verb CAMINAR 90 verb ANDA 90 verb ANDAR 90 verb CORRE 90 verb CORRER 90 verb HUIR 90 verb HUYE 90 verb DIRIGETE 90 verb DIRIGIRSE 90 verb DIRIGIRTE 90 verb ESCONDER 91 verb OCULTAR 91 verb ESCONDE 91 verb OCULTA 91 verb ESCONDERSE 92 verb ESCONDERTE 92 verb OCULTARSE 92 verb OCULTARTE 92 verb ESCONDETE 92 verb OCULTATE 92 verb LLORAR 93 verb LLORA 93 verb LLORIQUEAR 93 verb LLORIQUEA 93 verb SOLLOZAR 93 verb SOLLOZA 93 verb RECORDAR 94 verb RECUERDA 94 verb ACORDARSE 94 verb ACORDARTE 94 verb ACUERDATE 94 verb SOPLA 95 verb SOPLO 95 verb SOPLAR 95 verb DOBLA 96 verb DOBLAR 96 verb DESDOBLAR 97 verb DESDOBLA 97 verb DESATAR 98 verb DESATA 98 verb UNIR 99 verb UNE 99 verb JUNTAR 99 verb JUNTA 99 verb ACERCAR 99 verb ACERCA 99 verb ARRIMAR 99 verb ARRIMA 99 verb APROXIMAR 99 verb APROXIMA 99 verb REUNE 99 verb REUNIR 99 verb SEPARA 100 verb SEPARAR 100 verb LIMPIAR 101 verb LIMPIA 101 verb FROTAR 101 verb FROTA 101 verb LAVAR 101 verb ; LAVA 101 verb Definida como sustantivo PULE 101 verb PULIR 101 verb FREGAR 101 verb FRIEGA 101 verb RASCAR 102 verb RASCA 102 verb RASPAR 102 verb RASPA 102 verb CONECTA 103 verb CONECTAR 103 verb ACTIVA 103 verb ACTIVAR 103 verb DESCONECTA 104 verb DESACTIVA 104 verb DESACTIVAR 104 verb ABRAZA 105 verb ABRAZAR 105 verb COMPRAR 106 verb COMPRA 106 verb COMPRARTE 106 verb COMPRARSE 106 verb COMPRASE 106 verb COMPRATE 106 verb ADQUIRIR 106 verb ADQUIERE 106 verb ADQUIERESE 106 verb CONSULTAR 107 verb CONSULTA 107 verb PEDIR 31 verb PIDO 31 verb PREGUNTAR 31 verb PREGUNTA 31 verb PREGUNTO 31 verb LEE 109 verb LEO 109 verb LEER 109 verb LEERSE 109 verb LEERTE 109 verb LEETE 109 verb MOVER 110 verb MUEVO 110 verb MUEVE 110 verb DESPLAZAR 110 verb DESPLAZA 110 verb APRETAR 111 verb APRIETA 111 verb APRIETO 111 verb ESTRUJAR 111 verb ESTRUJA 111 verb BAILAR 112 verb BAILA 112 verb DANZAR 112 verb DANZA 112 verb SALUDAR 113 verb SALUDA 113 verb SALUDO 113 verb LEVANTAR 114 verb LEVANTA 114 verb AD 115 verb ASOMA 116 verb ASOMAR 116 verb ASOMO 116 verb ASUST 117 verb ; ALERTA en la 2ª parte es sinónimo de ATACAR ASUSTAR 117 verb ASUSTO 117 verb BUSCA 118 verb BUSCAR 118 verb BUSCO 118 verb CABRON 119 verb CAPULLO 119 verb CULO 119 verb FOLLAR 119 verb GILIPOLLAS 119 verb IDIOTA 119 verb IMBECIL 119 verb JODE 119 verb JODER 119 verb JODES 119 verb JOPUTA 119 verb MARICA 119 verb PUTA 119 verb VENIR 120 verb VENTE 120 verb VEN 120 verb ACERCATE 120 verb ;---------------2ª parte----------------------- ;BATRA ; Las claves para comenzar la segunda parte ;WHALK ;TIMAC ;GUACH FEE 121 verb ALUMBRAR 85 verb ; COMPROBAR sinónimo de examinar. ALUMB ALUMBRO 85 verb ALUMBRA 85 verb APARTAR 122 verb APARTO 122 verb APARTA 122 verb ATRAPAR 20 verb ATRAPO 20 verb ATRAPA 20 verb CAZAR 20 verb CAZO 20 verb CAZA 20 verb COGEL 123 verb COJER 124 verb COJE 124 verb BANAR 56 verb ; ALERTA BAÑAR en 2ª parte es sinónimo de LANZAR (¿para «Lanzarse al agua»?) BANO 56 verb ; mejor sinónimo de NADAR BANATE 56 verb CRUZAR 125 verb CRUZO 125 verb CRUZA 125 verb PASAR 125 verb PASO 125 verb ;PASA 125 verb ; Ya es noun ;DESATAR 21 verb ;DESATO 21 verb ;DESATA 21 verb DESENCADEN 21 verb LEEL 109 verb LEERL 109 verb REGAR 126 verb RIEGO 126 verb RIEGA 126 verb RETIRO 25 verb USARL 80 verb USAL 80 verb ACEITAR 127 verb UNTAR 127 verb LIBERAR 128 verb LIBERA 128 verb LIBERO 128 verb ENUMERAR 129 verb ENUMERA 129 verb ;--Adjetivos-- PEQUEÑO 2 adjective PEQUEÑA 2 adjective GRANDE 3 adjective VIEJO 4 adjective VIEJA 4 adjective NUEVO 5 adjective NUEVA 5 adjective DURO 6 adjective DURA 6 adjective SUAVE 7 adjective LARGO 9 adjective LARGA 9 adjective ENCENDIDA 10 adjective ALTOS 11 adjective ; ALTOS 102 adjective RODADO 12 adjective ;--Adverbios-- RAPIDAMENT 2 adverb LENTAMENTE 3 adverb SILENCIOSA 4 adverb RUIDOSAMEN 5 adverb CUIDADOSAM 6 adverb TRANQUILAM 6 adverb ;--Preposiciones-- A 2 preposition AL 2 preposition DE 3 preposition DEL 3 preposition EN 4 preposition DENTRO 4 preposition ;DENTRO es un adverbio. DENTRO DE es una locución preposicional DESDE 5 preposition HACIA 6 preposition TRAS 7 preposition DETRAS 7 preposition ;DENTRÁS es un adverbio. DENTRÁS DE es una locución preposicional BAJO 8 preposition DEBAJO 8 preposition CON 9 preposition PARA 10 preposition POR 11 preposition EXCEPTO 12 preposition ;EXCEPTO es una conjunción FUERA 13 preposition ;FUERA es un adverbio DELANTE 14 preposition ;DELANTE es un adverbio. DELANTE DE es una locución preposicioonal ENTRE 15 preposition ENCIMA 16 preposition ;ENCIMA es un adverbio. ENCIMA DE es una locución preposional ;--Pronombres-- LO 2 pronoun LOS 2 pronoun SELO 2 pronoun SELOS 2 pronoun LA 2 pronoun LAS 2 pronoun SELA 2 pronoun SELAS 2 pronoun LE 2 pronoun LES 2 pronoun ;--Conjunciones-- Y 2 conjunction ; Y 35 conjunction ENTONCES 2 conjunction ; A efectos del sistema. ENTONCES es un adverbio /STX /0 No puedes ver nada, está muy oscuro. /1 Puedes ver: /2 ¿Qué quieres hacer ahora? /3 ¿Cuál es tu siguiente orden? /4 ¿Qué vas a hacer ahora? /5 Teclea tus órdenes /6 ¿Cómo? Por favor, prueba con otras palabras. /7 No puedes ir en esa dirección. /8 ¿Perdón? /9 Llevas: /10 (puesto/a) /11 ningún objeto. /12 ¿Seguro? /13 ¿Juegas de nuevo? /14 Adiós... /15 Perfecto. /16 Pulsa una tecla para continuar. /17 Has realizado /18 turno /19 s /20 . /21 Tu puntuación es del /22 %. /23 No llevas puesto eso. /24 No puedes, ya llevas eso puesto. /25 Ya tienes {OREF}. /26 No ves eso por aquí. /27 No puedes llevar más cosas. /28 No tienes eso. /29 Pero si ya llevas puesto {OREF}. /30 S /31 N /32 Más... /33 > /34 ;Vacío. No se usa /35 El tiempo pasa... /36 Coges {OREF}. /37 Te pones {OREF}. /38 Te quitas {OREF}. /39 Dejas {OREF}. /40 No puedes ponerte {OREF}. /41 No puedes quitarte {OREF}. /42 No puedes quitarte {OREF}. ¡Tienes demasiadas cosas en las manos! /43 Desgraciadamente {OREF} pesa demasiado. /44 Pones {OREF} en /45 Me temo que {OREF} no está en /46 , /47 y¬ /48 . /49 No tienes {OREF}. /50 No llevas puesto {OREF}. /51 . /52 Eso no está en /53 ningún objeto /54 Fichero no encontrado. /55 Fichero corrupto. /56 Error de lectura/escritura. Fichero no grabado. /57 Directorio lleno. /58 Introduce el nombre con el que grabaste la partida. /59 No se encontró ninguna partida grabada con ese nombre. Confirma que el nombre es correcto y que realizaste dicha partida en este mismo dispositivo. Escribe «PARTIDAS» para una lista de las partidas guardadas. /60 Introduce el nombre con el que grabar la partida. /61 /62 ¿Perdón? Por favor, prueba con otras palabras. /63 Aquí /64 está /65 están /66 dentro hay /67 encima hay /MTX /0 /1 ;Te arrastras como una cucaracha por todo el suelo, ;No parece que salga en ninguna parte /2 ;Vale, linterna lista. /3 ¡Qué horror, el palizas otra vez! ¡Prefiero la muerte! /4 /5 Algo que has hecho te impide completar la aventura. /6 ;Chapoteas tocando gelatinosas babosidades /7 ;pero de pronto descubres que hay ¡una moneda! /8 ¡Busca luz! /9 ¡Deja objetos como pistas! /10 ¿Qué necesita un candado? /11 Sé lógico y hazte un mapa. /12 ;¡pero de monedas nada, listillo! /13 Pone: «CUIDADO CON TUS OBJETOS». /14 ;¡No ves nada especial! /15 Está encendida. /16 Está apagada. /17 Esta antigua moneda perteneció a los Elfos. /18 ? /19 Dejaría satisfecho hasta a un oso. /20 ;Es de vidrio y está vacía. /21 Lleva la insignia del Rey Elfo. /22 Es de la marca «SEMPER LUX» (aunque no deberías creértelo). /26 No estás en clase de botánica. /27 Un bujero quecha humo y pedorreta. /28 ;¡No te pases! /29 ;La lava te reduce a cenizas. /30 Tiene una fuerte reja. /31 Baja p'abajo. /32 Sube p'arriba. /34 De hechura rústica y buena madera. Muy usada por los enanos del bosque. /35 ;... y te levantas para seguir jugando. /36 ¡Tate pa la faena! /37 ;Son ranuras estrechas por las que se cuela el agua del río. /38 Es muy fuerte. Impide la entrada. /39 ;Es la Gran Cascada del jefe de los enanos. /40 ;Flotas en forma de nube. /41 Con un gracioso saltito emprendes el vuelo. /42 Tremendo batacazo en el fondo del abismo. /43 Pareces estar un poco muerto. /47 ¡¡¡FELICIDADES!!! /48 CLAVE DE ACCESO: TIMACUS /49 CLAVE DE ACCESO: WHALKIRA /50 CLAVE DE ACCESO: BATRACCIO /51 CLAVE DE ACCESO: GUACHARO /52 ;¿No sabes leer? ¡Un enanito desaparece con lo dejado! /53 Hay una fuerte reja metálica /54 . Detrás de ella se ve una misteriosa entrada a las profundidades. /55 cerrada con un candado /56 con un candado abierto /58 Al quitarlo... ¡desaparece de tus manos! /63 Es un elfo que llora acurrucado junto a un árbol. /64 No hay suficiente luz. /65 Y desesperado Don Enano se lanza al volcán. ¡Descanse en paz! /71 El sol hace brillar algo en una rama. /72 ¡Parece una llave! /77 \1
AVENTURA ORIGINAL La búsqueda y el encuentro Dirección: Andrés Samudio Programación: Manuel González Gráficos: Carlos Marqués (c) 1989 Aventuras AD Adaptación a ngPAWS: CiberSheep Soporte y betatesting: Uto, I. Cabanillas
/96 ¡Ya no tiene solución! /98 /99 \1
******** ¡LA GRAN CAVERNA! Origen de leyendas sobre fabulosas riquezas y terribles peligros. ¿MITO O REALIDAD? Siguiendo el borroso mapa que te dio un extraño (por cierto, muy rico) a quien salvaste de las garras de unos trolls has llegado a este apacible valle. Presientes que estás muy cerca, pero de repente el viejo mapa se deshace en tus manos mientras una calida brisa te susurra: «Solo los valientes que dominen la magia merecerán mis tesoros» ¡SUERTE! ******
/100 ;No tienes nada. /101 No hay ninguna salida /102 Sur /103 Este /104 Oeste /105 Noreste /106 Noroeste /107 Sureste /108 Suroeste /109 Subir /110 Bajar /111 Entrar /112 Salir /113 Norte /114 Las salidas posibles son /116 , /117 y /118 La única salida es /1000 Salidas visibles: /1001 No hay salidas visibles. /1002 /1003 /1004 al {ACTION|norte|norte} /1005 al {ACTION|sur|sur} /1006 al {ACTION|este|este} /1007 al {ACTION|oeste|oeste} /1008 al {ACTION|noreste|noreste} /1009 al {ACTION|noroeste|noroeste} /1010 al {ACTION|sureste|sureste} /1011 al {ACTION|suroeste|suroeste} /1012 {ACTION|arriba|arriba} /1013 {ACTION|abajo|abajo} /1014 {ACTION|dentro|dentro} /1015 {ACTION|fuera|fuera} /OTX /0 ; 0 lint encendida ; 2 linterna una linterna {TEXTPIC|iconolinterna.svg|0} /1 ; 1 moneda una moneda {TEXTPIC|iconomoneda.svg|0} /2 ; 3 tortiall una tortilla {TEXTPIC|iconotortilla.svg|0} /3 ; 4 botella ; 5 botella con agua una botella {TEXTPIC|iconobotella.svg|0} /4 ; 6 llave una llave {TEXTPIC|iconollave.svg|0} /5 ; 7 pila una pila eléctrica {TEXTPIC|iconopila.svg|0} /6 ; 8 botas una pareja de botas {TEXTPIC|iconobotas.svg|0} /7 ; era /8 ;;; ; era /10 Una jaula con pájaro una jaula {TEXTPIC|iconojaula.svg|0} /8 ; era/9 una varita mágica {TEXTPIC|iconovarita.svg|0} /9 ; era /11 una botella con aceite {TEXTPIC|iconobotella.svg|0} /10 ; era /12 un hueso humano algo chamuscado {TEXTPIC|iconohueso.svg|0} /11 ; era /13 una almohada {TEXTPIC|iconoalmohada.svg|0} /12 ; era /14 un hacha {TEXTPIC|iconohacha.svg|0} /13 ; era /15 un canto rodado {TEXTPIC|iconopiedra.svg|0} /14 ; era /16 una pepita de oro {TEXTPIC|iconopepita.svg|0} /15 ; era /17 un diamante {TEXTPIC|iconodiamante.svg|0} /16 ; era /18 una barra de titanio {TEXTPIC|iconotitanio.svg|0} /17 ; era /19 una joya {TEXTPIC|iconojoya.svg|0} /18 ; era /20 unas especias indias {TEXTPIC|iconoespecias.svg|0} /19 ; era /21 una alfombra persa {TEXTPIC|iconoalfombra.svg|0} /20 ; era /22 un tridente marino {TEXTPIC|iconotridente.svg|0} /21 ; era /23 una gran perla {TEXTPIC|iconoperla.svg|0} /22 ; era /24 un huevo de oro {TEXTPIC|iconohuevo.svg|0} /23 ; era /25 una cadena de plata {TEXTPIC|iconocadena.svg|0} /24 ; era /26 una pirámide de platino {TEXTPIC|iconopiramide.svg|0} /25 ; era /27 una esmeralda {TEXTPIC|iconoesmeralda.svg|0} /26 ; era /28 un jarrón chino {TEXTPIC|iconojarron.svg|0} /27 ; era /29 un garfio de oro {TEXTPIC|iconogarfio.svg|0} /LTX /0 \1
LA AVENTURA ORIGINAL
/1 /2 /3 Estás justo en la frontera entre las tierras áridas del norte y la zona húmeda y boscosa del sur. Muy cerca hacia el este hay una cabaña de ladrillos rodeada por un frondoso bosque. Un río poco caudaloso fluye hacia el sur. /4 En campo abierto, rodeado por escasa vegetación. Un camino va hacia la cabaña abandonada y desde el este te llega una peste a azufre. /5 Esta es una zona muy árida donde solo crecen malezas espinosas. La fragancia azufrada ya empieza a molestar. /6 Estás en un terreno tapizado de lava vomitada por el activo volcán norteño. Hacia el sur hay una colinita que se eleva suavemente. /7 En este lugar el paisaje es alucinante, lleno de rocas erosionadas y partidas, mudos testigos de anteriores erupciones producidas por el furioso volcán del norte. /8 Desde la colina contemplas el fiero espectáculo de fuego, humo y cenizas producido por el volcán. Hacia el oeste, a lo lejos, y rodeada de denso bosque, se ve una casita. Una senda parte hacia el este, y al sur queda el bosque, tras el que ves una extraña torre en espiral rodeada de nubes. /9 ¡Cuidado! Estás al borde del precipicio donde antaño se suicidaban los enanos celosos. Aquí terminan (aparte de las pasiones desenfrenadas) tanto la senda del oeste como el camino del norte. /10 Estás en una habitación bastante guarra. Las paredes desconchadas y el suelo roto indican que hace tiempo fue abandonada. Ves la oscura boca de un pozo por la que baja una herrumbrosa escalera. /11 ¡Puaf! El fondo del pozo está casi seco (por suerte para ti, curiosón). Solo quedan algunos charcos malolientes de agua estancada. La estrechez de las mohosas paredes y el enorme silencio que reina hacen que tengas por única compañía el latido desbocado de tu corazón. /12 /13 /14 /15 /16 Te encuentras en lo profundo del bosque rodeado por densa vegetación y junto a un enorme árbol con desgajadas ramas que llegan al suelo. /17 Ya estás sentado entre las ramas del enorme árbol. Tienes una espléndida vista de toda la región. Al norte queda el fardón volcán. Rodeada de bosque está la casita. Hacia el oeste un profundo valle se extiende de norte a sur. En la lejanía, al sur se yergue la misteriosa espiral. Al este solo hay vacío y nubes. /18 En esta zona los enanos hacían sus pícnics (aunque las malas lenguas dicen que eran verdaderas orgías). Hay varias sillas junto a una mesa y un árbol con un curioso letrero. /19 Este es un bosquecillo muy agradable al lado este del valle. Oyes el murmullo de una corriente de agua cerca. /20 Aquí el bosque es bastante cerrado, con árboles por todas partes. /21 Estás al comienzo de una maravillosa rampa artificial fabricada en medio del bosque, no se sabe hace cuantos años ni por quién. /22 Sigues en la rampa artificial construida en medio del bosque. Frente a ti ves la base de una extraña, pero bellísima estructura. /23 La rampa te conduce hasta un majestuoso claro. Ante ti se eleva la espiral, pulida, brillante y sobre todo impresionante. Detrás, el suelo cae bruscamente. /24 Estás al comienzo del valle, al lado de un alegre arroyuelo que juguetea sobre el lecho rocoso en su camino hacia el sur. Hay bosque a ambos lados. /25 El valle se hace más estrecho y profundo. El arroyo es cada vez menos caudaloso, y ahora no tan alegre, porque poco a poco se va filtrando por las numerosas grietas del rocoso lecho. /26 /27 /28 El cañón se abre en lo que fue antes una cascada y hoy solo un precipicio rocoso. Un enorme cortado parte el paisaje de este a oeste y, desde tus quinientos metros de altura, tienes una vista maravillosa de las tierras del sur. Desde el norte llega el viento a través de la garganta rocosa. /29 /30 ; lP2Hab02 /31 ; lP2Hab03 /32 ; lP2PasadizoBajo Gateas trabajosamente sobre cantos rodados en un pasadizo muy bajo. El lugar es muy estrecho, con paredes poco trabajadas y llenas de humedad. Todo parece indicar que era una salida de emergencia. Una suave luminosidad te llega del este. /33 ; lP2CaminoGuijarros El camino de guijarros termina aquí, donde se acumulan todos los desechos arrastrados por el rio. La caverna se hace un poco más amplia y un misterioso cañon continúa hacia el oeste. Un enigmático texto grabado en la roca rompe la monotonía de la pared. /34 ; lP2Hab06 /35 ; lP2CanonCamara El cañon se abre formando una espléndida cámara llena de pétreas cascadas doradas adornadas con rojas pinceladas de ferrita. El techo está decorado con bellas estalactitas multiformes. En el centro destaca una enorme y labrada estalagmita que se eleva majestuosa. /36 ; lP2Agujero El rústico pasaje de escape hacia el este termina aquí. A tus pies se abre un agujero por el que escapan tenues retazos de tibia niebla. /37 ; lP2DensoVapor El lado este de la enorme Cámara de las Nieblas está lleno de cúmulos de denso vapor que se deslizan silenciosamente por la estancia dificultando la visión. Hay una nota en la pared y, entre la niebla, distingues una escalera de piedra que baja aún más hacia desconocidas profundidades. /38 ; lP2AnchaFisura Estás junto a una enorme y ancha fisura que parte en dos la cámara. Del abismo salen desagradables ruidos de espesos borboteos y también nace la niebla, muy espesa en esta zona. /39 ; lP2PuenteMagico Sigues junto a la impresionante fisura, pero ahora estás junto a un bellísimo puente de mágico cristal multicolor. /40 ; lP2VariasSalidas Es el lado oeste de la Cámara, aquí no hay tanta niebla y puedes ver varias salidas que se abren hacia los desconocido. /41 ; lP2Hab13 /42 ; lP2Hab14 /43 ; lP2Hab15 /44 ; lP2Hab16 /45 ; lP2Hab17 /46 ; lP2Hab18 /47 ; lP2Hab19 /48 ; lP2Hab20 /49 ; lP2Hab21 /50 ; lP2Hab22 /51 ; lP2Hab23 /52 ; lP2Hab24 /53 ; lP2Maquina Hay una máquina recargapilas con una ranura para meter monedas. /54 ; lP2Hab26 /55 ; lP2Hab27 /56 ; lP2Hab28 /57 ; lP2Hab29 /58 ; lP2Hab30 /59 ; lP2Hab31 /60 ; lP2Hab32 /61 ; lP2Hab33 /62 ; lP2Hab34 /63 ; lP2Hab35 /64 ; lP2Hab36 /65 ; lP2Hab37 /66 ; lP2Trono El Trono de los Reyes Elfos de las Montañas está en una impresionante habitación. Las paredes están decoradas con varios trofeos y bellos tapices que, aunque algo dañados, aún recuerdan un pasado esplendoroso. /67 ; lP2PsajeInclinado Esta habitación es un bajo pasaje inclinado, su dirección es norte-sur y en el rocoso suelo hay un agujero que penetra aún más en las entrañas de la caverna. /68 ; lP2SalaAcustica Estás en la Sala Acústica, donde convergen todos los sonidos de la inmensa caverna. Cuentan que los Reyes Elfos oían aquí los conciertos ofrecidos por las hadas cantoras. En el pilar central hay, tallado en la roca, un curioso mensaje. /69 ; lP2Mirador El mirador tiene una ventana que da al profundo abismo. El fondo se halla cubierto de espesa niebla y al lado opuesto se abre otra ventana hacia una habitación en penumbra, desde la cual te observa una extraña figura. Tambien hay un charco de agua. /70 ; lP2Hab42 /71 ; lP2Hab43 /72 ; lP2Hab44 /73 ; lP2Hab45 /74 ; lP2Hab46 /75 ; lP2Hab47 /76 ; lP2Hab48 /77 ; lP2HabMarina En la habitación marina se oye a lo lejos el sonido de las olas del mar y se respira un picante aire salado. Una enorme almeja está anclada firmemente al inclinado suelo. /78 ; lP2InclCor Estás en un inclinado corredor de cortantes paredes. Por el centro baja una rampa de granito. /79 ; lP2FinalCor Has llegado al final del corredor inclinado, es un fondo de saco excavado en la roca donde termina la granítica rampa. /80 ; lP2Hab52 /81 ; lP2HabSecreta Has encontrado la habitación secreta por donde los reyes Elfos desaparecían hacia sus correrías nocturnas. Hay un agujero en el suelo que te llevará aún mas profundo, hacia los fosos. Huele un poco a caca de dragón. /82 ; lP2Hab54 /83 ; lP2GalAlta Una galería muy alta y con humedad que le llega del norte. Arriba, colgando del techo hay un enorme espejo. En la pared, muy alto y frente al espejo, hay una ventana por la que se ven retazos de vapor ascendiendo. Hay un agujero en el suelo, por el cual se oyen campanitas chinas. /84 ; lP2LagSubte A esta laguna subterranea formada por el agua del rio del valle venía a beber y tomar baños el dragón cobarde. /85 ; lP2Hab57 /86 ; lP2Hab58 /87 ; lP2Hab59 /88 ; lP2HabQues Estás en la famosa habitación del Queso Suizo, viendo sus paredes perforadas por miles de polimorfos agujeritos y oliendo, muy a pesar tuyo, su fortísimo aroma. /89 ; lP2Hab61 /90 ; lP2Hab62 /91 ; lP2Hab63 /92 ; lP2FondPozoOes El fondo del Pozo Oeste queda unos cuatro metros por debajo del salón Dos Fosos. En lo alto ves el agujero. /93 ; lP2DepoFosoEst Estás al lado de un depósito de aceite en el Foso Este. /94 ; lP2DosFos La Habitación Dos Fosos es muy grande, estás en el lado oeste, cerca a uno de los fosos, y ves que la bajada es fácil debido a lo tallado de las paredes de roca. /95 ; lP2DosFosos Estás al este de la Habitación Dos Fosos, al lado de uno de los fosos. La bajada es fácil debido a lo tallado de las paredes de roca. Desde el este llega un fuerte olor. /96 ; lP2HabBlanda La habitación blanda lo es porque una gruesa alfombra cubre el suelo duro de la roca y las paredes están tapizadas por espeso moho. /97 ; lP2Hab69 /98 ; lP2HabOlien La habitación Oliental estal bellamente decolada con finas sedas y pleciosos cuadlos. En el aile oilse el dulce tañido de las campanitas de viento y hasta tu sentilte un poco chinito. /99 ; lP2Hab71 /100 ; lP2Alcoba La Alcoba, lugar de retozos de los Reyes. Hoy dia vacía y olvidada. Una misteriosa luz verde sale por un estrecho pasaje al este. /101 ; lP2HabMagica La habitación mágica no necesita luz. Su enorme poder la hace vibrar y carga el aire de eléctricas motitas de energía que dan a la escena un sobrenatural resplandor verde. En el lado norte hay una puerta hacia la oscuridad. /102 ; lP2AbismoSO Estás del lado suroeste de un abismo cruzado sólo por un destartalado y peligroso puente. De la enorme grieta brotan fétidos gases y se escucha el rugir de las entrañas del volcán. /103 ; lP2AbismoNe Este es el lado Noreste del abismo. Del este llegan ráfagas de aire caliente y se escucha el sordo retumbar del magma hirviente. /104 ; lP2EncimaCornisa Encima de una cornisa de unos diez metros de altura sobre un profundo cortado del que suben extraños vapores. En las paredes de húmeda roca que dan al abismo se encuentran, enfrentadas, dos ventanas. /105 ; lP2HabNegra Hacía años que la luz no rasgaba las espesas tinieblas de la habitación Negra. /106 ; lP2EscudoGigante El hacha y el escudo del gigante llenan casi por completo este lugar. En la pared se lee: FEE FIE FOE FOO. /107 ; lP2Hab79 /108 ; lP2Hab80 /109 ; lP2Hab81 /110 ; lP2Hab82 /111 ; lP2Hab83 /112 ; lP2HabParedesCal Esta habitación tiene las paredes calientes y combadas hacia dentro por la ardiente presión que soportan. Estamos tan cerca al corazón del furioso volcán que su latir hace temblar toda la estructura. Del techo cae un fino polvillo mezclado con cenizas y de los lados ruedan pequeñas rocas chamuscadas. /113 ; lP2Hab85 /114 ; lP2Hab86 /115 ; lP2Hab87 /116 ; lP2HumPasadInc Es un húmedo pasadizo inclinado, bastante incómodo y resbaloso que termina frente a una jaula muy fuerte, como para contener a un terrible animal. De hecho, apesta a fiera que marea. /117 ; lP2ApestosaJaula Estás dentro de una apestosa y sucia jaula en las profundidades de la caverna. Hoy dia es lo único que resta del antaño bien surtido zoológico subterraneo. /118 ; lP2MagnLago Estás en un magnífico lago interior, frente a la espumosa Gran Cascada. En el centro hay un remolino que succiona con avaricia. La luz de tu lámpara crea en el rocío bellos juegos de luz, llegando por momentos a formar un multicolor arcoiris. /119 ; lP2Hab91 /120 ; lP2NoHasLogrado Lo siento, no has logrado sobrevivir dentro de la Gran Caverna. /121 ; lP2Hab93 /122 ; lP2Hab94 /123 ; lP2Hab95 /124 ; lP2Hab00 /125 ; lP2Hab01 /CON /0 /1 /2 /3 NORTE lCampo SUR lValle ESTE lHabGuarra ENTRAR lHabGuarra /4 NORTE lCampo SUR lFrontera ESTE lArida OESTE lCampo /5 NORTE lArida ESTE lTapizado OESTE lCampo /6 NORTE lLava SUR lColina ESTE lPaisajeAl OESTE lArida /7 NORTE lLava SUR lPrecipicio OESTE lTapizado /8 NORTE lTapizado SUR 13 ESTE lPrecipicio /9 NORTE lPaisajeAl OESTE lColina SUR 0 ESTE 0 BAJAR 0 /10 OESTE lFrontera SALIR lFrontera BAJAR 0 /11 SUBIR 0 /12 SUR lPaisajeAl ESTE lLava NORTE 0 BAJAR 0 /13 SUR lBosqueProf OESTE 14 NORTE 13 ESTE 13 NORESTE 13 NOROESTE 13 SURESTE 13 SUROESTE 15 /14 ESTE 13 NORTE 14 SUR 14 OESTE 14 /15 NORTE 14 SUR lPicnic SURESTE lBosqueProf OESTE 14 ESTE 15 /16 NORTE 15 SUBIR 17 ESTE 14 OESTE 14 SUR 14 /17 BAJAR lBosqueProf NORTE 0 SUR 0 ESTE 0 OESTE 0 /18 NOROESTE lFrontera ESTE lBoscillo OESTE lValle /19 SUR lBosqueCer OESTE lPicnic /20 NORTE lBoscillo SUR lRampa OESTE lBosqueCer /21 NORTE lBosqueCer SUR lRampa2 /22 NORTE lRampa SUR lEspiral /23 NORTE lRampa2 SUR 0 /24 NORTE lFrontera SUR lValleProf ESTE lPicnic OESTE lBosqueCer /25 NORTE lValle SUR lReja ESTE 14 OESTE 13 /26 NORTE lValleProf OESTE lBosqueCer ESTE lBosqueCer SUR lCanon ENTRAR 0 /27 /28 NORTE lReja OESTE lBosqueCer ESTE lBosqueCer /29 /30 /31 OESTE lP2PasadizoBajo SALIR lP2Hab03 /32 ESTE lP2Hab03 OESTE lP2CaminoGuijarros /33 ESTE lP2PasadizoBajo OESTE lP2CanonCamara /34 /35 ESTE lP2CaminoGuijarros OESTE lP2Agujero /36 ESTE lP2CanonCamara BAJAR lP2DensoVapor /37 OESTE lP2PuenteMagico SUBIR lP2Agujero BAJAR lP2Trono /38 OESTE lP2VariasSalidas ESTE lP2DensoVapor /39 OESTE lP2VariasSalidas ESTE lP2DensoVapor /40 ESTE lP2PuenteMagico SUR lP2Hab14 NORTE lP2Hab20 /41 /42 NORTE lP2VariasSalidas SUR lP2Hab14 ESTE lP2Hab14 OESTE lP2Hab14 NORESTE lP2VariasSalidas NOROESTE lP2VariasSalidas SURESTE lP2VariasSalidas SUROESTE lP2VariasSalidas SUBIR lP2Hab15 BAJAR lP2Hab14 /43 NORTE lP2Hab15 SUR lP2Hab15 ESTE lP2Hab14 OESTE lP2Hab15 NORESTE lP2Hab54 NOROESTE lP2Hab14 SURESTE lP2Hab14 SUROESTE lP2Hab16 SUBIR lP2Hab14 BAJAR lP2Hab14 /44 NORTE lP2Hab16 SUR lP2Hab16 ESTE lP2Hab16 OESTE lP2Hab17 NORESTE lP2Hab14 NOROESTE lP2Hab16 SURESTE lP2Hab15 SUROESTE lP2Hab15 SUBIR lP2Hab15 BAJAR lP2CanonCamara /45 NORTE lP2Hab16 SUR lP2Hab16 ESTE lP2Hab17 OESTE lP2Hab16 NORESTE lP2Hab17 NOROESTE lP2Hab17 SURESTE lP2Hab17 SUROESTE lP2Hab17 SUBIR lP2Hab15 BAJAR lP2Hab18 /46 NORTE lP2Hab17 SUR lP2Hab17 ESTE lP2Hab16 OESTE lP2Hab18 NORESTE lP2Hab19 NOROESTE lP2Hab16 SURESTE lP2Hab17 SUROESTE lP2Hab16 SUBIR lP2Hab18 BAJAR lP2Hab18 /47 NORTE lP2Hab18 SUR lP2Hab19 ESTE lP2Hab16 OESTE lP2Hab17 NORESTE lP2Hab18 NOROESTE lP2Hab18 SURESTE lP2Hab16 SUROESTE lP2Hab18 SUBIR lP2Hab17 BAJAR lP2Hab19 /48 NORTE lP2Hab21 SUR lP2VariasSalidas ESTE lP2Hab20 OESTE lP2Hab20 SUBIR lP2Hab20 BAJAR lP2Hab20 /49 NORTE lP2Hab21 SUR lP2Hab22 ESTE lP2Hab21 OESTE lP2Hab21 SUBIR lP2Hab21 BAJAR lP2Hab20 /50 NORTE lP2Hab21 SUR lP2Hab22 ESTE lP2Hab23 OESTE lP2Hab22 SUBIR lP2Hab22 BAJAR lP2Hab22 /51 NORTE lP2Hab23 SUR lP2Hab23 ESTE lP2Hab22 OESTE lP2Hab24 SUBIR lP2Hab23 BAJAR lP2Hab23 /52 NORTE lP2Hab24 SUR lP2Hab23 ESTE lP2Hab24 OESTE lP2Hab24 SUBIR lP2Hab24 BAJAR lP2Maquina /53 NORTE lP2Maquina SUR lP2Maquina ESTE lP2Maquina OESTE lP2Maquina SUBIR lP2Hab24 BAJAR lP2Maquina /54 /55 /56 /57 /58 /59 /60 /61 /62 /63 /64 /65 /66 SUBIR lP2DensoVapor SUROESTE lP2HabSecreta NORTE 0 /67 SUR lP2Trono NORTE lP2SalaAcustica BAJAR lP2HabQues /68 SUR lP2PsajeInclinado OESTE lP2Mirador /69 ESTE lP2SalaAcustica /70 /71 /72 /73 /74 /75 /76 /77 SUR lP2HabQues BAJAR lP2InclCor /78 SUBIR lP2HabMarina BAJAR lP2FinalCor /79 SUBIR lP2InclCor /80 /81 OESTE lP2Hab54 NORESTE lP2Trono BAJAR lP2DosFos /82 ESTE lP2HabSecreta NORTE 0 /83 SUR lP2Hab54 NORTE lP2LagSubte BAJAR lP2HabOlien /84 SUR lP2GalAlta /85 /86 /87 /88 NOROESTE lP2HabOlien ESTE lP2HabBlanda OESTE lP2DosFosos SUR lP2Hab16 NORTE lP2HabMarina SUBIR lP2PsajeInclinado /89 /90 /91 /92 SUBIR lP2DosFos /93 SUBIR lP2DosFosos /94 BAJAR lP2FondPozoOes ESTE lP2DosFosos SUBIR lP2HabSecreta /95 BAJAR lP2DepoFosoEst ESTE lP2HabQues OESTE lP2DosFos /96 OESTE lP2HabQues /97 /98 NORESTE lP2Alcoba SURESTE lP2HabQues SUROESTE lP2EncimaCornisa SUBIR lP2GalAlta /99 /100 SUROESTE lP2HabOlien ESTE 0 /101 NORTE lP2HabNegra ENTRO lP2HabNegra OESTE 0 /102 SUR lP2EncimaCornisa NORESTE 0 NORTE 0 /103 ESTE lP2HabParedesCal SUR 0 SUROESTE 0 /104 NORTE lP2AbismoSO SUR lP2HabOlien /105 SUR lP2HabMagica SALIR lP2HabMagica /106 BAJAR lP2FondPozoOes ENTRAR 0 /107 /108 /109 /110 /111 /112 BAJAR lP2HumPasadInc OESTE lP2AbismoNe /113 /114 /115 /116 SUBIR lP2HabParedesCal ENTRO 0 /117 ESTE lP2HumPasadInc SALIR lP2HumPasadInc /118 BAJAR lP2EncimaCornisa /119 /120 /121 /122 /123 /124 /125 /OBJ ;obj loc peso nombre adj. atributo ;----------------------------------------------------------------------------------------------- /0 NOTCREATED 1 LINTERNA _ ATTR aFemale aSwitchable aContainer ;lLava /1 NOTCREATED 1 MONEDA _ ATTR aFemale ;lPozo /2 NOTCREATED 1 TORTILLA _ ATTR aFemale aEdible ;lPicnic /3 lCanon 1 BOTELLA _ ATTR aFemale aFull /4 NOTCREATED 1 LLAVE _ ATTR aFemale ;lRamas /5 lColina 1 PILAS _ ATTR aFemale /6 lEspiral 1 ZAPATOS _ ATTR aFemale aWear ;pareja de botas /7 lP2PasadizoBajo 1 JAULA _ ATTR aFemale /8 lP2CaminoGuijarros 1 VARITA _ ATTR aFemale /9 NOTCREATED 1 BOTELLA _ ATTR aFemale /10 lP2Hab54 1 HUESO _ ATTR aMale /11 lP2HabBlanda 1 ALMOHADA _ ATTR aFemale /12 NOTCREATED 1 HACHA _ ATTR aMale /13 lP2PasadizoBajo 1 PIEDRA _ ATTR aMale ; Masculino El canto Rodado /14 NOTCREATED 1 PEPITA _ ATTR aFemale /15 lP2PuenteMagico 1 DIAMANTE _ ATTR aTesoro /16 lP2PsajeInclinado 1 TITANIO _ ATTR aTesoro /17 NOTCREATED 1 JOYA _ ATTR aFemale aTesoro /18 lP2FondPozoOes 1 ESPECIAS _ ATTR aTesoro /19 NOTCREATED 1 ALFOMBRA _ ATTR aFemale aTesoro /20 lP2MagnLago 1 TRIDENTE _ ATTR aTesoro /21 NOTCREATED 1 PERLA _ ATTR aFemale aTesoro /22 NOTCREATED 1 HUEVO _ ATTR aTesoro ;lP2EscudoGigante /23 NOTCREATED 1 CADENA _ ATTR aFemale aTesoro /24 lP2HabNegra 1 PIRAMIDE _ ATTR aFemale aTesoro /25 lP2Alcoba 1 ESMERALDA _ ATTR aFemale aTesoro /26 lP2HabOlien 1 JARRON _ ATTR aTesoro /27 lP2Hab19 1 GARFIO _ ATTR aTesoro ; Importante: Recuerda que si creas un objeto contenedor o soporte, debes dejar sin usar la localidad de igual número /PRO 0 ; ################################## ACCIONES MÚLTIPLES #################################### ; # # ; # Estas entradas usan un bucle «DOALL» y actúan sobre todos los objetos que encuentran, # ; # por tanto deben estar aquí delante (antes de las respuestas del programador) ya que # ; # en caso contrario no las tendría en cuenta. # ; # # ; ########################################################################################## _ _ HOOK "RESPONSE_START" ; «Back call» a el sistema de hooks. Por defecto no hace nada pero algunas librerías plugin podrían necesitarlo. No borrar. ; COGER TODO DE --> SACAR TODO DE COGER TODO PREP DE SYNONYM SACAR _ PONER TODO PREP EN SYNONYM METER _ COGER TODO ISNOTLIGHT ; no hay luz WRITELN "No ves nada." DONE COGER TODO OBJAT @38 13 ZERO 13 ; no hay ningún objeto en la localidad WRITELN "No hay nada por aquí." DONE COGER TODO DOALL HERE DEJAR TODO OBJAT 254 13 ZERO 13 ; no llevas nada en el inventario WRITELN "No llevas nada." DONE DEJAR TODO AT lPicnic PROCESS 13 WRITELN "¿No sabes leer? ¡Un enanito desaparece con lo dejado!" DONE DEJAR TODO DOALL CARRIED ; ** Convertir VACIAR xxxx, en SACAR TODO DE xxxx VACIAR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer COPYFF 34 44 COPYFF 35 45 SYNONYM SACAR TODO LET 43 &&_voc_DE ; Copiamos en el Flag 13 el número de objeto referenciado por noun2 (o 255 si no lo hay) SACAR _ WHATOX2 13 SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor ABSENT @13 WRITELN "No ves eso por aquí." DONE SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es una superficie ABSENT @13 WRITELN "No ves eso por aquí." DONE SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor PRESENT @13 OBJAT @13 14 ZERO 14 WRITELN "No hay nada ahí." DONE SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es una superficie PRESENT @13 OBJAT @13 14 ZERO 14 WRITELN "No hay nada ahí." DONE SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor PRESENT @13 DOALL @13 SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es una superficie PRESENT @13 DOALL @13 ; ** Convertir «ESCONDER ALGO EN ALGO» en «METER ALGO EN ALGO» ESCONDER _ NOTEQ 51 255 PRESENT @51 PREP EN WHATOX2 13 NOTEQ 13 255 ; Es un objeto PRESENT @13 SYNONYM METER _ LET 43 &&_voc_DENTRO ; ** Convertir «PONER ALGO EN...» en «METER ALGO EN...» PONER _ NOTEQ 51 255 PRESENT @51 PREP EN SYNONYM METER _ ; Copiamos en el Flag 13 el número de objeto referenciado por noun2 (o 255 si no lo hay) METER _ WHATOX2 13 METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor ABSENT @13 WRITELN "No ves eso por aquí." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es una superficie ABSENT @13 WRITELN "No ves eso por aquí." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor CARRIED @13 OBJAT 254 14 EQ 14 1 ; No llevas nada en el inventario (solo llevas el contenedor) WRITELN "No llevas nada." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es una superficie, poner todo CARRIED @13 OBJAT 254 14 EQ 14 1 ; No llevas nada en el inventario (solo llevas el contenedor) WRITELN "No llevas nada." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor ISAT @13 @38 OBJAT 254 14 ZERO 14 ; No llevas nada en el inventario WRITELN "No llevas nada." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es una superficie ISAT @13 @38 OBJAT 254 14 ZERO 14 ; No llevas nada en el inventario WRITELN "No llevas nada" DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor PRESENT @13 DOALL CARRIED METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es un superficie PONER TODO PRESENT @13 DOALL CARRIED QUITAR TODO OBJAT 253 13 ZERO 13 ; No llevas ningún objeto «puesto» WRITELN "No llevas nada puesto." DONE QUITAR TODO DOALL WORN PONER TODO OBJAT 254 13 ZERO 13 ; No llevas nada en el inventario WRITELN "No llevas nada para ponerte." DONE PONER TODO DOALL CARRIED TIRAR TODO OBJAT 254 13 ZERO 13 ; No llevas nada en el inventario WRITELN "No llevas nada." DONE TIRAR TODO EQ 1 1 ; Si solo llevas una cosa, la lanza DOALL CARRIED TIRAR TODO GT 1 1 ; Llevas más de un objeto y no puedes lanzarlos a la vez WRITELN "¡No puedes tirarlo todo a la vez!" DONE _ TODO WRITELN "Por favor, intenta especificar un poco más." DONE ; ################################### FRASES SINÓNIMAS #################################### ; # # ; # Estas entradas se convierten en otras distintas porque a veces, según lo que # ; # hayamos escrito, querremos realizar diferentes acciones para un mismo verbo. # ; # Deben ir aquí, al principio, antes de las acciones modificadas por el programador. # ; # # ; # Ejemplos comunes de frases sinónimas son: # ; # # ; # - NADAR como sinónimo de CAMINAR/IR, en localidades «acuáticas». # ; # - ENCENDER TELEVISOR usado en el sentido de CONECTAR TELEVISOR. # ; # - APAGAR LUZ usado en el sentido de DESCONECTAR. # ; # # ; # Por defecto, en la librería base, ENCENDER se usa en sentido de INCENDIAR, # ; # y APAGAR como SOFOCAR/EXTINGUIR. # ; # # ; ######################################################################################### ENCENDER _ SYNONYM CONECTAR _ APAGAR _ SYNONYM DESCONECTAR _ IR _ LT 34 14 COPYFF 34 33 _ _ PREP DENTRO EQ 33 255 EQ 34 255 SYNONYM ENTRAR _ LET 43 255 _ _ PREP FUERA EQ 33 255 EQ 34 255 SYNONYM SALIR _ LET 43 255 ; ** Convertir «MIRAR DENTRO» en «EXAMINAR DENTRO» MIRAR _ NOTEQ 34 255 PREP DENTRO SYNONYM EXAMINAR _ ; ** Convertir «MIRAR ALGO» en «EXAMINAR ALGO» MIRAR _ NOTEQ 34 255 SYNONYM EXAMINAR _ MIRAR _ BNOTZERO 12 1 SYNONYM EXAMINAR _ ; ** Convertir «REGISTRAR» en «EXAMINAR DENTRO» REGISTRAR _ SYNONYM EXAMINAR _ LET 43 &&_voc_DENTRO ; ** Convertir «ARRANCAR» en «TIRAR DE» ARRANCAR _ SYNONYM TIRAR _ LET 43 &&_voc_DE ; ** Convertir «X ALGO» en «EXAMINAR ALGO» X _ EQ 34 255 BNOTZERO 12 1 SYNONYM EXAMINAR _ X _ NOTEQ 34 255 SYNONYM EXAMINAR _ ; ** Convertir «CONSULTAR A ALGUIEN» en «PREGUNTAR A ALGUIEN» CONSULTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC SYNONYM PREGUNTAR _ ; ** Convertir «HACER ALGO CON OBJETO2 A OBJETO1» en «HACER ALGO A OBJETO1 CON OBJETO2» _ _ PREP CON BZERO 12 2 ; La prep estaba antes del primer nombre NOTEQ 34 255 WHATOX 16 NOTEQ 16 255 ; El primer nombre de la SL es un objeto NOTEQ 44 255 ; Hay segundo nombre WHATOX2 15 NOTEQ 15 255 ; El segundo nombre es de un objeto COPYFF 34 14 COPYFF 44 34 COPYFF 14 44 ; Les damos la vuelta COPYFF 35 14 COPYFF 45 35 COPYFF 14 45 ; Les damos la vuelta a los adjetivos WHATO ; Forzamos la actualización de flags 54-58 ; ** Convertir «HACER ALGO A OBJETO2 CON OBJETO1» en «HACER ALGO CON OBJETO1 A OBJETO2» _ _ PREP A BZERO 12 2 ; La prep estaba antes del primer nombre NOTEQ 34 255 WHATOX 16 NOTEQ 16 255 ; El primer nombre de la SL es un objeto NOTEQ 44 255 ; Hay segundo nombre WHATOX2 15 NOTEQ 15 255 ; El segundo nombre es de un objeto COPYFF 34 14 COPYFF 44 34 COPYFF 14 44 ; Les damos la vuelta COPYFF 35 14 COPYFF 45 35 COPYFF 14 45 ; Les damos la vuelta a los adjetivos WHATO ; Forzamos la actualización de flags 54-58 ; ** Convertir «HACER ALGO EN OBJETO2(CONTENEDOR) OBJETO1» en «HACER ALGO OBJETO1 EN OBJETO2(CONTENEDOR)» _ _ PREP EN BZERO 12 2 ; La prep estaba antes del primer nombre NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ; El primer objeto es un contenedor presente NOTEQ 44 255 ; Hay segundo nombre WHATOX2 15 NOTEQ 15 255 ; El segundo nombre es de un objeto COPYFF 34 14 COPYFF 44 34 COPYFF 14 44 ; Les damos la vuelta COPYFF 35 14 COPYFF 45 35 COPYFF 14 45 ; Les damos la vuelta a los adjetivos WHATO ; Forzamos la actualización de flags 54-58 ; ** Convertir «HACER ALGO DE OBJETO2(CONTENEDOR) OBJETO1» en «HACER ALGO OBJETO1 DE OBJETO2(CONTENEDOR)» _ _ PREP DE BZERO 12 2 ; La prep estaba antes del primer nombre NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ; El primer objeto es un contenedor presente NOTEQ 44 255 ; Hay segundo nombre WHATOX2 15 NOTEQ 15 255 ; El segundo nombre es de un objeto COPYFF 34 14 COPYFF 44 34 COPYFF 14 44 ; Les damos la vuelta COPYFF 35 14 COPYFF 45 35 COPYFF 14 45 ; Les damos la vuelta a los adjetivos WHATO ; Forzamos la actualización de flags 54-58 ; ** Convertir «COGER DE» en «SACAR DE» COGER _ PREP DE SYNONYM SACAR _ _ _ HOOK "RESPONSE_USER" ; «Back call» a el sistema de hooks. Por defecto no hace nada pero algunas librerías plugin podrían necesitarlo. No borrar. ; ####################### RESPUESTAS MODIFICADAS POR EL PROGRAMADOR ####################### ; # # ; # Aquí puedes añadir tus propias respuestas. Se colocan en este punto porque así # ; # están por detras de las frases sinónimas y antes de las respuestas por defecto. # ; # # ; ######################################################################################### ; ********************* [[[ Coloca aquí tus propias respuestas ]]] ********************* AD _ ;MESSAGE 139 WRITELN "También participaron: Eva Samitier, Juan Darder, Juanjo Muñoz y Tim Gilberts (some bugs)." DONE SUR _ AT lCanon PROCESS 7 DONE SUR _ AT lPrecipicio PROCESS 7 DONE SUR _ AT lRamas PROCESS 8 DONE SUR _ AT lEspiral PROCESS 7 DONE ESTE _ AT lPrecipicio PROCESS 7 DONE ESTE _ AT lRamas PROCESS 8 DONE OESTE _ AT lRamas PROCESS 8 DONE SUBIR _ AT lPozo GOTO lHabGuarra CLEAR 0 ; No está oscuro DESC BAJAR _ AT lHabGuarra CARRIED oLinterna ONOTZERO oLinterna aOn CLEAR 0 GOTO lPozo DESC BAJAR _ AT lHabGuarra GOTO lPozo SET 0 ; Está oscuro DESC BAJAR _ AT lLava PROCESS 6 DONE BAJAR _ AT lCanon PROCESS 7 DONE BAJAR _ AT lPrecipicio PROCESS 7 DONE ENTRAR _ AT lReja ZERO fCandado ;MES 53 WRITE " Hay una fuerte reja metálica" ;MES 55 WRITE " cerrada con un candado" WRITELN "." DONE ENTRAR _ AT lReja EQ fCandado 1 ;MES 53 WRITE " Hay una fuerte reja metálica" ;MES 56 WRITE " con un candado abierto" WRITELN "." DONE ENTRAR _ AT lReja EQ fCandado 2 ;MES 53 WRITE " Hay una fuerte reja metálica" WRITELN "." DONE ENTRAR _ AT lReja EQ 1 5 ; flag 1 Objetos llevados NOTZERO fLintPilas GOTO 30 DESC ENTRAR _ AT lReja ;MESSAGE 73 WRITELN "Para entrar y sobrevivir en las profundidades necesitas más cosas." DONE NORTE _ AT lLava PROCESS 6 DONE NORTE _ AT lRamas PROCESS 8 DONE ;-----------2ª parte---------------- SUR _ AT lP2AbismoNe LET 33 _voc_CRUZAR SUR _ AT lP2HabNegra CLEAR 0 GOTO lP2HabMagica DESC ESTE _ AT lP2Alcoba EQ 1 1 CARRIED oPiramide CLEAR 0 GOTO lP2HabMagica DESC ESTE _ AT lP2Alcoba ZERO 1 CLEAR 0 GOTO lP2HabMagica DESC ESTE _ AT lP2Alcoba WRITELN "¡Algo te impide pasar!" DONE ESTE _ AT lP2PasadizoBajo CLEAR 0 GOTO lP2Hab03 DESC OESTE _ AT lP2DensoVapor PRESENT oPepita NOTCARR oPepita DESTROY oPepita CLEAR fPepita CLEAR fHayNiebla OESTE _ AT lP2DensoVapor ZERO fPuente CLEAR fLocFisuraIzda GOTO lP2AnchaFisura DESC OESTE _ AT lP2AnchaFisura ZERO fLocFisuraIzda PROCESS 22 ; Era Process 9 DONE ESTE _ AT lP2AnchaFisura NOTZERO fLocFisuraIzda PROCESS 22 ; Era Process 9 DONE ESTE _ AT lP2VariasSalidas ZERO fPuente SET fLocFisuraIzda GOTO lP2AnchaFisura DESC SALIR _ AT lP2Hab03 NOTZERO fEntradaAbierta ; Flag 152 ¿de triunfo? CLEAR fElfito2Phasalido ;WINDOW 7 CLS ;WINDOW 5 ;PRINTAT 4 0 WRITELN "\1
¡Bien hecho!
" WRITELN "\1
Todos los habitantes del valle han venido a admirar al nuevo: MAESTRO AVENTURERO
" WRITELN "\1
A tus pies aparecen todos los tesoros conquistados.
" WRITELN "\1
El equipo A.D. te invita a participar en su próxima aventura.
" WRITELN "\1
{RESTART|¿Juegas de nuevo?}
" COMMAND 0 TIME 0 0 DONE SALIR _ AT lP2Hab03 WRITELN "¡Algo te impide pasar!" DONE SALIR _ AT lP2HabNegra CLEAR 0 GOTO lP2HabMagica DESC OESTE _ AT lP2HabMagica EQ 1 1 CARRIED oPiramide GOTO lP2Alcoba PROCESS 26 DESC OESTE _ AT lP2HabMagica ZERO 1 GOTO lP2Alcoba PROCESS 26 DESC OESTE _ AT lP2HabMagica WRITELN "¡Algo te impide pasar!" DONE OESTE _ AT lP2Hab03 CARRIED oLinterna OZERO oLinterna aOn SET 0 OESTE _ AT lP2Hab03 NOTCARR oLinterna SET 0 OESTE _ AT lP2Hab03 GOTO lP2PasadizoBajo DESC NORESTE _ AT lP2AbismoSO LET 33 _voc_CRUZAR LET 34 _voc_PUENTE SUROESTE _ AT lP2Trono GT fSerpiente 8 GOTO lP2HabSecreta DESC SUROESTE _ AT lP2Trono WRITELN "El reptil te marca sus colmillos en el cuello, y se marcha." LET fSerpiente 9 DONE SUROESTE _ AT lP2AbismoNe LET 33 _voc_CRUZAR LET 34 _voc_PUENTE SUBIR _ AT lP2DensoVapor PRESENT oPepita NOTCARR oPepita DESTROY oPepita CLEAR fPepita CLEAR fHayNiebla NOTDONE BAJAR _ AT lP2DensoVapor PRESENT oPepita NOTCARR oPepita DESTROY oPepita CLEAR fPepita CLEAR fHayNiebla NOTDONE TREPAR TRONCO AT lP2FondPozoOes GT fJudias 1 GOTO lP2EscudoGigante DESC TREPAR TRONCO AT lP2FondPozoOes WRITELN "¡Hala! con tus patazas has roto la tierna plantita." CLEAR fJudias DONE ENTRAR _ AT lP2HabMagica SET 0 GOTO lP2HabNegra DESC ENTRAR _ AT lP2EscudoGigante EQ fPuerta 255 GOTO lP2MagnLago DESC ENTRAR _ AT lP2EscudoGigante EQ fPuerta 1 WRITELN "La puerta está cerrada." DONE ENTRAR _ AT lP2EscudoGigante WRITELN "Uff. Empujas la puerta pero no cede." DONE ENTRAR _ AT lP2HumPasadInc NOTZERO fJaula GOTO lP2ApestosaJaula DESC ENTRAR _ AT lP2HumPasadInc WRITELN "No puedes entrar. La jaula está cerrada." DONE NORTE _ AT lP2Trono GT fSerpiente 8 GOTO lP2PsajeInclinado DESC NORTE _ AT lP2Trono WRITELN "El reptil te marca sus colmillos en el cuello, y se marcha." LET fSerpiente 9 DONE NORTE _ AT lP2Hab54 EQ fDragon 255 GOTO lP2GalAlta DESC NORTE _ AT lP2Hab54 WRITELN "¡Algo te impide pasar!" DONE NORTE _ AT lP2HabMagica GOTO lP2HabNegra PROCESS 26 DESC NORTE _ AT lP2AbismoSO LET 33 _voc_CRUZAR LET 34 _voc_PUENTE ;-----------_____------------- OIR _ AT lBoscillo WRITELN "Oyes el susurro del viento, el canto de los pájaros y el murmullo del agua." DONE OIR _ AT lP2SalaAcustica WRITELN "El eco susurra: RECOLECTOR" DONE OIR _ WRITELN "Si en vez de escuchar tanto, teclearas más, oirías: «Clik, Clak, Clok»." DONE AYUDA _ ; Debería responder con la AYUDA para la 2ª parte ATGT lP2Hab02 PROCESS 24 ; COMPROBAR Era Process 5 en la 2ª parte DONE AYUDA _ PROCESS 3 DONE ;-------------- 2ª parte ------------ MATAR SERPIENTE AT lP2Trono LT fSerpiente 9 WRITELN "El reptil te marca sus colmillos en el cuello y se marcha." ANYKEY WRITELN "El veneno te ha matado." ANYKEY CLEAR 0 GOTO lP2NoHasLogrado DESC ASUSTAR DRAGON AT lP2Hab54 LT fDragon 255 LET 33 _voc_MATAR MATAR DRAGON AT lP2Hab54 LT fDragon 255 SET fDragon WRITELN "Asustado por tu valentía, el cobardica vuelve llorando a su casa en el Hobbit." PLACE oAlfombra lP2Hab54 DONE MATAR ENANO EQ fEnano2P 2 WRITELN "¡El enano se las sabe todas!" DONE MATAR TROLL ATGT lP2HabMagica ATLT lP2EncimaCornisa ZERO fTroll WRITELN "El invencible Troll Chulangas te da una patada." PROCESS 22 ; COMPROBAR Era PROCESS 9 en la 2ª parte DONE ;------------------------------------ MATAR _ ;MESSAGE 28 WRITELN "¿Te parece forma de solucionar las cosas?" NOTDONE EMPUJAR ENANO AT lLava LT fEnano 255 ; flag 102 SET fEnano WRITELN "¡El enano ha caído al volcán!" PAUSE 100 WRITELN "¡Asesino nanicida!" LET 5 4 DONE ABRIR CANDADO PRESENT oLlave NOTCARR oLlave ;WRITE "Primero coges la llave. " GET oLlave ABRIR CANDADO EQ 44 255 LET 43 &&_voc_CON LET 44 &&_voc_LLAVE ABRIR CANDADO PREP CON NOUN2 LLAVE AT lReja CARRIED oLlave ZERO fCandado LET fCandado 1 WRITELN "Para lo viejo que parece, se ha abierto sin ningún problema." DONE ABRIR CANDADO NOTCARR oLlave WRITELN "Estiras de él pero está cerrado. No se abre." DONE ABRIR REJAS PREP CON NOUN2 LLAVE AT lReja CARRIED oLlave ZERO fCandado LET fCandado 1 WRITE "Para ello, abres el candado que " WRITELN "con lo viejo que parece, se ha abierto sin ningún problema." DONE ABRIR REJAS AT lReja EQ fCandado 2 LET fCandado 3 DESC ABRIR REJAS AT lReja WRITELN "Mmm... no puedes porque tiene el candado puesto." DONE EMPUJAR REJAS AT lReja EQ fCandado 2 LET fCandado 3 DESC EMPUJAR REJAS AT lReja WRITELN "Empujas y empujas sin conseguir nada. En muy resistente y todavía está el candado puesto." DONE EMPUJAR CANDA AT lReja CARRIED oLlave EQ fCandado 0 LET fCandado 1 DESC ABRIR CANDADO AT lReja CARRIED oLlave NOTZERO fCandado WRITELN "Pero si ya está abierto." DONE CERRAR REJAS AT lReja EQ fCandado 3 LET fCandado 2 DESC CERRAR CANDA AT lReja EQ fCandado 1 LET fCandado 0 DESC PEGAR ENANO AT lLava LT fEnano 255 ; flag 102 PROCESS 11 DONE COGER NOTA LET 34 _voc_LETRERO COGER LETRERO AT lPicnic WRITELN "No te va a servir de nada llevártelo así que lo dejas donde está." DONE COGER MONED AT lPozo PRESENT oMoneda ISLIGHT GET oMoneda SET fMoneda ; flag 12 ;WRITELN "Coges la moneda todavía sin creer la suerte que has tenido." DONE COGER MONEDA AT lPozo ISLIGHT ABSENT oMoneda ;MES 1 WRITE "Te arrastras como una cucaracha por todo el suelo" PAUSE 100 ;MESSAGE 12 WRITELN " pero de monedas nada, ¡listillo!" DONE COGER LLAVE AT lRamas EQ fLlave 1 ; flag 103 WRITELN "La llave está demasiado lejos." DONE COGER ENANO AT lLava LT fEnano 255 ; flag 102 PROCESS 11 DONE SACAR CANDADO LET 33 _voc_COGER QUITAR CANDADO LET 33 _voc_COGER COGER CANDADO AT lReja EQ fCandado 1 LET fCandado 2 ;MESSAGE 58 WRITELN "Al quitarlo... ¡desaparece de tus manos!" ANYKEY DESC COGER CANDADO AT lReja WRITELN "Lo tienes en la mano, sigue en la reja. Cerrado. ¿Y ahora qué?" DONE GOLPEAR CANDADO AT lReja EQ fCandado 1 WRITELN "Te haces daño en la mano. ¡A quién se le ocurre!" DONE GOLPEAR CANDADO AT lReja EQ fCandado 2 WRITELN "¿Qué candado? Vas y golpeas la pared. La violencia no es la solución." DONE GOLPEAR CANDADO AT lReja WRITELN "No consigues más que hacerte daño. Cabeza de chorlito." DONE ;SOLTAR TODO ; AT lPicnic ; ZERO 1 ; ;MESSAGE 100 ; WRITELN "No tienes nada." ; NEWLINE ; DONE SOLTAR _ AT lPicnic WRITELN "Dejas {OREF}" WRITELN "¿No sabes leer? ¡Un enanito desaparece con lo dejado!" PUTO lHabGuarra DONE SOLTAR _ AT lRamas LT 51 255 CARRIED @51 WRITELN "¡Anda, {OREF} ha caído al suelo!" PUTO lBosqueProf DONE SALTAR _ AT lLava PROCESS 6 DONE SALTAR _ AT lPrecipicio PROCESS 7 DONE SALTAR _ AT lCanon PROCESS 7 DONE SALTAR _ AT lEspiral PROCESS 7 DONE SALTAR _ AT lRamas PROCESS 8 DONE SALTAR _ AT lP2MagnLago WRITELN "¡¡Argggh!! ¡Te has ahogado!" CLEAR 0 GOTO lP2NoHasLogrado ANYKEY DESC SALTAR _ AT lP2LagSubte WRITELN "¡¡Arggg!! ¡Te has ahogado!" CLEAR 0 GOTO lP2NoHasLogrado ANYKEY DESC CONECTAR LINTERNA NOTCARR oLinterna WRITELN "No tienes la linterna." DONE CONECTAR LINTERNA ;CARRIED oLinterna ZERO fLintPilas WRITELN "No tiene pilas." DONE CONECTAR LINTERNA ; COMPROBAR LT 8 3 ; Flag 8 linterna se apaga NOTZERO 8 WRITELN "La linterna va mal. La luz parpadea." NOTDONE CONECTAR LINTERNA ONOTZERO oLinterna aOn WRITELN "Ya está encendida." DONE CONECTAR LINTERNA ;CARRIED oLinterna ;NOTZERO fLintPilas ; flag 11 AT lPozo ;OZERO oLinterna aOn OSET oLinterna aOn WRITELN "Enciendes la linterna que ilumina el lugar." CLEAR 0 PAUSE 50 DESC CONECTAR LINTERNA NOTAT lP2Hab91 NOTAT lP2HabMagica ATGT lP2Hab03 ;CARRIED oLinterna ;OZERO oLinterna aOn OSET oLinterna aOn WRITELN "Enciendes la linterna iluminándolo todo." CLEAR 0 PAUSE 50 DESC CONECTAR LINTERNA ;CARRIED oLinterna ;NOTZERO fLintPilas ;OZERO oLinterna aOn OSET oLinterna aOn ;SWAP 2 0 CLEAR 0 WRITELN "Enciendes la linterna." DONE DESCONECTAR LINTERNA NOTCARR oLinterna WRITELN "No tienes la linterna." DONE DESCONECTAR LINTERNA OZERO oLinterna aOn WRITELN "Ya está apagada." DONE DESCONECTAR LINTERNA ;CARRIED oLinterna ; apagada AT lPozo ;ONOTZERO oLinterna aOn OCLEAR oLinterna aOn SET 0 WRITELN "Apagas la linterna y la oscuridad se apodera del lugar." PAUSE 50 DESC DESCONECTAR LINTERNA NOTAT lP2Hab91 NOTAT lP2HabMagica ATGT lP2Hab03 ;CARRIED oLinterna ;ONOTZERO oLinterna aOn OCLEAR oLinterna aOn SET 0 WRITELN "Apagas la linterna. Todo queda a oscuras." PAUSE 50 DESC DESCONECTAR LINTERNA ;CARRIED oLinterna ; apagada ;ONOTZERO oLinterna aOn OCLEAR oLinterna aOn ;SWAP 0 2 WRITELN "Apagas la linterna." DONE ESPERAR _ ATGT lP2Hab03 WRITELN "Como quieras pero yo no estaría mucho tiempo sin hacer nada aquí dentro." DONE ESPERAR _ ; redundante pero da otro mensaje MESSAGE 36 DONE EXAMINAR LETRERO LET 33 _voc_LEER LEER LETRERO AT lPicnic LET 34 _voc_TEXTO EXAMINAR PARED ATGT lP2Hab02 LET 33 _voc_LEER LEER PARED ATGT lP2Hab02 LET 34 _voc_TEXTO LEER NOTA LET 34 _voc_TEXTO LEER GRABADO AT lP2SalaAcustica LET 34 _voc_TEXTO LEER PILAR AT lP2SalaAcustica LET 34 _voc_TEXTO LEER TEXTO ATGT lP2Hab02 ;LET 33 _voc_EXAMINAR PROCESS 25 DONE LEER TEXTO PROCESS 4 DONE LEER _ EQ 34 255 AT lPicnic LET 34 _voc_TEXTO PROCESS 4 DONE LEER _ AT lPicnic WRITELN "¿Intentas leer el letrero?" DONE ;---------------------------------------------- ; Movido de las respuestas por defecto ; porque no se detectaba ;---------------------------------------------- LEER _ ; No hay nombre en la frase EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes leer eso que dices." DONE LEER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres leer." DONE LEER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a leer eso." DONE LEER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No puedes leer {OREF}." DONE LEER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE EXAMINAR _ ; COMPROBAR examinar a 2ª parte ATGT lP2Hab02 PROCESS 25 ; COMPROBAR Era PROCESS 4 en la 2ª parte DONE EXAMINAR _ PROCESS 4 DONE OLER AIRE AT lCampo WRITELN "Curioso, la peste a azufre parece venir del este." DONE OLER AIRE AT lArida WRITELN "Uff, te estás empezando a marear del pestazo a azufre. Parece que hacia el este es más fuerte." DONE OLER AIRE AT lArida WRITELN "El olor a azufre se intensifica cada vez más hacie el este." DONE OLER AIRE AT lTapizado WRITELN "Uff, te estás empezando a marear del pestazo a azufre. Parece que hacia el este es más fuerte." DONE VACIAR BOTELLA CARRIED oBotella OZERO oBotella aFull WRITELN "Ya está vacía." DONE VACIO _ CARRIED oBotella ONOTZERO oBotella aFull EQ 34 94 LET 34 _voc_BOTELLA VACIO BOTELLA CARRIED oBotella ONOTZERO oBotella aFull NOTAT lP2FondPozoOes ;SWAP 4 5 OCLEAR oBotella aFull OK VACIO BOTELLA CARRIED oBoteAceite NOTAT lP2FondPozoOes NOTAT lP2EscudoGigante SWAP oBoteAceite oBotella OCLEAR oBotella aFull WRITELN "Derramas el aceite que deja una mancha en el suelo." DONE VACIO BOTELLA AT lP2FondPozoOes NOTCARR oBotella ; COMPROBAR : llena ; ONOTZERO oBotella aFull ; Debería bastar comprobar que no llevas ninguna de las dos botellas NOTCARR oBoteAceite WRITELN "No puedes hacerlo." DONE VACIO BOTELLA AT lP2FondPozoOes LET 33 _voc_REGAR LET 34 _voc_BROTE VACIO BOTELLA AT lP2EscudoGigante LET 33 _voc_ACEITAR LET 34 _voc_PUERTA VACIAR BOTELLA CARRIED oBotella OCLEAR oBotella aFull WRITELN "Derramas el agua que hay en ella hasta que no queda nada." DONE LLENAR BOTELLA CARRIED oBoteAceite WRITELN "Está llena de aceite y no cabe nada más." DONE LLENAR BOTELLA CARRIED oBotella ONOTZERO oBotella aFull WRITELN "No cabe más agua ya." DONE LLENAR BOTELLA AT lFrontera CARRIED oBotella OSET oBotella aFull WRITELN "Casi sin esfuerzo, llenas la botella de agua." DONE LLENAR BOTELLA AT lBoscillo CARRIED oBotella OSET oBotella aFull WRITELN "No te resulta demasiado difícil llenarla de agua." DONE LLENAR BOTELLA AT lValle CARRIED oBotella OSET oBotella aFull WRITELN "Genial. Ya está llena de agua." DONE LLENAR BOTELLA AT lValleProf CARRIED oBotella OSET oBotella aFull WRITELN "Mmm... a ver... listo. Botella llena." DONE LLENAR BOTELLA AT lP2MagnLago CARRIED oBotella ; COMPROBAR : Vacía OSET oBotella aFull WRITELN "Llenas la botella de agua espectacularmente cristalina." DONE LLENAR BOTELLA AT lP2Mirador CARRIED oBotella ; COMPROBAR : Vacía OSET oBotella aFull WRITELN "Llenas la botella. Crees que irá bien." DONE LLENAR BOTELLA AT lP2LagSubte CARRIED oBotella ; COMPROBAR : Vacía OSET oBotella aFull WRITELN "Botella llena. Perfecto." DONE LLENAR BOTELLA AT lP2DepoFosoEst CARRIED oBotella ; COMPROBAR : Vacía OSET oBotella aFull SWAP oBotella oBoteAceite WRITELN "No sin cierta dificultad, llenas la botella de aceite, quedando un poco pringosa." DONE LLENAR BOTELLA CARRIED oBotella WRITELN "De qué quieres llenarla. No hay nada por aquí." DONE COMER TORTI CARRIED oTortilla DESTROY oTortilla WRITELN "¡La tortila está riquísima!" LET 5 4 ; COMPROBAR flag 5 DONE BEBER RIO ; COMPROBAR CARRIED oBotella OCLEAR oBotella aFull WRITELN "Pero qué sed tenías." DONE COGER RAMAS AT lRamas WRITELN "Ya te estás agarrando a las ramas. Si no, ya hubieras caído." DONE MOVER RAMAS AT lRamas LET 33 _voc_SACUDIR SACUDIR RAMAS AT lRamas LT fLlave 2 ; flag 103 LET 51 oLlave ; flag 51 = Último ebjeto referenciado. Era LET 51 6 (6 era llave) WRITELN "¡La llave ha caído al suelo!" PLACE oLlave lBosqueProf SET fLlave DONE SACUDIR RAMAS AT lRamas WRITELN "La rama se mueve y se mueve." DONE PONER PILAS LET 33 _voc_METER METER PILAS NOTAT lP2Maquina LET 43 &&_voc_EN LET 44 &&_voc_LINTERNA METER PILAS PREP A LET 43 _voc_EN ;----------- 2ª parte ----------- METER MONEDA AT lP2Maquina NOTZERO fMaquina CARRIED oMoneda DESTROY oMoneda CLEAR 8 WRITELN "¡CHUMM! ¡PUM! ¡BROOM! ¡PIFSSSS!" WRITELN "¡¡¡ Pilas recargadas !!!" CREATE oPila DONE METER MONEDA AT lP2Maquina CARRIED oMoneda DESTROY oMoneda SET fMaquina OK METER PILAS NOUN2 MAQUINA AT lP2Maquina NOTZERO fMaquina CARRIED oPila CLEAR 8 PLACE oPila lP2Maquina WRITELN "¡CHUMM! ¡PUM! ¡BROOM! ¡PIFSSSS!" WRITELN "¡¡¡ Pilas recargadas !!!" DONE PONGO PILAS NOUN2 MAQUINA AT lP2Maquina CARRIED oPila DESTROY oPila SET fMaquina OK PONGO PILAS CARRIED oPila CARRIED oLinterna DESTROY oPila ; COMPROBAR ¿Es necesario? Ahora es un contenedor SET fLintPilas OK PONGO PILAS NOTCARR oPila DROP oPila DONE ;---------------- METER PILAS PREP EN NOUN2 LINTERNA NOTCARR oLinterna WRITELN "No tienes la linterna... ¿Dónde está?" DONE METER PILAS PREP EN NOUN2 LINTERNA NOTCARR oPila WRITELN "No tienes la pila, así que..." DONE METER PILAS PREP EN NOUN2 LINTERNA NOTZERO fLintPilas WRITELN "La linterna ya tiene las pilas puestas." DONE METER PILAS PREP EN NOUN2 LINTERNA ;CARRIED oPila ;CARRIED oLinterna DESTROY oPila SET fLintPilas WRITELN "Vale, linterna lista." DONE QUITAR PILAS LET 33 _voc_SACAR SACAR PILAS EQ 43 255 NOTAT lP2Maquina LET 43 _voc_DE LET 44 _voc_LINTERNA SACAR PILAS EQ 43 255 AT lP2Maquina LET 43 _voc_DE LET 44 _voc_MAQUINA SACAR PILAS PREP DE NOUN2 LINTERNA NOTCARR oLinterna WRITELN "No tienes la linterna." DONE SACAR PILAS PREP DE NOUN2 LINTERNA ZERO fLintPilas ;CARRIED oLinterna WRITELN "La linterna no tiene las pilas puestas." DONE SACAR PILAS ATLT lP2Hab02 ;CARRIED oLinterna ;NOTZERO fLintPilas GT 1 cMaxCosas ; Llevas más de cuatro cosas WRITELN "Ya no puedes llevar más trastos." DONE SACAR PILAS ATGT lP2Hab02 ;CARRIED oLinterna ;NOTZERO fLintPilas GT 1 cMaxCosas2P ; Llevas más de seis cosas WRITELN "Ya no puedes llevar más trastos." DONE SACAR PILAS PREP DE NOUN2 LINTERNA ;CARRIED oLinterna ; encendida OCLEAR oLinterna aOn AT lPozo SET 0 CREATE oPila GET oPila CLEAR fLintPilas DESC SACAR PILAS PREP DE NOUN2 LINTERNA NOTAT lP2Hab91 NOTAT lP2HabMagica ATGT lP2Hab03 ;CARRIED oLinterna ; encendida OCLEAR oLinterna aOn CREATE oPila GET oPila CLEAR fLintPilas SET 0 CLS DESC SACAR PILAS PREP DE NOUN2 LINTERNA ;CARRIED oLinterna ;NOTZERO fLintPilas CLEAR fLintPilas OCLEAR oLinterna aOn CREATE oPila GET oPila WRITELN "Sacas la pila y la linterna se apaga." DONE ;SACAR PILAS ; PREP DE ; NOUN2 LINTERNA ;CARRIED oLinterna ; encendida ;NOTZERO fLintPilas ; OCLEAR oLinterna aOn ;SWAP 0 2 ; CREATE oPila ; GET oPila ; CLEAR fLintPilas ; OK SACAR CANDA PREP DE NOUN2 REJAS AT lReja EQ fCandado 1 LET fCandado 2 WRITELN "Al quitarlo... ¡desaparece de tus manos!" NEWLINE ANYKEY DESC SENTAR SILLA AT lPicnic ;MESSAGE 35 WRITE "Te sientas... y te levantas para seguir jugando. " PAUSE 30 MESSAGE 36 DONE ROMPER BOTELLA CARRIED oBotella DESTROY oBotella LET 5 4 ; COMPROBAR ; flag 5 autodecrementa OK PUTA _ NOTZERO fGrosero CLEAR fGrosero NEWLINE WRITELN "Ya te lo advertí..." NEWLINE ANYKEY PROCESS 5 DONE PUTA _ SET fGrosero WRITELN "Te aconsejo que dejes de insultar." NOTZERO 1 LET 33 _voc_DEJAR DOALL CARRIED DONE PUTA _ DONE _ MIERDA NOTZERO fGrosero CLEAR fGrosero NEWLINE WRITELN "Ya te lo advertí..." NEWLINE ANYKEY PROCESS 5 DONE _ MIERDA SET fGrosero WRITELN "Te aconsejo que dejes de decir groserías." PAUSE 120 PROCESS 14 GOTO lFrontera DESC RINDO _ COMMAND 0 WRITE "Has jugado " PRINT 31 WRITELN " turnos." NEWLINE WRITELN "{RESTART|Volver a jugar}" DONE RINDO _ OK SALUDAR _ AT lLava LT fEnano 255 WRITELN "El enano está muy cabreado para finuras y con malos modales intenta deshacerse de ti." DONE _ ENANO ;para que funcione "Enano «algo»" AT lLava LT fEnano 255 PROCESS 10 DONE PREGUNTAR ENANO AT lLava LT fEnano 255 PROCESS 10 DONE SALUDAR _ AT lBosqueCer GT fElfito 2 LT fElfito 5 WRITELN "Te observa tímidamente y esboza una sonrisa." DONE SALUDAR _ EQ fElfito 4 WRITELN "Te observa por unos instantes y esboza una sonrisa." DONE PREGUNTAR FIGUR AT lBosqueCer GT fElfito 2 LT fElfito 5 PROCESS 9 DONE PREGUNTAR _ EQ fElfito 4 PROCESS 9 DONE PREGUNTAR _ AT lBosqueCer EQ fElfito 3 PROCESS 9 DONE PREGUNTAR _ AT lLava PROCESS 10 DONE PEGAR ELFO EQ fElfito 4 LET fElfito 3 WRITELN "Muy ofendido, Elfito, se las pira llorando." DONE ;PEGAR _ ; OK PONER ZAPATOS CARRIED oBotas ;MESSAGE 135 WRITELN "Las botas son pequeñas para tus pies." DONE DAR ZAPATOS AT lLava PRESENT oBotas NOTCARR oBotas GET oBotas DAR ZAPATOS AT lLava EQ 44 255 LET 43 &&_voc_A LET 44 &&_voc_ENANO DAR ZAPATOS PREP A NOUN2 ENANO AT lLava CARRIED oBotas LT fEnano 255 DESTROY oBotas SET fEnano CREATE oLinterna EXTERN "previous_noun=50" ; Para que se pueda decir «cógela» y entienda «la linterna» después ; de que la deje el enano. No puede ser oLinterna, ha de ser 50. ; Gracias Uto WRITELN "Don Enano se calza, y agradecido, te deja una linterna. Ves como se marcha dando salitos de alegría." DONE _ LLAVE AT lReja EQ 33 255 ZERO fCandado WRITELN "Pues ya lo sabes." DONE _ FIGURA AT lBosqueCer GT fElfito 2 LT fElfito 5 PROCESS 9 DONE _ FIGURA EQ fElfito 4 PROCESS 9 DONE _ FIGURA AT lBosqueCer EQ fElfito 3 PROCESS 9 DONE LIBERAR PAJARO LET 33 _voc_SOLTAR SOLTAR PAJARO LET 33 _voc_ABRIR LET 34 _voc_JAULA TIRAR JARRON CARRIED oJarron DESTROY oJarron NEWLINE WRITELN "El jarrón se ha roto en el suelo." DONE ;INVEN _ ; PROCESS 6 ESPERAR _ WRITELN "... tras un corto descansito sigues con lo tuyo." DONE EMPUJAR _ AT lP2Hab03 WRITELN "¡Algo te impide pasar!" DONE ;DOY LINTERNA ;REDUNDANTE ; PRESENT oLinterna ; PROCESS 20 ; ABSENT oLinterna ; ANYKEY ; DESC ;DOY LINTERNA ; PRESENT oLinterna ; COMPROBAR (Era encendida) No hace nada ;ONOTZERO oLinterna aOn ; DONE DOY _ ; COMPROBAR Hemos dicho en la llamada que tiene que ser llevado ATGT lP2HabMagica ATLT lP2EncimaCornisa NOTEQ 51 255 NOTCARR @51 WRITELN "¡Si el peaje no quieres pagar, conmigo tendrás que luchar!" DONE DOY _ NOTEQ 51 255 CARRIED @51 PROCESS 20 DONE ABRO BARROTES NOTAT lP2Trono CARRIED oJaula ; con pájaro ONOTZERO oJaula aPajaro OCLEAR oJaula aPajaro WRITELN "El pajarito se escapa, cantando alegremente." CLEAR fPajaroVuelve DONE ABRO BARROTES LT fSerpiente 9 CARRIED oJaula ; con pájaro ONOTZERO oJaula aPajaro OCLEAR oJaula aPajaro WRITE "El pajarito se escapa, cantando alegremente. " CLEAR fPajaroVuelve WRITELN "Y al ver a la serpiente la ataca en los ojos y la hace huir despavorida." SET fSerpiente ; Serpiente presente CREATE oJoya DONE ABRO BARROTES CARRIED oJaula ; con pájaro ONOTZERO oJaula aPajaro WRITELN "El veneno te ha matado." ANYKEY CLEAR 0 GOTO lP2NoHasLogrado DESC ABRO BARROTES AT lP2HumPasadInc CARRIED oLlave WRITELN "Abres la jaula que ahora tiene la reja abierta." SET fJaula ; flag jaula abierta DONE ABRO BARROTES AT lP2HumPasadInc WRITELN "Necesitarás algo, ¿no?" DONE ABRO BARROTES CARRIED oJaula OZERO oJaula aPajaro WRITELN "No hace falta. " DONE ABRO OSTRA AT lP2HabMarina CARRIED oTridente ZERO fOstra WRITELN "Poco a poco las valvas del molusco se abren y con asombro descubres que... ¡es una ostra! Dentro hay una preciosa perla que por tu imprudencia cae y rueda por el pasillo. La ostra se cierra." PLACE oPerla lP2FinalCor SET fOstra DONE ABRO OSTRA AT lP2HabMarina CARRIED oTridente WRITELN "Está cerrada para siempre. No hay más que hacer aquí." DONE ABRO OSTRA AT lP2HabMarina WRITELN "¡Es demasiado fuerte para ti, forastero!" DONE ABRO PUERTA AT lP2EscudoGigante EQ fPuerta 1 SET fPuerta WRITELN "Abres la puerta con facilidad." DONE ABRIR PUERTA AT lP2EscudoGigante ZERO fPuerta WRITELN "Lo intentas pero no cede. Mmm... ¡cuánto óxido!" DONE ABRIR PUERTA AT lP2EscudoGigante WRITELN "Pero si ya está abierta." DONE ABRO _ AT lP2Hab03 WRITELN "¡Algo te impide pasar!" DONE CERRAR PUERTA AT lP2EscudoGigante EQ fPuerta 1 WRITELN "Ya está cerrada." DONE CERRAR PUERTA AT lP2EscudoGigante ZERO fPuerta WRITELN "Ni cerrar la puerta ni abrirla podrías con el óxido que tiene." DONE CERRAR PUERTA AT lP2EscudoGigante LET fPuerta 1 WRITELN "Cierras la puerta fácilmente." DONE CERRAR REJA CARRIED oJaula ; con pájaro ONOTZERO oJaula aPajaro WRITELN "No hace falta. " DONE MOVER VARITA LET 33 _voc_USAR AGITAR VARITA LET 33 _voc_USAR USAR VARITA ATGT lP2DensoVapor ATLT lP2VariasSalidas CARRIED oVarita PLUS fPuente 1 ; flag puente GOTO lP2PuenteMagico EQ fPuente 2 CLEAR fPuente GOTO lP2AnchaFisura USAR VARITA CARRIED oVarita ATGT lP2DensoVapor ATLT lP2VariasSalidas DESC USAR VARITA CARRIED oVarita PRESENT oJaula ; con pájaro ONOTZERO oJaula aPajaro PROCESS 23 ; COMPROBAR Era Process 7 en la 2ªparte DONE USAR VARITA CARRIED oVarita AT lP2CanonCamara ZERO fPajaroVuelve PROCESS 23 ; COMPROBAR Era Process 7 en la 2ªparte DONE USAR VARITA CARRIED oVarita WRITELN "Te pasarías horas probando de hacer algo útil pero tal vez no sea el sitio indicado." DONE USAR VARITA LET 33 _voc_COGER ; COMPROBAR SACO PILAS NOUN2 MAQUINA AT lP2Maquina ABSENT oPila WRITELN "No ves la pila por aquí." DONE SACO PILAS NOUN2 MAQUINA AT lP2Maquina LET 33 _voc_COGER ; COMPROBAR BUSCO _ AT lP2DensoVapor ZERO fHayNiebla WRITELN "La niebla te lo impide." DONE BUSCO PEPITA AT lP2DensoVapor ISAT oPepita lP2DensoVapor WRITELN "¡Está en el suelo!" DONE COJO _ AT lP2Trono LT fSerpiente 9 LET fSerpiente 9 WRITELN "El reptil te marca sus colmillos en el cuello y se marcha." DONE COJO ALMOHADA ISAT oAlmohada @38 ISAT oJarron @38 NOTAT lP2HabBlanda GET oAlmohada LET 51 _voc_JARRON WRITELN "El jarrón se ha roto en el suelo." DESTROY oJarron DONE COJO PAJARO AT lP2CanonCamara NOTCARR oVarita CARRIED oJaula ; COMPROBAR ; jaula Vacía OZERO oJaula aPajaro ZERO fPajaroVuelve OSET oJaula aPajaro SET fPajaroVuelve WRITELN "Tienes al pájaro enjaulado." DONE COJO PAJARO AT lP2CanonCamara WRITELN "El pajarito se escapa, cantando alegremente." DONE COJO TRONCO AT lP2FondPozoOes WRITELN "Las resecas semillas queman tu mano y caen de nuevo a tierra." DONE COJO PEPITA AT lP2DensoVapor ZERO fHayNiebla ; flag ¿niebla? WRITELN "La niebla te lo impide." DONE COGER HACHA AT lP2EscudoGigante ABSENT oHacha LET 33 _voc_SACAR LET 43 _voc_DE LET 44 _voc_GIGANTE SACAR HACHA ; ¿SACAR? Como sinónimo de COGER para poder hacer "Coger hacha de gigante" PREP DE NOUN2 GIGANTE AT lP2EscudoGigante WRITELN "Es demasiado pesada. Es como si fuera de un gigante." NOTDONE SACAR HACHA ; ¿SACAR? Como sinónimo de COGER para poder hacer "Coger hacha de gigante" PREP DE NOUN2 GIGANTE WRITELN "No ves el hacha de gigante por aquí." NOTDONE COJO ESCUDO AT lP2EscudoGigante WRITELN "Es demasiado pesado, tanto como el hacha. Es como si fuera de un gigante." NOTDONE COJO _ AUTOG DONE COJER _ WRITELN "Coger se escribe con ge." DONE COGEL _ AT lP2HabOlien WRITELN "No sel puñetelo." DONE SOLTAR JARRON ISNOTAT oAlmohada @38 ; COMPROBAR 255 = Here? CARRIED oJarron NOTAT lP2HabBlanda WRITELN "El jarrón se ha roto en el suelo." DESTROY oJarron DONE LIBERAR PEPOSO LET 33 _voc_SOLTAR SOLTAR PEPOSO AT lP2ApestosaJaula EQ fOso 2 CARRIED oLlave SET fOso WRITELN "Lo liberas de la pared y lo llevas de la cadena." DONE SOLTAR PEPOSO AT lP2ApestosaJaula CARRIED oLlave ZERO fOso WRITELN "Recibes de lleno el ataque del enorme oso Peposo." ANYKEY CLEAR 0 GOTO lP2NoHasLogrado DESC SOLTAR PEPOSO EQ fOso 255 ATGT lP2HabMagica ATLT lP2EncimaCornisa ZERO fTroll ; Troll en el puente WRITE "Al verse libre, Peposo escapa dejando a tus pies la cadena." WRITELN " Se yergue sobre sus patas traseras y agitando sus garras amenazadoramente, abre su enorme boca y deja escapar un cavernoso rugido. Al verlo suelto, el Troll Chulangas sale corriendo." SET fTroll CREATE oCadena LET fOso 1 DONE SOLTAR PEPOSO EQ fOso 255 ; flag 111 cadena WRITELN "Al verse libre, Peposo escapa dejando a tus pies la cadena." CREATE oCadena LET fOso 1 DONE SOLTAR PEPOSO EQ fOso 1 WRITELN "No ves a Peposo por aquí. Seguramente no querrá acercarse a un humano ahora que es libre." DONE TOCO PILAR PROCESS 25 ; COMPROBAR Era PROCESS 4 en la 2ª parte DONE TOCO _ WRITELN "No le encuentras nada de especial." DONE LEO _ LET 34 _voc_TEXTO ; COMPROBAR PROCESS 4 DONE COMO HUESO CARRIED oHueso WRITELN "¡¡Arggg!! ¡Te has ahogado con el hueso!" NEWLINE ANYKEY CLEAR 0 GOTO lP2NoHasLogrado DESC COMO TORTI CARRIED oTortilla DESTROY oTortilla OK BEBO _ CARRIED oBotella ; COMPROBAR : Vacía ONOTZERO oBotella aFull OCLEAR oBotella aFull OK BEBO _ AT lP2MagnLago WRITELN "Bebes hasta saciar tu sed." DONE BEBO _ AT lP2Mirador WRITELN "Aunque da un poco de asco, bebes saciando la sed." DONE BEBO _ AT lP2LagSubte WRITELN "Es excelente. No puede ser un agua más pura." DONE ACEITAR PUERTA AT lP2EscudoGigante CARRIED oBoteAceite ZERO fPuerta SWAP oBoteAceite oBotella OCLEAR oBotella aFull WRITELN "La puerta queda bien aceitada." LET fPuerta 1 DONE ACEITAR PUERTA AT lP2EscudoGigante NOTCARR oBoteAceite WRITELN "No ves aceite por aquí." DONE ACEITAR PUERTA AT lP2EscudoGigante NOTZERO fPuerta WRITELN "No le hace falta más aceite. Con el que tiene será suficiente." DONE ACEITAR _ WRITELN "No sabrías cómo." NOTDONE APARTAR NIEBLA AT lP2DensoVapor WRITELN "¿Cómo la vas a apartar?" DONE SOPLO _ AT lP2DensoVapor ZERO fHayNiebla SET fHayNiebla SOPLO _ ZERO fPepita SET fPepita WRITE "Soplas y parece que funciona. " PLACE oPepita lP2DensoVapor SOPLO _ AT lP2DensoVapor WRITELN "La niebla se disipa momentánemente, puedes ver todo un poco mejor... y lentamente vuelve a envolverlo todo." DONE RIEGO TRONCO AT lP2FondPozoOes CARRIED oBoteAceite WRITELN "El aceite, como es lógico, las deja bien fritas." CLEAR fJudias ; flag planta SWAP oBoteAceite oBotella OCLEAR oBotella aFull DONE RIEGO TRONCO NOTCARR oBotella WRITELN "Ya me dirás cómo quieres hacerlo sin la botella." DONE RIEGO TRONCO OZERO oBotella aFull WRITELN "Ya me dirás cómo quieres hacerlo sin agua." DONE RIEGO TRONCO AT lP2FondPozoOes PLUS fJudias 1 OCLEAR oBotella aFull RIEGO TRONCO AT lP2FondPozoOes EQ fJudias 1 WRITELN "Absorbiendo ávidamente el precioso líquido las semillas se hinchan, se abren y de ellas nace una tierna plantita de judías." NEWLINE DONE RIEGO TRONCO AT lP2FondPozoOes GT fJudias 1 WRITELN "Al recibir más agua, el tronco se endurece y crece fuerte hacia lo alto hasta salir por el agujero superior." DONE ;MIERD _ ; PLUS 33 1 ; ZERO fGrosero ; SET fGrosero ; WRITE "Nadie te hace caso. " ; DONE PUTA _ ATGT lP2Hab02 DESTROY oLinterna ;DESTROY 2 WRITE "Nadie te hace caso. " ANYKEY DESC TIRO BOTELLA CARRIED oBotella ;ONOTZERO oBotella aFull DESTROY oBotella WRITELN "La botella se ha roto en el suelo." DONE ;TIRO BOTELLA ;redundante ; CARRIED 5 ; DESTROY 5 ; WRITELN "La botella se ha roto en el suelo." ; DONE TIRO BOTELLA CARRIED oBoteAceite DESTROY oBoteAceite NEWLINE WRITELN "La botella se ha roto en el suelo dejando una fea mancha de aceite." DONE TIRO HACHA NOTCARR oHacha WRITELN "No la llevas encima." DONE TIRO HACHA ZERO fFallasEnano2P EQ fEnano2P 2 CHANCE 50 WRITELN "¡Has fallado! El hacha cae al suelo." PLACE oHacha @38 SET fFallasEnano2P DONE TIRO HACHA EQ fEnano2P 2 WRITELN "¡Le has cortado la cabeza! ¡Maluva se desintegra junto con su hacha!" DESTROY oHacha CLEAR fEnano2P CLEAR fFallasEnano2P PLUS fEnano2P120 1 ANYKEY DESC TIRO LINTERNA NOTCARR oLinterna WRITELN "No la llevas encima." DONE TIRO LINTERNA AT lP2MagnLago WRITELN "Al agua que va la linte... ¡Espera un momento!" SET 0 PAUSE 100 DESC TIRO LINTERNA AT lP2LagSubte WRITELN "Al agua que va la linte... ¡Espera un momento!" SET 0 PAUSE 100 DESC TIRO _ AT lP2MagnLago NOTEQ 51 255 CARRIED @51 WRITELN "Tiras {OREF} al agua y ves como se hunde... lentamente..." DESTROY @51 DONE TIRO _ NOTEQ 51 255 AT lP2LagSubte CARRIED @51 WRITELN "Tiras {OREF} al agua. Y allá va, hundiéndose. ¿Pero qué has hecho?" DESTROY @51 DONE PASO _ ATGT lP2HabMagica ATLT lP2EncimaCornisa ZERO fTroll WRITELN "¡Te bloquea un fornido Troll que ruge: «un tesoro has de dar para poder pasar»!" DONE PASO _ ATGT lP2HabMagica ATLT lP2EncimaCornisa EQ fOso 255 WRITELN "Por el peso de Peposo, el puente se rompe y los dos al foso." CLEAR 0 GOTO lP2NoHasLogrado ANYKEY DESC PASO _ AT lP2AbismoSO GOTO lP2AbismoNe DESC PASO _ AT lP2AbismoNe GOTO lP2AbismoSO DESC PASO _ AT lP2PuenteMagico GOTO lP2VariasSalidas DESC PASO _ AT lP2VariasSalidas GOTO lP2PuenteMagico DESC SACO PILAS CARRIED oLinterna CLEAR fLintPilas ; COMPROBAR si es flag fLintPilas (110 1ª parte) PLACE oPila 254 OCLEAR oLinterna aOn DESC SALTAR _ AT lP2HabBlanda WRITELN "¡Boing! ¡Boong!" DONE SALTAR _ AT lP2AnchaFisura PROCESS 22 ; COMPROBAR Era PROCESS 9 en la 2ª parte DONE SALTAR _ ATGT lP2HabMagica ATLT lP2EncimaCornisa PROCESS 22 ; COMPROBAR Era PROCESS 9 en la 2ª parte DONE SALTAR _ WRITELN "Nunca te lo habías pasado bien haciendo el tonto. Venga, déjate ya de perder el tiempo." DONE MIRAR _ DESC FEE FIE AT lP2EscudoGigante ISAT oHuevo lP2EscudoGigante WRITELN "El huevo vibra afectado por el hechizo." DONE FEE FIE AT lP2EscudoGigante CARRIED oHuevo PLACE oHuevo lP2EscudoGigante WRITE "Se te ha caído. " WRITELN "El huevo vibra afectado por el hechizo." DONE FEE FIE AT lP2EscudoGigante WRITELN "¡El huevo aparece entre tus pies!" CREATE oHuevo DONE FEE FIE WRITELN "La magia hace temblar la cueva." DONE _ RECOLECTOR AT lP2SalaAcustica CLEAR 0 GOTO lP2Hab91 DESC _ RECOLECTOR AT lP2Hab91 ABSENT oLinterna SET 0 _ RECOLECTOR AT lP2Hab91 OZERO oLinterna aOn SET 0 _ RECOLECTOR AT lP2Hab91 OBJFOUND aOn lP2SalaAcustica CLEAR 0 _ RECOLECTOR AT lP2Hab91 CLS GOTO lP2SalaAcustica DESC _ RECOLECTOR WRITELN "La magia hace temblar la cueva." DONE _ MAGICA AT lP2SalaAcustica CLEAR 0 GOTO lP2HabMagica DESC _ MAGICA AT lP2HabMagica CARRIED oEsmeralda PLACE oEsmeralda lP2HabMagica _ MAGICA AT lP2HabMagica NOTCARR oLinterna SET 0 _ MAGICA AT lP2HabMagica PRESENT oLinterna OZERO oLinterna aOn SET 0 _ MAGICA AT lP2HabMagica OBJFOUND aOn lP2SalaAcustica CLEAR 0 _ MAGICA AT lP2HabMagica GOTO lP2SalaAcustica DESC _ MAGICA WRITELN "La magia hace temblar la cueva." DONE XYZZY _ AT lP2CaminoGuijarros CLEAR 0 GOTO lP2Hab91 DESC XYZZY _ AT lP2Hab91 ABSENT oLinterna SET 0 XYZZY _ AT lP2Hab91 OZERO oLinterna aOn SET 0 XYZZY _ AT lP2Hab91 OBJFOUND aOn lP2CaminoGuijarros CLEAR 0 XYZZY _ AT lP2Hab91 CLS GOTO lP2CaminoGuijarros DESC XYZZY _ WRITELN "La magia hace temblar la cueva." DONE _ PLUGH WRITELN "La magia hace temblar la cueva." DONE SALUDAR _ WRITE "Nadie te hace caso. " DONE _ _ AT lP2Hab48 ; COMPROBAR. Es una localidad sin conexiones, ; con una bandera con la que no se hace nada en el código. ; ¿Un fallo? ¿Un posible recorte de diseño? ; ¿Un «no puedes ir al norte»? CLEAR f2P105 WRITE "No puedes " DONE ;_ _ ; LT 33 14 ; MOVE 38 ; flag 38 ; DESC ;_ _ ; LT 33 14 ; ;SYSMESS 7 ; WRITE "No puedes " ; EQ 33 13 ; NORTE ; WRITE "ir al " ;_ _ ; LT 33 9 ; WRITE "ir al " ;_ _ ; LT 33 14 ; NEWTEXT ; COPYFF 33 200 ; PLUS 200 116 ; MES @200 ; WRITELN ". " ; PROCESS 10 ;/PRO 1 _ _ AT lP2Hab00 SET 255 PICTURE 1 _ _ AT lP2Hab00 ; WRITE "AVENTURA ORIGINAL II" ; WRITE "Programación:" ; WRITE "Gráficos:" ; WRITE "EL ENCUENTRO" ; WRITE "Manuel González" ; WRITE "Andrés Samudio" ; WRITE "Carlos Marqués" ; WRITE "(c) 1989 Aventuras AD" ; WRITE "Dirección:" GOTO lP2Hab01 DONE ;------------------------------------------------------------------ ; ############################### RESPUESTAS POR DEFECTO ################################## ; # # ; # Estas entradas devuelven las respuestas por defecto. Si no ponemos antes ninguna # ; # entrada que lo evite, se llegará hasta aquí y se dará la respuesta por defecto. # ; # # ; ######################################################################################### _ _ HOOK "RESPONSE_DEFAULT_START" ; «Back call» a el sistema de hooks. Por defecto no hace nada pero algunas librerías plugin podrían necesitarlo. No borrar. I _ INVEN ; ------------------------- ENTRAR _ ; Entrar en un objeto NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aEnterable GOTO @51 DESC ;----------------------------------------------- SENTAR _ WRITELN "Ahora mismo no te apetece." DONE ;----------------------------------------------- LEVANTARTE _ WRITELN "Estás bien así." DONE ;----------------------------------------------- MIRATE _ WRITELN "Te miras de arriba a abajo pero no ves nada especial." DONE ;----------------------------------------------- REGISTRATE _ WRITELN "No encuentras nada destacable." DONE ;----------------------------------------------- SUICIDATE _ WRITELN "Esa no es la solución..." DONE ;----------------------------------------------- LAVATE _ WRITELN "Ahora mismo no te apetece..." DONE ;----------------------------------------------- XYZZY _ WRITELN "Has jugado a demasiadas aventuras conversacionales..." DONE ;----------------------------------------------- FIN _ QUIT TURNS END GRABAR _ SAVE CARGAR _ LOAD RAMSAVE _ RAMSAVE DESC RAMLOAD _ RAMLOAD 255 ;ANYKEY DESC TRANSCRIPCION _ TRANSCRIPT 1 DONE ;----------------------------------------------- COGER _ ; Coger un objeto que está dentro de un contenedor PREP DE WHATOX2 14 NOTEQ 14 255 ; Si el objeto referenciado por noun 2 es un objeto y... ONOTZERO @14 aContainer ; Es un contenedor SYNONYM SACAR _ ; convertimos «coger objeto de un contenedor» en «sacar objeto de un contenedor» COGER _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes coger eso que dices." DONE COGER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres coger." DONE COGER _ NOTEQ 51 255 ONOTZERO @51 aStatic WRITELN "Mejor no coges {OREF}, está bien donde está." DONE COGER _ AUTOG DONE ;----------------------------------------------- DEJAR _ ; DEJAR un objeto dentro de un contenedor ############# PREP EN WHATOX2 14 NOTEQ 14 255 ; Si el objeto referenciado por noun 2 es un objeto y... ONOTZERO @14 aContainer ; Es un contenedor SYNONYM METER _ ; Convertimos «DEJAR objeto en un contenedor» en «METER objeto en un contenedor» DEJAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes dejar eso que dices." DONE DEJAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres dejar." DONE DEJAR _ AUTOD DONE ;----------------------------------------------- SACAR _ ; Copiamos en el Flag 15 el número de objeto referenciado por noun2 (o 255 si no lo hay) WHATOX2 15 SACAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres sacar." DONE SACAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes sacar eso que dices." DONE SACAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No puedes sacar eso." DONE SACAR _ ; No hay Noun1 entendible en la frase, y el Noun2 pasa a ocupar su lugar en la frase... BZERO 12 2 ; Tiene que dar este mensaje porque lo que queríamos que fuera el Noun1 no es nada del vocabulario EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes sacar eso." DONE SACAR _ ; Intentas sacar un objeto que llevas puesto NOTEQ 51 255 WORN @51 ONOTZERO @51 aWear WRITELN "No puedes sacar {OREF} de ningún sitio, en todo caso puedes quitártelo porque lo llevas puesto..." DONE SACAR _ ; SACAR un objeto pero no especificar de dónde NOTEQ 51 255 EQ 44 255 BZERO 12 1 WRITELN "¿De dónde quieres sacar eso?" DONE SACAR _ ; SACAR un objeto pero no especificar de dónde (encuentra una palabra que no está en el vocabulario) NOTEQ 51 255 CARRIED @51 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes sacar {OREF} de eso." DONE SACAR _ ; SACAR un objeto de un noun2 que no es un objeto. EQ 15 255 ; El segundo nombre no es un objeto WRITELN "¿De dónde dices que quieres sacar {OREF}?" DONE SACAR _ ; NOTEQ 15 255 ; Es un objeto ONOTZERO @15 aContainer ; Es un contenedor SAME 51 15 ; No puede sacarse de sí mismo DONE ; Esto es poco ortodoxo pero se entiende que, en general, el sacar algo de sí mismo solo puede ocurrir en un DOALL. Si alguien lo escribe, no obtendrá respuesta. SACAR _ ; SACAR un objeto de un contenedor que está presente pero cerrado NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; Es un contenedor ONOTZERO @15 aOpenable OZERO @15 aOpen PRESENT @15 WRITELN "Antes abre {OBJECT|15}." BREAK DONE SACAR _ ; SACAR un objeto de un contenedor que está presente pero cerrado NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; Es un contenedor ONOTZERO @15 aLockable OZERO @15 aLocked PRESENT @15 WRITELN "Antes abre {OBJECT|15}." BREAK DONE SACAR _ NOTEQ 15 255 ; Es un objeto ONOTZERO @15 aContainer ; Es un contenedor ABSENT @15 WRITELN "No puedes sacar nada de ahí porque no está aquí." DONE SACAR _ NOTEQ 15 255 ; Es un objeto ONOTZERO @15 aContainer ; Es un contenedor ABSENT @15 WRITELN "No puedes coger nada de ahí porque no está aquí." DONE SACAR _ ; SACAR un objeto de un contenedor que está presente NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; Es un contenedor PRESENT @15 AUTOT @15 DONE SACAR _ ; SACAR un objeto de una superficie que está presente NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aSupporter PRESENT @15 AUTOT @15 DONE SACAR _ NOTEQ 15 255 ; Es un objeto WRITELN "No puedes sacar cosas de ahí." DONE ;----------------------------------------------- METER _ ; Copiamos en el Flag 15 el número de objeto referenciado por noun2 (o 255 si no lo hay) WHATOX2 15 METER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres meter." DONE METER _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes meter eso que dices." DONE METER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No puedes meter eso." DONE METER _ ; No hay Noun1 entendible en la frase, y el Noun2 pasa a ocupar su lugar en la frase... BZERO 12 2 ; Tiene que dar este mensaje porque lo que queríamos que fuera el Noun1 no es nada del vocabulario EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes meter eso." DONE METER _ ; Intentar meter un objeto que llevamos puesto NOTEQ 51 255 WORN @51 ONOTZERO @51 aWear WRITELN "Primero deberías quitarte {OREF} para poder hacer eso..." DONE METER _ ; METER un objeto pero que no lo llevamos NOTEQ 51 255 NOTCARR @51 WRITELN "No llevas {OREF}." DONE METER _ ; METER un objeto del inventario y no especificar dónde NOTEQ 51 255 CARRIED @51 EQ 44 255 BZERO 12 1 WRITELN "¿Dónde quieres meter eso?" DONE METER _ ; METER un objeto del inventario y no especificar dónde (encuentra una palabra que no está en el vocabulario) NOTEQ 51 255 CARRIED @51 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes meter {OREF} a eso." DONE METER _ ; METER un objeto del inventario a un noun2 que no es un objeto. NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 EQ 15 255 ; El segundo nombre no es un objeto WRITELN "¿Dónde dices que quieres meter {OREF}?" DONE METER _ NOTEQ 15 255 ; Es un objeto ONOTZERO @15 aContainer ; Es un contenedor SAME 51 15 ; No puede meterse en sí mismo DONE ; Esto es poco ortodoxo pero se entiende que, en general, el meter algo en sí mismo solo puede ocurrir en un DOALL. Si alguien lo escribe no obtendrá respuesta. METER _ NOTEQ 15 255 ; Es un objeto ONOTZERO @15 aSupporter ; es un contenedor SAME 51 15 ; No puede meterse en sí mismo DONE ; Esto es poco ortodoxo pero se entiende que, en general, el meter algo en sí mismo solo puede ocurrir en un DOALL. Si alguien lo escribe no obtendrá respuesta. METER _ ; METER un objeto del inventario a un objeto presente pero que no es un Container ni supporter NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto OZERO @15 aContainer ; pero no es un Container OZERO @15 aSupporter ; ni una superficie PRESENT @15 WRITELN "No puedes meter cosas dentro de eso..." DONE METER _ ; METER un objeto del inventario a un Container pero que no está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; y es un Container ABSENT @15 ; pero no está WRITELN "No puedes meter {OREF} ahí porque no llevas eso." DONE METER _ ; METER un objeto del inventario a una superficie pero que no está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aSupporter ABSENT @15 ; pero no lo está WRITELN "No puedes meter {OREF} ahí porque no llevas eso." DONE METER _ ; METER un objeto presente a un contenedor que está presente pero cerrado NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; Es un contenedor PRESENT @15 ONOTZERO @15 aOpenable OZERO @15 aOpen WRITELN "Antes abre {OBJECT|15}." BREAK DONE METER _ ; METER un objeto presente a un contenedor que está presente pero cerrado con llave NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; Es un contenedor PRESENT @15 ONOTZERO @15 aLockable OZERO @15 aLocked WRITELN "Antes abre {OBJECT|15}" BREAK DONE METER _ ; METER un objeto presente a un contenedor que está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; Es un contenedor PRESENT @15 AUTOP @15 DONE METER _ ; METER un objeto presente a una superficie que está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aSupporter PRESENT @15 AUTOP @15 DONE ;----------------------------------------------- QUITAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No te puedes quitar eso que dices." DONE QUITAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres quitarte." DONE QUITAR _ AUTOR DONE ;----------------------------------------------- PONER _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No te puedes poner eso que dices." DONE PONER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres ponerte." PONER _ AUTOW DONE ;------------------------------------------------------------ TIRAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario PREP DE EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes tirar de eso que dices." DONE TIRAR _ ; No hay nombre en la frase PREP DE EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica de qué quieres tirar." DONE TIRAR _ PREP DE NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No sería adecuado." DONE TIRAR _ PREP DE NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE TIRAR _ ; Hay nombre pero no es un objeto PREP DE NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a tirar de eso." DONE TIRAR _ ; Es un objeto presente PREP DE NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada tirando de {OREF}." DONE TIRAR _ ; Es un objeto ausente PREP DE NOTEQ 51 255 ABSENT @51 WRITELN "Para tirar de {OREF} tendría que estar aquí." DONE ;----------------------------------------------- MIRAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario y la «preposición» DENTRO (EN) está presente PREP DENTRO EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes examinar dentro de eso que dices.." DONE MIRAR _ ; No hay nombre en la frase y la «preposición» DENTRO (EN) está presente PREP DENTRO EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica dentro de qué quieres examinar." DONE MIRAR _ ; Hay nombre en la frase y es una dirección (o punto cardinal) LT 34 12 WRITELN "No ves nada interesante hacia allí." DONE MIRAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes mirar eso que dices." DONE MIRAR _ ; No hay nombre en la frase EQ 34 255 DESC ;----------------------------------------------- ESCONDER _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes esconder eso que dices." DONE ESCONDER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres esconder." DONE ESCONDER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Piensas que no conseguirás que pase desapercibido." DONE ESCONDER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ESCONDER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No crees que eso sirva de algo..." DONE ESCONDER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Escondiendo {OREF} no solucionarás nada." DONE ESCONDER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- LLORAR _ WRITELN "La autocompasión no conduce a nada." DONE ;----------------------------------------------- RECORDAR _ WRITELN "No recuerdas nada que te pueda ser útil." DONE ;----------------------------------------------- SALUDAR _ WRITELN "No hay respuesta alguna." DONE ;----------------------------------------------- ESCONDETE _ WRITELN "Esa es una opción muy cobarde." DONE ;----------------------------------------------- EMPUJAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes empujar eso que dices." DONE EMPUJAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres empujar." DONE EMPUJAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE EMPUJAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aStatic PRESENT @51 WRITELN "No se mueve." DONE EMPUJAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE EMPUJAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aStatic ABSENT @51 WRITELN "No ves eso por aquí." DONE EMPUJAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a empujar eso." DONE EMPUJAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada empujando {OREF}." DONE EMPUJAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para empujar {OREF} tendría que estar aquí." DONE ;----------------------------------------------- MOVER _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes mover eso que dices." DONE MOVER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres mover." DONE MOVER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE MOVER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE MOVER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a mover eso." DONE MOVER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada moviendo {OREF}." DONE MOVER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para mover {OREF} tendría que estar aquí." DONE ;----------------------------------------------- GIRAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes girar eso que dices." DONE GIRAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres girar." DONE GIRAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No sería apropiado." DONE GIRAR _ NOTEQ 51 255 ONOTZERO @51 aStatic PRESENT @51 WRITELN "No ves utilidad en girar eso." DONE GIRAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE GIRAR _ NOTEQ 51 255 ONOTZERO @51 aStatic ABSENT @51 WRITELN "No ves eso por aquí." DONE GIRAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a girar eso." DONE GIRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No ves sentido a girar {OREF}." DONE GIRAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Girar {OREF} requiere su presencia." DONE ;----------------------------------------------- LANZAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes lanzar eso que dices." DONE LANZAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres lanzar." DONE LANZAR _ ; Es un NPC NOTEQ 51 255 ONOTZERO @51 aNPC PRESENT @51 WRITELN "La violencia no es la solución." DONE LANZAR _ ; Es scenery NOTEQ 51 255 ONOTZERO @51 aStatic PRESENT @51 WRITELN "No puedes lanzar eso." DONE LANZAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE LANZAR _ NOTEQ 51 255 ONOTZERO @51 aStatic ABSENT @51 WRITELN "No ves eso por aquí." DONE LANZAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No, no ves sentido a lanzar eso." DONE LANZAR _ ; Es un objeto llevado NOTEQ 51 255 CARRIED @51 WRITELN "Lanzas {OREF}." PLACE @51 @38 DONE LANZAR _ ; Es un objeto que no llevas NOTEQ 51 255 NOTCARR @51 WRITELN "Desgraciadamente no llevas {OREF}." DONE ;----------------------------------------------- ESCUCHAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No parece decir nada." DONE ESCUCHAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ESCUCHAR _ EQ 34 255 WRITELN "Prestas atención a ver si oyes algo más pero no escuchas nada en especial." DONE ;----------------------------------------------- COMER _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes comer eso que dices." DONE COMER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres comer." DONE COMER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que se deje. En cualquier caso no es muy apropiado." DONE COMER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aStatic PRESENT @51 WRITELN "No es muy buena idea que te comas eso." DONE COMER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE COMER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres comer eso." DONE COMER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 OZERO @51 aEdible WRITELN "No ves sentido a comerte {OREF}." DONE COMER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aEdible WRITELN "Te comes {OREF}." DESTROY @51 DONE COMER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para comerte {OREF} debería estar aquí." DONE ;----------------------------------------------- BEBER _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes beber eso que dices." DONE BEBER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres beber." DONE BEBER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Estás perdiendo el rumbo." DONE BEBER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE BEBER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres beber eso." DONE BEBER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 OZERO @51 aDrinkable WRITELN "No ves sentido a beberte {OREF}." DONE BEBER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aDrinkable WRITELN "Te bebes {OREF}." DESTROY @51 DONE BEBER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para beberte {OREF} debería estar aquí." DONE ;----------------------------------------------- MEAR _ WRITELN "No tienes ganas." DONE ;----------------------------------------------- ESCUPIR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes escupir a eso que dices." DONE ESCUPIR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica a qué quieres escupir." DONE ESCUPIR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Eso sería de muy mala educación." DONE ESCUPIR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ESCUPIR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a escupir a eso." DONE ESCUPIR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres escupir a {OREF}." DONE ESCUPIR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- TOCAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes tocar eso que dices." DONE TOCAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres tocar." DONE TOCAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No se deja." DONE TOCAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE TOCAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a tocar eso." DONE TOCAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres tocar {OREF}." DONE TOCAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- OLER _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes oler eso que dices." DONE OLER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres oler." DONE OLER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Es de mala educación." DONE OLER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE OLER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a oler eso." DONE OLER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aEdible WRITELN "La verdad es que {OREF} huele bien." DONE OLER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aDrinkable WRITELN "La verdad es que {OREF} huele bien." DONE OLER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres oler {OREF}." DONE OLER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aEdible WRITELN "La verdad es que {OREF} huele bien." DONE OLER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- AGITAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes agitar eso que dices." DONE AGITAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres agitar." DONE AGITAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE AGITAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE AGITAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a agitar eso." DONE AGITAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres agitar {OREF}." DONE AGITAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- BALANCEATE _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes balancearte en eso que dices." DONE BALANCEATE _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica dónde quieres balancearte." DONE BALANCEATE _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE BALANCEATE _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE BALANCEATE _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No es algo adecuado para balancearse." DONE BALANCEATE _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Crees que {OREF} no es algo adecuado para balancearse." DONE BALANCEATE _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- ESPERAR _ SYSMESS 35 DONE ;----------------------------------------------- DORMIR _ WRITELN "No tienes sueño." DONE ;----------------------------------------------- SALTAR _ WRITELN "Saltas, sin conseguir nada." DONE ;----------------------------------------------- REZAR _ WRITELN "Rezas todo lo que sabes." DONE ;----------------------------------------------- CAVAR _ WRITELN "No quieres cavar aquí." DONE ;----------------------------------------------- PENSAR _ WRITELN "Pensar siempre es bueno." DONE ;----------------------------------------------- DORMIR _ WRITELN "No tienes sueño." DONE ;----------------------------------------------- CANTAR _ WRITELN "Cantas fatal." DONE ;----------------------------------------------- BAILAR _ WRITELN "La verdad es que bailar no se te da muy bien..." DONE ;----------------------------------------------- ATACAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes atacar a eso que dices." DONE ATACAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica a qué o a quién quieres atacar." DONE ATACAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es buena." DONE ATACAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ATACAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "La violencia no es la solución." DONE ATACAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Atacar {OREF} no solucionará nada." DONE ATACAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí, en cualquier caso la violencia no es la solución." DONE ;----------------------------------------------- GOLPEAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes golpear a eso que dices." DONE GOLPEAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica a qué o a quién quieres golpear." DONE GOLPEAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es buena." DONE GOLPEAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE GOLPEAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "La violencia no es la solución." DONE GOLPEAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Golpear {OREF} no solucionará nada." DONE GOLPEAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí, en cualquier caso la violencia no es la solución." DONE ;----------------------------------------------- USAR _ WRITELN "USAR es demasiado genérico. Por favor, sé más concreto. Por ejemplo, si quieres barrer el suelo utiliza BARRER SUELO, no USAR ESCOBA." DONE ;----------------------------------------------- LIMPIAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes limpiar eso que dices." DONE LIMPIAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres limpiar." DONE LIMPIAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No se deja." DONE LIMPIAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE LIMPIAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a limpiar eso." DONE LIMPIAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Limpias {OREF}. No hay efecto alguno." DONE LIMPIAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- RASCAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes rascar eso que dices." DONE RASCAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres rascar." DONE RASCAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No se deja." DONE RASCAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE RASCAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres rascar eso." DONE RASCAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Rascas {OREF}. No hay efecto alguno." DONE RASCAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF}_ por aquí." DONE ;----------------------------------------------- QUEMAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes quemar eso que dices." DONE QUEMAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres quemar." DONE QUEMAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "La barbarie no solucionará tus problemas." DONE QUEMAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE QUEMAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a quemar eso." DONE QUEMAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Quemar {OREF} no es la solución." DONE QUEMAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- APAGAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes apagar eso que dices." DONE APAGAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres apagar." DONE APAGAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a apagar eso." DONE APAGAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres apagar {OREF}." DONE APAGAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- CORTAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes cortar eso que dices." DONE CORTAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres cortar." DONE CORTAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es la solución." DONE CORTAR _ NOTEQ 51 255 ONOTZERO @51 aStatic PRESENT @51 WRITELN "No crees que cortar eso sea de mucha utilidad." DONE CORTAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE CORTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a cortar eso." DONE CORTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No ves sentido a cortar {OREF}." DONE CORTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- ATAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes atar eso que dices." DONE ATAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres atar." DONE ATAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Crees que no se va a dejar." DONE ATAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ATAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a atar eso." DONE ATAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres atar {OREF}." DONE ATAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- DESATAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes desatar eso que dices." DONE DESATAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres desatar." DONE DESATAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "¿Desatarle?." DONE DESATAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE DESATAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a desatar eso." DONE DESATAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "¿Desatar {OREF}?, ¿para qué?" DONE DESATAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- LLENAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes llenar eso que dices." DONE LLENAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres llenar." DONE LLENAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a llenar eso." DONE LLENAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ; es un contenedor WRITELN "No quieres llenar {OREF}." DONE LLENAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 OZERO @51 aContainer ; no es un contenedor WRITELN "No puedes llenar {OREF}." DONE LLENAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------ NADAR _ WRITELN "Mejor no." DONE ;------------------------------------------------------- TREPAR _ WRITELN "No te apetece trepar." DONE ;----------------------------------------------- RETORCER _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes retorcer eso que dices." DONE RETORCER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres retorcer." DONE RETORCER _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es la solución." DONE RETORCER _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE RETORCER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a retorcer eso." DONE RETORCER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres retorcer {OREF}." DONE RETORCER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- APRETAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes apretar eso que dices." DONE APRETAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres apretar." DONE APRETAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es la solución." DONE APRETAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE APRETAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a apretar eso." DONE APRETAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres apretar {OREF}." DONE APRETAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- BESAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes besar eso que dices." DONE BESAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica a qué o a quién quieres besar." DONE BESAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No se deja." DONE BESAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE BESAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres besar eso." DONE BESAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres besar {OREF}." DONE BESAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- ABRAZAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes abrazar eso que dices." DONE ABRAZAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica a qué o a quién quieres abrazar." DONE ABRAZAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Ni se deja, ni crees que sea muy apropiado." DONE ABRAZAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ABRAZAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres abrazar eso." DONE ABRAZAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres abrazar {OREF}." DONE ABRAZAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- CONECTAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes conectar eso que dices." DONE CONECTAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres conectar." DONE CONECTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves la manera de conectar eso." DONE CONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aSwitchable OZERO @51 aOn OSET @51 aOn WRITELN "Activas {OREF}." DONE CONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aSwitchable ONOTZERO @51 aOn WRITELN "Ya lo está." DONE CONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No ves la manera de activar {OREF}." DONE CONECTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- DESCONECTAR _ ; No hay nombre en la frase EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes desconectar eso que dices." DONE DESCONECTAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres desconectar." DONE DESCONECTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a desconectar eso." DONE DESCONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aSwitchable ONOTZERO @51 aOn OCLEAR @51 aOn WRITELN "Desactivas {OREF}." DONE DESCONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aSwitchable OZERO @51 aOn WRITELN "Ya lo está." DONE DESCONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No puedes desconectar {OREF}." DONE DESCONECTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- ABRIR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes abrir eso que dices." DONE ABRIR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres abrir." DONE ABRIR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a abrir eso." DONE ABRIR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aOpenable ; Se puede abrir OZERO @51 aOpen ; Cerrado OZERO @51 aLocked ; No cerrado con llave OSET @51 aOpen WRITELN "Abres {OREF}." DONE ABRIR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aOpenable ; Se puede abrir OZERO @51 aOpen ; Cerrado ONOTZERO @51 aLocked ; Cerrado con llave WRITELN "Está cerrado con llave." DONE ABRIR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aOpenable ; Se puede abrir ONOTZERO @51 aOpen ; Abierto WRITELN "Ya lo está." DONE ABRIR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aOpenable ; Se puede abrir ONOTZERO @51 aOpen ; Abierto WRITELN "Ya lo está." DONE ABRIR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No puedes abrir {OREF}." DONE ABRIR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- CERRAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 WRITELN "No puedes cerrar eso que dices." DONE CERRAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres cerrar." DONE CERRAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a cerrar eso." DONE CERRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aOpenable ONOTZERO @51 aOpen OCLEAR @51 aOpen WRITELN "Cierras {OREF}." DONE CERRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aOpenable OZERO @51 aOpen WRITELN "Ya lo está." DONE CERRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No puedes cerrar {OREF}." DONE CERRAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;---------------------------------------------- CHUPAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes chupar eso que dices." DONE CHUPAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres chupar." DONE CHUPAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Eso sería muy poco apropiado." DONE CHUPAR _ NOTEQ 51 255 ONOTZERO @51 aEdible PRESENT @51 WRITELN "Piensas en comerte {OREF} pero te contienes." DONE CHUPAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE CHUPAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No te imaginas chupando eso." DONE CHUPAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres chupar {OREF}." DONE CHUPAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- ROMPER _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes romper eso que dices." DONE ROMPER _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres romper." DONE ROMPER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es buena." DONE ROMPER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ROMPER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "La violencia no es la solución." DONE ROMPER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Romper {OREF} no solucionará nada." DONE ROMPER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí; en cualquier caso, romper eso no es la solución." DONE ;----------------------------------------------- COMPRAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes comprar eso que dices." DONE COMPRAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres comprar." DONE COMPRAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Todo el mundo tiene un precio... pero no está en venta." DONE COMPRAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE COMPRAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No hay nada en venta." DONE COMPRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No hay nada en venta." DONE COMPRAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------------ DOBLAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes doblar eso que dices." DONE DOBLAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres doblar." DONE DOBLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Piensas que ya está bien como está..." DONE DOBLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE DOBLAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "Prefieres no doblar eso." DONE DOBLAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Doblar {OREF} no solucionará nada." DONE DOBLAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------------ DESDOBLAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes desdoblar eso que dices." DONE DESDOBLAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres desdoblar." DONE DESDOBLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Piensas que ya está bien como está..." DONE DESDOBLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE DESDOBLAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "¿Para qué quieres desdoblar eso?" DONE DESDOBLAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "¿Desdoblar {OREF}?, ¿para qué?" DONE DESDOBLAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------------ SALIDAS _ EXITS @38 1000 NEWLINE DONE ;------------------------------------------------------------ _ PARTIDAS LET 33 _voc_ENUMERAR ENUMERAR PARTIDAS LISTSAVEDGAMES DONE ;------------------------------------------------------------ AYUDA _ HELP DONE ;------------------------------------------------------------ VERSION _ VERSION NEWLINE DONE ;------------------------------------------------------------ DAR _ ; Cuando el pronombre lleva un NPC y hay Noun2, los intercambiamos SAME 46 34 ; cierto si el Noun1 que tenemos proviene del pronombre WHATOX 13 ; metemos el objeto referenciado en el flag 15 ONOTZERO @13 aNPC ; ¿es un NPC? NOTEQ 44 255 ; Hay Noun2 COPYFF 34 14 ; Les damos la vuelta al Noun1 y al Noun2 COPYFF 44 34 COPYFF 14 44 COPYFF 35 14 ; Les damos la vuelta al adjetivo de Noun1 y al adjetivo de Noun2 COPYFF 45 35 COPYFF 14 45 ; forzamos al «parser» a que actualice los flags del objeto referenciado WHATO DAR _ ; No hay Noun1 entendible en la frase, y el Noun2 pasa a ocupar su lugar en la frase... PREP A ; Tiene que dar este mensaje porque lo que queríamos que fuera el Noun1 no es nada del vocabulario BZERO 12 2 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes dar eso." DONE DAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres dar." DONE DAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes dar eso que dices." DONE DAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No puedes dar eso." DONE DAR _ ; Intentar dar un objeto que llevamos puesto NOTEQ 51 255 WORN @51 ONOTZERO @51 aWear WRITELN "Primero deberías quitarte {OREF} para poder hacer eso..." DONE DAR _ ; DAR un objeto pero que no lo llevamos NOTEQ 51 255 NOTCARR @51 WRITELN "No llevas {OREF}." DONE DAR _ ; DAR un objeto del inventario y no especificar a quién NOTEQ 51 255 CARRIED @51 EQ 44 255 BZERO 12 1 WRITELN "¿A quién quieres dar eso?" DONE DAR _ ; DAR un objeto del inventario y no especificar a quién (encuentra una palabra que no está en el vocabulario) NOTEQ 51 255 CARRIED @51 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes darle {OREF} a eso." DONE DAR _ ; DAR un objeto del inventario a un noun2 que no es un objeto. NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 15 EQ 15 255 ; El segundo nombre no es un objeto WRITELN "No puedes darle {OREF} a eso." DONE DAR _ ; DAR un objeto del inventario a un objeto presente pero que no es un NPC NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto OZERO @13 aNPC ; pero no es un NPC WRITELN "Estás perdiendo la cabeza..." DONE DAR _ ; DAR un objeto del inventario a un NPC pero que no está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto ONOTZERO @13 aNPC ; y es un NPC ABSENT @13 ; pero no está presente WRITELN "No le puedes dar {OREF} porque no está aquí." DONE DAR _ ; DAR un objeto presente a un NPC que está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto ONOTZERO @13 aNPC ; y es un NPC PRESENT @13 ; y está presente WRITELN "Le ofreces {OREF} pero no le hace ni caso." DONE ;------------------------------------------------------------ MOSTRAR _ ; Cuando el pronombre lleva un NPC y hay Noun2, los intercambiamos SAME 46 34 ; cierto si el Noun1 que tenemos proviene del pronombre WHATOX 13 ; metemos el objeto referenciado en el flag 15 ONOTZERO @13 aNPC ; ¿es un NPC? NOTEQ 44 255 ; Hay Noun2 COPYFF 34 14 ; Les damos la vuelta al Noun1 y al Noun2 COPYFF 44 34 COPYFF 14 44 COPYFF 35 14 ; Les damos la vuelta al adjetivo de Noun1 y al adjetivo de Noun2 COPYFF 45 35 COPYFF 14 45 ; forzamos al «parser» a que actualice los flags del objeto referenciado WHATO MOSTRAR _ ; No hay Noun1 entendible en la frase, y el Noun2 pasa a ocupar su lugar en la frase... PREP A ; Tiene que dar este mensaje porque lo que queríamos que fuera el Noun1 no es nada del vocabulario BZERO 12 2 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes mostrar eso." DONE MOSTRAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres mostrar." DONE MOSTRAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes mostrar eso que dices." DONE MOSTRAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No puedes mostrar eso." DONE MOSTRAR _ ; Intentar mostrar un objeto que llevamos puesto NOTEQ 51 255 WORN @51 ONOTZERO @51 aWear WRITELN "Primero deberías quitarte {OREF} para poder hacer eso..." DONE MOSTRAR _ ; MOSTRAR un objeto pero que no lo llevamos NOTEQ 51 255 NOTCARR @51 WRITELN "No llevas {OREF}." DONE MOSTRAR _ ; MOSTRAR un objeto del inventario y no especificar a quién NOTEQ 51 255 CARRIED @51 EQ 44 255 BZERO 12 1 WRITELN "¿A quién quieres mostrar eso?" DONE MOSTRAR _ ; MOSTRAR un objeto del inventario y no especificar a quién (encuentra una palabra que no está en el vocabulario) NOTEQ 51 255 CARRIED @51 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes mostrarle {OREF} a eso." DONE MOSTRAR _ ; MOSTRAR un objeto del inventario a un noun2 que no es un objeto. NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 EQ 13 255 ; El segundo nombre no es un objeto WRITELN "No puedes mostrarle {OREF} a eso." DONE MOSTRAR _ ; MOSTRAR un objeto del inventario a un objeto presente pero que no es un NPC NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto OZERO @13 aNPC ; pero no es un NPC WRITELN "Estás perdiendo la cabeza..." DONE MOSTRAR _ ; MOSTRAR un objeto del inventario a un NPC pero que no está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto ONOTZERO @13 aNPC ; y es un NPC ABSENT @13 ; pero no está presente WRITELN "No le puedes mostrar {OREF} porque no está aquí." DONE MOSTRAR _ ; MOSTAR un objeto presente a un NPC que está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto ONOTZERO @13 aNPC ; y es un NPC PRESENT @13 ; y está presente WRITELN "Le muestras {OREF} pero no le hace ni caso." DONE ;------------------------------------------------------------ SOPLAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes soplar eso que dices." DONE SOPLAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica a qué quieres soplar." DONE SOPLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE SOPLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE SOPLAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a soplar eso." DONE SOPLAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres soplar {OREF}." DONE SOPLAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves eso que dices." DONE ;------------------------------------------------------------ GRITAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Mejor no, puede enfadarse." DONE GRITAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "Gritas con fuerza pero no te oye." DONE GRITAR _ WRITELN "Gritas lo más fuerte que puedes y... no sucede nada." DONE ;------------------------------------------------------------ DESPERTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que haga falta." DONE DESPERTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE DESPERTAR _ WRITELN "Pellizcas tu mejilla creyendo que despertarás pero... no estás soñando...¿o sí?" DONE ;----------------------------------------------- LEVANTAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes levantar eso que dices." DONE LEVANTAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres levantar." DONE LEVANTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE LEVANTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE LEVANTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a levantar eso." DONE LEVANTAR _ ; Es un objeto presente pero pesa demasiado (IMPORTANTE) NOTEQ 51 255 PRESENT @51 GT 55 52 WRITELN "No puedes levantar {OREF}. Pesa demasiado." DONE LEVANTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No conseguirás nada levantando eso." DONE LEVANTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para levantar {OREF} tendría que estar aquí." DONE ;----------------------------------------------- ARRASTRAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes arrastrar eso que dices." DONE ARRASTRAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres arrastrar." DONE ARRASTRAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE ARRASTRAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ARRASTRAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a arrastrar eso." DONE ARRASTRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada arrastrando {OREF}." DONE ARRASTRAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para arrastrar {OREF} tendría que estar aquí." DONE ;------------------------------------------------------------ VACIAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes vaciar eso que dices." DONE VACIAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres vaciar." DONE VACIAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No es lo más apropiado." DONE VACIAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE VACIAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a vaciar eso." DONE VACIAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres vaciar {OREF}." DONE VACIAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------------ LLAMAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes llamar a eso que dices." DONE LLAMAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica a qué o a quién quieres llamar." DONE LLAMAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No hay respuesta..." DONE LLAMAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE LLAMAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a llamar a eso." DONE LLAMAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres llamar a {OREF}." DONE LLAMAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------------ PREGUNTAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes preguntar a eso que dices." DONE PREGUNTAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica a quién quieres preguntar." DONE PREGUNTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No hay respuesta alguna..." DONE PREGUNTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE PREGUNTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a preguntar a eso." DONE PREGUNTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres preguntar a {OREF}." DONE PREGUNTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- CONSULTAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes consultar eso que dices." DONE CONSULTAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres consultar." DONE CONSULTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a consultar eso." DONE CONSULTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres consultar {OREF}." DONE CONSULTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- INSULTAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes insultar a eso que dices." DONE INSULTAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica a quién quieres insultar." DONE INSULTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No parece hacerte ni caso..." DONE INSULTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE INSULTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No conseguirás nada insultando a eso." DONE INSULTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Estás perdiendo la cabeza..." DONE INSULTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Ni ves eso que dices, ni crees que sea útil insultarle." DONE ;------------------------------------------------------------ UNIR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes unir eso que dices." DONE UNIR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres unir." DONE UNIR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE UNIR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE UNIR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a unir eso." DONE UNIR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada uniendo {OREF}." DONE UNIR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para unir {OREF} tendría que estar aquí." DONE ;----------------------------------------------- SEPARAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes separar eso que dices." DONE SEPARAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué quieres separar." DONE SEPARAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE SEPARAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE SEPARAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a separar eso." DONE SEPARAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada separando {OREF}." DONE SEPARAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para separar {OREF}, tendría que estar aquí." DONE ;----------------------------------------------- HABLAR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes hablar con eso que dices." DONE HABLAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica con quién quieres hablar." DONE HABLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No parece interesarse por tu charla." DONE HABLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE HABLAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres hablarle a eso." DONE HABLAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Estás perdiendo la cabeza..." DONE HABLAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Ni ves eso que dices, ni crees que sea útil hablarle." DONE ;------------------------------------------------------------ IR _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes ir ahí donde dices." DONE IR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica dónde quieres ir." DONE IR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Prefieres no acercarte más..." DONE IR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No sabes dónde está." DONE IR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a ir hacia eso." DONE IR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres ir a {OREF}." DONE IR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves eso que dices." DONE ;########## RUTINA DE «NO PUEDES IR EN ESA DIRECCIÓN» EXTENDIDA #################### _ _ LT 33 14 MOVE 38 PROCESS 26 ; Proceso para saber si se lleva la linterna DESC _ _ LT 33 14 PLUS 33 1002 WRITE "No puedes ir " MES @33 WRITE ". " MINUS 33 1002 EXITS @38 1000 NEWLINE DONE _ _ HOOK "RESPONSE_DEFAULT_END" ; «Back call» a el sistema de hooks. Por defecto no hace nada pero algunas librerías plugin podrían necesitarlo. No borrar. /PRO 1 ; ################################### PROCESO 1 #################################### ; # # ; # ngPAWS ejecuta el proceso 1 tras la descripción de localidad. # ; # # ; # Se usa principalmente para poner entradas que añadirán información adicional # ; # a la descripción de la localidad actual. Por ejemplo, detalles sobre # ; # puertas abiertas, PSI presentes, etc. # ; # # ; ################################################################################## _ _ HOOK "PRO1" ; «Back call» a el sistema de hooks. Por defecto no hace nada pero algunas librerías plugin podrían necesitarlo. No borrar. ;_ _ ; COMPROBAR Para no volver a ver los créditos. No funciona ; AT 0 ; EQ 255 1 ; GOTO 2 _ _ AT 0 TITLE "La aventura original" BSET 12 5 ; Spanish SET fGraficosActivados LET 53 64 ; Lista los objetos en modo continuo, en lugar de uno debajo del otro ;CLEAR 11 ; De McArras OCLEAR oBotella aFull ; debe estar vacía al principio. COMMAND 0 GOTO 1 DESC ; BLOCK "LA AVENTURA ORIGINAL" intro.png PROCINICIO _ _ ; Si el jugador está en el laberinto, muestra el mensaje de que está perdido ATGT lLava ATLT lBosqueProf ;MES 95 WRITELN "Esta parte del bosque es muy densa, los árboles te impiden orientarte bien y son todos muy parecidos. Vagas por entre la maleza buscando tu rumbo pero pronto te das cuenta de que estás algo despistadillo." _ _ AT lFrontera ZERO fConsejo NEWLINE WRITELN "Si es la primera vez que juegas a una aventura conversacional y no sabes por dónde empezar, teclea «AYUDA»." SET fConsejo DONE _ _ AT 1 SET 255 ; COMPROBAR flag 255 ; ;Init solamente la primera vez MESSAGE 99 ANYKEY CLS GOTO 2 DESC _ _ AT 2 ABILITY 5 255 ; Máx objetos, máx peso MESSAGE 77 ANYKEY CLS GOTO lFrontera COMMAND 1 DESC _ _ TIME 47 1 ; TIEMP _ _ AT lPozo ISNOTLIGHT WRITELN "¡Puaj! Aquí apesta. " _ _ AT lRamas LT fLlave 255 WRITELN "El sol hace brillar algo en una rama." _ _ AT lBosqueCer ZERO fElfito LET fElfito 1 _ _ NOTAT lBoscillo EQ fElfito 1 LET fElfito 2 _ _ AT lBosqueCer EQ fElfito 2 WRITELN "Oyes un débil llanto y con dificultad ves una figura traslúcida." _ _ AT lBosqueCer EQ fElfito 3 WRITELN "«¡Mi casa!»" _ _ AT lLava ZERO fEnano LET fEnano 1 _ _ NOTAT lLava EQ fEnano 1 LET fEnano 2 _ _ AT lLava EQ fEnano 2 LET fEnano 3 _ _ NOTAT lLava EQ fEnano 3 LET fEnano 4 _ _ AT lReja WRITE "Estás en una depresión de siete metros. El valle se estrecha hacia el sur." EQ fElfito 4 ; elfito contigo LT fCandado 3 ; puerta no abierta WRITELN " Elfito da saltos de alegría." SUR _ AT lReja EQ fElfito 4 ; elfito contigo EQ fCandado 3 ; la habías abierto cuando no iba contigo WRITELN " Elfito da saltos de alegría." _ _ AT lReja EQ fCandado 0 ;PICTURE 26 ; COMPROBAR MES 53 MES 55 MESSAGE 54 _ _ AT lReja EQ fCandado 1 ;PICTURE 26 MES 53 MES 56 MESSAGE 54 _ _ AT lReja EQ fCandado 2 PICTURE loc26sincand.png MES 53 MESSAGE 54 _ _ AT lReja EQ fCandado 3 PICTURE 27 ; COMPROBAR WRITELN " Tienes ante ti la entrada a La Gran Caverna." _ _ AT lReja EQ fElfito 4 EQ fCandado 3 SET fElfito NEWLINE WRITELN "Elfito dice: «¡Mi casa!»" WRITELN "«Mi agradecimiento está sobre la mesa.» Y penetra en las profundidades." PLACE oTortilla lPicnic _ _ EQ fElfito 4 PLUS fElfitoEnCasa 1 EQ fElfitoEnCasa 2 CLEAR fElfitoEnCasa _ _ EQ fElfito 4 ZERO fElfitoEnCasa NOTAT lReja NOTAT lMuerte NEWLINE WRITELN "«No es aquí.»" _ _ EQ fElfito 4 EQ fElfitoEnCasa 1 NOTAT lReja NOTAT lMuerte NEWLINE WRITELN "«¡Mi casa!»" _ _ AT lLava WRITE "El calor que se desprende de la burbujeante lava es asfixiante. Un enorme penacho de cenizas se desprende flotando perezosamente del ardiente magma, dejando una peste cosa mala. Imprudentemente estás haciendo el payaso en el peligroso borde del volcán" _ _ AT lLava LT fEnano 255 WRITELN " junto a un enano que rabia de amargura." _ _ AT lLava EQ fEnano 255 WRITELN "." _ _ AT lMuerte ; Muerte COMMAND 0 WRITE "Has jugado durante " PRINT 31 WRITELN " turnos." NEWLINE WRITELN "{RESTART|Volver a jugar}" TIME 0 0 _ _ AT lP2Hab02 LET 8 200 ; duración de la pila ; ALERTA per debugging 10. Should be 200 ABILITY 7 255 CLS PICTURE 30 WRITELN "Con un click la puerta se cierra mágicamente..." ANYKEY GOTO lP2Hab03 DESC _ _ AT lP2Hab91 PROCESS 21 ; COMPROBAR En 2ª parte era PROCESS 15 LT fTesorosFaltan 4 GT fTesorosFaltan 1 NEWLINE WRITE "Ánimo, solo te faltan " PRINT fTesorosFaltan ; ¿Número de tesoros? WRITELN "." _ _ AT lP2Hab91 EQ fTesorosFaltan 1 NEWLINE WRITELN "Si no has perdido el último tesoro vencerás a la Gran Caverna." _ _ AT lP2Hab03 ZERO fEntradaAbierta NOTZERO fElfito2Phasalido WRITELN "Mágicamente, dándote otra oportunidad de vivir, la puerta se abre..." SET fEntradaAbierta ANYKEY DESC _ _ PROCESS 18 ; COMPROBAR En 2ª es Process 18 _ _ AT lP2ApestosaJaula CLEAR fTroll _ _ AT lP2Hab03 ZERO fEntradaAbierta PICTURE 31 WRITELN "Te encuentras en una pequeña cueva, rodeado de húmedas rocas. Los rayos del sol penetran a través de los barrotes de la cerrada reja. Hacia el oeste sale un pasadizo bajo y oscuro que se pierde en el misterio." _ _ AT lP2Hab03 NOTZERO fEntradaAbierta PICTURE loc30.png WRITELN "Te encuentras en la salida al exterior de la cueva. Vuelves a ver los rayos del sol." ; Si dejas esto al final los objetos siempre se listan después de las descripciones _ _ ISLIGHT NOTAT lP2Hab91 LISTOBJ ;Lista los objetos LISTNPC @38 ;Lista las personas /PRO 2 ; ################################### PROCESO 2 #################################### ; # # ; # ngPAWS ejecuta el proceso 2 cada turno. # ; # # ; # Se usa principalmente para implementar movimientos y acciones de PSIs, # ; # eventos no controlados por el jugador como por ejemplo puentes que se hunden, # ; # puertas que se abren, etc. # ; # # ; ################################################################################## _ _ HOOK "PRO2" ; «Back call» a el sistema de hooks. Por defecto no hace nada pero algunas librerías plugin podrían necesitarlo. No borrar. ; COMPROBAR No todos estos condactos son para comprobar cada turno _ _ NOTZERO 0 ;ABSENT oLinterna OBJNOTFOUND aOn HERE ZERO 9 SET 9 _ _ PRESENT oLinterna ONOTZERO oLinterna aOn CLEAR 9 _ _ ZERO 0 CLEAR 9 _ _ ISAT oLinterna NOTCREATED ; COMPROBAR ONOTZERO oLinterna aOn NOTZERO 8 PLUS 8 1 _ _ EQ 8 1 LET 8 2 PRESENT oLinterna ONOTZERO oLinterna aOn ;SWAP 2 0 OCLEAR oLinterna aOn SET 0 CLS WRITELN "¡La linterna se ha apagado!" DESC _ _ LT fEnano2P 2 SET 7 _ _ EQ 7 250 PAUSE 100 PROCESS 15 ; COMPROBAR Antes Process 8 PAUSE 150 WRITELN "Maluva te parte en dos la cabeza." NEWTEXT ANYKEY ;PROCESS 17 ; COMPROBAR En 2ª parte era Process 17 CLEAR 0 GOTO lP2NoHasLogrado ;ANYKEY DESC _ _ PLUS fSerpiente 1 NOTAT lP2Trono LT fSerpiente 9 CLEAR fSerpiente _ _ EQ fSerpiente 9 WRITELN "El reptil te marca sus colmillos en el cuello, y se marcha." _ _ EQ fSerpiente 16 WRITELN "El veneno te ha matado." CLEAR 0 GOTO lP2NoHasLogrado ANYKEY DESC _ _ PRESENT oLinterna ONOTZERO oLinterna aOn EQ 8 60 WRITELN "La linterna va mal. La luz parpadea." MINUS 8 1 _ _ PRESENT oLinterna ONOTZERO oLinterna aOn NOTZERO 8 LT 8 50 WRITELN "¡La linterna apenas da luz!" _ _ LT 9 250 NOTZERO 9 WRITELN "Tropiezas en la oscuridad y te desnucas." ANYKEY CLEAR 0 GOTO lP2NoHasLogrado DESC _ _ AT lP2Hab54 ZERO fDragon LET fDragon 4 _ _ AT lP2Hab54 LT fDragon 255 GT fDragon 1 MINUS fDragon 1 _ _ AT lP2Hab54 PROCESS 19 ; COMPROBAR Antes process _ _ LT fEnano2P 2 LT fEnano2P120 5 CHANCE 9 ATGT lP2Hab43 ATLT lP2HabBlanda NOTAT lP2Hab47 NOTAT lP2Hab52 NOTAT lP2HabSecreta NOTAT lP2Hab54 NOTAT lP2GalAlta NOTAT lP2LagSubte NOTAT lP2Hab58 NOTAT lP2Hab59 NOTAT lP2Hab91 PLUS fEnano2P 1 CLS NEWTEXT WRITELN "¡El enano Maluva sale de entre las sombras! Chorreando espesa baba avanza bamboleante hacia ti." PROCESS 15 ; COMPROBAR Antes Process 8 EQ fEnano2P 1 ; ALERTA Falla y no sé por qué. ¿Por poner un PAUSE antes de un CLS? PAUSE 150 PLACE oHacha @38 ; 255 WRITELN "...¡y falla por poco!" PAUSE 100 WRITELN "Con un gran insulto vuelve a las tinieblas." ANYKEY ;PROCESS 17 ; COMPROBAR En 2ª parte era Process 17 DESC _ _ NOTAT lP2Hab03 NOTAT lP2Trono NOTAT lP2Hab91 NOTAT lP2ApestosaJaula NOTAT lP2Hab54 NOTAT lP2Hab19 PROCESS 16 ; COMPROBAR En 2ª parte era Process 16 _ _ AT lP2Hab91 CLEAR fTesoros ZERO fElfito2Phasalido DOALL lP2Hab91 ;WHATO _ _ AT lP2Hab91 GT 51 oCanto ; ALERTA los tesoros son mayores que oCanto. CAMBIAR a aTesoro PLUS fTesoros 1 _ _ AT lP2Hab91 EQ fTesoros 14 PAUSE 100 CLS ;WINDOW 5 ;PRINTAT 10 0 WRITE "\1
------- LOS TESOROS DE -------
" WRITE "\1
----- LA CAVERNA ORIGINAL ----
" WRITELN "\1
---------- SON TUYOS ---------
" NEWLINE ANYKEY CLS ;PRINTAT 6 0 WRITELN "\1
FELICIDADES
" NEWLINE WRITELN " Aparece Elfito y te dice:" NEWLINE WRITELN " «Al haber perdido todos sus tesoros La Gran Caverna no tiene razón para seguir existiendo y está a punto de derrumbarse, larguémonos cuanto antes»" NEWLINE WRITELN " y se las pira..." NEWLINE ANYKEY CLS LET fElfito2Phasalido 11 DESC _ _ NOTZERO fElfito2Phasalido MINUS fElfito2Phasalido 1 ZERO fElfito2Phasalido CLS WRITELN "Tal como dijo Elfito, sin tesoros que le den fuerza vital, la caverna se colapsa. El cataclismo acaba con todo ser viviente." NEWLINE ANYKEY CLS CLEAR 0 GOTO lP2NoHasLogrado DESC _ _ ; COMPROBAR si es necesario EQ 5 1 WRITELN "Algo que has hecho te impide completar la aventura." LET 5 4 DONE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 3 ; Respuesta a AYUDA dependiendo del lugar ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; AYUDA _ NOTZERO 5 MESSAGE 96 DONE AYUDA _ AT lPozo ABSENT oLinterna MESSAGE 8 DONE AYUDA _ ATGT 12 ATLT 16 MESSAGE 9 DONE AYUDA _ AT lReja EQ fCandado 0 MESSAGE 10 DONE AYUDA _ AT lReja EQ fCandado 3 ; puerta abierta ;MESSAGE 119 WRITELN "No llevas todos los objetos que necesitas, por lo tanto la magia de La Gran Caverna te impide el paso." DONE AYUDA _ AT lEspiral ;MESSAGE 36 ; Tate pa la faena WRITELN "Examina lo que has encontrado. Explora toda la zona." DONE AYUDA _ AT lBosqueCer NOTCARR oLinterna MESSAGE 8 DONE _ _ CHANCE 10 MESSAGE 36 _ _ MESSAGE 11 NEWLINE WRITELN "Algunas de las preguntas más frecuentes son:" HELP DONE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 4 ; Todo lo que se puede examinar (parte 1) ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; EXAMINAR ESTRUCTURA AT lRampa WRITELN "No la ves desde aquí." DONE EXAMINAR ESTRUCTURA AT lRampa2 WRITELN "No estás suficientemente cerca." DONE EXAMINAR ESTRUCTURA AT lEspiral LET 34 _voc_ESPIRAL EXAMINAR SENDA AT lRampa WRITELN "Es una sólida y bella construcción." DONE EXAMINAR SENDA AT lRampa2 WRITELN "Continúa hacia una extraña construcción." DONE EXAMINAR SENDA AT lPrecipicio WRITELN "No hay nada que te llame la atención. Acaban aquí." DONE EXAMINAR LINTERNA PRESENT oLinterna OZERO oLinterna aOn MESSAGE 16 DONE EXAMINAR LINTERNA PRESENT oLinterna ONOTZERO oLinterna aOn MESSAGE 15 DONE EXAMINAR MONEDA PRESENT oMoneda MESSAGE 17 DONE EXAMINAR TORTILLA PRESENT oTortilla MESSAGE 19 DONE EXAMINAR BOTAS PRESENT oBotas WRITELN "Estas botas tienen un tacón muy alto pero no son de tu número." DONE EXAMINAR BOTELLA PRESENT oBotella OZERO oBotella aFull WRITELN "Es de vidrio y está vacía." ;MESSAGE 20 DONE EXAMINAR BOTELLA PRESENT oBotella ONOTZERO oBotella aFull ;MESSAGE 124 WRITELN "La tienes llena de agua fresca y fertilizante." DONE EXAMINAR LLAVE PRESENT oLlave MESSAGE 21 DONE EXAMINAR PILAS PRESENT oPila MESSAGE 22 DONE EXAMINAR CASITA AT lFrontera WRITELN "Es una sólida construcción que antaño perteneció a los dueños del valle, hoy está abandonada." DONE EXAMINAR CASITA AT lColina WRITELN "Se ve tan pequeña que parece de juguete." DONE EXAMINAR HUMO AT lColina WRITELN "La columna de humo sube de forma lenta, casi poética." DONE EXAMINAR FUEGO AT lColina WRITELN "La imagen del volcán es aterradora. Suerte que está lejos." DONE EXAMINAR ESPIRAL AT lColina WRITELN "Está hacia al sur. No sabrías describirla muy bien desde aquí." DONE EXAMINAR CAVERNA AT lReja WRITELN "La entrada es pequeña pero lo suficientemente amplia para que pases por ella y penetres a un Mundo Mágico." DONE EXAMINAR POZO AT lHabGuarra WRITELN "La boca del pozo está muy oscura." DONE EXAMINAR RIO AT lPozo PRESENT oLinterna ONOTZERO oLinterna aOn WRITE "Chapoteas tocando gelatinosas babosidades " PAUSE 15 WRITELN "¡pero de monedas nada, listillo!" DONE EXAMINAR RIO AT lPozo ;PRESENT oLinterna ;ONOTZERO oLinterna aOn ISLIGHT ZERO fMoneda ;MES 6 WRITE "Chapoteas tocando asquerosas gelatinosas babosidades " PAUSE 100 ;MESSAGE 7 WRITELN "y de pronto descubres que hay ¡una moneda!" CREATE oMoneda SET fMoneda EXTERN "previous_noun=51" ; ALERTA oMoneda ;descubres una moneda... cógela... DONE EXAMINAR RIO AT lFrontera WRITELN "Dicen que las aguas de este río tienen la mágica propiedad de hacer crecer semillas muy viejas." DONE EXAMINAR BOSQUE AT lFrontera WRITELN "No dan muchas ganas de meterse en él pero no conseguirás nada quedándote aquí. ¿Con qué tipo de criaturas te vas a encontrar?" DONE EXAMINAR RIO AT lValle WRITELN "Has oído decir que las aguas de este río tienen mágicas propiedades. Que pueden hacer crecer semillas de cualquier tipo." DONE EXAMINAR BOSQUE AT lValle WRITELN "Es un bosque frondoso. Si no fuera por el valle en el que estás, no verías el sol." DONE EXAMINAR VALLE AT lValle WRITELN "Es un lugar bellísimo pero no deberías admirar los parajes, esta es una tierra que seguro está llena de peligros..." DONE EXAMINAR LECHO AT lValle WRITELN "El agua corre. Ves que el caudal mengua hacia el sur." DONE EXAMINAR VALLE AT lValleProf WRITELN "Sientes una extraña sensación. Algo te da muy mala espina..." DONE EXAMINAR LECHO AT lValleProf WRITELN "Cada vez más seco, el agua se pierde entre las grietas." DONE EXAMINAR RIO AT lValleProf WRITELN "Sabes de buena tinta que las aguas de este río son mágicas. Dicen que pueden hacer crecer todo tipo de semillas." DONE EXAMINAR CABAÑA AT lCampo WRITELN "Inlcuso desde aquí se puede apreciar el mal estado en el que está." DONE EXAMINAR RAMAS AT lFrontera MESSAGE 26 DONE EXAMINAR RAMAS AT lTapizado MESSAGE 26 DONE EXAMINAR RAMAS AT lColina MESSAGE 26 DONE EXAMINAR RAMAS AT lRamas LT fLlave 2 MESSAGE 72 LET fLlave 1 DONE EXAMINAR RAMAS AT lBosqueProf WRITELN "Por su posición y solidez proporciona una fácil subida." DONE EXAMINAR RAMAS ATGT 12 ATLT 24 MESSAGE 26 DONE EXAMINAR VOLCA ATGT 5 ATLT 10 MESSAGE 27 DONE EXAMINAR MAGMA AT lTapizado ;MESSAGE 28 WRITELN "¿Estás de broma? Es demasiado peligroso. Te estás quedando sin cejas del calor que notas ya desde aquí." DONE EXAMINAR MAGMA AT lLava WRITELN "¿Estás de broma? Si antes ya era peligroso ahora vas a arder si te acercas más." DONE EXAMINAR PRECI AT lPrecipicio ;MESSAGE 28 WRITELN "Solo de imaginar que te asomas al vacío ya te estás mareando, como para acercarse." DONE EXAMINAR ENANO AT lLava LT fEnano 255 WRITELN "Como los del circo. Parece tener muy mala uva. Para comunicarte, «dile algo»." DONE EXAMINAR COLINA AT lTapizado WRITELN "Seguro que desde allí hay buenas vistas." DONE EXAMINAR ROCAS AT lPaisajeAl WRITELN "De un color oscuro. Cada una de una forma más excepcional que la anterior." DONE EXAMINAR MALEZA AT lArida WRITELN "No serviría de mucho. Ni tan siquiera si pudieras acercar la mano." DONE EXAMINAR HABIT AT lHabGuarra DESC EXAMINAR VENTA AT lHabGuarra MESSAGE 30 DONE EXAMINAR ESCAL AT lHabGuarra MESSAGE 31 DONE EXAMINAR DESCONCHAD AT lHabGuarra WRITELN "¡Puaj! No te quieres acercar más. ¡Qué asco! ¿Qué es eso que está pegado ahí? Mejor no saberlo." DONE EXAMINAR PAREDES AT lHabGuarra WRITELN "¡Aj! Si sigues investigando vas acabar por vomitar. ¡Qué asco!" DONE EXAMINAR SUELO AT lHabGuarra WRITELN "¡Buaaaaagghhh! No... argh... es pegajoso... ¡puaj!" DONE EXAMINAR ESCAL AT lPozo PRESENT oLinterna ;encendida ONOTZERO oLinterna aOn MESSAGE 32 DONE EXAMINAR CHARC AT lPozo ;PRESENT oLinterna ;encendida ;ONOTZERO oLinterna aOn ISLIGHT ZERO fMoneda ;MES 6 WRITE "Chapoteas tocando asquerosas gelatinosas babosidades " PAUSE 10 ;MESSAGE 7 WRITELN "y de pronto descubres que hay ¡una moneda!" CREATE oMoneda DONE EXAMINAR CHARC AT lPozo ISLIGHT ;MES 6 WRITE "Chapoteas tocando gelatinosas babosidades " PAUSE 10 ;MESSAGE 12 WRITELN "¡pero de monedas nada, listillo!" DONE EXAMINAR ESPIRAL AT lEspiral WRITELN "Es una construcción altísima y de un brillo metálico, pero de superficie tan resbaladiza que la hace inexpugnable." DONE EXAMINAR MESAS AT lPicnic MESSAGE 34 DONE EXAMINAR SILLA AT lPicnic MESSAGE 34 DONE EXAMINAR GRIETAS AT lValleProf WRITELN "Son ranuras estrechas por las que se cuela el agua del río." DONE EXAMINAR REJAS AT lReja LT fCandado 2 ; reja cerrada con candado abierto o cerrado ;MESSAGE 38 WRITELN "Es muy fuerte. Impide la entrada." DONE EXAMINAR DEPRESION AT lReja WRITELN "Esta zona es la más inquietante de las que has estado desde hace un rato." DONE EXAMINAR VALLE AT lReja WRITELN "Mmmm... hacia el sur se hace cada vez más estrecho. Hacia el norte se ensancha." DONE EXAMINAR ENTRADA AT lReja WRITELN "Un aire pútrido te da en la cara. El olor es tan nauseabundo que te preguntas si todo esto merece la pena." DONE EXAMINAR CANDADO AT lReja EQ fCandado 0 ; reja cerrada con candado cerrado ;MESSAGE 38 WRITELN "No parece que se pueda forzar con nada. Habrá que buscar la llave que lo abre." DONE EXAMINAR CANDADO AT lReja EQ fCandado 1 ; reja cerrada con candado abierto ;MESSAGE 38 WRITELN "Está abierto pero sigue ahí puesto." DONE EXAMINAR CANDADO AT lReja EQ fCandado 2 ; reja cerrada sin candado WRITELN "Ha desaparecido delante de tus ojos" DONE EXAMINAR CANON AT lCanon WRITELN "Es un lugar excepcional, imaginas cómo debió ser hace años, cuando el río caía por aquí." DONE EXAMINAR CASCADA AT lCanon WRITELN "Este lugar es la Gran Cascada del jefe de los enanos, aunque ya no haya agua. Ahora, es un lugar tan bello como desolador." DONE EXAMINAR PRECIPICIO AT lCanon WRITELN "¡Uuaahhh! Te estás mareando de lo profundo que es. Deja de hacer tonterías que te vas a matar." DONE EXAMINAR CORTADO AT lCanon WRITELN "Ves la pared casi vertical. Imposible de escalar, ni tan siquiera teniendo el equipo adecuado. Como para intentarlo sin él: Muerte segura." DONE LEER TEXTO AT lPicnic MESSAGE 13 DONE EXAMINAR FIGUR AT lBosqueCer PRESENT oLinterna ONOTZERO oLinterna aOn EQ fElfito 2 MESSAGE 63 LET fElfito 3 DONE EXAMINAR FIGUR AT lBosqueCer EQ fElfito 2 MESSAGE 64 DONE EXAMINAR FIGUR AT lBosqueCer GT fElfito 2 LT fElfito 5 WRITELN "Tiene un aspecto peculiar." DONE EXAMINAR FIGUR EQ fElfito 4 WRITELN "Tiene un aspecto peculiar." DONE EXAMINAR BRILL AT lRamas LT fLlave 2 MESSAGE 72 LET fLlave 1 DONE EXAMINAR _ ISNOTLIGHT WRITELN "No ves nada de nada." DONE ;----------------------------------------------- ; Movido de las respuestas por defecto para que sean detectadas por el «sistema de AD» EX _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario y la «preposición» DENTRO (EN) está presente PREP DENTRO EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes examinar dentro de eso que dices." DONE EX _ ; No hay nombre en la frase y la «preposición» DENTRO (EN) está presente PREP DENTRO EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica dentro de qué quieres examinar." DONE EX _ ; Posiblemente en la frase hay un nombre no incluido en el vocabulario EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes examinar eso que dices." DONE EX _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor, especifica qué o a quién quieres examinar." DONE EX _ ; hay nombre, y es propio, y la «preposición» DENTRO (EN) esta presente PREP DENTRO NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Vaya ocurrencia..." DONE EX _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE EX _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Es de mala educación." DONE EX _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE EX _ ; Hay nombre pero no es un objeto, «prep.» DENTRO presente PREP DENTRO NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a examinar dentro de eso." DONE EX _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a examinar eso." DONE EX _ ; Es un objeto presente y contenedor, transaparente con cosas dentro NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ONOTZERO @51 aTransparent OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial " LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente y contenedor, que no se puede abrir NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer OZERO @51 aOpenable OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial " LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente y contenedor, que se puede abrir y está abierto con cosas dentro NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ONOTZERO @51 aOpenable ONOTZERO @51 aOpen OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial" LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente y contenedor, que se puede abrir y cerrado NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ONOTZERO @51 aOpenable OZERO @51 aOpen WRITELN "Examinas {OREF} pero no ves nada especial. Si lo abres podrás ver su contenido." DONE EX _ ; Es un objeto presente y contenedor, lockable y locked NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ONOTZERO @51 aLockable OZERO @51 aLocked WRITELN "Examinas {OREF} pero no ves nada especial. Si lo abres podrás ver su contenido." DONE EX _ ; Es un objeto presente y supporter con algo encima NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aSupporter OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial " LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Examinas {OREF} pero no ves nada especial." DONE EX _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 5 ; Muerteeee ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; _ _ ;PAUSE 150 GOTO lMuerte DESC ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 6 ; Muerte ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; _ _ ;MESSAGE 29 WRITE "La lava te reduce a cenizas." PAUSE 100 WRITELN " Flotas en forma de nube." PAUSE 100 ;MESSAGE 40 MESSAGE 43 ; Pareces estar un poco muerto. ANYKEY PROCESS 5 ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 7 ; Muerteee ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; _ _ MESSAGE 41 PAUSE 150 MESSAGE 42 PAUSE 150 MESSAGE 43 ANYKEY PROCESS 5 ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 8 ; Muerteeee ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; _ _ MESSAGE 41 PAUSE 150 WRITELN "Te rompes el hocico contra la raíz del árbol." PAUSE 150 MESSAGE 43 ANYKEY PROCESS 5 ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 9 ; Conversación con Elfito ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; _ _ PARSE NOTEQ fElfito 3 ; ;MESSAGE 97 WRITELN "«¿Qué dices?»" DONE _ _ EQ fElfito 3 ZERO fDichoCasa NEWLINE WRITELN "«¡Mi casa!»" SET fDichoCasa DONE AYUDA _ ;MESSAGE 76 WRITELN "«Cuando encuentre mi casa.»" DONE _ MIERDA LET 33 _voc_PUTA ; Era LET 33 96 ; Ya es verbo 119 PUTA _ LET fElfito 3 NOTAT lBosqueCer WRITELN "Muy contrariado Elfito no puede aguantar las lágrimas y se va. Lo has perdido de vista." DONE PUTA _ WRITELN "«¡Qué grosería! ¡Qué mala educación!»" DONE _ SUCEDE NEWLINE WRITELN "«¡No encuentro mi casa!»" DONE _ VIVES WRITELN "«En la Gran Caverna.»" DONE _ SIGUEME LET 33 _voc_VEN VEN _ LET fElfito 4 ; Elfito viene contigo WRITELN "Oh, qué amable. Gracias." DONE _ NOMBR WRITELN "«Mi nombre es Elfito.»" DONE _ HOLA WRITELN "Te dice: «¡Hola tú!»" DONE _ _ WRITELN "«¡No quiero! ¿No entiendes que estoy perdido? Solo quiero saber dónde está mi casa.»" DONE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 10 ; Conversación con Don Enano ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; HABLAR ENANO PREP CON WRITELN "Concreta un poco más. Intenta «Decir, y lo que quieras preguntar»" DONE _ _ PARSE WRITELN "«Pero ¿qué dices?»" DONE AYUDA _ WRITELN "«¡No me da la gana!»" DONE _ MIERDA PROCESS 11 DONE PUTA _ PROCESS 11 DONE _ PASA WRITELN "«¡Quiero ser más alto!»" DONE VEN _ WRITELN "«No quiero ir a ninguna parte ¿Por qué no me dejas en paz?»" DONE _ SIGUEME WRITELN "«No quiero seguirte. Déjame tranquilo ya.»" DONE BESAME _ WRITELN "«¿Quién te has creído que soy? ¿Quién te piensas que eres?»" DONE _ NOMBR WRITELN "«Don Enano»" DONE _ HOLA WRITELN "Sí, sí... hola, hola. Ahora, piérdete." DONE _ _ WRITELN "«¡Largo de aquí!»" DONE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 11 ; Has insulado al enano. ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ SET fEnano WRITELN "Cabreadísimo te ataca, echándose encima de ti." PAUSE 100 WRITE "Lucháis, forcejeando como dos locos, en el borde del volcán..." PAUSE 100 WRITELN " ¡y os precipitáis hacia el abismo!" PAUSE 150 PROCESS 6 DONE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 12 ; Comienza la aventura ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ COMMAND 1 GOTO 1 DESC ; ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 13 ; DEJALO TODO por insultar ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ DOALL CARRIED SOLTAR _ ;AT lPicnic AUTOD PUTO lHabGuarra DONE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 14 ; DEJALO TODO por insultar (_ mierda) ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ LET 33 _voc_DEJAR DOALL CARRIED DEJAR _ AUTOD DONE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 15 ; /PRO 8 de la 2ª parte ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ SET 7 PICTURE enanomalauva.png WRITELN "Te arroja con furia su hacha..." ; ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 16 ; Pirata ladrón ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ISNOTAT oGarfio lP2Hab19 DONE _ _ WHATO LT 51 oPepita ; ALTERTA COPYFF 46 34 WHATO LT 51 oPepita ; ALTERTA DONE _ _ NOTEQ 54 254 NOTSAME 54 38 DONE _ _ CHANCE 80 DONE _ _ PUTO lP2Hab19 ;GT 29 127 ;WINDOW 7 CLS ;WINDOW 2 PICTURE pirata.png ;WINDOW 6 ;MODE 0 ;WINAT 21 0 ;WINSIZE 3 127 ;CLS WRITE "Aparece el Terrible Pirata gritando: «¡Te quito {OREF} y me voy a mi entrelazada guarida!» " ;ANYKEY ;WINDOW 7 ;CLS ;PROCESS 17 ; COMPROBAR En 2ª parte era Process 17 ; Redundante ;CLS PAUSE 100 WRITELN "Y con un gran insulto vuelve a las tinieblas." NEWLINE ANYKEY DESC ;_ _ ; WRITELN "Aparece el Terrible Pirata. ¡Te quito {OREF} y me voy a mi entrelazada guarida! " ; ANYKEY ; WRITELN "Con un gran insulto vuelve a las tinieblas." ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 17 ; COMPROBAR Creo que no es necesario... era para mostrar la imagen de la localidad una vez se había cambiado por la del pirata, enano, etc. ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ NOTZERO 0 ABSENT oLinterna ; encendida DONE _ _ ;WINDOW 0 ;PICTURE @38 DESC ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 18 ; ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ NOTZERO 0 ABSENT oLinterna DONE _ _ AT lP2Hab54 LT fDragon 255 ;GT 29 127 ;WINDOW 7 ;CLS ;WINDOW 2 PICTURE dragon.png ;ANYKEY ;WINDOW 7 ;CLS ;_ _ ; AT lP2Hab54 ;GT 29 127 ;WINDOW 0 ; PICTURE 95 ; COMPROBAR Pantalla de paso ¿? ;WINDOW 1 _ _ AT lP2Hab54 ISLIGHT WRITE "Estás en una fétida madriguera llena de caca de dragón por todos lados. El olor es insoportable, pero del norte llega una suave brisa húmeda" LT fDragon 255 ; flag 107 dragon WRITELN ". Frente a ti tienes al «bisssssho» más grande que hayas visto jamás." _ _ AT lP2Hab54 ISLIGHT EQ fDragon 255 ; flag 107 dragon WRITELN "." _ _ ISLIGHT ATGT lP2HabMagica ATLT lP2EncimaCornisa ZERO fTroll WRITELN "¡Te bloquea un fornido Troll que ruge: «un tesoro has de dar para poder pasar»!" _ _ ISLIGHT AT lP2Trono LT fSerpiente 9 WRITELN " Una enorme serpiente te observa." _ _ AT lP2CanonCamara ZERO fPajaroVuelve WRITELN " Un pajarillo revolotea por la estancia." _ _ ISLIGHT AT lP2EscudoGigante ZERO fPuerta WRITELN "Aquí hay una puerta herrumbrosa." _ _ ISLIGHT AT lP2EscudoGigante EQ fPuerta 1 WRITELN "Ves que la puerta está bien aceitada." _ _ ISLIGHT AT lP2EscudoGigante GT fPuerta 1 WRITELN "La puerta está abierta." _ _ ISLIGHT ATGT lP2Hab19 ATLT lP2Maquina PICTURE 48 WRITE "Estás en un" AT lP2Hab20 WRITE " laberinto de" WRITE " ovales" WRITE " pasillos" WRITE " intercomunicados" _ _ AT lP2Maquina PICTURE 48 ;_ _ ; AT lP2AbismoNe ; PICTURE 102 ; En Atari ST es la misma imagen que al otro lado del puente ; pero lo vamos a cambiar por una imagen girada XD _ _ ISLIGHT AT lP2Hab21 WRITE " intercomunicado" WRITE " laberinto de" WRITE " pasillos" WRITE " ovales" _ _ ISLIGHT AT lP2Hab22 WRITE " laberinto de" WRITE " intercomunicados" WRITE " pasillos" WRITE " ovales" _ _ ISLIGHT AT lP2Hab23 WRITE " intercomunicado" WRITE " laberinto de" WRITE " ovales" WRITE " pasillos" _ _ ISLIGHT AT lP2Hab24 WRITE " laberinto de" WRITE " pasillos" WRITE " ovales" WRITE " intercomunicados" _ _ ISLIGHT ATGT lP2Hab19 ATLT lP2Maquina ;SYSMESS 4 WRITELN ". " _ _ AT lP2DosFosos PICTURE 94 _ _ ISLIGHT AT lP2FondPozoOes ZERO fJudias WRITELN "En el suelo hay unas semillas de judías." _ _ ISLIGHT AT lP2FondPozoOes EQ fJudias 1 WRITELN "Aquí hay una tierna plantita de judías." _ _ ISLIGHT AT lP2FondPozoOes GT fJudias 1 WRITELN "Aquí hay una planta de judías cuyo tronco es enorme. Sale por el agujero superior." _ _ ISLIGHT AT lP2ApestosaJaula ZERO fOso WRITELN " ¡Un enorme oso tira con furia de su cadena para darte un abrazo de bienvenida!" _ _ ISLIGHT AT lP2ApestosaJaula EQ fOso 2 WRITELN " El oso Peposo está encadenado." _ _ AT lP2ApestosaJaula EQ fOso 255 PICTURE loc117osolibre.png _ _ AT lP2ApestosaJaula EQ fOso 1 PICTURE loc117vacia.png _ _ ISLIGHT EQ fOso 255 ; flag 111 Oso WRITELN " El oso viene contigo. " _ _ ISLIGHT ATGT lP2Hab13 ATLT lP2Hab20 PICTURE 42 WRITE "Estás en un" AT lP2Hab14 WRITE " laberinto de" WRITE " pequeñas" WRITE " habitaciones" WRITE " entrelazadas" _ _ ISLIGHT AT lP2Hab15 WRITE " pequeño" WRITE " laberinto de" WRITE " habitaciones" WRITE " entrelazadas" _ _ ISLIGHT AT lP2Hab16 WRITE " entrelazado" WRITE " laberinto de" WRITE " habitaciones" WRITE " pequeñas" ;SYSMESS 4 WRITELN ". " WRITE "Hay un agujero en el suelo" _ _ ISLIGHT AT lP2Hab17 WRITE " pequeño" WRITE " laberinto de" WRITE " entrelazadas" WRITE " habitaciones" _ _ ISLIGHT AT lP2Hab18 WRITE " laberinto de" WRITE " habitaciones" WRITE " pequeñas" WRITE " entrelazadas" _ _ ISLIGHT AT lP2Hab19 WRITE " entrelazado" WRITE " laberinto de" WRITE " pequeñas" WRITE " habitaciones" ;SYSMESS 4 WRITELN ". " WRITE "Estás en la guarida del pirata cleptómano" _ _ ISLIGHT ATGT lP2Hab13 ATLT lP2Hab20 ;SYSMESS 4 WRITELN ". " _ _ ISLIGHT ATGT lP2DensoVapor ATLT lP2VariasSalidas WRITE " El precipicio queda al " ZERO fLocFisuraIzda ; flag está a la derecha WRITE "oeste" WRITELN "." DONE _ _ ISLIGHT ATGT lP2DensoVapor ATLT lP2VariasSalidas WRITE "este" WRITELN "." _ _ AT lP2NoHasLogrado PICTURE 29 COMMAND 0 ; ALERTA dejar activo WRITE "Has dado " PRINT 31 WRITELN " órdenes." NEWLINE WRITELN "{RESTART|Volver a jugar}" TIME 0 0 ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 19 ; Dragón ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ NOTZERO 0 ABSENT oLinterna ; encendida DONE _ _ EQ fDragon 1 WRITELN "Chorreando espesa baba avanza bamboleante hacia ti." _ _ EQ fDragon 2 WRITELN "Mirándote amenazante desde lo alto, ruge: ¡Serás un buen bocata!" _ _ EQ fDragon 3 WRITELN "¡Qué rico! Exclama relamiéndose, otro aventurero para cenar." ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 20 ; DAR cosas ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ AT lP2Hab54 EQ fDragon 255 WRITELN "No ves al dragón por ninguna parte." DONE _ _ AT lP2ApestosaJaula EQ fOso 1 WRITELN "Peposo no está aquí." DONE _ _ ATGT lP2HabMagica ATLT lP2EncimaCornisa NOTZERO fTroll WRITELN "No ves al troll." DONE ; Ya se ha mirado si existe y si se lleva en la llamada «Process 20» pero no si están el troll, oso y dragón. DOY TORTI AT lP2ApestosaJaula ZERO fOso LET fOso 2 WRITELN "Peposo se tranquiliza, come la tortilla y agradecido te lame la sucia cara. Tienes un fiel amigo." DESTROY oTortilla DONE DAR LINTERNA AT lP2Hab54 SET 0 WRITE "Se ha comido la linterna. Y ahora no crees que haya sido una buena idea... " WRITELN "porque todo se queda a oscuras" DESTROY oLinterna ANYKEY DESC DOY LINTERNA AT lP2ApestosaJaula SET 0 WRITE "Aunque no pensaste que fuera capaz, se ha comido la linterna. Y puede que no haya sido una buena idea... " PAUSE 100 WRITELN "porque todo se queda a oscuras" DESTROY oLinterna ANYKEY DESC DOY LINTERNA ATGT lP2HabMagica ATLT lP2EncimaCornisa WRITE "¡No intentes engañarme! Esto no es un tesoro. Y cabreado tira la linterna al abismo." SET 0 WRITE " Puede que no haya sido una buena idea... " PAUSE 100 WRITELN "porque todo se queda a oscuras" NEWLINE DESTROY oLinterna ANYKEY DESC DOY _ AT lP2Hab54 DESTROY @51 WRITELN "El dragón se ha comido {OREF}." DONE DOY _ AT lP2ApestosaJaula DESTROY @51 WRITELN "El oso se ha comido {OREF}." DONE DOY _ NOTAT lP2AbismoNe GT fOso 1 DESTROY @51 WRITELN "Se ha comido {OREF}." DONE DOY _ ; COMPROBAR Creo que redundante NOTAT lP2AbismoNe GT fOso 1 WRITELN "Pero... ¡Si no tienes eso!" DONE DOY _ ; COMPROBAR Creo que redundante AT lP2ApestosaJaula WRITELN "Pero... ¡Si no tienes eso!" DONE DOY _ ATGT lP2HabMagica ATLT lP2EncimaCornisa LT 51 oPepita ; ALERTA WRITELN "¡No intentes engañarme! Esto no es un tesoro. Y cabreado tira {OREF} al abismo." DESTROY @51 DONE DOY _ ATGT lP2HabMagica ATLT lP2EncimaCornisa PUTO lP2Hab01 WRITELN "¡Cojo {OREF}. Pasa aventurero cobardica!" SET fTroll ; flag ¿Troll te deja pasar? DONE ;DOY _ ; NOTEQ 54 254 ; WRITELN "Pero... ¡Si no tienes eso!" ; DONE DOY _ WRITELN "No puedes hacerlo." ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 21 ; Recolector. Era /PRO 15 en la 2ª parte ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ;WINDOW 7 CLS ;WINDOW 4 ;WINSIZE 24 127 ;PRINTAT 0 12 ;LT 29 128 ;PRINTAT 0 26 _ _ WRITELN "\1
*** RECOLECTOR DE TESOROS ***
" NEWLINE LET fTesorosFaltan 14 DOALL @38 ; Era 255 = Here? ;WHATO GT 51 oCanto ; ALERTA. CAMBIAR a aTesoro WRITELN "Tesoro: {OREF}" MINUS fTesorosFaltan 1 _ _ GT 51 oCanto ; ALERTA. CAMBIAR a aTesoro WRITELN "Tesoro: {OREF}" MINUS fTesorosFaltan 1 _ _ LT 51 oPepita ; ALERTA. CAMBIAR a aTesoro WRITELN "Objeto: {OREF}" NEWLINE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 22 ; Muerte 2ª parte ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ WRITELN "Caes por el precipicio y te estampas contra el suelo." ANYKEY GOTO lP2NoHasLogrado CLEAR 0 DESC ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 23 ; Era /PRO 7 en la 2ª parte ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ CLS PICTURE dragon.png WRITELN "¡Vale gran mago! El pajarillo se transforma en dragón, y de un flamazo te incinera. " NEWLINE ANYKEY GOTO lP2NoHasLogrado CLEAR 0 DESC ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 24 ; Ayuda 2ª parte. Era /PRO 5 en la 2ª parte ; COMPROAR Casi todas dependen de localizaiones: juntar con el otro PRO de ayuda ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ATGT lP2Hab13 ATLT lP2Hab26 WRITELN "Intenta hacerte un mapa." DONE _ _ AT lP2HabMagica WRITELN "Utiliza la magia." DONE _ _ AT lP2CaminoGuijarros WRITELN "Utiliza la magia." DONE _ _ AT lP2SalaAcustica WRITELN "Usa otros sentidos o la magia." DONE _ _ AT lP2AnchaFisura WRITELN "Utiliza la magia." DONE _ _ NOTCARR oLinterna ; COMPROBAR ha de estar encendida ;ISNOTLIGHT ? WRITELN "¡Busca luz!" DONE _ _ AT lP2DensoVapor ZERO fPepita WRITELN "¡Aparta la niebla!" DONE _ _ AT lP2DensoVapor WRITELN "Ya no hay nada más que hacer aquí." DONE _ _ WRITELN "¡Piensa un poco! Es fácil. " DONE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 25 ; Examinar 2ª parte. Era /PRO 4 en la 2ª parte ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ROCA AT lP2SalaAcustica LET 33 _voc_TOCAR LET 34 _voc_PILAR TOCO PILAR AT lP2SalaAcustica WRITELN "Las letras están grabadas en la piedra." DONE _ _ NOTZERO 0 ABSENT oLinterna ;COMPROBAR -> ISNOTLIGHT WRITELN "No se ve bien." DONE _ TRONCO AT lP2FondPozoOes EQ fJudias 1 WRITELN "Es una tierna plantita. Todavía le falta por crecer." DONE _ TRONCO AT lP2FondPozoOes GT fJudias 1 WRITELN "Vaya con la «plantita». Podrías trepar por ella." DONE _ TRONCO AT lP2FondPozoOes WRITELN "¡Agua, agua!" DONE _ ESPEJO AT lP2GalAlta WRITELN "El espejo, en estos momentos, solo refleja la ventana vacía de la habitación situada al otro lado del abismo." DONE _ FIGURA AT lP2Mirador LET 34 _voc_VENTANA ;----------------- condactos de la 2ª parte ---------------------- _ ALFOMBRA EQ 44 255 AT lP2HabBlanda WRITELN "La alfombra cubre el suelo de toda esta habitación." DONE _ TEXTO ;Texto viene de PARED AT lP2HabBlanda WRITELN "¡Puaj! Qué asco. Están recubiertas de moho." DONE _ TEXTO ;Texto viene de PARED AT lP2EncimaCornisa WRITELN "Lo único llamativo son las ventanas por las que no llegas a ver." DONE _ VENTANA AT lP2Mirador WRITELN "La figura te imita." DONE _ OSTRA AT lP2HabMarina WRITELN "Neptuno las abría fácilmente con sus tres dientes." DONE _ LLAVE ; COMPROBAR ¿Dos descripciones? CARRIED oLlave WRITELN "Es la llave del zoológico subterráneo de los Reyes Elfos." DONE _ CACA AT lP2Hab54 WRITELN "Debido a tu retorcida curiosidad te pringas todo. ¡Cochino!" DONE _ PUENTE ATGT lP2HabMagica ATLT lP2EncimaCornisa WRITELN "Es un puente colgante muy peligroso porque las tablas de las que está hecho seguramente estén podridas." DONE _ PUENTE AT lP2PuenteMagico WRITELN "Es un puente mágico que cambia de color según el lugar de donde lo mires." DONE _ PRECIPICIO AT lP2AnchaFisura WRITELN "La grieta es demasiado grande para poder atravesarla." DONE _ HACHA AT lP2EscudoGigante WRITELN "El hacha es muy grande. De un tamaño descomunal." DONE _ ESCUDO AT lP2EscudoGigante WRITELN "Es muy grande. Tanto como el hacha." DONE _ PUERTA AT lP2EscudoGigante ZERO fPuerta WRITELN "Dirías que no puede moverse ni un milímetro con el óxido que tiene." DONE _ PUERTA AT lP2EscudoGigante EQ fPuerta 1 WRITELN "La puerta está bien aceitada. Seguro que se abre." DONE _ PUERTA AT lP2EscudoGigante WRITELN "La puerta está abierta. Parecía mentira." DONE _ DRAGON AT lP2Hab54 NOTEQ fDragon 255 WRITELN "Es enorme y fiero. Te tiemblan las piernas al verlo." DONE _ LAGUNA AT lP2LagSubte WRITELN "El agua es cristalina pero pensar que el dragón se bañaba aquí te quita las ganas de bañarte." DONE _ MAQUINA AT lP2Maquina WRITELN "Tiene una ranura y un apartado para poner pilas." DONE _ TORTILLA ; COMPROBAR ¿Hay dos descripciones? PRESENT oTortilla WRITELN "Se la comería hasta un oso." DONE _ CHARCO AT lP2Mirador WRITELN "Aunque no es muy grande, es un charco de agua bastante limpia." DONE _ NIEBLA AT lP2DensoVapor WRITELN "La niebla es tan densa aquí que podría haber cualquier cosa y no podrías verla." DONE _ NIEBLA AT lP2Mirador WRITELN "Ves la niebla a lo lejos, espesa... misteriosa." DONE _ VAPOR AT lP2AnchaFisura WRITELN "La misteriosa niebla parece comenzar aquí." DONE _ NIEBLA AT lP2VariasSalidas WRITELN "La niebla no es muy espesa aquí." DONE _ NIEBLA AT lP2Agujero WRITELN "Ves la niebla quedesaparece en tenues retazos." DONE _ NIEBLA AT lP2Mirador WRITELN "Ves la niebla a lo lejos, espesa... misteriosa." DONE _ NIEBLA AT lP2VariasSalidas WRITELN "La niebla es bastante molesta. Suerte que no es tan densa como en otras partes de la caverna." DONE _ RAMPA AT lP2InclCor WRITELN "La rampa desciende de forma bastante pronunciada." DONE _ RAMPA AT lP2FinalCor WRITELN "La rampa acaba aquí. Qué lugar más extraño." DONE _ DEPOSITO AT lP2DepoFosoEst WRITELN "El aceite se acumula en esa zona de ahí, en un charco. Da un poco de asco." DONE _ SUELO AT lP2GalAlta LET 34 _voc_AGUJERO _ SUELO AT lP2HabSecreta LET 34 _voc_AGUJERO _ AGUJERO AT lP2HabSecreta WRITELN "El agujero es lo suficientemente grande como para que pases por él. ¿Hacia dónde va? Deberás averiguarlo tú." DONE _ AGUJERO AT lP2HabSecreta WRITELN "No se ve a dónde va a parar el agujero. Ya que quieres meter la cabeza, atraviésalo que será más seguro." DONE _ AGUJERO AT lP2FondPozoOes WRITELN "Por el agujero entra la luz... mmm..." DONE _ TRONO AT lP2Trono WRITELN "Es un trono bastante grande adornados con intrincados dibujos. No sabes si significan algo." DONE _ TROFEOS AT lP2Trono WRITELN "No sabrías decir qué son excepto que son antiguos trofeos pero no parecen tener mucho valor." DONE _ TAPIZ AT lP2Trono WRITELN "Debían ser bellísimos cuando eran nuevos. Ahora, son solo una sombra de lo que fueron." DONE _ CUADLOS AT lP2HabOlien WRITELN "Son pleciosos. O al menos eso clees polque son un poco lalos. No palecen tenel mucho valol." DONE _ SEDAS AT lP2HabOlien WRITELN "Pleciosas telas de seda natural. Piensas de qué podlía servirte pelo no se te oculle nada." DONE _ LUZ AT lP2Alcoba WRITELN "La luz parece venir de otro lugar. Es totalmente artificial." DONE _ ESCALERA AT lP2DensoVapor WRITELN "Es una escalera de piedra, algo resbaladiza pero podrás usarla." DONE _ PUERTA AT lP2HabMagica WRITELN "No tiene mucho misterio. Es una puerta, de madera, bastante fea." DONE _ ROCA AT lP2HabParedesCal WRITELN "Aunque la visión es espectacular, no deberías quedarte aquí mucho tiempo." DONE _ ANIMAL AT lP2HumPasadInc WRITELN "Por la peste que hace aquí, ha vivido mucho tiempo aquí. " DONE _ LINTERNA NOTZERO fLintPilas LET 34 _voc_PILA _ PILA ABSENT oLinterna WRITELN "No la ves por aquí." DONE _ PILA OZERO oLinterna aOn WRITE "La linterna está apagada. " _ PILA ONOTZERO oLinterna aOn WRITE "La linterna está encendida. " ;_ PILAS ; NOTZERO fLintPilas ; ABSENT oLinterna ;ABSENT 2 ; WRITELN "Pero... ¡Si no tienes eso!" ; DONE _ PILAS ZERO fLintPilas ABSENT oPila WRITELN "No tiene la pila." DONE _ PILAS WRITE "Nivel de energia de la pila: " NOTZERO 8 PRINT 8 NEWLINE DONE _ PILAS WRITELN "altísimo." DONE _ BARROTES AT lP2Hab03 WRITELN "¡Es demasiado fuerte para ti, forastero!" DONE _ BARROTES AT lP2HumPasadInc ZERO fJaula WRITELN "¡Es demasiado fuerte para ti, forastero!" DONE _ BARROTES PRESENT oJaula ; sin pájaro OZERO oJaula aPajaro WRITELN "La jaula está vacía." DONE _ BARROTES CARRIED oJaula ; con pájaro ONOTZERO oJaula aPajaro WRITELN "Tienes al pájaro enjaulado." DONE _ PAJARO CARRIED oJaula ; con pájaro ONOTZERO oJaula aPajaro WRITELN "Tienes al pájaro enjaulado." DONE _ PAJARO AT lP2CanonCamara WRITELN "Está volando." DONE _ TEXTO ;Texto viene de PARED AT lP2HabQues WRITELN "¿Se podrán comer las paredes?." DONE _ TEXTO AT lP2DensoVapor WRITELN "«En este lugar perdió el Rey Elfo una pepita de oro.»" DONE _ TEXTO AT lP2CaminoGuijarros WRITELN "Pone XYZZY." DONE _ TEXTO AT lP2SalaAcustica WRITELN "Pone «OID»." DONE _ TEXTO AT lP2HabNegra WRITELN "Pone: «GRACIAS POR HABER TRAÍDO LUZ A ESTA TRISTE HABITACIÓN»" DONE _ TEXTO AT lP2EscudoGigante WRITELN "Pone: «FEE FIE FOE FOO». Lee justo después de la descripción. ¿Estás de beta tester o qué?" DONE _ TEXTO WRITELN "Mmm... Aquí las paredes no tienen mucho interés." DONE _ SERPIENTE AT lP2Trono LT fSerpiente 9 WRITELN "La serpiente se está poniendo nerviosa." DONE _ FISURA ATGT lP2DensoVapor ATLT lP2VariasSalidas WRITELN "Es una grieta tan profunda que no ves dónde acaba." DONE _ GRIETA ATGT lP2HabMagica ATLT lP2EncimaCornisa WRITELN "La grieta es tan profunda que crees perder el conocimiento al mirar." DONE _ TROLL ZERO fTroll ATGT lP2HabMagica ATLT lP2EncimaCornisa WRITELN "El troll da mucho miedo. No sabes cómo puede reaccionar..." DONE _ PEPOSO AT lP2ApestosaJaula NOTEQ fOso 1 WRITELN "Ahora ya sabes qué animal era el que hacía tanta peste." DONE _ VOLCAN ATGT lP2HabMagica ATLT lP2EncimaCornisa WRITELN "Sudas la gota gorda del calor que hace en el interior del volcán." DONE _ GASES ATGT lP2HabMagica ATLT lP2EncimaCornisa WRITELN "Apesta aquí. Te recuerdan a los gases de fuera de la caverna. " DONE _ CORNISA AT lP2EncimaCornisa WRITELN "La cornisa es artificial. No sabes cuánto tiempo debe hacer que está aquí." DONE _ PILAR AT lP2CaminoGuijarros WRITELN "Las letras, enormes, están grabadas en la piedra de una forma muy tosca." DONE _ PILAR AT lP2SalaAcustica WRITELN "Las letras son bastante sutiles. Están grabadas en la piedra." DONE _ BOTELLA CARRIED oBoteAceite WRITELN "La botella está llena de un aceite muy denso." DONE _ BOTELLA CARRIED oBotella OZERO oBotella aFull WRITELN "La botella está vacía." DONE _ BOTELLA CARRIED oBotella WRITELN "La botella está llena de agua." DONE _ VARITA PRESENT oVarita WRITE "Es mágica. A ver, úsala a ver qué pasa. Aparte de eso, " _ CANTO PRESENT oCanto WRITE "Es... una piedra, redonda y bastante fea. Aparte de eso, " _ SUELO WRITELN "No ves nada que te llame la atención. Pierdes el tiempo." DONE _ _ WHATO _ _ EQ 51 255 WRITELN "No ves eso por aquí." DONE _ _ ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE _ _ PRESENT @51 GT 51 oCanto ; ALERTA. CAMBIAR a aTesoro WRITELN "{OREF} es un tesoro." DONE _ _ PRESENT @51 LT 51 oPepita ; ALERTA. CAMBIAR a aTesoro WRITELN "{OREF} es un objeto." DONE _ _ NOTDONE ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; /PRO 26 ; Decidir si hay luz 2ª parte. COMPRUEBA SI ADAPTAR A TODO EL JUEGO ; TODO Pasar todas las habitaciones con usos especiales de ; la luz (entrada 2ª parte), habmagica ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ATLT lP2PasadizoBajo DONE _ _ AT lP2Hab91 DONE _ _ AT lP2HabMagica DONE _ _ ABSENT oLinterna SET 0 _ _ PRESENT oLinterna OZERO oLinterna aOn SET 0 _ _ PRESENT oLinterna ONOTZERO oLinterna aOn CLEAR 0 ;_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ; TO DO ; Mejorar descripciones ;DONE Ex candado y Ex reja deberían dar descripciones diferentes ; ampliar EXAMINAR cosas. Que sea más rico el juego ; Hacer una pasada por todos los «; COMPROBAR» ;DONE CSS en pantalla pequeña debería hacer subir el texto como en landscape ;CSS las imágenes en pantalla pequeña deberían mantener la escala ;DONE COMPROBAR contraseñas... cuando tienes los elementos que se necesitan. En lFrontera ;DONE Arreglar la zona de insultos ;DONE ; Comprobar flags y bits de control ;DONE ; Comprobar los SUBIR que no funcionan ;DONE ; Comprobar la rutina repetida ;DONE ; > subir ;DONE ;No puedes ir en esa dirección. ;DONE ;Bajar¿Qué vas a hacer ahora? La única salida es Sur. ;DONE ;No puedes ir al sur. No hay salidas visibles. ;DONE Cambiar todos los verbos a infinitivo en los condactos. ;DONE ; ¡BAJO no es verbo, es preposición! ;DONE PONER PILAS EN LINTERNA -> CHECK ;DONE Pon pilas AAAAA linterna ;DONE no puedo ;DONE > meter pila en cueva ;DONE Vale, linterna lista. ;DONE Si no tienes linterna no lo entiende ;DONE ; Comprobar luz en pozo con la linterna apagada ;DONE ; comprobar ENCENDER LINTERNA en pozo: Quemar una linterna no es la solución. ;DONE ; comprobar APAGAR LINTERNA: No quieres apagar una linterna. ;DONE ; oMoneda no debe estar «contruida» o con COGE TODO la coges ;DONE ; COMPROBAR ex charc no troba moneda però es pot agafar ;DONE Arreglar que la llave no se vea hasta examinar el brillo ;DONE Puedes ver: una llave. ;DONE El sol hace brillar algo en una rama. ;DONE ¿Hacer linterna contenedor? ;DONE > sacar pilas de linterna ;DONE No puedes sacar cosas de ahí. ;DONE En lLava la descripción está en dos líneas. Arreglar ;DONE Se puede hacer que el nombre después de dar las botas al enano sea linterna para que «cógela» funcione ;DONE Comprobar Elfo ;DONE > ex figura ;DONE Es un elfo que llora acurrucado junto a un árbol. ;DONE > habla con elfo ;DONE «¡Mi casa!» ;DONE > decir hola ;DONE No quieres hablarle a eso. ;DONE En /CON la direción para entrar no es DENTRO si no ENTRAR. COMPROBAR ir al este desde lReja va a la pantalla de inicio ¿? ;DONE COMPROBAR ex nombre del vocabulario (aunque no esté presente) da como respuesta "No ves nada especial" ;DONE COMPROBAR decir a enano "que pasa": Quiero se más alto ;DONE COMPROBAR Llenar botell en un lugar que no hay río solo dice "No puedes llenar la botella", dar más pistas. ;DONE Empujar REJA responde: "No le ves mucho sentido a eso" ;DONE SACAR CANDADO ;DONE No puedes ;DONE SACAR CANDADO DE REJA ;DONE El candado desaparece ;DONE > quitar candado de reja ;DONE No llevas puesto eso. ;DONE > mover rama ;DONE No ves mucho sentido a mover eso. ;DONE > sacudir rama ;DONE La rama se mueve y se mueve. ;DONE > coger rama ;DONE No ves eso por aquí. ;> me cago en dios ;Hay una fuerte reja metálica cerrada con un candado. ;Detecta EN como ENTRAR ;COMPROBAR examinar dentro de la caverna ;DONE COMPROBAR encender apagar linterna en caverna ;DONE COMPROBAR retorno de Recolector sin luz, se ha de comprobar linterna ; COMPROBAR Después de cargar pila, no se ve al mirar. ;NOPE Está a oscuras así que no se listaría. ;DONE COMPROBAR Linterna sin pila, se puede encender ;DONE El enano malauva apareix massa contantment. Et mata sempre a les llavors ;DONE COMPROBAR Ha de ser sinónimo de ATACAR DRAGÓN ;DONE > asusta dragon ;DONE ¿Perdón? ;DONE > ex dragon ;DONE No ves eso por aquí. ;DONE Dar linterna ;DONE Se la das per no se apaga la luz. ;DONE En el Recolector: ;DONE se listan los tesoros pero no en columna ;DONE Sacar pila ;DONE En localidad de la máquina. Hace un DESC. No apaga la luz! ;DONE Falta imagen ;DONE Estás en una fétida madriguera llena de caca de dragón por todos lados. ;DONE falta imagen ;DONE PUTO lP2Hab19 ;pirata ;DONE A esta laguna subterranea formada por el agua del rio del valle venía a beber y tomar baños el dragón cobarde. ;DONE > llenar botella ;DONE No puedes llenarla si no hay agua cerca. ;DONE > llenar botella en rio ;DONE No puedes llenarla si no hay agua cerca. ;DONE Llenar botella en charco de aceite, la llena de agua ;DONE Al haber regado una vez las judías, da el mismo texto al volver / mirar: ;DONE WRITELN "Absorbiendo ávidamente el precioso líquido las semillas se hinchan, se abren y de ellas nace una tierna plantita de judías." ;DONE El enano sigue yendo raro (¿Soy yo que no lo leo o a veces te mata sin posibilidad de tirarle el hacha?) ;DONE El hacha y el escudo del gigante llenan casi por completo este lugar. En la pared se lee: FEE FIE FOE FOO. ;DONE > lee pared ;DONE No ves eso por aquí. ;DONE > ex pared ;DONE No ves eso por aquí. ;DONE > ex puerta ;DONE No ves eso por aquí. ;DONE Llenar botella en foso con aceite, con la botella llena: No cabe más agua ;DONE Si no tienes la botella ;DONE > riega semillas ;DONE ¿Perdón? ;DONE > ex botella ;DONE > vacia botella ;DONE No puedes hacerlo. ;DONE El hacha y el escudo del gigante llenan casi por completo este lugar. En la pared se lee: FEE FIE FOE FOO. ;DONE Aquí hay una puerta herrumbrosa. ;DONE > dentro ;DONE ¡Algo te impide pasar! ;DONE > abre puerta ;DONE No le ves sentido a abrir eso. ;DONE > ex puerta ;DONE No ves eso por aquí. ;DONE > ex hacha ;DONE Es muy grande. ;DONE > cogela ;DONE Ya tienes la hacha. ;DONE > ex escudo ;DONE No ves eso por aquí. ;DONE > vacia botella ;DONE Hay una puerta bien aceitada. ;DONE El oso Peposo está encadenado. ;DONE > libera oso ;Check CSS. Cuando el historial es muy largo queda oculto por la línea de comandos ;REVISA ;Llena botella ;> lanzale hacha ;La botella se ha roto en el suelo. ;> lanza hacha ;¡Le has cortado la cabeza! ¡Maluva se desintegra junto con su hacha! ; la hacha es un objeto ; la hueso humano ;elfo ;decir, ven ;«Mi casa» ;decir, ven ;«Qué amable ;después de que el elfo se haya ido ;ex elfo ;no le ves sentido a examinar eso