;#############################################################
;############ 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
\1LA 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 "\1Todos los habitantes del valle han venido a admirar al nuevo: MAESTRO AVENTURERO
"
WRITELN "\1A tus pies aparecen todos los tesoros conquistados.
"
WRITELN "\1El 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 "\1FELICIDADES
"
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