;##define pic intro.png 0 ;##define pic uno.png 1 ;##define pic dos.png 2 ;##define grf tres.png 3 ;##define grf tres_1.png 303 ;##define grf tres_2.png 403 ;##define grf tres_3.png 503 ;##define pic cuatro.png 4 ;##define pic cinco.png 5 ;##define grf seis.png 6 ;##define grf seis_2.png 306 ;##define pic siete.png 7 ;##define grf ocho.png 8 ;##define grf ocho_1.png 308 ;##define grf ocho_2.png 408 ;##define pic nueve.png 9 ;##define pic diez.png 10 ;##define pic once.png 11 ;##define pic doce.png 12 ;##define pic trece.png 13 ;##define pic catorce.png 14 ;##define grf quince.png 15 ;##define grf quince_2.png 315 ;##define pic dieciseis.png 16 ;##define pic diecisiete.png 17 ;##define pic dieciocho.png 18 ;##define pic diecinueve.png 19 ;##define pic veinte.png 20 ;##define pic veintiuno.png 21 ;##define pic veintidos.png 22 ;##define pic veintitres.png 23 ;##define pic cinco2.png 24 ;##define pic veinticinco.png 25 ;##define pic portada_.jpg 26 ;##define pic final.png 27 ;##define const GRAFICOS 256 ;##define grf herbertesq.gif 26 ;##define grf wilmaesq.gif 27 ;##define grf wilma.png 28 ;##define grf herbert.png 29 ;##define const INV_GRAFICO 356 ;##define grf inv_pecera.png 101 ;##define grf inv_bolso.png 102 ;##define grf inv_sacacorcho.png 103 ;##define grf inv_chanclas.png 105 ;##define grf inv_cangrejo.png 106 ;##define grf inv_botella.png 108 ;##define grf inv_llave.png 110 ;##define grf inv_pico.png 111 ;##define grf inv_hueso.png 113 ;##define grf inv_espinacas.png 115 ;##define grf inv_arco.png 117 ;##define grf inv_huevo.png 118 ;##define grf inv_tazon.png 119 ;##define grf inv_fuelle.png 120 ;##define grf inv_arco_sin.png 122 ;##define grf inv_hachamal.png 123 ;##define grf inv_hachabien.png 124 ;##define grf inv_ramitas.png 126 ;##define grf inv_chisquero.png 128 ;##define grf inv_cenizas.png 129 ;##define grf inv_almeja.png 132 ;##define grf inv_pinza.png 135 ;##define grf inv_cangrejo2.png 136 ;##define snd fondo.mp3 1 ;##define snd coger.mp3 2 ;##define flg noun3 64 ;##define flg fEspinacasEnCofre 97 ;##define flg fAranaAsustada 98 ;##define flg fMuroRoto 99 ;muro del pozo roto o no ;##define flg fAux 100 ;Flag auxiliar ;##define flg fEspinacasComidas 101 ; te has comido las espinacas ;##define flg fAux2 103 ;##define flg fPajaroComiendo 105 ;##define flg fPeceraLlena 255 ;Inicialmente a cero. Se pondrá a 1 cuando metamos un pez dentro ;##define flg fCocodriloTriste 254 ;##define flg fWilma 108 ; 0 colgada 1 rescatada ;##define flg fHerbert 112 ; 0 en la olla 1 rescatado ;##define flg fLlave 113 ; 0 no aparece, 1 ya aparecio ;##define flg fAux3 114; ;##define flg fGraficoAct 115 ;##define flg fMusica 116 ;##define const Mfondo 0 ;##define const MCanalFondo 1 ;El canal de la música de fondo ;##define const MCanalFx 2 ;El canal para los FX ;##define const MfondoOn 1 ; 0 musica on, 1 musica off ;##define flg fRueda 109 ;##define const ruedaAceite 0 ; la rueda está mojada de aceite ;##define const ruedaAgua 1; la rueda esá con agua ; ##define flg fIterador 106 ; ##define flg fNumObjetos 107 ;##define flg fTonterias 102 ;##define const tonteria1 0 ;##define const tonteria2 1 ;##define const tonteria3 2 ;##define const tonteria4 3 ;##define const tonteria5 4 ;##define const tonteria6 5 ;##define const tonteria7 6 ;##define const tonteria8 7 ;##define const tonteria9 8 ;##define const tonteria10 9 ;##define const tonteria11 10 ;##define const tonteria12 11 ;##define const tonteria13 12 ;##define const tonteria14 13 ;##define const tonteria15 14 ;##define const tonteria16 15 ;##define const tonteria17 16 ;##define const tonteria18 17 ;##define const tonteria19 18 ;##define const tonteria20 19 ;##define flg fTontIndio 110 ;##define flg fTontWilma 111 ;##define obj oPeces 0 ;##define obj oPecera 1 ;##define obj oBolso 2 ;##define obj oSacacorcho 3 ;##define obj oVentana 4 ;##define obj oChancletas 5 ;##define obj oCangrejo 6 ;##define obj oCoco 7 ;##define obj oBotella 8 ;##define obj oCabana 9 ;##define obj oLlave 10 ;##define obj oPico 11 ;##define obj oRepelente 12 ;##define obj oHueso 13 ;##define obj oCofre 14 ;##define obj oEspinacas 15 ;##define obj oArco 17 ;##define obj oHuevo 18 ;##define obj oTazon 19 ;##define obj oFuelle 20 ;##define obj oArcoSinFlechas 22 ;##define obj oHachaSinAfilar 23 ;##define obj oHachaAfilado 24 ;##define obj oRamitas 26 ;##define obj oChimenea 27 ;##define obj oChisquero 28 ;##define obj oCenizas 29 ;##define obj oChoza 30 ;##define obj oDiosa 31 ;##define obj oAlmeja 32 ;##define obj oLeon 33 ;##define obj pHerbert 34 ;##define obj oPinza 35 ;##define obj oCangrejoCocido 36 ;##define obj oOlla 37 ;##define obj pWally 16 ;##define obj pIndio 21 ;##define obj pWilma 25 ;#define const aLocAgua = 10 ;Hay agua en la localidad ;#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 ;#define const aCocoAbierto = 22 ;#define const aBotellaConAceite = 23 ;#define const aBotellaConAgua = 24 ;#define const aBotellaConLiquido = 25 ;#define const aHero = 26 ;Wally ;#define const aVivo = 27;para el indio vivo/muerto ;#define const aFuegoVivo = 28 ;cuando encendemos la chimenea, debemos avivarla con el fuelle ;#define const aTormenta = 29 ;cuando le ofrecemos a la diosa las cenizas se desata la tormenta ;#define const aLleno = 30 ;#define const aEnfadado = 31 ;el leon está enfadado cuando tiene la astilla clavada ;#define const aCangrejo = 32 ;atributo para la pinza, si tiene este atributo está en el cangrejo /CTL /VOC N 2 noun NORTE 2 noun S 3 noun SUR 3 noun E 4 noun ESTE 4 noun O 5 noun OESTE 5 noun W 5 noun NE 6 noun NORESTE 6 noun NORDESTE 6 noun NW 7 noun NOROESTE 7 noun NO 7 noun SE 8 noun SURESTE 8 noun SUDESTE 8 noun SUROESTE 9 noun SW 9 noun SO 9 noun ARRIBA 10 noun U 10 noun UP 10 noun ABAJO 11 noun D 11 noun DOWN 11 noun SUBIR 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 DESCENDER 11 verb DESCIENDE 11 verb BAJATE 11 verb BAJARSE 11 verb BAJARTE 11 verb ENTRAR 12 verb SALIR 13 verb ENTRA 12 verb ENTER 12 verb INTRODUCET 12 verb INTERNATE 12 verb INTERNARTE 12 verb SAL 13 verb EXIT 13 verb I 14 noun INVEN 14 noun INVENTARIO 14 noun TODO 20 noun PECERA 50 noun PAQUETE 51 noun PEZ 52 noun PECES 52 noun PECECITOS 52 noun PECECITO 52 noun pececillos 52 noun pececillo 52 noun PESCADO 52 noun PESCADOS 52 noun PESCADITOS 52 noun PESCADITO 52 noun RIO 53 noun RIACHUELO 53 noun agua 53 noun mar 53 noun lluvia 53 noun BOLSO 54 noun SACACORCHO 55 noun VENTANA 56 noun PLAYA 57 noun PLAYITA 57 noun PUERTA 58 noun fondo 59 noun orilla 60 noun chancletas 61 noun zapatillas 61 noun zapatos 61 noun chancla 61 noun chanclas 61 noun cangrejo 62 noun cangrejito 62 noun coco 63 noun botella 64 noun aceite 65 noun CABAÑA 66 noun choza 66 noun casa 66 noun llave 67 noun pico 68 noun repelente 69 noun muro 70 noun piedra 70 noun piedras 70 noun pared 70 noun paredes 70 noun ARAÑA 71 noun muesca 72 noun muescas 72 noun marca 72 noun marcas 72 noun esqueletos 73 noun esqueleto 73 noun cofre 74 noun arcon 74 noun arca 74 noun espinaca 75 noun espinacas 75 noun hojas 75 noun hoja 75 noun cerradura 76 noun candado 76 noun cerrojo 76 noun agujero 77 noun boquete 77 noun orificio 77 noun old 77 noun faithful 77 noun pajaro 78 noun pajarraco 78 noun ave 78 noun pajaros 78 noun aves 78 noun arbol 79 noun arboles 79 noun tronco 79 noun troncos 79 noun rama 80 noun ramas 80 noun ramita 80 noun ramitas 80 noun liana 81 noun lianas 81 noun nido 82 noun nidos 82 noun wally 83 noun albondiga 83 noun arco 84 noun felchas 84 noun flecha 84 noun huevo 85 noun huevos 85 noun cielo 86 noun nubes 86 noun nube 86 noun sol 86 noun tazon 87 noun taza 87 noun comida 87 noun semilla 87 noun semillas 87 noun semillitas 87 noun semillita 87 noun fuelle 88 noun soplador 88 noun indio 89 noun nativo 89 noun canibal 89 noun canibales 89 noun jefe 89 noun wilma 90 noun mujer 90 noun esposa 90 noun parienta 90 noun hola 91 noun saludo 91 noun saludos 91 noun herbert 92 noun hijo 92 noun isla 93 noun ESPAÑOLES 93 noun ESPAÑOL 93 noun ESPAÑA 93 noun colonos 93 noun colono 93 noun castillo 94 noun palacio 94 noun edificacion 94 noun edificio 94 noun palacete 94 noun templo 94 noun templos 94 noun leon 95 noun leones 95 noun hacha 96 noun coche 97 noun coches 97 noun rueda 98 noun ruedas 98 noun ranura 100 noun ranurita 100 noun moneda 101 noun monedas 101 noun chimenea 102 noun fragua 102 noun fogon 102 noun horno 102 noun fuego 102 noun fuegos 102 noun chisquero 103 noun encendedor 103 noun mechero 103 noun cenizas 104 noun ceniza 104 noun aire 105 noun viento 105 noun aires 105 noun vientos 105 noun resto 106 noun restos 106 noun marino 106 noun marinos 106 noun almeja 106 noun almejas 106 noun conchas 106 noun concha 106 noun diosa 107 noun dios 107 noun estatua 107 noun estatuas 107 noun totem 107 noun escultura 107 noun imagen 107 noun talla 107 noun figura 107 noun deidad 107 noun idolo 107 noun efigie 107 noun antena 108 noun antenas 108 noun techo 109 noun tejado 109 noun pata 110 noun patas 110 noun pinza 111 noun pinzas 111 noun astillas 112 noun astilla 112 noun olla 113 noun cacerola 113 noun cazuela 113 noun puchero 113 noun perol 113 noun letrero 114 noun cartel 114 noun rotulo 114 noun murcielago 115 noun batman 115 noun cocodrilo 116 noun caiman 116 noun cocodrilos 116 noun caimanes 116 noun elefante 117 noun elefantes 117 noun mosquito 118 noun mosquitos 118 noun mosca 118 noun moscas 118 noun rana 119 noun ranas 119 noun sapo 119 noun sapos 119 noun suegra 119 noun suegras 119 noun suelo 122 noun pies 123 noun pie 123 noun oficina 124 noun oficinas 124 noun correo 124 noun correos 124 noun telegrama 124 noun telegramas 124 noun jungla 125 noun selva 125 noun junglas 125 noun selvas 125 noun bosque 125 noun bosques 125 noun adornos 126 noun adorno 126 noun arena 127 noun arenas 127 noun tierra 127 noun tierras 127 noun salon 128 noun sala 128 noun pozo 129 noun mesa 130 noun costa 131 noun costas 131 noun calavera 132 noun calaveras 132 noun simbolo 133 noun simbolos 133 noun pirata 133 noun piratas 133 noun entrada 134 noun entradas 134 noun tradin 135 noun post 135 noun ultramarino 136 noun tienda 136 noun tiendas 136 noun cantina 136 noun cantinas 136 noun on 137 noun off 138 noun hueso 139 noun huesos 139 noun COGER 20 verb COGE 20 verb TOMAR 20 verb TOMA 20 verb TAKE 20 verb DEJAR 21 verb DEJA 21 verb SOLTAR 21 verb SUELTA 21 verb LIBERAR 21 verb LIBERA 21 verb DROP 21 verb QUITAR 22 verb QUITA 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 DESVESTIR 22 verb DESVESTIRSE 22 verb DESVESTIRTE 22 verb SENTAR 23 verb SENTARSE 23 verb SENTARTE 23 verb SIENTATE 23 verb L 24 verb LOOK 24 verb M 24 verb MIRAR 24 verb MIRA 24 verb QUIT 25 verb FIN 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 EX 30 verb INSPECCIONA 30 verb OBSERVAR 30 verb OBSERVA 30 verb DECIR 31 verb DI 31 verb HABLAR 31 verb HABLA 31 verb RESPONDER 31 verb RESPONDE 31 verb LANZAR 32 verb LANZA 32 verb LANZARSE 32 verb LANZASE 32 verb TIRAR 32 verb TIRA 32 verb TIRARSE 32 verb TIRASE 32 verb ARROJA 32 verb ARROJAR 32 verb ARROJARSE 32 verb ARROJASE 32 verb EMPUJAR 33 verb EMPUJA 33 verb AYUDA 34 verb HELP 34 verb GIRAR 35 verb GIRA 35 verb ROTA 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 OIR 37 verb OYE 37 verb COMER 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 BEBETE 39 verb BEBERSE 39 verb BEBERTE 39 verb TOCAR 40 verb TOCA 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 ESPERA 43 verb Z 43 verb CANTAR 44 verb CANTA 44 verb SALTAR 45 verb SALTA 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 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 AGITA 49 verb MENEAR 49 verb MENEA 49 verb SACUDIR 49 verb SACUDE 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 RELLENAR 55 verb RELLENA 55 verb NADAR 56 verb NADA 56 verb TREPAR 57 verb TREPA 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 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 OPEN 64 verb CERRAR 65 verb CIERRA 65 verb CLOSE 65 verb QUEMAR 66 verb QUEMA 66 verb ENCENDER 66 verb ENCIENDE 66 verb INCENDIAR 66 verb INCENDIA 66 verb PRENDE 66 verb PRENDER 66 verb APAGAR 67 verb APAGA 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 PARTIR 69 verb PARTE 69 verb QUEBRAR 69 verb QUIEBRA 69 verb DESTRUYE 69 verb DESTRUIR 69 verb DERRUMBAR 69 verb DERRUMBA 69 verb VERSION 70 verb PONER 71 verb PON 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 DAR 73 verb DA 73 verb DASE 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 INSERTAR 74 verb INSERTA 74 verb ECHA 74 verb ECHAR 74 verb SACAR 75 verb SACA 75 verb EXTRAE 75 verb EXTRAER 75 verb LLAMA 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 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 lavarme 88 verb LIMPIATE 88 verb LIMPIARTE 88 verb LIMPIARSE 88 verb limpiarme 88 verb BAÑARME 88 verb BAÑARSE 88 verb BAÑARTE 88 verb BAÑATE 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 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 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 PREGUNTAR 108 verb PREGUNTA 108 verb LEE 109 verb LEER 109 verb LEERSE 109 verb LEERTE 109 verb LEETE 109 verb MOVER 110 verb MUEVE 110 verb DESPLAZAR 110 verb DESPLAZA 110 verb APRETAR 111 verb APRIETA 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 LEVANTAR 114 verb LEVANTA 114 verb caza 115 verb cazar 115 verb captura 115 verb capturar 115 verb pesca 116 verb pescar 116 verb bucear 117 verb bucea 117 verb disparar 118 verb dispara 118 verb pegar 119 verb pega 119 verb afilar 120 verb afila 120 verb repara 120 verb reparar 120 verb rescatar 121 verb rescata 121 verb mojar 122 verb moja 122 verb lubricar 122 verb lubrica 122 verb humedecer 122 verb humedece 122 verb rociar 122 verb rocia 122 verb bombear 123 verb bombea 123 verb avivar 124 verb aviva 124 verb entregar 125 verb entrega 125 verb creditos 126 verb credito 126 verb depositar 127 verb deposita 127 verb cocinar 128 verb cocina 128 verb cocer 128 verb cuece 128 verb hervir 128 verb hierve 128 verb guisar 128 verb guisa 128 verb curar 129 verb cura 129 verb sanar 129 verb sana 129 verb cuidar 129 verb cuida 129 verb atender 129 verb atiende 129 verb musica 130 verb music 130 verb musicas 130 verb 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 RAPIDAMENT 2 adverb LENTAMENTE 3 adverb SILENCIOSA 4 adverb RUIDOSAMEN 5 adverb CUIDADOSAM 6 adverb TRANQUILAM 6 adverb A 2 preposition AL 2 preposition DE 3 preposition DEL 3 preposition EN 4 preposition DENTRO 4 preposition DESDE 5 preposition HACIA 6 preposition TRAS 7 preposition DETRAS 7 preposition BAJO 8 preposition DEBAJO 8 preposition CON 9 preposition PARA 10 preposition POR 11 preposition EXCEPTO 12 preposition FUERA 13 preposition DELANTE 14 preposition ENTRE 15 preposition ENCIMA 16 preposition 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 Y 2 conjunction ENTONCES 2 conjunction /STX /0 No puedes ver nada, está muy oscuro. /1 {ink|orange|Puedes ver:} /2 ¿Qué quieres hacer ahora? /3 ¿Cual es tu siguiente orden? /4 ¿Que 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 OK. /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 usado /35 El tiempo pasa... /36 Coges {OREF}{process|14}. /37 Te pones {OREF}. /38 Te quitas {OREF}{process|14}. /39 Dejas {OREF}{process|20}. /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 E/S. 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. Confirme que el nombre es correcto y que realizó la partida en este mismo navegador. /60 Introduce el nombre con el que grabar la partida. Necesitarás recordar ese nombre para poder recuperarla posteriormente. /61 /62 ¿Perdón? Por favor prueba con otras palabras. /63 Aquí /64 está /65 están /66 dentro hay /67 encima hay /MTX /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} /2000 Versión 10092016 1655 /2001 ¡Wallyyyyy! ¡BÁJAME DE AQUÍ! /2002 Pero Wally ¡No te quedes como un pasmarote! ¡HAZ ALGOOOO! /2003 ¡QUÉ PACIENCIA! BENDITO MATRIMONIO EL MÍO. /2004 Ya me lo decía mi madre.... /2005 ¡Qué SUFRIMIENTO de hombre! /3000 {ink|red|Three 'weeks' in paradise}\n {URL|credits.html|edlobez} - {URL|http://www.ngpaws.com|ngPaws} 2016 /OTX /0 un pececito /1 una pecera /2 un bolso /3 un sacacorchos /4 la ventana /5 unas chancletas de playa /6 un hermoso cangrejo /7 un coco /8 una botella /9 una cabaña /10 una llave /11 un pico /12 un repelente de moscas gordas /13 un hueso /14 un cofre /15 las espinacas /16 Wally /17 un arco con una flecha /18 un huevo /19 un tazón de comida /20 un fuelle /21 el jefe indio caníbal /22 un arco sin flechas /23 un hacha sin afilar /24 un hacha afilado /25 Wilma /26 unas ramitas /27 chimenea /28 un chisquero /29 las cenizas /30 una choza /31 la estatua de la diosa tormenta /32 la concha de una almeja /33 león /34 Herbert /35 la pinza del cangrejo /36 un cangrejo cocido /37 una olla /LTX /0 /1 Rugido de leones, elefantes barritando, murciélagos volando, el ruido de un pequeño riachuelo... Estás casi perdido en esta maravillosa isla repleta de caníbales. Hacia el oeste te adentras en la jungla, un letrero lo indica. Pues hacia el este llegarás a la playa, que es por donde has venido. /2 Mosquitos enormes zumbando, ¿dónde tienes la crema para las picaduras?. Como te pique un mosquito de estos te sale un grano como la cabeza de Herbert. Rugidos de leones se escuchan venir del oeste, y desde el norte te viene un olor conocido, huele como el bolso de tu amada Wilma. Hacia el este, has dejado la entrada a la jungla. /3 {process|8} /4 Un cocodrilo con cara de pocos amigos tapa el paso a un camino que se adentra hacia el oeste. /5 A quién se le ocurre montar una cabaña en esta zona de la jungla. /6 {process|8} /7 {process|8} /8 {process|8} /9 {process|8} /10 Un ultramarinos en plena jungla llena de caníbales, ¡qué isla más completa! Para que sepamos bien donde estamos un gran letrero nos lo indica. La tienda está algo abandonada y revuelta, debieron salir huyendo de aquí. /11 Una de las entradas a un templo de algún antiguo asentamiento colono. Algunos descubridores de nuevas tierras y tesoros montaron en la isla su pequeño palacete. Estás en la parte trasera de esta edificación, con algún que otro adorno colgado y una chimenea. /12 Parece ser la sala principal del templo. Más bien sería el comedor con una mesa enorme en el centro con algunos restos de comida muy caducada y de mal aspecto. Se puede ir hacia el sur por lo que parece una entrada principal. Desde la ventana tienes una hermosa vista de la playa. /13 Playa paradisíaca de arena fina. La arena por aquí está tan calentita como para cocerte los pies. Menos mal que estás cerca del agüita y la ha refrescado un poco. /14 Un símbolo extraño sirve de adorno de la entrada principal. No se que tipo de civilización habitaba estos lugares. Desde aquí o bien entramos al templo hacia norte, al este creo que vamos a la playa y al oeste, ¿más jungla? /15 {process|8} /16 Aquí ya no queda nada de agua. Una poca rezuma de sus paredes llegando a ser un minúsculo hilillo de agua dulce. Menos mal que las paredes de este pozo no son muy lisas y permiten salir de aquí escalando. /17 Una sala secreta, parece una mazmorra sin ninguna salida donde, dejaron encerrado lo que ya es sólo un esqueleto colgado en la pared. Una enorme y peluda araña habita la habitación. /18 Lo más divertido de todo no es que haya un coche en medio de una isla llena de caníbales, sino que tengan la ruedas cuadradas y de piedra. Sólo faltaría una ranurita para meter una moneda y que sirva de atracción para los niños. /19 Un gran agujero en el suelo marcado como “old faithful”, y dos enormes árboles llenan esta zona de la jungla. El sonido de un gran ave retumba en el cielo. Uno de los árboles tiene una gran liana colgando. /20 El nido es enorme, no te quieres imaginar como serán las dimensiones del ave que lo habita. /21 Desde aquí comienza la playa que va hacia el este. Unos cuantos cangrejos toman el sol reposando encima de la arena. /22 Nadando en aguas templadas y cristalinas donde se ve con toda claridad el fondo marino. Como disfrutarías de este momento si a tu mujer y tu hijo no se los fueran a zampar unos caníbales. /23 Has entrado a una especie de caverna secreta, perfectamente tallada en la roca y que tiene una salidas hacia el este. Tirado en mitad de la estancia hay un enorme cofre. /24 Cabaña cochambrosa y minúscula sin ningún mobiliario. /25 Has subido hasta la copa de uno de los árboles. Desde aquí ves de cerca un gran nido asentado en las ramas de otro árbol. /CON /0 /1 oeste 2 este 6 /2 este 1 oeste 3 norte 4 /3 este 2 /4 sur 2 oeste 5 /5 este 4 oeste 24 entrar 24 /6 oeste 1 este 7 /7 oeste 6 este 10 norte 8 sur 11 /8 sur 7 oeste 9 /9 este 8 /10 oeste 7 /11 norte 7 oeste 12 /12 este 11 sur 14 salir 14 /13 este 22 oeste 21 /14 entrar 12 norte 12 oeste 15 este 18 /15 bajar 16 este 14 /16 subir 15 /17 este 15 salir 15 /18 oeste 14 este 19 /19 oeste 18 este 21 /20 bajar 19 /21 oeste 19 este 13 /22 salir 13 /23 este 6 /24 salir 5 este 5 /25 bajar 19 /OBJ /0 1 1 PECES _ 00001000000100000000000000000000 00000000000000000000000000000000 ; sust(aConcealed/4) ; sust(4/4) /1 10 1 PECERA _ 00000000100000000000000000000000 00000000000000000000000000000000 ; sust(10/ATTR) /2 13 1 BOLSO _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(13/ATTR) /3 12 1 SACACORCHO _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(le/ATTR) /4 12 1 VENTANA _ 00000000100000000100010000000000 00000000000000000000000000000000 ; sust(aScenery/17) ; sust(aStatic/21) ; sust(21/21) /5 10 1 CHANCLETAS _ 01000000100000010000000000000000 00000000000000000000000000000000 ; sust(aWear/1) ; sust(aPluralName/15) ; sust(10/15) /6 21 1 CANGREJO _ 00000000000100000000000000010000 00000000000000000000000000000000 ; sust(aVivo/27) ; sust(vivo/27) /7 4 1 COCO _ 00000000000100000000010000000000 00000000000000000000000000000000 ; sust(aStatic/21) ; sust(21/21) /8 16 1 botella _ 00000000100000000000000000000000 00000000000000000000000000000000 ; sust(16/ATTR) /9 5 1 CABAÑA _ 00000000111001000100010000000000 00000000000000000000000000000000 ; sust(aStatic/21) ; sust(aScenery/17) ; sust(aOpenable/13) ; sust(aLockable/9) ; sust(aLocked/10) ; sust(10/10) /10 255 1 llave _ 00000000100000000000000000000000 00000000000000000000000000000000 ; sust(255/ATTR) /11 24 1 pico _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(24/ATTR) /12 255 1 repelente _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(ELIMINADO/ATTR) /13 255 1 hueso _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(255/ATTR) /14 23 1 cofre _ 00000000011101000000010000000000 00000000000000000000000000000000 ; sust(aStatic/21) ; sust(aOpenable/13) ; sust(aLockable/9) ; sust(aLocked/10) ; sust(10/10) /15 255 1 espinacas _ 00000100100000010000000000000000 00000000000000000000000000000000 ; sust(aPluralName/15) ; sust(aEdible/5) ; sust(255/5) /16 255 1 wally _ 00011000000100000000000000100000 00000000000000000000000000000000 ; sust(aNPC/3) ; sust(aConcealed/4) ; sust(aHero/26) ; sust(26/26) /17 20 1 arco _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(flechas/ATTR) /18 9 1 huevo _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(9/ATTR) /19 12 1 tazon _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(12/ATTR) /20 15 1 fuelle _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(15/ATTR) /21 8 1 canibal _ 00010000000100000000000000010000 00000000000000000000000000000000 ; sust(aNPC/3) ; sust(aVivo/27) ; sust(27/27) /22 255 1 arco _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(flechas/ATTR) /23 23 1 hacha _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(23/ATTR) /24 255 1 hacha _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(255/ATTR) /25 8 1 wilma _ 00010000100000000000000000000000 00000000000000000000000000000000 ; sust(aNPC/3) ; sust(3/3) /26 4 1 rama _ 00000000100000000000000000000000 00000000000000000000000000000000 ; sust(4/ATTR) /27 11 1 chimenea _ 00000000100000000100010000000000 00000000000000000000000000000000 ; sust(aScenery/17) ; sust(aStatic/21) ; sust(21/21) /28 11 1 chisquero _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(le/ATTR) /29 255 1 cenizas _ 00000000100000010000000000000000 00000000000000000000000000000000 ; sust(aPluralName/15) ; sust(255/15) /30 6 1 choza _ 00000000100000000100000000000000 00000000000000000000000000000000 ; sust(aScenery/17) ; sust(marina/17) /31 7 1 diosa _ 00000000100000000000010000000000 00000000000000000000000000000000 ; sust(aStatic/21) ; sust(21/21) /32 255 1 almeja _ 00000000100000000000000000000000 00000000000000000000000000000000 ; sust(255/ATTR) /33 3 1 leon _ 00000000000100000100010000000001 00000000000000000000000000000000 ; sust(aScenery/17) ; sust(aStatic/21) ; sust(aEnfadado/31) ; sust(herbert/31) /34 3 1 herbert _ 00010000000100000000000000000000 00000000000000000000000000000000 ; sust(aNPC/3) ; sust(3/3) /35 255 1 pinza _ 00000000000100000000000000000000 10000000000000000000000000000000 ; sust(aCangrejo/32) ; sust(255/32) /36 255 1 cangrejo _ 00000000000100000000000000000000 00000000000000000000000000000000 ; sust(muerto/ATTR) /37 3 1 olla _ 00000000100000000100110000000000 00000000000000000000000000000000 ; sust(aStatic/21) ; sust(aScenery/17) ; sust(aOn/20) ; sust(aOn/20) ; sust(encendido/20) /PRO 0 _ _ HOOK "RESPONSE_START" ; Back call a el sistema de hooks, por defecto no hace nada pero algunas librerías plugin podrían hacer que hiciera algo. No borrar. COGER TODO ; COGER TODO DE --> SACAR TODO DE 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 DOALL CARRIED VACIAR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 2 ; sust(aContainer/2) COPYFF 34 44 COPYFF 35 45 SYNONYM SACAR TODO LET 43 3 ; sust(_voc_DE/3) SACAR _ ; Copiamos en el Flag 13 el numero de objeto referenciado por noun2 (o 255 si no lo hay) WHATOX2 13 SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 2 ; Es un contenedor ; sust(aContainer/2) ABSENT @13 WRITELN "No ves eso por aquí." DONE SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 18 ; Es un supporter ; sust(aSupporter/18) ABSENT @13 WRITELN "No ves eso por aquí." DONE SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 2 ; Es un contenedor ; sust(aContainer/2) 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 18 ; Es un supporter ; sust(aSupporter/18) 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 2 ; Es un contenedor ; sust(aContainer/2) PRESENT @13 DOALL @13 SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 18 ; Es un supporter ; sust(aSupporter/18) PRESENT @13 DOALL @13 ESCONDER _ NOTEQ 51 255 PRESENT @51 PREP EN WHATOX2 13 NOTEQ 13 255 ; Es un objeto PRESENT @13 SYNONYM METER _ LET 43 4 ; sust(_voc_DENTRO/4) PONER _ NOTEQ 51 255 PRESENT @51 PREP EN SYNONYM METER _ METER _ ; Copiamos en el Flag 13 el numero de objeto referenciado por noun2 (o 255 si no lo hay) WHATOX2 13 METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 2 ; Es un contenedor ; sust(aContainer/2) ABSENT @13 WRITELN "No ves eso por aquí." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 18 ; Es una superficie ; sust(aSupporter/18) ABSENT @13 WRITELN "No ves eso por aquí." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 2 ; Es un contenedor ; sust(aContainer/2) CARRIED @13 OBJAT 254 14 EQ 14 1; no llevas nada en el inventario (sólo llevas el container) WRITELN "No llevas nada." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 18; es una superficie, poner todo ; sust(aSupporter/18) CARRIED @13 OBJAT 254 14 EQ 14 1; no llevas nada en el inventario (sólo llevas el container) WRITELN "No llevas nada." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 2 ; Es un contenedor ; sust(aContainer/2) 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 18 ; es una superficie ; sust(aSupporter/18) 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 2 ; Es un contenedor ; sust(aContainer/2) PRESENT @13 DOALL CARRIED METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 18 ; Es un superficie PONER TODO ; sust(aSupporter/18) 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 sólo 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 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 MIRAR _ NOTEQ 34 255 PREP DENTRO SYNONYM EXAMINAR _ MIRAR _ NOTEQ 34 255 SYNONYM EXAMINAR _ MIRAR _ BNOTZERO 12 1 SYNONYM EXAMINAR _ REGISTRAR _ SYNONYM EXAMINAR _ LET 43 4 ; sust(_voc_DENTRO/4) ARRANCAR _ noteq 34 97 ; sust(_voc_COCHE/97) SYNONYM TIRAR _ LET 43 3 ; sust(_voc_DE/3) X _ EQ 34 255 BNOTZERO 12 1 SYNONYM EXAMINAR _ X _ NOTEQ 34 255 SYNONYM EXAMINAR _ CONSULTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) SYNONYM PREGUNTAR _ _ _ 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 doy la vuelta COPYFF 35 14 COPYFF 45 35 COPYFF 14 45 ; Les doy la vuelta a los adjetivos WHATO ; fuerzo actualización de flags 54-58 _ _ 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 doy la vuelta COPYFF 35 14 COPYFF 45 35 COPYFF 14 45 ; Les doy la vuelta a los adjetivos WHATO ; fuerzo actualización de flags 54-58 _ _ PREP EN BZERO 12 2 ; la prep estaba antes del primer nombre NOTEQ 51 255 PRESENT @51 ONOTZERO @51 2 ; El primer objeto es un contenedor presente ; sust(aContainer/2) 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 doy la vuelta COPYFF 35 14 COPYFF 45 35 COPYFF 14 45 ; Les doy la vuelta a los adjetivos WHATO ; fuerzo actualización de flags 54-58 _ _ PREP DE BZERO 12 2 ; la prep estaba antes del primer nombre NOTEQ 51 255 PRESENT @51 ONOTZERO @51 2 ; El primer objeto es un contenedor presente ; sust(aContainer/2) 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 doy la vuelta COPYFF 35 14 COPYFF 45 35 COPYFF 14 45 ; Les doy la vuelta a los adjetivos WHATO ; fuerzo actualización de flags 54-58 COGER _ PREP DE noteq 44 62 ;siempre y cuando no se el cangrejo edlobez ; sust(_voc_CANGREJO/62) SYNONYM SACAR _ _ _ HOOK "RESPONSE_USER" ; Back call a el sistema de hooks, por defecto no hace nada pero algunas librerías plugin podrían hacer que hiciera algo. No borrar. version _ message 2000 done I _ process 4 done coger agua lnotzero @38 10 ; sust(aLocAgua/10) noteq 44 255 whatox2 100 ; sust(fAux/100) noteq 100 255 ; es un objeto ; sust(fAux/100) present @100 ; sust(fAux/@100) let 33 55 ; llenar let 34 @44 let 44 53 ; el agua coger agua lnotzero @38 10 ; sust(aLocAgua/10) present 8 ; sust(oBotella/8) let 33 55 ;El verbo llenar let 34 64 ;LA BOTELLA let 44 53 ;agua coger _ noteq 51 0 ;pasamos los peces, ya que no los cogeremos, irán dentro de la pecera ; sust(oPeces/0) noteq 51 255 ;tiene que ser un objeto isnotat @51 254 ;que no lo tenga ya el jugador eq 1 2 ;si tiene dos objetos no te deja coger más writeln "{ink|orange|Wally:} {ink|green|¡¡¡¡Eyy!!!! que sólo tengo dos manos.}" done llenar _ present 8 ; sust(oBotella/8) noteq 34 255 ; hay primer nombre noteq 44 255 ; Hay un segundo nombre whatox2 100 ; sust(fAux/100) noteq 100 255 ; es un objeto ; sust(fAux/100) eq 100 8 ; el segundo nombre es la botella ; sust(fAux/100) ; sust(oBotella/8) present @100 ; sust(fAux/@100) let 100 @34 ; guardamos el primer nombre ; sust(fAux/100) let 34 @44 let 44 @100 ; sust(fAux/@100) _ _ process 10 isdone done _ _ process 7 isdone done creditos _ autolink "www.credits.html" done soplar _ synonym lanzar aire lanzar aire writeln "Soplas y soplas y soplas.... hasta que te quedas sin aire." done disparar _ writeln "¿El qué y a quién?" done oir _ at 22 writeln "Sonido relajante de olas marinas." done oir _ at 21 writeln "Sonido relajante de olas marinas." done oir _ at 23 pnjdice 16 "Levente escucho los sonidos de la jungla." 0 ; sust(pWally/16) done oir _ at 19 writeln "El sonido de un ave resuena en el cielo." pnjdice 16 "Debe ser un ave enorme." 0 ; sust(pWally/16) done oir _ at 25 writeln "El sonido de un ave resuena en el cielo." pnjdice 16 "Debe ser un ave enorme." 0 ; sust(pWally/16) done oir _ at 20 writeln "El sonido de un ave resuena en el cielo." pnjdice 16 "Como se me cague encima, me rompe el cuello." 0 ; sust(pWally/16) done oir _ at 6 onotzero 31 29 ; sust(oDiosa/31) ; sust(aTormenta/29) writeln "Rayos tronando y agua cayendo." pnjdice 16 "La que he lia'o." 0 ; sust(pWally/16) done oir _ at 7 onotzero 31 29 ; sust(oDiosa/31) ; sust(aTormenta/29) writeln "Rayos tronando y agua cayendo." pnjdice 16 "La que he lia'o." 0 ; sust(pWally/16) done oir _ at 1 writeln "El sonido del riachuelo se mezcla con el de la jungla." done oir _ writeln "Sonidos de la jungla..." pnjdice 16 "Bichos gritando." 0 ; sust(pWally/16) done oler _ at 22 pnjdice 16 "Huele a sal." 0 ; sust(pWally/16) done oler _ at 21 pnjdice 16 "Huele a sal." 0 ; sust(pWally/16) done oler _ at 23 pnjdice 16 "Huele a humedad, a moho." 0 ; sust(pWally/16) done oler _ writeln "Huele a jungla." pnjdice 16 "Como el dormitorio de un solter@ a primera hora de la mañana." 0 ; sust(pWally/16) done romper rama synonym cortar rama cortar rama synonym cortar arbol cortar arboles writeln "No hace falta que reventemos la selva." done pescar _ lzero @38 10 ; sust(aLocAgua/10) writeln "Aquí no hay agua ni de mar ni de río." done pescar _ at 1 writeln "¿Qué quieres pescar?" done pescar _ writeln "Piensas que es mejor dejar para otro momento los ratitos de ocio." done beber _ present 8 ; sust(oBotella/8) onotzero 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) synonym beber botella process 5 done beber _ present 32 ; sust(oAlmeja/32) onotzero 32 30 ; sust(oAlmeja/32) ; sust(aLleno/30) synonym beber almeja process 16 done beber _ present 1 ; sust(oPecera/1) notzero 255 ; sust(fPeceraLlena/255) synonym beber pecera process 7 done beber _ lzero @38 10 ; sust(aLocAgua/10) writeln "Aquí no hay nada de agua." done coger agua lnotzero @38 10 ; sust(aLocAgua/10) writeln "Debes usar algún tipo de contenedor." done coger agua writeln "Por aquí no hay nada de agua." done examinar techo synonym examinar arriba examinar cielo synonym examinar arriba examinar nube synonym examinar arriba examinar arriba writeln "Nada interesante por ahí arriba." done examinar suelo synonym examinar abajo examinar abajo writeln "Nada interesante por ahí abajo." done examinar jungla writeln "Bufff, complicado me va resultar describir la jungla entera." done examinar _ noteq 34 255 whatox 100 ; sust(fAux/100) noteq 100 255 ; sust(fAux/100) absent @100 ; sust(fAux/@100) writeln "Eso debe andar por algún sitio, pero no lo encuentro por aquí cerca." done examinar _ writeln "Hay tantas cosas que ver, que para que entrenerse con eso." done musica on bclear 116 1 ; sust(fMusica/116) ; sust(MfondoOn/1) writeln "Música activada." beep 257 1 0 ; sust(fondo.mp3/257) ; sust(MCanalFondo/1) done musica off bset 116 1 ; sust(fMusica/116) ; sust(MfondoOn/1) writeln "Música desactivada." silence 1 done _ _ HOOK "RESPONSE_DEFAULT_START" ; Back call a el sistema de hooks, por defecto no hace nada pero algunas librerías plugin podrían hacer que hiciera algo. No borrar. I _ INVEN ENTRAR _ ; Entrar en un objeto NOTEQ 51 255 PRESENT @51 ONOTZERO @51 7 ; sust(aEnterable/7) 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 2 ; Es un contenedor ; sust(aContainer/2) SYNONYM SACAR _ ; convertimos "coger objeto de un contenedor" en "sacar objeto de un contenedor" COGER _ ; Hay nombre desconocido en la frase 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 21 ; sust(aStatic/21) 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 2 ; Es un contenedor ; sust(aContainer/2) SYNONYM METER _; convertimos "dejar objeto en un contenedor" en "meter objeto en un contenedor" DEJAR _ ; Hay nombre desconocido en la frase 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 numero 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 _ ; Hay nombre desconocido en la frase 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 llevamos puesto NOTEQ 51 255 WORN @51 ONOTZERO @51 1 ; sust(aWear/1) 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 2 ; Es un contenedor ; sust(aContainer/2) SAME 51 15 ; No puede sacarse de si mismo DONE ; Esto es poco ortodoxo, pero se entiende que en general el sacar algo de si mismo solo puede ocurrir en un DOALL, si alguien lo escribe no obtendra respuesta SACAR _ ; SACAR un objeto de un Container que está presente pero cerrado NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 2 ; Es un contenedor ; sust(aContainer/2) ONOTZERO @15 13 ; sust(aOpenable/13) OZERO @15 14 ; sust(aOpen/14) PRESENT @15 WRITELN "Antes abre {OBJECT|15}." BREAK DONE SACAR _ ; SACAR un objeto de un Container que está presente pero cerrado NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 2 ; Es un contenedor ; sust(aContainer/2) ONOTZERO @15 9 ; sust(aLockable/9) OZERO @15 10 ; sust(aLocked/10) PRESENT @15 WRITELN "Antes abre {OBJECT|15}." BREAK DONE SACAR _ NOTEQ 15 255 ; Es un objeto ONOTZERO @15 2 ; Es un contenedor ; sust(aContainer/2) ABSENT @15 WRITELN "No puedes sacar nada de ahí porque no está aquí." DONE SACAR _ NOTEQ 15 255 ; Es un objeto ONOTZERO @15 2 ; Es un contenedor ; sust(aContainer/2) ABSENT @15 WRITELN "No puedes coger nada de ahí porque no está aquí." DONE SACAR _ ; SACAR un objeto de un Container que está presente NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 2 ; Es un contenedor ; sust(aContainer/2) PRESENT @15 AUTOT @15 DONE SACAR _ ; SACAR un objeto de un Supporter que está presente NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 18 ; sust(aSupporter/18) 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 numero 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 _ ; Hay nombre desconocido en la frase 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 1 ; sust(aWear/1) 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 2 ; Es un contenedor ; sust(aContainer/2) SAME 51 15 ; No puede meterse en si mismo DONE ; Esto es poco ortodoxo, pero se entiende que en general el meter algo en si mismo solo puede ocurrir en un DOALL, si alguien lo escribe no obtendra respuesta METER _ NOTEQ 15 255 ; Es un objeto ONOTZERO @15 18 ; es un contenedor ; sust(aSupporter/18) SAME 51 15 ; No puede meterse en si mismo DONE ; Esto es poco ortodoxo, pero se entiende que en general el meter algo en si mismo solo puede ocurrir en un DOALL, si alguien lo escribe no obtendra 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 2 ; pero no es un Container ; sust(aContainer/2) OZERO @15 18 ; ni una superficie ; sust(aSupporter/18) 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 2 ; y es un Container ; sust(aContainer/2) ABSENT @15 ; pero no está WRITELN "No puedes meter {OREF} ahí porque no llevas eso." DONE METER _ ; METER un objeto del inventario a un Supporter pero que no está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 18 ; sust(aSupporter/18) ABSENT @15 ; pero no lo está WRITELN "No puedes meter {OREF} ahí porque no llevas eso." DONE METER _ ; METER un objeto presente a un Container que está presente pero cerrado NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 2 ; Es un contenedor ; sust(aContainer/2) PRESENT @15 ONOTZERO @15 13 ; sust(aOpenable/13) OZERO @15 14 ; sust(aOpen/14) WRITELN "Antes abre {OBJECT|15}." BREAK DONE METER _ ; METER un objeto presente a un Container 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 2 ; Es un contenedor ; sust(aContainer/2) PRESENT @15 ONOTZERO @15 9 ; sust(aLockable/9) OZERO @15 10 ; sust(aLocked/10) WRITELN "Antes abre {OBJECT|15}" BREAK DONE METER _ ; METER un objeto presente a un Container que está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 2 ; Es un contenedor ; sust(aContainer/2) PRESENT @15 AUTOP @15 DONE METER _ ; METER un objeto presente a un Supporter que está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 18 ; sust(aSupporter/18) PRESENT @15 AUTOP @15 DONE QUITAR _ ; Hay nombre desconocido en la frase 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 _ ; Hay nombre desconocido en la frase 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No sería adecuado." DONE TIRAR _ PREP DE NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 _ ; Hay nombre desconocido en la frase 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Piensas que no conseguirás que pase desapercibido." DONE ESCONDER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No crees que le guste demasiado." DONE EMPUJAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 21 ; sust(aStatic/21) PRESENT @51 WRITELN "No se mueve." DONE EMPUJAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) ABSENT @51 WRITELN "No está aquí." DONE EMPUJAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 21 ; sust(aStatic/21) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No crees que le guste demasiado." DONE MOVER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No sería apropiado." DONE GIRAR _ NOTEQ 51 255 ONOTZERO @51 21 ; sust(aStatic/21) PRESENT @51 WRITELN "No ves utilidad en girar eso." DONE GIRAR _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) ABSENT @51 WRITELN "No está aquí." DONE GIRAR _ NOTEQ 51 255 ONOTZERO @51 21 ; sust(aStatic/21) 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 _ ; Hay nombre desconocido en la frase 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 3 ; sust(aNPC/3) PRESENT @51 WRITELN "La violencia no es la solución." DONE LANZAR _ ; Es scenery NOTEQ 51 255 ONOTZERO @51 21 ; sust(aStatic/21) PRESENT @51 WRITELN "No puedes lanzar eso." DONE LANZAR _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) ABSENT @51 WRITELN "No está aquí." DONE LANZAR _ NOTEQ 51 255 ONOTZERO @51 21 ; sust(aStatic/21) 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No parece decir nada." DONE ESCUCHAR _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) 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 21 ; sust(aStatic/21) PRESENT @51 WRITELN "No es muy buena idea que te comas eso." DONE COMER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 5 ; sust(aEdible/5) WRITELN "No ves sentido a comerte {OREF}." DONE COMER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 5 ; sust(aEdible/5) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Estás perdiendo el rumbo." DONE BEBER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 6 ; sust(aDrinkable/6) WRITELN "No ves sentido a beberte {OREF}." DONE BEBER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 6 ; sust(aDrinkable/6) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Eso sería de muy mala educación." DONE ESCUPIR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No se deja." DONE TOCAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Es de mala educación." DONE OLER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 5 ; sust(aEdible/5) WRITELN "La verdad es que {OREF} huele bien." DONE OLER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 6 ; sust(aDrinkable/6) 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 5 ; sust(aEdible/5) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No crees que le guste demasiado." DONE AGITAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No crees que le guste demasiado." DONE BALANCEATE _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "La violencia no es buena." DONE ATACAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "La violencia no es buena." DONE GOLPEAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 se más concreto. Por ejemplo, si quieres barrer el suelo utiliza BARRER SUELO, no USAR ESCOBA." DONE EX _ ; Hay nombre desconocido en la frase 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Vaya ocurrencia..." DONE EX _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) ABSENT @51 WRITELN "No está aquí." DONE EX _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Es de mala educación." DONE EX _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 2 ; sust(aContainer/2) ONOTZERO @51 16 ; sust(aTransparent/16) OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial " LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente y contenedor, no abrible NOTEQ 51 255 PRESENT @51 ONOTZERO @51 2 ; sust(aContainer/2) OZERO @51 13 ; sust(aOpenable/13) OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial " LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente y contenedor, abrible y abierto con cosas dentro NOTEQ 51 255 PRESENT @51 ONOTZERO @51 2 ; sust(aContainer/2) ONOTZERO @51 13 ; sust(aOpenable/13) ONOTZERO @51 14 ; sust(aOpen/14) OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial" LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente y contenedor, abrible y cerrado NOTEQ 51 255 PRESENT @51 ONOTZERO @51 2 ; sust(aContainer/2) ONOTZERO @51 13 ; sust(aOpenable/13) OZERO @51 14 ; sust(aOpen/14) 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 2 ; sust(aContainer/2) ONOTZERO @51 9 ; sust(aLockable/9) OZERO @51 10 ; sust(aLocked/10) 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 18 ; sust(aSupporter/18) 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 LIMPIAR _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No se deja." DONE LIMPIAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No se deja." DONE RASCAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "La barbarie no solucionará tus problemas." DONE QUEMAR _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "La violencia no es la solución." DONE CORTAR _ NOTEQ 51 255 ONOTZERO @51 21 ; sust(aStatic/21) PRESENT @51 WRITELN "No crees que cortar eso sea de mucha utilidad." DONE CORTAR _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Crees que no se va a dejar." DONE ATAR _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "¿Desatarle?." DONE DESATAR _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 2 ; es un contenedor ; sust(aContainer/2) WRITELN "No quieres llenar {OREF}." DONE LLENAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 OZERO @51 2 ; no es un contenedor ; sust(aContainer/2) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "La violencia no es la solución." DONE RETORCER _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "La violencia no es la solución." DONE APRETAR _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No se deja." DONE BESAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Ni se deja, ni crees que sea muy apropiado." DONE ABRAZAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 19 ; sust(aSwitchable/19) OZERO @51 20 ; sust(aOn/20) OSET @51 20 ; sust(aOn/20) WRITELN "Activas {OREF}." DONE CONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 19 ; sust(aSwitchable/19) ONOTZERO @51 20 ; sust(aOn/20) 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 19 ; sust(aSwitchable/19) ONOTZERO @51 20 ; sust(aOn/20) OCLEAR @51 20 ; sust(aOn/20) WRITELN "Desactivas {OREF}." DONE DESCONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 19 ; sust(aSwitchable/19) OZERO @51 20 ; sust(aOn/20) 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 _ ; Hay nombre desconocido en la frase 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 13 ; Abrible ; sust(aOpenable/13) OZERO @51 14 ; Cerrado ; sust(aOpen/14) OZERO @51 10 ; No cerrado con llave ; sust(aLocked/10) OSET @51 14 ; sust(aOpen/14) WRITELN "Abres {OREF}." DONE ABRIR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 13 ; Abrible ; sust(aOpenable/13) OZERO @51 14 ; Cerrado ; sust(aOpen/14) ONOTZERO @51 10 ; Cerrado con llave ; sust(aLocked/10) WRITELN "Está cerrado con llave." DONE ABRIR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 13 ; Abrible ; sust(aOpenable/13) ONOTZERO @51 14 ; Abierto ; sust(aOpen/14) WRITELN "Ya lo está." DONE ABRIR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 13 ; Abrible ; sust(aOpenable/13) ONOTZERO @51 14 ; Abierto ; sust(aOpen/14) 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 _ ; Hay nombre desconocido en la frase 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 13 ; sust(aOpenable/13) ONOTZERO @51 14 ; sust(aOpen/14) OCLEAR @51 14 ; sust(aOpen/14) WRITELN "Cierras {OREF}." DONE CERRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 13 ; sust(aOpenable/13) OZERO @51 14 ; sust(aOpen/14) 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 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 CHUPAR _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Eso sería muy poco apropiado." DONE CHUPAR _ NOTEQ 51 255 ONOTZERO @51 5 ; sust(aEdible/5) PRESENT @51 WRITELN "Piensas en comerte {OREF} pero te contienes." DONE CHUPAR _ NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "La violencia no es buena." DONE ROMPER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Todo el mundo tiene un precio... pero no está en venta." DONE COMPRAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Piensas que ya está bien como está..." DONE DOBLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Piensas que ya está bien como está..." DONE DESDOBLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 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 3 ; ¿es un NPC? ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 1 ; sust(aWear/1) 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 (encuantra 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 3 ; pero no es un NPC ; sust(aNPC/3) 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 3 ; y es un NPC ; sust(aNPC/3) 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 3 ; y es un NPC ; sust(aNPC/3) 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 3 ; ¿es un NPC? ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 1 ; sust(aWear/1) 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 3 ; pero no es un NPC ; sust(aNPC/3) 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 3 ; y es un NPC ; sust(aNPC/3) 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 3 ; y es un NPC ; sust(aNPC/3) PRESENT @13 ; y está presente WRITELN "Le muestras {OREF} pero no le hace ni caso." DONE SOPLAR _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No crees que le guste demasiado." DONE SOPLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Mejor no, puede enfadarse." DONE GRITAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No crees que haga falta." DONE DESPERTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No crees que le guste demasiado." DONE LEVANTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No crees que le guste demasiado." DONE ARRASTRAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No es lo más apropiado." DONE VACIAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No hay respuesta..." DONE LLAMAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No hay respuesta alguna..." DONE PREGUNTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No parece hacerte ni caso..." DONE INSULTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No crees que le guste demasiado." DONE UNIR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No crees que le guste demasiado." DONE SEPARAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "No parece interesarse por tu charla." DONE HABLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ ; Hay nombre desconocido en la frase 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 3 ; Es un NPC ; sust(aNPC/3) PRESENT @51 WRITELN "Prefieres no acercarte más..." DONE IR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 3 ; Es un NPC ; sust(aNPC/3) 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 _ _ LT 33 14 MOVE 38 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 hacer que hiciera algo. No borrar. /PRO 1 _ _ HOOK "PRO1" ; Back call a el sistema de hooks, por defecto no hace nada pero algunas librerías plugin podrían hacer que hiciera algo. No borrar. _ _ AT 0 BSET 12 5 ; Spanish bset 12 0 mode 1 let 255 0 ; sust(fPeceraLlena/255) let 99 0 ; sust(fMuroRoto/99) let 98 0 ; sust(fAranaAsustada/98) let 97 1 ; sust(fEspinacasEnCofre/97) let 101 0 ; sust(fEspinacasComidas/101) let 105 0 ; sust(fPajaroComiendo/105) let 108 0 ; sust(fWilma/108) let 112 0 ; sust(fHerbert/112) let 111 1 ; sust(fTontWilma/111) let 64 255 ; sust(noun3/64) lset 1 10 ;La localidad tiene agua ; sust(aLocAgua/10) lset 13 10 ; sust(aLocAgua/10) lset 22 10 ; sust(aLocAgua/10) lset 16 10 ; sust(aLocAgua/10) process 6 goto 1 desc _ _ let 115 @38 ;guardamos el gráfico de la localidad actual. ; sust(fGraficoAct/115) _ _ at 1 bzero 102 15 ; sust(fTonterias/102) ; sust(tonteria16/15) pnjdice 16 "Vacaciones, vacaciones estupendas vacaciones.... la idea de venir a una isla paradisíaca en una barca a pedales me la recordará Wilma durante el resto de su vida." 0 ; sust(pWally/16) bset 102 15 ; sust(fTonterias/102) ; sust(tonteria16/15) bzero 116 0 ; sust(fMusica/116) ; sust(Mfondo/0) beep 257 1 0 ; sust(fondo.mp3/257) ; sust(MCanalFondo/1) bset 116 0 ; sust(fMusica/116) ; sust(Mfondo/0) _ _ at 3 onotzero# 33 31 ; sust(oLeon/33) ; sust(aEnfadado/31) { picture 259 ; sust(tres.png/259) let 115 3 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } ozero# 33 31 ; sust(oLeon/33) ; sust(aEnfadado/31) { onotzero# 37 20 ;la olla sigue encendida ; sust(oOlla/37) ; sust(aOn/20) { picture 559 ; sust(tres_1.png/559) let 115 303 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } ozero# 37 20 ;la olla ya se apago ; sust(oOlla/37) ; sust(aOn/20) { eq# 112 1 ;Herber es libre ; sust(fHerbert/112) { picture 759 ; sust(tres_3.png/759) let 115 403 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } noteq# 112 1 ;Hebert sigue en la olla ; sust(fHerbert/112) { picture 659 ; sust(tres_2.png/659) let 115 503 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } } } _ _ at 4 present 2 ; sust(oBolso/2) writeln "El cocodrilo al oler el bolso, ¡de piel de cocodrilo!, entra en depresión. Le recuerda a su desaparecida y amada cocodrila compañera." writeln "Su enorme tristeza hace que te ignore por completo." _ _ at 6 bzero 102 10 ; sust(fTonterias/102) ; sust(tonteria11/10) pnjdice 16 "¿Es una antena eso que hay sobre la choza?" 0 ; sust(pWally/16) bset 102 10 ; sust(fTonterias/102) ; sust(tonteria11/10) _ _ at 6 ozero# 31 29 ; sust(oDiosa/31) ; sust(aTormenta/29) { picture 262 ; sust(seis.png/262) let 115 6 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } onotzero# 31 29 ; sust(oDiosa/31) ; sust(aTormenta/29) { writeln "{ink|orange|Por esta zona de la jungla una gran tormenta, con sus rayos incluidos, lo inunda todo.}" picture 562 ; sust(seis_2.png/562) let 115 306 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } _ _ at 7 onotzero 31 29 ; sust(oDiosa/31) ; sust(aTormenta/29) writeln "{ink|orange|Por esta zona de la jungla una gran tormenta, con sus rayos incluidos, lo inunda todo.}" _ _ at 8 writeln "Hay caminos hacia el oeste y hacia el sur." present# 21 ; sust(pIndio/21) { picture 264 ; sust(ocho.png/264) let 115 8 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } absent# 21 ; sust(pIndio/21) { eq# 108 1 ; sust(fWilma/108) { picture 664 ; sust(ocho_2.png/664) let 115 308 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } noteq# 108 1 ; sust(fWilma/108) { picture 564 ; sust(ocho_1.png/564) let 115 408 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } } _ _ at 13 eq 112 1 ; sust(fHerbert/112) eq 108 1 ; sust(fWilma/108) cls picture 27 ; sust(final.png/27) writeln "Pedalada a pedalada sales huyendo de este paraiso." newline pnjdice 16 "Wilma, ¿me ayudas a pedalear?" 0 ; sust(pWally/16) writeln "{ink|yellow|Wilma: } ¡Wally que aún no me llega bien la sangre a los pies!" writeln "{ink|yellow|Herbert: } Papi ¿cuándo llegamos?" writeln "Y por un momento Wally piensa en regresar a la isla." newline writeln "{ink|red|¡¡¡¡ENHORABUENA!!!!!}" writeln "Has conseguido liberar a la familia Week." end done _ _ at 15 eq# 99 0 ; sust(fMuroRoto/99) { picture 271 ; sust(quince.png/271) let 115 15 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } eq# 99 1 ; sust(fMuroRoto/99) { picture 571 ; sust(quince_2.png/571) let 115 315 ; sust(fGraficoAct/115) PLUS 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) } _ _ at 17 absent 1 ; sust(oPecera/1) pnjdice 16 "¡Qué asco, qué asco! la araña me mira ocho veces de forma amenazante." 0 ; sust(pWally/16) let 98 0 ; sust(fAranaAsustada/98) _ _ at 17 present 1 ; sust(oPecera/1) zero 255 ; sust(fPeceraLlena/255) pnjdice 16 "¡Qué asco, qué asco! la araña me mira ocho veces de forma amenazante." 0 ; sust(pWally/16) let 98 0 ; sust(fAranaAsustada/98) _ _ at 17 present 1 ; sust(oPecera/1) notzero 255 ; sust(fPeceraLlena/255) writeln "La araña al ver la pecera huye a esconderse en un rincón de la habitación." let 98 1 ; sust(fAranaAsustada/98) _ _ LET 64 255 ; sust(noun3/64) ISLIGHT LISTOBJ ;Lista los objetos LISTNPC @38 ;Lista las personas noteq# 108 1 ; sust(fWilma/108) pictureat 1525 100 283 ; sust(wilmaesq.gif/283) eq# 108 1 ; sust(fWilma/108) pictureat 1525 100 284 ; sust(wilma.png/284) noteq# 112 1 ; sust(fHerbert/112) pictureat 1525 250 282 ; sust(herbertesq.gif/282) eq# 112 1 ; sust(fHerbert/112) pictureat 1525 250 285 ; sust(herbert.png/285) /PRO 2 _ _ HOOK "PRO2" ; Back call a el sistema de hooks, por defecto no hace nada pero algunas librerías plugin podrían hacer que hiciera algo. No borrar. LET 64 255 ;limpiamos nombre 3 ; sust(noun3/64) /PRO 3 cazar _ synonym coger pez capturar _ synonym coger pez pescar _ synonym coger pez llenar _ synonym coger pez meter _ synonym coger pez sacar _ synonym soltar pez ex _ at 1 writeln "Alegres pececillos come-arañas nadando por el riachuelo." notzero# 255 ; sust(fPeceraLlena/255) writeln "Uno de ellos ya no nada tan alegre desde que lo metiste en la pecera." done ex _ notzero 255 ; sust(fPeceraLlena/255) present 1 ; sust(oPecera/1) writeln "El pobre pez come-arañas, desde la pecera, te hace ojitos." done coger _ at 1 notzero 255 ; sust(fPeceraLlena/255) writeln "Ya has metido un pez come-arañas dentro de la pecera, no te hace falta ninguno más." pnjdice 16 "Bueno vale." 0 ; sust(pWally/16) done coger _ at 1 present 1 ; sust(oPecera/1) notcarr# 1 ; sust(oPecera/1) { writeln "Con las manos no puedes, mejor usar la pecera." get 1 ; sust(oPecera/1) } writeln "Metes uno de los peces come-arañas dentro de la pecera." let 255 1 ; sust(fPeceraLlena/255) done coger _ at 1 writeln "Con las manos no puedes, te haría falta algo donde meter uno de ellos." done soltar _ present 1 ; sust(oPecera/1) notzero 255 ; sust(fPeceraLlena/255) lnotzero @38 10 ; sust(aLocAgua/10) pnjdice 16 "Eres libre pececillo...." 0 ; sust(pWally/16) let 255 0 ; sust(fPeceraLlena/255) done soltar _ present 1 ; sust(oPecera/1) zero 255 ; sust(fPeceraLlena/255) writeln "No tienes ningún pececito." done soltar _ present 1 ; sust(oPecera/1) notzero 255 ; sust(fPeceraLlena/255) writeln "Aquí no... por lo menos en algún lugar donde haya agua." pnjdice 16 "Upss lo siento, no me di cuenta." 0 ; sust(pWally/16) done soltar _ at 1 writeln "Ya nadan libres por el riachuelo." done _ _ present 1 ; sust(oPecera/1) notzero 255 ; sust(fPeceraLlena/255) writeln "Un pobre pez come-arañas te hace ojitos desde la pecera." done _ _ at 1 pnjdice 16 "¡Qué graciosillos los pececillos!" 0 ; sust(pWally/16) done /PRO 4 _ _ carried 1 ; sust(oPecera/1) notzero 255 ; sust(fPeceraLlena/255) writeln "Llevas: " listat 254 objat 253 100 ; las prendas que llevamos ; sust(fAux/100) noteq# 100 0 ; sust(fAux/100) { writeln "Llevas puesto: " } listat 253 writeln "La pecera tiene un pececillo dentro." pnjdice 16 "Hola pececillo." 0 ; sust(pWally/16) done _ _ carried 6 ; sust(oCangrejo/6) writeln "Sólo llevas un cangrejo. Con cada mano le agarras una de sus pinzas para que no te ataque." objat 253 100 ; las prendas que llevamos ; sust(fAux/100) noteq# 100 0 ; sust(fAux/100) { writeln "Llevas puesto: " } listat 253 done _ _ inven /PRO 5 ex _ writeln "{textpic|botella.png|0}" ex _ ozero 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) writeln "Una botella de cristal. Está vacía." done ex _ write "Una botella de cristal. " onotzero# 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) writeln "Está llena de agua de coco." onotzero# 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) writeln "Está llena de agua." done beber _ pnjdice 16 "Podría beber agua de la botella, pero ahora no tengo sed." 0 ; sust(pWally/16) done llenar _ onotzero 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) writeln "La botella ya está llena de agua de coco." pnjdice 16 "Pensaba que cabía un poco más." 0 ; sust(pWally/16) done llenar _ onotzero 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) writeln "La botella ya está llena de agua." pnjdice 16 "Pensaba que cabía un poco más." 0 ; sust(pWally/16) done llenar _ at 4 eq 51 7 ; sust(oCoco/7) onotzero 7 22 ;el coco está abierto ; sust(oCoco/7) ; sust(aCocoAbierto/22) writeln "Llenas la botella con agua de coco." oset 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) oset 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) done llenar _ at 4 ; estamos en la estancia del coco onotzero 7 22 ;el coco está abierto ; sust(oCoco/7) ; sust(aCocoAbierto/22) eq 44 65 ; el segundo nombre es aceite writeln "Llenas la botella con agua de coco." oset 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) oset 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) done llenar _ at 4 ; estamos en la estancia del coco onotzero 7 22 ;el coco está abierto ; sust(oCoco/7) ; sust(aCocoAbierto/22) eq 44 53 ; el segundo nombre es agua agua writeln "Llenas la botella con agua de coco." oset 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) oset 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) done llenar _ at 19 ;en la estancia de old faithfull writeln "Ese agua está muuuy caliente." done llenar _ at 16 writeln "Es un hilillo de agua muy fino el que rezuma de las paredes. No tienes forma de apoyar la botella para llenarla." done llenar _ eq 44 53 ; el segundo nombre es agua lnotzero @38 10 ;y estamos en un loclidad con agua ; sust(aLocAgua/10) writeln "Llenas la botella de agua." oset 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) oset 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) done llenar _ writeln "No sé de qué quieres llenar la botella." done vaciar _ ozero 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) writeln "La botella está vacía." done vaciar _ at 18 eq 44 97 ; sust(_voc_COCHE/97) let 44 98 ; sust(_voc_RUEDA/98) vaciar _ at 18 eq 44 98 ; sust(_voc_RUEDA/98) onotzero# 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) { writeln "Viertes el agua de coco de la botella sobre la rueda de piedra." bset 109 0 ; sust(fRueda/109) ; sust(ruedaAceite/0) bclear 109 1 ; sust(fRueda/109) ; sust(ruedaAgua/1) oclear 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) oclear 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) } onotzero# 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) { writeln "*Viertes todo el agua de la botella sobre la rueda de piedra." bset 109 1 ; sust(fRueda/109) ; sust(ruedaAgua/1) bclear 109 0 ; sust(fRueda/109) ; sust(ruedaAceite/0) oclear 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) oclear 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) } done vaciar _ present 27 ; sust(oChimenea/27) noteq 44 255 ;hay segundo nombre whatox2 100 ; sust(fAux/100) eq 100 27 ;es la chimenea ; sust(fAux/100) ; sust(oChimenea/27) onotzero# 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) { writeln "Viertes el agua de coco de la botella en la chimenea." onotzero# 27 20 ; sust(oChimenea/27) ; sust(aOn/20) { writeln "El fuego de la chimenea chisporrotea... el agua de coco no es capaz de apagarlo." } oclear 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) oclear 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) done } onotzero# 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) { writeln "Vacías todo el agua de la botella en la chimenea." onotzero# 27 20 ; sust(oChimenea/27) ; sust(aOn/20) { writeln "Apagas el fuego de la chimenea dejando en ella un resto de cenizas." oclear 27 20 ; sust(oChimenea/27) ; sust(aOn/20) place 29 11 ; sust(oCenizas/29) } oclear 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) oclear 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) done } vaciar _ at 3 present 37 ; sust(oOlla/37) noteq 44 255 eq 44 102 ; no hacemos whatox2, ya que la chimenea = fuego no es objeto presente ; sust(_voc_FUEGO/102) onotzero# 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) { writeln "Vacías el agua de coco de la botella en el fuego bajo la olla." writeln "Pero el fuego que calienta la olla ni se inmuta." oclear 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) oclear 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) done } onotzero# 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) { writeln "Vacías todo el agua de la botella en el fuego que caliente la olla." writeln "Pero el fuego de la olla ni se inmuta, parece un fuego 'mágico', te hace falta un poco agua 'mágica'." oclear 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) oclear 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) done } vaciar _ onotzero# 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) { writeln "Vacías todo el agua de coco de la botella." oclear 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) oclear 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) } onotzero# 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) { writeln "Vacías todo el agua de la botella." oclear 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) oclear 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) } done cerrar _ synonym abrir _ abrir _ writeln "No tiene tapón." done _ _ nosinonimo @33 "coge deja dar" pnjdice 16 "Bueno, podría hacer eso con la botella, pero creo que no es necesario." 0 ; sust(pWally/16) done /PRO 6 _ _ let 106 255 ; sust(fIterador/106) clear 107 ;numero total de objetos ; sust(fNumObjetos/107) clear 100 ; auxiliar para almacenar objetos de cada room ; sust(fAux/100) notzero: 106 ; sust(fIterador/106) { clear 100 ; sust(fAux/100) objat @106 100 ; sust(fIterador/@106) ; sust(fAux/100) plus 107 @100 ; sust(fNumObjetos/107) ; sust(fAux/@100) minus 106 1 ; sust(fIterador/106) } plus 107 4 ;sumo 4 de los 4 aNpc ; sust(fNumObjetos/107) /PRO 7 ex pecera present 1 ; sust(oPecera/1) notzero 255 ; sust(fPeceraLlena/255) writeln "{textpic|pecera.png|0}" writeln "Dentro de la pecera nada un pobre pez que te hace ojitos." newline done ex pecera present 1 ; sust(oPecera/1) writeln "{textpic|pecera.png|0}" writeln "Una pecera... para meter peces." newline done llenar pecera synonym meter pecera meter pecera at 1 ;los peces están en la pecera present 1 ; sust(oPecera/1) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 0 ; sust(fAux/100) ; sust(oPeces/0) notzero 255 ; sust(fPeceraLlena/255) writeln "Ya has metido uno dentro de la pecera, no te hace falta ninguno más." pnjdice 16 "Bueno vale." 0 ; sust(pWally/16) done meter pecera at 1 present 1 ; sust(oPecera/1) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 0 ; sust(fAux/100) ; sust(oPeces/0) writeln "Metes uno de los peces dentro de la pecera." let 255 1 ; sust(fPeceraLlena/255) done meter _ present 1 ; sust(oPecera/1) noteq 44 255 ;Hay segundo nombre whatox2 100 ;Guardamos el segundo nombre ; sust(fAux/100) eq 100 1 ; sust(fAux/100) ; sust(oPecera/1) writeln "La pecera es para meter peces." done meter _ present 1 ; sust(oPecera/1) noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 1 ; El primer nombre es la pecera ; sust(oPecera/1) writeln "La pecera es para meter peces." done llenar _ present 1 ; sust(oPecera/1) noteq 44 255 ;Hay segundo nombre whatox2 100 ;Guardamos el segundo nombre ; sust(fAux/100) eq 100 1 ; sust(fAux/100) ; sust(oPecera/1) writeln "La pecera es para meter peces." done llenar _ present 1 ; sust(oPecera/1) noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 1 ; El primer nombre es la pecera ; sust(oPecera/1) writeln "La pecera es para meter peces." done beber agua present 1 ; sust(oPecera/1) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 1 ; sust(fAux/100) ; sust(oPecera/1) synonym beber pecera beber pecera present 1 ; sust(oPecera/1) notzero 255 ; sust(fPeceraLlena/255) pnjdice 16 "Es agua donde nada un pez, no me apetece." 0 ; sust(pWally/16) done beber pecera present 1 ; sust(oPecera/1) writeln "Creo que la utilidad de la pecera no es usarla como si fuera un vaso. En todo caso la pecera está vacía." done vaciar pecera present 1 ; sust(oPecera/1) notzero 255 ; sust(fPeceraLlena/255) lnotzero @38 10 ; sust(aLocAgua/10) pnjdice 16 "Eres libre pececillo...." 0 ; sust(pWally/16) let 255 0 ; sust(fPeceraLlena/255) done vaciar pecera present 1 ; sust(oPecera/1) notzero 255 ; sust(fPeceraLlena/255) writeln "Pobre pez, fuera del río moriría." done vaciar pecera present 1 ; sust(oPecera/1) zero 255 ; sust(fPeceraLlena/255) writeln "La pecera no tiene ningún pez dentro." done _ pecera present 1 ; sust(oPecera/1) nosinonimo @33 "coge deja da" pnjdice 16 "Lo intentaría, pero la verdad no le veo mucho sentido hacer eso con la pecera." 0 ; sust(pWally/16) done ex bolso present 2 ; sust(oBolso/2) writeln "{textpic|bolso.png|0}" writeln "Es el bolso de Wylma." pnjdice 16 "Un bolso de piel de cocodrilo muy, muy feo." 0 ; sust(pWally/16) newline done abrir bolso present 2 ; sust(oBolso/2) writeln "No está bien cotillear en las cosas de tu mujer." pnjdice 16 "¿Cotilla yo? noooo." 0 ; sust(pWally/16) done cerrar bolso present 2 ; sust(oBolso/2) writeln "Está cerrado." done oler bolso present 2 ; sust(oBolso/2) pnjdice 16 "Huele a piel de cocodrilo. La verdad es que no sé a qué huele la piel de un cocodrilo, pero se supone que si el bolso es de piel de cocodrilo, así es como debe oler el bolso." 0 ; sust(pWally/16) done meter _ present 2 ; sust(oBolso/2) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 2 ; sust(fAux/100) ; sust(oBolso/2) writeln "Es el bolso de tu mujer, si te ve haciendo eso con él te liquida más rápido que un caníbal." done meter _ present 2 ; sust(oBolso/2) noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 2 ; El primer nombre es el bolso ; sust(oBolso/2) writeln "Es el bolso de tu mujer, si te ve haciendo eso con él te liquida más rápido que un caníbal." done soltar bolso carried 2 ; sust(oBolso/2) notat 4 let 254 0 ; sust(fCocodriloTriste/254) soltar bolso carried 2 ; sust(oBolso/2) at 4 let 254 1 ; sust(fCocodriloTriste/254) coger bolso present 2 ; sust(oBolso/2) let 254 1 ; sust(fCocodriloTriste/254) _ bolso present 2 ; sust(oBolso/2) nosinonimo @33 "coge deja da" writeln "Es el bolso de tu mujer, si te ve haciendo eso con él te liquida más rápido que un caníbal." done ex sacacorcho present 3 ; sust(oSacacorcho/3) writeln "{textpic|sacacorcho.png|0}" writeln "Para sacar corchos o bien para hacer agujeros en frutos de piel muy dura." newline done ex chancletas present 5 ; sust(oChancletas/5) writeln "{textpic|chanclas.png|0}" writeln "Unas cómodas chancletas para ir a la playa." pnjdice 16 "Ideales." 0 ; sust(pWally/16) worn# 5 ; sust(oChancletas/5) writeln "Las chancletas las llevas puestas en tus hermosos pies." newline done _ _ present 6 ; sust(oCangrejo/6) noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 6 ; El primer nombre es el cangrejo ; sust(oCangrejo/6) whatox2 100 ;obtengo el objeto referenciado por el segundo nombre ; sust(fAux/100) eq 100 35 ;es la pinza ; sust(fAux/100) ; sust(oPinza/35) COPYFF 34 100 ; Le doy la vuelta a los flags 34 y 44 (nombre1 y nombre2) ; sust(fAux/100) COPYFF 44 34 COPYFF 100 44 ; sust(fAux/100) COPYFF 35 100 ; Le doy la vuelta a los flags 35 y 45 (adjetivo1 y adjetivo2) ; sust(fAux/100) COPYFF 45 35 COPYFF 100 45 ; sust(fAux/100) WHATO ; Hago que los flags 51 y 54-58 se actualicen para el nuevo NOUN1 let 51 35 ; sust(oPinza/35) _ _ present 36 ; sust(oCangrejoCocido/36) noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 36 ; El primer nombre es el cangrejo ; sust(oCangrejoCocido/36) whatox2 100 ;obtengo el objeto referenciado por el segundo nombre ; sust(fAux/100) eq 100 35 ;es la pinza ; sust(fAux/100) ; sust(oPinza/35) COPYFF 34 100 ; Le doy la vuelta a los flags 34 y 44 (nombre1 y nombre2) ; sust(fAux/100) COPYFF 44 34 COPYFF 100 44 ; sust(fAux/100) COPYFF 35 100 ; Le doy la vuelta a los flags 35 y 45 (adjetivo1 y adjetivo2) ; sust(fAux/100) COPYFF 45 35 COPYFF 100 45 ; sust(fAux/100) WHATO ; Hago que los flags 51 y 54-58 se actualicen para el nuevo NOUN1 let 51 35 ; sust(oPinza/35) ex cangrejo carried 6 ; sust(oCangrejo/6) writeln "{textpic|cangrejo.png|0}" writeln "Tienes el cangrejo sujetándolo con las dos manos. Con cada mano le agarras cada una de sus pinzas para que no te muerda." newline done ex cangrejo present 6 ; sust(oCangrejo/6) writeln "{textpic|cangrejo.png|0}" writeln "Un suculento cangrejo de hermosas pinzas." pnjdice 16 "Buff, que mariscada me haría con él." 0 ; sust(pWally/16) newline done _ cangrejo at 21 present 6 ; sust(oCangrejo/6) notworn 5 ; sust(oChancletas/5) pnjdice 16 "¡AUUUUU! La arena de esta zona de la playa quema demasiado, no puedo acercarme a él." 0 ; sust(pWally/16) done coger cangrejo present 6 ; sust(oCangrejo/6) notcarr 6 ; sust(oCangrejo/6) objat 254 100 ; sust(fAux/100) noteq 100 0 ; sust(fAux/100) writeln "Coges al cangregito con una mano, pero rápidamente lo sueltas. Sus amenazantes pinzas no te dejan sujetarlo de ese modo mucho rato." pnjdice 16 "Que buenas pinzas tiene." 0 ; sust(pWally/16) done coger cangrejo present 6 ; sust(oCangrejo/6) notcarr 6 ; sust(oCangrejo/6) objat 254 100 ; sust(fAux/100) eq 100 0 ; sust(fAux/100) writeln "Coges el cangrejo como los buenos mariscadores, con las dos manos. Con cada una de tus manos le sujetas una de sus pinzas." place 6 254 ; sust(oCangrejo/6) beep 258 2 1 ; sust(coger.mp3/258) ; sust(MCanalFx/2) done meter cangrejo synonym dejar cangrejo lanzar cangrejo synonym dejar cangrejo tirar cangrejo synonym dejar cangrejo dejar cangrejo carried 6 ; sust(oCangrejo/6) at 19 noteq 44 255 ;hay segundo nombre sinonimo @44 "agua agujero old faithful" process 15 ; writeln "Metes sin piedad al cangrejo en el agua hirviendo." done cocinar cangrejo synonym cocer cangrejo hervir cangrejo synonym cocer cangrejo cocer cangrejo carried 6 ; sust(oCangrejo/6) at 19 process 15 ;writeln "Metes sin piedad al cangrejo en el agua hirviendo." process 19 ;Repintamos done cocer cangrejo carried 6 ; sust(oCangrejo/6) notat 19 writeln "Te hace falta agua muuuuy caliente." done dejar cangrejo carried 6 ; sust(oCangrejo/6) writeln "El cangrejo se marcha rápido y fugaz." pnjdice 16 "uppsss, se me escapó el cangrejo." 0 ; sust(pWally/16) place 6 21 ; sust(oCangrejo/6) done comer cangrejo present 6 ; sust(oCangrejo/6) pnjdice 16 "¿Así vivito?... creo que él me comería a mi." 0 ; sust(pWally/16) done matar cangrejo present 6 ; sust(oCangrejo/6) writeln "Lo triturarías y sería un desperdicio." done coger coco at 4 present 2 ; sust(oBolso/2) pnjdice 16 "El coco es muy grande, pesa demasiado." 0 ; sust(pWally/16) done ex coco at 4 present 2 ; sust(oBolso/2) writeln "{textpic|coco.png|0}" writeln "Un enorme coco. Según viste en uno de esos documentales que ponen a la hora de la siesta, este tipo de coco tienen en su interior un agua muy aceitosa." onotzero# 7 22 ; sust(oCoco/7) ; sust(aCocoAbierto/22) writeln "El coco tiene un pequeño orificio en su corteza." newline done romper coco at 4 synonym abrir coco abrir coco at 4 present 2 ; sust(oBolso/2) onotzero 7 22 ; sust(oCoco/7) ; sust(aCocoAbierto/22) writeln "El coco ya tiene un pequeño orificio hecho." done abrir coco at 4 present 2 ; sust(oBolso/2) carried 3 ; sust(oSacacorcho/3) pnjdice 16 "Ohhhh, con el sacacorchos puedo abrir un pequeño agujero en la corteza del coco." 0 ; sust(pWally/16) oset 7 22 ; sust(oCoco/7) ; sust(aCocoAbierto/22) done abrir coco at 4 present 2 ; sust(oBolso/2) noteq 44 255 ;hay un segundo nombre whatox2 100 ; sust(fAux/100) noteq 100 3 ; sust(fAux/100) ; sust(oSacacorcho/3) writeln "Con eso no puedo abrir bien el coco." done abrir coco at 4 present 2 ; sust(oBolso/2) pnjdice 16 "El coco tiene una corteza muy dura... no puedo con las manos, me haría falta algo para perforar la corteza." 0 ; sust(pWally/16) done ex aceite at 4 onotzero 7 22 ; sust(oCoco/7) ; sust(aCocoAbierto/22) synonym ex agua ex agua at 4 present 2 ; sust(oBolso/2) onotzero 7 22 ; sust(oCoco/7) ; sust(aCocoAbierto/22) writeln "El agua de este tipo de cocos es muy aceitosa, perfecta para lubricar cosas." done coger agua at 4 present 2 ; sust(oBolso/2) onotzero 7 22 ; sust(oCoco/7) ; sust(aCocoAbierto/22) writeln "Deberás vaciar el coco en algún recipiente." done beber coco at 4 synonym beber agua beber agua at 4 present 2 ; sust(oBolso/2) onotzero 7 22 ; sust(oCoco/7) ; sust(aCocoAbierto/22) pnjdice 16 "Plush plush... no está muy buena." 0 ; sust(pWally/16) done vaciar agua at 4 present 2 ; sust(oBolso/2) onotzero 7 22 ; sust(oCoco/7) ; sust(aCocoAbierto/22) writeln "Supongo que lo que quieres hacer es 'vaciar el coco'." pnjdice 16 "Sí, sería buena idea." 0 ; sust(pWally/16) done vaciar coco at 4 present 2 ; sust(oBolso/2) onotzero 7 22 ; sust(oCoco/7) ; sust(aCocoAbierto/22) eq 44 255 writeln "¿Dónde, en el suelo?, es una pena desperdiciar este magnífico lubricante." pnjdice 16 "Además me ha costado mucho abrir el coco." 0 ; sust(pWally/16) done vaciar coco at 4 present 2 ; sust(oBolso/2) onotzero 7 22 ; sust(oCoco/7) ; sust(aCocoAbierto/22) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 8 ; sust(fAux/100) ; sust(oBotella/8) present 8 ; sust(oBotella/8) let 33 55 ;El verbo llenar process 5 isdone done _ coco at 4 present 2 ; sust(oBolso/2) pnjdice 16 "Podría hacer eso con el coco, pero creo que no es necesario." 0 ; sust(pWally/16) done _ coco at 4 pnjdice 16 "El coco está demasiado cerca del cocodrilo, no puedo acercarme." 0 ; sust(pWally/16) done _ botella present 8 ; sust(oBotella/8) process 5 isdone done ex puerta at 5 synonym ex CABAÑA golpear puerta at 5 synonym abrir puerta abrir puerta at 5 synonym abrir CABAÑA cerrar puerta at 5 synonym abrir CABAÑA ex CABAÑA present 9 ; sust(oCabana/9) writeln "Una cabaña montada en esta zona de la jungla, está medio abandonada." onotzero# 9 10 ; sust(oCabana/9) ; sust(aLocked/10) writeln "La puerta de la CABAÑA está cerrada." ozero# 9 10 ; sust(oCabana/9) ; sust(aLocked/10) writeln "La puerta de la CABAÑA está abierta." done abrir CABAÑA present 9 ; sust(oCabana/9) ozero 9 10 ; sust(oCabana/9) ; sust(aLocked/10) pnjdice 16 "A ver... uy, si ya está abierta. ¡Qué memoria la mía!" 0 ; sust(pWally/16) done cerrar CABAÑA present 9 ; sust(oCabana/9) onotzero 9 10 ; sust(oCabana/9) ; sust(aLocked/10) writeln "Ya está más que cerrada." done cerrar CABAÑA present 9 ; sust(oCabana/9) ozero 9 10 ; sust(oCabana/9) ; sust(aLocked/10) pnjdice 16 "Mejor la dejo abierta... por si acaso." 0 ; sust(pWally/16) done abrir CABAÑA at 5 noteq 44 255 ;hay segundo nombre whatox2 100 ; sust(fAux/100) noteq 100 10 ; sust(fAux/100) ; sust(oLlave/10) writeln "No... esa no es la llave correcta para esta cabaña." bzero# 102 1 ; sust(fTonterias/102) ; sust(tonteria2/1) { pnjdice 16 "Dicen que con paciencia y saliva..." 0 ; sust(pWally/16) writeln "¡Wally! por favor, que no es esa la llave para abrir la cabaña." bset 102 1 ; sust(fTonterias/102) ; sust(tonteria2/1) } done abrir CABAÑA present 9 ; sust(oCabana/9) carried 10 ; sust(oLlave/10) writeln "La cerradura parece un poco oxidada, pero con un poco de mañana consigues abrir la puerta." oclear 9 10 ; sust(oCabana/9) ; sust(aLocked/10) done abrir CABAÑA present 9 ; sust(oCabana/9) writeln "Golpeas la puerta de la cabaña para intentar abrirla, pero sin una llave, imposible." done romper puerta present 9 ; sust(oCabana/9) writeln "Golpeas la puerta de la cabaña para intentar abrirla, pero sin una llave, imposible." done golpear puerta synonym llamar puerta llamar puerta synonym llamar CABAÑA llamar CABAÑA present 9 ; sust(oCabana/9) writeln "Toc, toc, toc... nadie contesta." done ex llave present 10 ; sust(oLlave/10) writeln "{textpic|llave.png|0}" writeln "Parece la llave de una cabaña." newline done ex pico present 11 ; sust(oPico/11) writeln "{textpic|pico.png|0}" writeln "Esto es lo que utilizan los albañiles para hacer agujeros." pnjdice 16 "También suele dar urticaria si lo tocas demasiado." 0 ; sust(pWally/16) newline done coger pico present 11 ; sust(oPico/11) notcarr 11 ; sust(oPico/11) pnjdice 16 "No sé si tocar este tipo de cosas, pero bueno, haremos un sacrificio por la causa." 0 ; sust(pWally/16) ex repelente present 12 ; sust(oRepelente/12) pnjdice 16 "Un repelente de sueg..." 0 ; sust(pWally/16) writeln "psss Wally, de moscas gordas hombre, de moscas gordas." done ex hueso present 13 ; sust(oHueso/13) writeln "{textpic|hueso.png|0}" writeln "Tiene tallada unas muescas" pnjdice 16 "Creo que si encaja en el lugar adecuado puede abrir algo." 0 ; sust(pWally/16) newline done ex muescas present 13 ; sust(oHueso/13) writeln "Las muescas que tiene el hueso parecen los dientes de una llave." done examinar calavera at 23 synonym examinar cofre examinar cerradura at 23 synonym examinar cofre abrir cerradura at 23 synonym abrir cofre cerrar cerradura at 23 synonym cerrar cofre romper cerradura at 23 synonym romper cofre ex simbolo at 23 synonym ex cofre ex pirata at 23 synonym ex cofre ex cofre at 23 write "Un cofre con símbolos piratas grabados." onotzero# 14 10 ; sust(oCofre/14) ; sust(aLocked/10) { writeln " El cofre está cerrado con llave." pnjdice 16 "¿Tendrá un tesoro dentro?" 0 ; sust(pWally/16) } ozero# 14 10 ; sust(oCofre/14) ; sust(aLocked/10) { write " El cofre está abierto." eq# 97 1 ; sust(fEspinacasEnCofre/97) { writeln " Tiene dentro unas..." pnjdice 16 "¿hojas de espinacas?" 0 ; sust(pWally/16) } noteq# 97 1 ; sust(fEspinacasEnCofre/97) writeln " Está vacío." } done abrir cofre at 23 ozero 14 10 ; sust(oCofre/14) ; sust(aLocked/10) writeln "El cofre ya está abierto." done abrir cofre at 23 noteq 44 255 ;hay segundo nombre whatox2 100 ; sust(fAux/100) noteq 100 13 ; sust(fAux/100) ; sust(oHueso/13) writeln "No... esa no es la llave correcta para el cofre." pnjdice 16 "Qué sí hombre que sí..." 0 ; sust(pWally/16) writeln "¡Wally! que no es esa la llave" done abrir cofre at 23 carried 13 ; sust(oHueso/13) writeln "El hueso que tiene las muescas encaja en la cerradura del cofre como si fuera una llave." oclear 14 10 ; sust(oCofre/14) ; sust(aLocked/10) done abrir cofre at 23 writeln "El cofre tiene una cerradura con una especie de calavera." pnjdice 16 "¿Dónde estará la llave?" 0 ; sust(pWally/16) done cerrar cofre at 23 onotzero 14 10 ; sust(oCofre/14) ; sust(aLocked/10) writeln "El cofre está cerrado." done cerrar cofre at 23 pnjdice 16 "Bueno, ha costado mucho abrirlo. Mejor lo dejo tal y como está." 0 ; sust(pWally/16) done meter _ at 23 noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 14 ; sust(fAux/100) ; sust(oCofre/14) writeln "No hace falta meter eso en el cofre." done meter _ at 23 noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 14 ;es el cofre ; sust(oCofre/14) writeln "No hace falta meter eso en el cofre." done meter cofre at 23 writeln "No hace falta meter nada en el cofre." done romper cofre at 23 ozero 14 10 ; sust(oCofre/14) ; sust(aLocked/10) writeln "Ya está abierto, no hace falta que rompas nada." done romper cofre at 23 writeln "Así no podrás, busca la llave para abrir el cofre." done _ cofre at 23 pnjdice 16 "Podría hacer eso con el cofre, pero creo que no es necesario." 0 ; sust(pWally/16) done ex espinacas eq 97 1 ; sust(fEspinacasEnCofre/97) present 14 ;estamos en la habitación con el cofre ; sust(oCofre/14) ozero 14 10 ;el cofre está abierto ; sust(oCofre/14) ; sust(aLocked/10) writeln "{textpic|espinacas.png|0}" writeln "Hojas pequeñas y verdes, dicen que son típicas de esta zona del planeta." pnjdice 16 "Son como ¿espinacas?" 0 ; sust(pWally/16) newline done ex espinacas present 15 ; sust(oEspinacas/15) writeln "{textpic|espinacas.png|0}" writeln "Hojas pequeñas y verdes, dicen que son típicas de esta zona del planeta." pnjdice 16 "Son como ¿espinacas?" 0 ; sust(pWally/16) newline done coger espinacas eq 97 1 ; las espinacas están en el cofre ; sust(fEspinacasEnCofre/97) present 14 ; sust(oCofre/14) ozero 14 10 ;el cofre está abierto ; sust(oCofre/14) ; sust(aLocked/10) eq# 1 2 ;¿tenemos menos de dos objetos? pnjdice 16 "¡¡¡¡Eyy!!!! que sólo tengo dos manos." 0 ; sust(pWally/16) noteq# 1 2 { writeln "Coges las hojas de espinacas." let 97 0 ; sust(fEspinacasEnCofre/97) place 15 254 ; sust(oEspinacas/15) } done oler espinacas carried 15 ; sust(oEspinacas/15) pnjdice 16 "No recuerdo muy bien el olor de las espinacas, pero no creo que fuese así." 0 ; sust(pWally/16) done oler espinacas writeln "No tienes las espinacas." done comer espinacas carried 15 ; sust(oEspinacas/15) let 101 1 ; sust(fEspinacasComidas/101) place 15 255 ; sust(oEspinacas/15) pnjdice 16 "No están mal. Me siento... muy activo." 0 ; sust(pWally/16) process 19 ;repintamos done comer espinacas writeln "No tienes las espinacas." done _ arco at 25 absent 17 ; sust(oArco/17) isat 17 20 ; sust(oArco/17) writeln "Queda un poco lejos." done ex arco present 17 ; sust(oArco/17) writeln "{textpic|arco.png|0}" writeln "Una arco con una sola flecha, debes aprovecharla bien." bzero# 102 0 ; sust(fTonterias/102) ; sust(tonteria1/0) { pnjdice 16 "Aprovecho para decir que ¡ME QUIERO IR A CASA!" 0 ; sust(pWally/16) bset 102 0 ; sust(fTonterias/102) ; sust(tonteria1/0) } newline done lanzar arco synonym disparar arco matar arco carried 17 ; sust(oArco/17) noteq 44 255 ;hay segundo nombre eq 44 89 ; sust(_voc_INDIO/89) let 44 84 ; sust(_voc_ARCO/84) synonym matar indio disparar arco carried 17 ; sust(oArco/17) noteq 44 255 ;hay segundo nombre eq 44 89 ; sust(_voc_INDIO/89) notat# 8 ;en la localidad del indio { writeln "No veo por aquí a ningún indio." done } onotzero 21 27 ; sust(pIndio/21) ; sust(aVivo/27) writeln "Apuntas con tu arco al indio... y das en el blanco." writeln "El cuerpo del indio caníbal se desvanece." place 17 255 ; sust(oArco/17) place 22 254 ; sust(oArcoSinFlechas/22) place 21 255 ; sust(pIndio/21) picture 564 ; sust(ocho_1.png/564) done disparar arco carried 17 ; sust(oArco/17) noteq 44 255 writeln "El arco sólo tiene una sola flecha, debes seleccionar bien tu objetivo." done disparar arco carried 17 ; sust(oArco/17) writeln "¿A quién quieres disparar con el arco?" done _ huevo at 9 eq 105 0 ; sust(fPajaroComiendo/105) write "Intentas acercarte a la cena del pajarraco... " bzero# 102 7 ; sust(fTonterias/102) ; sust(tonteria8/7) { newline pnjdice 16 "¡AAAAUUUUUUUU!" 0 ; sust(pWally/16) bset 102 7 ; sust(fTonterias/102) ; sust(tonteria8/7) } writeln " pero te mete un picotazo en la mitad del cerebro que te deja más tonto aún." done ex huevo present 18 ; sust(oHuevo/18) writeln "{textpic|huevo.png|0}" writeln "Un gran huevo." newline done romper huevo present 18 ; sust(oHuevo/18) pnjdice 16 "¿Tortilla?, no gracias." 0 ; sust(pWally/16) done comer huevo present 18 ; sust(oHuevo/18) writeln "No te cabe en la boca." done oler huevo present 18 ; sust(oHuevo/18) write "Huele a eso... " bzero# 102 8 ; sust(fTonterias/102) ; sust(tonteria9/8) { newline pnjdice 16 "¿a huevos?" 0 ; sust(pWally/16) write "no, " bset 102 8 ; sust(fTonterias/102) ; sust(tonteria9/8) } writeln "a culo de pájaro." done dar huevo at 9 carried 18 ; sust(oHuevo/18) noteq 44 255; Hay un segundo nombre eq 44 78 ; sust(_voc_PAJARO/78) writeln "Ha sido complicado conseguirlo, mejor te lo quedas." done ex comida present 19 ; sust(oTazon/19) writeln "{textpic|tazon.png|0}" writeln "Un tazón lleno de comida muy rara, son semillitas." newline done dejar comida at 9 carried 19 ; sust(oTazon/19) writeln "Dejas el tazón de comida, el pájaro te mira con mucha desconfianza." place 19 9 ; sust(oTazon/19) done comer comida present 19 ; sust(oTazon/19) at 9 eq 105 1 ; sust(fPajaroComiendo/105) writeln "Te intentas acercar al tazón de comida, pero el pajarraco te mete un picotazo escandaloso." done oler comida present 19 ; sust(oTazon/19) at 9 eq 105 1 ; sust(fPajaroComiendo/105) writeln "Te intentas acercar al tazón de comida, pero el pajarraco te mete un picotazo escandaloso." done comer comida present 19 ; sust(oTazon/19) write "Pruebas una de estas semillitas... " bzero# 102 4 ; sust(fTonterias/102) ; sust(tonteria5/4) { newline pnjdice 16 "puaggg sabe a uñas de pies..." 0 ; sust(pWally/16) bset 102 4 ; sust(fTonterias/102) ; sust(tonteria5/4) } writeln "no te gustan mucho." done oler comida present 19 ; sust(oTazon/19) write "Hueles estas semillitas... " bzero# 102 5 ; sust(fTonterias/102) ; sust(tonteria6/5) { newline pnjdice 16 "ffffff huele a pies sudaos" 0 ; sust(pWally/16) bset 102 5 ; sust(fTonterias/102) ; sust(tonteria6/5) } writeln "no tienen un olor muy agradable." done dar tazon at 9 carried 19 ; sust(oTazon/19) noteq 44 255; Hay un segundo nombre eq 44 78 ; sust(_voc_PAJARO/78) writeln "Te acercas con cuidado al pajarito y le dejas el tazón de comida." let 105 1 ; sust(fPajaroComiendo/105) oset 19 4 ; sust(oTazon/19) ; sust(aConcealed/4) place 19 9 ; sust(oTazon/19) process 19 ;repintamos done dar tazon carried 19 ; sust(oTazon/19) noteq 44 255; Hay un segundo nombre writeln "Creo que no lo quiere." done dar tazon carried 19 ; sust(oTazon/19) writeln "No sé a quién quieres darle el tazón de comida." done coger tazon present 19 ; sust(oTazon/19) at 9 eq 105 1 ; sust(fPajaroComiendo/105) write "Intentas coger el tazón con las semillitas... " bzero# 102 6 ; sust(fTonterias/102) ; sust(tonteria7/6) { newline pnjdice 16 "Sí claro, cógelo tú." 0 ; sust(pWally/16) writeln "¡Cobarde!" bset 102 6 ; sust(fTonterias/102) ; sust(tonteria7/6) } writeln "... el pájaro entorna los ojos preparándose para picotearte los ojos. Mejor lo dejamos ahí." done ex fuelle present 20 ; sust(oFuelle/20) writeln "{textpic|fuelle.png|0}" writeln "Parece el típico fuelle para avivar la lumbre." newline done soplar fuelle synonym apretar fuelle bombear fuelle synonym apretar fuelle disparar fuelle synonym apretar fuelle apretar fuelle carried 20 ; sust(oFuelle/20) present 27 ; sust(oChimenea/27) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 27 ; sust(fAux/100) ; sust(oChimenea/27) synonym avivar chimenea soplar aire synonym lanzar aire lanzar aire carried 20 ; sust(oFuelle/20) present 27 ; sust(oChimenea/27) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 27 ; sust(fAux/100) ; sust(oChimenea/27) synonym avivar chimenea lanzar aire carried 20 ; sust(oFuelle/20) present 27 ; sust(oChimenea/27) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 20 ; sust(fAux/100) ; sust(oFuelle/20) synonym avivar chimenea apretar fuelle carried 20 ; sust(oFuelle/20) writeln "Lanzas una ráfaga de aire con el fuelle." done lanzar aire carried 20 ; sust(oFuelle/20) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 20 ; sust(fAux/100) ; sust(oFuelle/20) writeln "Lanzas una ráfaga de aire con el fuelle." done ex indio present 21 ; sust(pIndio/21) onotzero 21 27 ; sust(pIndio/21) ; sust(aVivo/27) writeln "Un guerrero de la tribu caníbal que habita esta isla." pnjdice 21 "¿Qué mirar tu? ¿yo gustar?. Tú sí gustar a mi, 'mmm... albóndigas con tomate'." 0 ; sust(pIndio/21) done golpear indio synonym matar indio pegar indio synonym matar indio disparar indio synonym matar indio lanzar indio synonym matar indio matar indio present 21 ; sust(pIndio/21) noteq 44 255 ;Hay segundo nombre whatox2 100 ; sust(fAux/100) eq 100 17 ;Es el arco ; sust(fAux/100) ; sust(oArco/17) notcarr# 17 ; sust(oArco/17) { writeln "No tienes el arco." done } writeln "Apuntas con tu arco al indio... y das en el blanco." writeln "El cuerpo del indio caníbal se desvanece." place 17 255 ; sust(oArco/17) place 22 254 ; sust(oArcoSinFlechas/22) place 21 255 ; sust(pIndio/21) picture 564 ; sust(ocho_1.png/564) let 115 308 ; sust(fGraficoAct/115) plus 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) done matar indio present 21 ; sust(pIndio/21) pnjdice 21 "Mejor no intentar eso gran albóndiga." 0 ; sust(pIndio/21) writeln "El indio caníbal tiene muy malas pulgas, creo que no puedes tan fácilmente con él." done decir indio present 21 ; sust(pIndio/21) process 9 done examinar arco present 22 ; sust(oArcoSinFlechas/22) writeln "{textpic|arcosin.png|0}" writeln "Un arco para lanzar flechas al que ya no le queda ninguna flecha." newline done disparar arco carried 22 ; sust(oArcoSinFlechas/22) writeln "Ya no tienes ninguna flecha." done ex hacha present 23 ; sust(oHachaSinAfilar/23) writeln "{textpic|hachamal.png|0}" writeln "Es el antiguo hacha de un nativo. No es tan grande como para cortar leña, más bien se usaría para cortar maleza, lianadas... Tiene la hoja en muy mal estado, le haría falta un buen afilado." newline done afilar hacha present 23 ; sust(oHachaSinAfilar/23) notat 18 writeln "Deberías indicar cómo quieres afilar el hacha." done ex hacha present 24 ; sust(oHachaAfilado/24) writeln "{textpic|hachabien.png|0}" writeln "Es el antiguo hacha de un nativo. No es tan grande como para cortar leña, más bien se usaría para cortar maleza, lianas... Después de afilarla tiene la hoja perfecta para darle uso." newline done afilar hacha present 24 ; sust(oHachaAfilado/24) notat 18 writeln "Ya está bien afilado." done examinar ramitas present 26 ; sust(oRamitas/26) writeln "{textpic|ramitas.png|0}" writeln "Ramitas secas, son perfectas para hacer un buen fuego en una chimenea." newline done quemar ramitas at 11 synonym quemar chimenea quemar ramitas present 26 ; sust(oRamitas/26) writeln "Sería una imprudencia hacer eso aquí. Habría que buscar un lugar adecuado." done meter ramitas at 11 noteq 44 255 ;Hay segundo nombre whatox2 100 ; sust(fAux/100) eq 100 27 ;Es la chimenea ; sust(fAux/100) ; sust(oChimenea/27) writeln "Dejas las ramitas listas para hacer una buena hoguera." place 26 11 ; sust(oRamitas/26) done ex chisquero present 28 ; sust(oChisquero/28) writeln "{textpic|chisquero.png|0}" writeln "Produce una pequeña chispa, que junto a unas ramas secas pueden encender un buen fuego." newline done encender chisquero present 28 ; sust(oChisquero/28) at 11 ; present 27 ; sust(oChimenea/27) noteq 44 255 ;Hay segundo nombre whatox2 100 ; sust(fAux/100) eq 100 27 ;Es la chimenea ; sust(fAux/100) ; sust(oChimenea/27) synonym quemar chimenea encender chisquero present 28 ; sust(oChisquero/28) at 11 noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 26 ; sust(fAux/100) ; sust(oRamitas/26) synonym quemar chimenea ;writeln "Sería una imprudencia hacer eso aquí. Habría que buscar un lugar adecuado para eso. encender chisquero present 28 ; sust(oChisquero/28) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 26 ; sust(fAux/100) ; sust(oRamitas/26) present 26 ; sust(oRamitas/26) writeln "Sería una imprudencia hacer eso aquí. Habría que buscar un lugar adecuado." done encender chisquero present 28 ; sust(oChisquero/28) writeln "Aprietas el chisquero y salta una pequeña chispa." done ex chimenea at 11 write "Más que una chimenea parece la fragua de un herrero." onotzero# 27 20 ; sust(oChimenea/27) ; sust(aOn/20) { writeln " La chimenea está encendida." ozero# 27 28 ; sust(oChimenea/27) ; sust(aFuegoVivo/28) { writeln "Aunque encendido, el fuego de la chimenea no llega a prender, sería necesario avivarlo de algún modo." done } writeln "Has conseguido prender un buen fuego en la chimenea." done } writeln " La chimenea está apagada." done quemar chimenea at 11 onotzero# 27 20 ; sust(oChimenea/27) ; sust(aOn/20) { writeln "La chimenea ya está encendida." done } present# 26 ; sust(oRamitas/26) { present# 28 ; sust(oChisquero/28) { writeln "Pones las ramitas en la chimenea y con la chispa del chisquero la enciendes." place 26 255 ; sust(oRamitas/26) oset 27 20 ; sust(oChimenea/27) ; sust(aOn/20) process 19 done } writeln "Con las ramitas podrías encender la chimenea, pero te haría falta algo para hacerlas prender." done } writeln "Te harían falta unas ramitas para quemar." done apagar chimenea at 11 onotzero# 27 20 ; sust(oChimenea/27) ; sust(aOn/20) { ozero# 27 28 ; sust(oChimenea/27) ; sust(aFuegoVivo/28) { writeln "El fuego de la chimenea era tan débil que se apagó por sí mismo." oclear 27 20 ; sust(oChimenea/27) ; sust(aOn/20) place 26 11 ; sust(oRamitas/26) done } carried# 8 ; sust(oBotella/8) { onotzero# 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) { ; forzamos "vaciar botella" let 33 86 ; sust(_voc_VACIAR/86) let 34 64 ; sust(_voc_BOTELLA/64) let 44 102 ; sust(_voc_CHIMENEA/102) process 5 done } writeln "Podrías apagar la chimenea vertiendo algún líquido sobre el fuego. Pero la botella está vacía." done } writeln "¿Cómo quieres apagar la chimenea?" done } writeln "La chimenea no está encendida." done avivar fuego at 11 carried 20 ; sust(oFuelle/20) onotzero# 27 20 ; sust(oChimenea/27) ; sust(aOn/20) { ozero# 27 28 ; sust(oChimenea/27) ; sust(aFuegoVivo/28) { writeln "Con el aire del fuelle avivas el fuego." pnjdice 16 "Esto sí que es un buen fuego." 0 ; sust(pWally/16) oset 27 28 ; sust(oChimenea/27) ; sust(aFuegoVivo/28) done } onotzero# 27 28 ; sust(oChimenea/27) ; sust(aFuegoVivo/28) { pnjdice 16 "Esto sí que es un buen fuego." 0 ; sust(pWally/16) done } } writeln "Aquí hay una chimenea, pero está apagada." done avivar fuego at 11 synonym soplar chimenea soplar chimenea at 11 onotzero# 27 20 ; sust(oChimenea/27) ; sust(aOn/20) { ozero# 27 28 ; sust(oChimenea/27) ; sust(aFuegoVivo/28) { writeln "Soplas y soplas a la chimenea. Tus pulmones no dan para mucho, te haría falta algo para avivar el fuego." done } pnjdice 16 "Ya me cansé de soplar." 0 ; sust(pWally/16) done } pnjdice 16 "Soplar a una chimenea apagada, mmm... interesante e inútil jugada." 0 ; sust(pWally/16) done ex cenizas present 29 ; sust(oCenizas/29) writeln "{textpic|cenizas.png|0}" writeln "Restos del fuego de las ramitas." newline done ex pies present 31 ; sust(oDiosa/31) synonym ex diosa ex diosa present 31 ; sust(oDiosa/31) ozero 31 29 ; sust(oDiosa/31) ; sust(aTormenta/29) writeln "Según cuenta una leyenda, si se le entregan como ofrenda cenizas de quemar ramitas de esta jungla, se desatará una tormenta." done ex diosa present 31 ; sust(oDiosa/31) onotzero 31 29 ; sust(oDiosa/31) ; sust(aTormenta/29) writeln "Tras la ofrenda la diosa Tormenta se mueve rítmicamente provocando una gran tormenta." done dejar cenizas at 7 synonym dar cenizas depositar cenizas at 7 synonym dar cenizas entregar cenizas at 7 synonym dar cenizas ofrecer cenizas at 7 synonym dar cenizas dar cenizas present 31 ; sust(oDiosa/31) carried 29 ; sust(oCenizas/29) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 31 ; sust(fAux/100) ; sust(oDiosa/31) writeln "Al ofrecer a la diosa Tormenta las cenizas sagradas, una gran tormenta se desata en esta zona de la jungla." pnjdice 16 "¡La que he lia'o!" 0 ; sust(pWally/16) place 30 255 ; la choza marina desaparece ; sust(oChoza/30) place 32 6 ; Aparece la almeja ; sust(oAlmeja/32) oset 31 29 ; sust(oDiosa/31) ; sust(aTormenta/29) place 29 255 ; sust(oCenizas/29) lset 6 10 ; sust(aLocAgua/10) lset 7 10 ; sust(aLocAgua/10) process 19 done entregar _ synonym dar _ ofrecer _ synonym dar _ dar _ present 31 ; sust(oDiosa/31) noteq 44 255 whatox2 100 ; sust(fAux/100) eq 100 31 ; sust(fAux/100) ; sust(oDiosa/31) writeln "Eso a la diosa tormenta no le interesa." done besar estatua present 31 ; sust(oDiosa/31) pnjdice 16 "plis plis...y seguro que mi mujer se entera." 0 ; sust(pWally/16) done _ estatua present 31 ; sust(oDiosa/31) pnjdice 16 "Creo que hacer eso con la estatua de la diosa no tiene mucho sentido." 0 ; sust(pWally/16) done _ cenizas present 29 ; sust(oCenizas/29) nosinonimo @33 "coge deja da" pnjdice 16 "Hacer eso con las cenizas no me llevaría a ningún sitio." 0 ; sust(pWally/16) done _ almeja process 16 isdone done ex leon present 33 ; sust(oLeon/33) onotzero 33 31 ; sust(oLeon/33) ; sust(aEnfadado/31) writeln "Uno de los leones que custodia a Herbert tiene un gesto de dolor en su cara. Parece que tiene algo clavado en una de sus patas." done ex leon present 33 ; sust(oLeon/33) writeln "Uno de los leones se ha hecho amiguito tuyo desde que le has quitado la astilla que tenia clavada en su pata." done ex astilla present 33 ; sust(oLeon/33) onotzero 33 31 ; sust(oLeon/33) ; sust(aEnfadado/31) writeln "Una pequeña astilla que tiene clavada el león en una de sus patas." done ex astilla present 33 ; sust(oLeon/33) writeln "La lanzaste bien lejos, ya no puede causar ningún daño." done ex pata present 33 ; sust(oLeon/33) onotzero 33 31 ; sust(oLeon/33) ; sust(aEnfadado/31) writeln "El león que hace mala cara tiene una astilla clavada en una de sus patas." done ex pata present 33 ; sust(oLeon/33) writeln "Una pata curada en un león feliz." done matar leon present 33 ; sust(oLeon/33) writeln "Antes de que levantases la mano el león te devoraría." pnjdice 16 "Ni lo intento." 0 ; sust(pWally/16) done curar leon synonym coger astilla sacar astilla synonym coger astilla arrancar astilla synonym coger astilla quitar astilla synonym coger astilla coger astilla present 33 ; sust(oLeon/33) onotzero 33 31 ; sust(oLeon/33) ; sust(aEnfadado/31) carried 35 ; sust(oPinza/35) writeln "Te acercas un poquito al león y con cuidado intentas arrancarle la astilla con la pinza del cangrejo." writeln "Sujetas bien las astilla con la pinza del cangrejo y antes de que el león se de cuenta le has curado la pata." pnjdice 16 "Lanzo bien lejos las astilla, que no ocurra otro accidente." 0 ; sust(pWally/16) oclear 33 31 ; sust(oLeon/33) ; sust(aEnfadado/31) picture 559 ; sust(tres_1.png/559) let 115 303 ; sust(fGraficoAct/115) plus 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) process 19 done coger astilla present 33 ; sust(oLeon/33) onotzero 33 31 ; sust(oLeon/33) ; sust(aEnfadado/31) writeln "Te acercas un poquito al león y con cuidado intentas arrancarle la astilla que tiene clavada en la pata..." pnjdice 16 "No puedo con las manos, me haría falta una pinza para sujetarla bien." 0 ; sust(pWally/16) done coger astilla present 33 ; sust(oLeon/33) writeln "Te has deshecho de ella, para que no ocurra otro accidente." done ex herbert present 34 ; sust(pHerbert/34) writeln "Herbert está dentro de una olla." onotzero# 37 20 ; sust(oOlla/37) ; sust(aOn/20) { writeln "¡Lo están cocinando!" } pnjdice 34 "¡Sácame de aquí papa!" 0 ; sust(pHerbert/34) done salvar herbert synonym coger herbert sacar herbert synonym coger herbert rescatar herbert synonym coger herbert liberar herbert synonym coger herbert coger herbert present 34 ; sust(pHerbert/34) onotzero 33 31 ; el león te lo impide ; sust(oLeon/33) ; sust(aEnfadado/31) writeln "Los leones no dejan que te acerques ni un centímetro a Herbert." done coger herbert present 34 ; sust(pHerbert/34) onotzero 37 20 ; sust(oOlla/37) ; sust(aOn/20) writeln "La olla quema por el fuego que la calienta, no te puedes acercar mucho." pnjdice 16 "Mmm antes debería apagar el fuego que caliente la olla." 0 ; sust(pWally/16) done coger herbert present 34 ; sust(pHerbert/34) writeln "Sacas a Herbert de la olla y lo pones a salvo." pnjdice 34 "¡Gracias papi! me voy a la playa, debemos huir de aquí." 0 ; sust(pHerbert/34) let 112 1 ; sust(fHerbert/112) place 34 255 ; sust(pHerbert/34) picture 759 ; sust(tres_3.png/759) let 115 503 ; sust(fGraficoAct/115) plus 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) process 19 done decir herbert present 34 ; sust(pHerbert/34) process 13 done _ herbert present 34 ; sust(pHerbert/34) writeln "Herbert hierve poco a poco al chup chup." done ex pinza onotzero 35 32 ;la pinza está en el cangrejo ; sust(oPinza/35) ; sust(aCangrejo/32) present# 6 ;está presente el cangrejo vivo ; sust(oCangrejo/6) { writeln "Fuertes pinzas unidas firmemente al cangrejo." done } present# 36 ; sust(oCangrejoCocido/36) { writeln "Fuertes pinzas. Podrían ser útiles para extraer un cuerpo extraño de la pata de algún animal. La pinza está unida al cangrejo." done } ex pinza present 35 ; sust(oPinza/35) writeln "{textpic|pinzas.png|0}" writeln "Fuertes pinzas, podrían ser útiles para extraer un cuerpo extraño de la pata de algún animal." newline done comer pinza present 35 ; sust(oPinza/35) writeln "Podrían serte útiles, mejor no." bzero# 102 13 ; sust(fTonterias/102) ; sust(tonteria14/13) { pnjdice 16 "¡¡¡Cachis!!!" 0 ; sust(pWally/16) bset 102 13 ; sust(fTonterias/102) ; sust(tonteria14/13) } done romper pinza notcarr 35 ; sust(oPinza/35) LET 43 3 ; sust(_voc_DE/3) synonym tirar pinza cortar pinza notcarr 35 ; sust(oPinza/35) LET 43 3 ; sust(_voc_DE/3) synonym tirar pinza coger pinza onotzero 35 32 ;la pinza está en el cangrejo ; sust(oPinza/35) ; sust(aCangrejo/32) present# 6 ;está presente el cangrejo vivo ; sust(oCangrejo/6) { writeln "Por ahora las pinzas pertenecen al cangrejo, tendrás que arrancárselas." done } present# 36 ; sust(oCangrejoCocido/36) { writeln "Por ahora las pinzas pertenecen al cangrejo, tendrás que arrancárselas." done } tirar pinza notcarr 35 ; sust(oPinza/35) prep de LET 43 3 ; sust(_voc_DE/3) synonym tirar pinza quitar pinza notcarr 35 ; sust(oPinza/35) LET 43 3 ; sust(_voc_DE/3) synonym tirar pinza tirar pinza notcarr 35 ; sust(oPinza/35) prep de onotzero 35 32 ;la pinza está en el cangrejo ; sust(oPinza/35) ; sust(aCangrejo/32) present# 6 ;está presente el cangrejo vivo ; sust(oCangrejo/6) { carried# 6 ; sust(oCangrejo/6) { pnjdice 16 "Buf buf, no puedo, es más fuerte que yo." 0 ; sust(pWally/16) done } writeln "Antes deberías coger al cangrejo." done } present# 36 ; sust(oCangrejoCocido/36) { oclear 35 32 ;quitamos la pinza del cangrejo ; sust(oPinza/35) ; sust(aCangrejo/32) writeln "Profanas el cuerpo cocido del cangrejo y le arrancas una de sus pinzas." let 33 20 place 35 254 ;movemos la pinza al jugador ; sust(oPinza/35) process 14 ; no podemos añadir nada al inventario del jugador directamente ;place 35 @38 ; sust(oPinza/35) done } tirar pinza prep de present 36 ; sust(oCangrejoCocido/36) writeln "Ya has profanado bastante el cuerpo sin vida del pobre cangrejo." done ex cangrejo present 36 ; sust(oCangrejoCocido/36) writeln "{textpic|cangrejo.png|0}" writeln "Un exquisito cangrejo bien cocidito." onotzero# 35 32 ; sust(oPinza/35) ; sust(aCangrejo/32) { writeln "Tiene sus dos enormes e inertes pinzas." done } writeln "Al cangrejo cocido le falta una de sus pinzas." newline done meter cangrejo synonym dejar cangrejo lanzar cangrejo synonym dejar cangrejo tirar cangrejo synonym dejar cangrejo dejar cangrejo carried 6 ; sust(oCangrejo/6) at 19 noteq 44 255 ;hay segundo nombre sinonimo @44 "agua agujero old faithful" writeln "Ya está bien cocidito." done cocinar cangrejo synonym cocer cangrejo hervir cangrejo synonym cocer cangrejo cocer cangrejo present 36 ; sust(oCangrejoCocido/36) at 19 writeln "Ya está bien cocidito." done comer cangrejo present 36 ; sust(oCangrejoCocido/36) onotzero# 35 32 ; sust(oPinza/35) ; sust(aCangrejo/32) { pnjdice 16 "Algo me dice que antes debería hacer algo con el cangrejo." 0 ; sust(pWally/16) done } writeln "Procuras no mirar sus inertes ojos mientras te lo zampas." pnjdice 16 "Le faltaba un poco de sal, pero no estaba mal." 0 ; sust(pWally/16) place 36 255 ; sust(oCangrejoCocido/36) done ex olla present 37 ; sust(oOlla/37) onotzero# 37 20 ; sust(oOlla/37) ; sust(aOn/20) { writeln "Una gran olla calentada por un fuego, dentro de la cual están cocinando a Herbert." bzero# 102 14 ; sust(fTonterias/102) ; sust(tonteria15/14) { pnjdice 34 "¡Papa qué miras! ¡Sácame de aquí!" 0 ; sust(pHerbert/34) bset 102 14 ; sust(fTonterias/102) ; sust(tonteria15/14) } done } writeln "Una gran olla, para guisar humanos. El fuego que calentaba la olla está apagado." present# 34 ; sust(pHerbert/34) { pnjdice 34 "¡Sácame de aquí papi!" 0 ; sust(pHerbert/34) } done ex fuego present 37 ; sust(oOlla/37) ozero 37 20 ; sust(oOlla/37) ; sust(aOn/20) writeln "El fuego que calentaba la olla ya se apagó." done ex fuego present 37 ; sust(oOlla/37) onotzero 37 20 ; sust(oOlla/37) ; sust(aOn/20) writeln "Un fuego calienta la olla, pero no es un fuego normal, parece algo mágico." bzero# 102 15 ; sust(fTonterias/102) ; sust(tonteria16/15) { pnjdice 16 "¿Un fuego mágico?" 0 ; sust(pWally/16) pnjdice 34 "Sí papa, mágico, no le des más vueltas y ¡apágalo!" 0 ; sust(pHerbert/34) bset 102 14 ; sust(fTonterias/102) ; sust(tonteria15/14) done } done echar agua present 37 ; sust(oOlla/37) eq 44 102 ; chimenea sinónimo de fuego ; sust(_voc_CHIMENEA/102) let 44 53 ; sust(_voc_AGUA/53) synonym apagar fuego echar agua present 37 ; sust(oOlla/37) noteq 44 255 ;hay segundo nombre eq 64 102 ; sust(noun3/64) ; sust(_voc_FUEGO/102) let 64 @44 ;64 el contenedor ; sust(noun3/64) ; sust(noun3/64) let 44 53 ; sust(_voc_AGUA/53) synonym apagar fuego echar agua present 37 ; sust(oOlla/37) onotzero 37 20 ; sust(oOlla/37) ; sust(aOn/20) eq 44 255 writeln "¿De dónde saco el agua?" done echar agua present 37 ; sust(oOlla/37) synonym apagar fuego apagar olla present 37 ; sust(oOlla/37) synonym apagar fuego apagar fuego present 37 ; sust(oOlla/37) ozero 37 20 ; sust(oOlla/37) ; sust(aOn/20) writeln "El fuego ya está apagado." done apagar fuego present 37 ; sust(oOlla/37) onotzero 37 20 ; sust(oOlla/37) ; sust(aOn/20) eq 44 255 writeln "¿Y cómo quieres apagar el fuego?" done apagar fuego present 37 ; sust(oOlla/37) onotzero 37 20 ; sust(oOlla/37) ; sust(aOn/20) noteq 44 255 eq 44 53 ; sust(_voc_AGUA/53) eq# 64 64 ; APAGAR FUEGO CON EL AGUA DE LA BOTELLA ; sust(noun3/64) ; sust(_voc_BOTELLA/64) { let 44 64 ; sust(_voc_BOTELLA/64) } eq# 64 106 ; APAGAR FUEGO CON EL AGUA DE LA ALMEJA ; sust(noun3/64) ; sust(_voc_ALMEJA/106) { let 44 106 ; sust(_voc_ALMEJA/106) } eq# 64 255 ; sust(noun3/64) { writeln "¿El agua... de dónde la saco?" done } apagar fuego present 37 ; sust(oOlla/37) onotzero 37 20 ; sust(oOlla/37) ; sust(aOn/20) noteq 44 255 ;hay segundo nombre whatox2 100 ; sust(fAux/100) eq# 100 8 ; "apagar el fuego con la botella ; sust(fAux/100) ; sust(oBotella/8) { carried# 8 ; sust(oBotella/8) { onotzero# 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) { ; forzamos "vaciar botella en fuego" let 33 86 ; sust(_voc_VACIAR/86) let 34 64 ; sust(_voc_BOTELLA/64) let 44 102 ;chimienea es sinónimo de fuego ; sust(_voc_CHIMENEA/102) process 5 done } writeln "Podrías intentar apagar el fuego con agua de la botella. Pero la botella está vacía." done } writeln "No veo que lleves la botella." done } eq# 100 32 ; apagar el fuego con la almeja ; sust(fAux/100) ; sust(oAlmeja/32) { carried# 32 ; sust(oAlmeja/32) { let 33 86 ; sust(_voc_VACIAR/86) let 34 106 ; sust(_voc_ALMEJA/106) let 44 102 ;chimienea es sinónimo de fuego ; sust(_voc_CHIMENEA/102) process 16 done } writeln "No veo que lleves ninguna almeja." done } writeln "Creo que esa no es una buena forma de apagar el fuego que calienta la olla." done soplar fuego present 37 ; sust(oOlla/37) onotzero 37 20 ; sust(oOlla/37) ; sust(aOn/20) writeln "Tienes demasiada fe en tus pulmones, así no apagarás el fuego." done /PRO 8 _ _ at 3 present 34 ; sust(pHerbert/34) write "¡Herberrrrt!, está dentro de una enorme olla. Se lo quieren zampar. No puedes aproximarte a él, dos peaaazos de leones uno a cada lado están custodiando la olla." done _ _ at 3 absent 34 ; sust(pHerbert/34) write "Se podría decir que esta sería la cocina de la jungla. Una gran olla en medio con el fuego apagado y dos leones custodiando una olla vacía." done _ _ at 6 present 30 ; sust(oChoza/30) write "Una choza fabricada de restos marinos, una rana que te recuerda a tu suegra. Hacia el oeste te adentras en la jungla y hacia el este está el camino de la playa." done _ _ at 6 absent 30 ; sust(oChoza/30) write "De la choza que había por aquí no queda nada, un rayo de la tormenta la ha fulminado. La rana aguanta como una campeona. " bzero# 102 12 ; sust(fTonterias/102) ; sust(tonteria13/12) { newline pnjdice 16 "Igual que aguanta mi suegra en mi sofá, aunque le ponga en la TV un partido de fútbol entre el Lokomotiv Moscú Vs Rostov." 0 ; sust(pWally/16) bset 102 12 ; sust(fTonterias/102) ; sust(tonteria13/12) } write "Hacia el oeste te adentras en la jungla y hacia el este sale el camino de la playa." done _ _ at 7 ozero 31 29 ; sust(oDiosa/31) ; sust(aTormenta/29) write "Una estatua a la diosa Tormenta. Según cuenta una leyenda que te contó alguien de cuyo nombre no te acuerdas; depositando cenizas en los pies de la diosa se desata una tormenta. Cuatro caminos para escoger, hacia el norte y el oeste más jungla. Al sur una entrada a... ¿un templo? Y al este un tienda de ultramarinos... ¡Para que no nos falte de nada!" done _ _ at 7 onotzero 31 29 ; sust(oDiosa/31) ; sust(aTormenta/29) write "La estatua de la diosa Tormenta baila rítmicamente provocando una gran tormenta. Hay cuatro caminos para escoger, el norte y oeste más jungla, al sur una entrada a ¿un templo? Y al este un tienda de ultramarinos... ¡Para que no nos falte de nada! " done _ _ at 8 present 21 ; sust(pIndio/21) write "¡Wilma! Colgadita de los pies. Un indio con muy mala cara la vigila... como te acerques un poco te liquida." done _ _ at 8 present 25 ; sust(pWilma/25) writeln "Wilma sigue colgada como un jamón, está muy enfadada." let 100 2000 ; sust(fAux/100) let 103 1 ; sust(fAux2/103) add 111 100 ; sust(fTontWilma/111) ; sust(fAux/100) write "{ink|yellow|Wilma: }" message @100 ; sust(fAux/@100) add 103 111 ; sust(fAux2/103) ; sust(fTontWilma/111) eq# 111 6 let 111 1 ; sust(fTontWilma/111) ; sust(fTontWilma/111) done _ _ at 8 write "Antigua despensa de los nativos, donde dejaban madurar a sus presas a la espera de ser devoradas." done _ _ at 9 eq 105 0 ;el pájaro no está comiendo ; sust(fPajaroComiendo/105) write "Aquí hay un pajarraco enorme que tiene cara de hambriento. Creo que ya se a procurado una cena, un huevo enorme. Por la forma de 'cuidar' de él, algo te dice que no es suyo." done _ _ at 9 eq 105 1 ;el pájaro ya está comiendo ; sust(fPajaroComiendo/105) write "Aquí hay un pajarraco enorme. Está disfrutando de su tazón de semillitas y te ignora por completo." done _ _ at 15 eq 99 0 ; sust(fMuroRoto/99) write "Un enorme pozo de piedra. Hacia el oeste hay un gran muro de piedra de otra edificación, en la cual no hay ninguna entrada visible." done _ _ at 15 eq 99 1 ; sust(fMuroRoto/99) write "Un enorme pozo de piedra. Hacia el oeste hay un gran muro de piedra de otra edificación. El muro de piedra tiene un agujero que permite el acceso al interior." done /PRO 9 _ _ parse pnjdice 21 "Tú hablar mucho y raro." 0 ; sust(pIndio/21) done _ hola pnjdice 21 "Saludos futura albóndiga." 0 ; sust(pIndio/21) done _ wilma pnjdice 21 "Mujer buena y sabrosa, colgada como jamón 5J." 0 ; sust(pIndio/21) done _ herbert pnjdice 21 "En gran olla, ser entrante de cena." 0 ; sust(pIndio/21) done _ wally pnjdice 21 "Tú ser gran albóndiga. Ahora tribu recolectar sacos y sacos de tomates, para hacer gran plato mañana de albóndigas con tomate." 0 ; sust(pIndio/21) done _ isla pnjdice 21 "Ser isla maravillosa y tranquila hasta llegar colonos españoles. Pero problema solucionar rápido, comer españoles uno por uno." 0 ; sust(pIndio/21) pnjdice 21 "Españoles construir palacio en isla." 0 ; sust(pIndio/21) done _ ESPAÑOLES pnjdice 21 "Ser isla maravillosa y tranquila hasta llegar colonos españoles. Pero problema solucionar rápido, comer españoles uno por uno." 0 ; sust(pIndio/21) pnjdice 21 "Españoles construir palacio en isla." 0 ; sust(pIndio/21) done _ palacio pnjdice 21 "Ser isla maravillosa y tranquila hasta llegar colonos españoles. Pero problema solucionar rápido, comer españoles uno por uno." 0 ; sust(pIndio/21) pnjdice 21 "Palacio ser cosa de señor de bigote español, pelotazo urbanístico. No poder comer a español de bigote, ser más listo, que resto de españoles." 0 ; sust(pIndio/21) pnjdice 21 "Huyó de isla con todas riquezas en barco suizo." 0 ; sust(pIndio/21) done _ leon pnjdice 21 "Fauna rica y variada en isla." 0 ; sust(pIndio/21) done comer _ pnjdice 21 "Tener festín humano estos días." 0 ; sust(pIndio/21) done xyzzy _ pnjdice 21 "Eso no servir de nada gran albóndiga." 0 ; sust(pIndio/21) done _ _ pnjdice 21 "Tú mañana ser primer plato." 0 ; sust(pIndio/21) done /PRO 10 ex rio at 1 writeln "Dentro del riachuelo están nadando alegremente unos graciosos pececillos." done _ peces process 3 isdone done beber agua at 1 eq 44 255 pnjdice 16 "Mmmm... agua fresquita del río... sabe a pis de pez." 0 ; sust(pWally/16) done beber agua at 1 eq 44 53 ; sust(_voc_RIO/53) pnjdice 16 "Mmmm... agua fresquita del río... sabe a pis de pez." 0 ; sust(pWally/16) done nadar _ at 1 pnjdice 16 "Es un agua muy poco profunda para nadar." 0 ; sust(pWally/16) done leer letrero synonym ex letrero ex letrero at 1 writeln "Jungla, señalando al oeste." done _ letrero at 1 pnjdice 16 "Podría hacer eso con el letrero, pero la verdad, no tengo ganas." 0 ; sust(pWally/16) done ex murcielago at 1 writeln "Volando, son grandes y gordos." done _ murcielago at 1 pnjdice 16 "Me dan mucho miedo, no quiero saber nada de los murciélagos." 0 ; sust(pWally/16) done _ leon at 1 writeln "Se pueden oír de vez en cuando el rugido de algún león." pnjdice 16 "¡Qué bonita la jungla!" 0 ; sust(pWally/16) done _ elefante at 1 writeln "Son graaaandes, mejor dejarlos en paz." done oler _ at 2 writeln "Entre los olores a jungla, hueles como al bolso de Wilma desde el norte." done oir _ at 2 writeln "Rugidos de leónes se escuchan desde el oeste." done _ mosquito notat 2 writeln "Por aquí la zona está algo despejada de mosquitos." done ex mosquito at 2 writeln "Enormes, te pica un mosquito de esto y te deja sin sangre en el aperitivo." done _ mosquitos at 2 writeln "Tú los dejas en paz, ellos te dejan en paz." done ex herbert at 3 present 34 ; sust(pHerbert/34) writeln "Herbert está dentro de una olla." onotzero# 37 20 ; sust(oOlla/37) ; sust(aOn/20) { writeln "¡Lo están cocinando!" } pnjdice 34 "¡Sácame de aquí papa!" 0 ; sust(pHerbert/34) done _ herbert at 3 present 34 ; sust(pHerbert/34) onotzero 33 31 ; el león te lo impide ; sust(oLeon/33) ; sust(aEnfadado/31) writeln "Los leones no dejan que te acerques ni un centímetro a Herbert." done _ olla at 3 present 34 ; sust(pHerbert/34) onotzero 33 31 ; el león te lo impide ; sust(oLeon/33) ; sust(aEnfadado/31) writeln "Los leones no dejan que te acerques ni un centímetro." done _ fuego at 3 present 34 ; sust(pHerbert/34) onotzero 33 31 ; el león te lo impide ; sust(oLeon/33) ; sust(aEnfadado/31) writeln "Los leones no dejan que te acerques ni un centímetro." done ex cocodrilo at 4 absent 2 ; sust(oBolso/2) writeln "El cocodrilo está esperando su cena, ¿serás tú?" done ex cocodrilo at 4 present 2 ; sust(oBolso/2) writeln "Triste y ojeroso está el cocodrilo recordando a su amada cocodrila." done cazar cocodrilo synonym matar cocodrilo matar cocodrilo at 4 writeln "Cazar este tipo de bichos no es tu especialidad." done oeste _ at 4 absent 2 ; sust(oBolso/2) writeln "Te acercas un poco... pero el cocodrilo abre su boquita dispuesto a zamparte." pnjdice 16 "Mejor no acercarme mucho más." 0 ; sust(pWally/16) done este _ at 5 carried 2 ; sust(oBolso/2) let 254 1 ; sust(fCocodriloTriste/254) este _ at 5 isat 2 4 ; sust(oBolso/2) let 254 1 ; sust(fCocodriloTriste/254) este _ at 5 eq 254 0 ; sust(fCocodriloTriste/254) pnjdice 16 "Hay un cocodrilo muy enfadao por ahí... no puedo pasar." 0 ; sust(pWally/16) done oeste _ at 5 synonym entrar CABAÑA entrar _ at 5 onotzero 9 10 ; sust(oCabana/9) ; sust(aLocked/10) writeln "La puerta de la cabaña está cerrada con llave." done examinar CABAÑA at 5 writeln "Una cabaña muy pequeña, parece hecha para guardar herramientas de cultivo." onotzero# 9 10 ; sust(oCabana/9) ; sust(aLocked/10) writeln "La puerta de la cabaña está cerrada con llave." ozero# 9 10 ; sust(oCabana/9) ; sust(aLocked/10) writeln "La puerta de la cabaña está abierta." done ex choza at 6 present 30 ; sust(oChoza/30) writeln "Es completamente ecológica, fabricada de restos marinos. Tiene una antena de ¿televisión? colocada sobre el tejado." done ex choza at 6 absent 30 ; sust(oChoza/30) writeln "De la choza que había por aquí no queda nada, un rayo de la tormenta la ha fulminado." done ex techo synonym ex antena ex antena at 6 present 30 ; sust(oChoza/30) writeln "Parece que en el tejado de la choza hay una antena de TV... o de comunicaciones." bzero# 102 11 ; sust(fTonterias/102) ; sust(tonteria12/11) { pnjdice 16 "Un peligro en esta zona del planeta, con la de tormentas que hay, un rayo fulminaría la choza." 0 ; sust(pWally/16) bset 102 11 ; sust(fTonterias/102) ; sust(tonteria12/11) } done coger antena at 6 present 30 ; sust(oChoza/30) writeln "No hace falta que vayas cargando por la jungla con una antena de TV." bzero# 102 17 ; sust(fTonterias/102) ; sust(tonteria18/17) { pnjdice 16 "Además tendría que subir al techo de la cabaña, desatornillar la antena, y con lo que pesa... quita quita." 0 ; sust(pWally/16) bset 102 17 ; sust(fTonterias/102) ; sust(tonteria18/17) } done _ antena at 6 present 30 ; sust(oChoza/30) pnjdice 16 "¿Una antena de TV?, no creo que deba perder más tiempo con ella." 0 ; sust(pWally/16) done subir techo at 6 synonym escalar CABAÑA subir CABAÑA at 6 synonym escalar CABAÑA escalar CABAÑA at 6 present 30 ; sust(oChoza/30) writeln "Aquí no hace falta que actúes como Spiderman." done ex restos at 6 present 30 ; sust(oChoza/30) writeln "La cabaña está hecha de restos marinos, conchas de almejas sobre todo." pnjdice 16 "La concha de una almeja me podría servir para guardar pequeñas cantidades de agua..." 0 ; sust(pWally/16) done romper restos at 6 present 30 ; sust(oChoza/30) synonym coger restos coger restos at 6 present 30 ; sust(oChoza/30) writeln "Están fuertemente adheridas a la choza, tendrías que derrumbarla para poder conseguir una de las conchas." done romper choza at 6 present 30 ; sust(oChoza/30) pnjdice 16 "Y soplé y soplé hasta que la cabaña... ni de broma derrumbé." 0 ; sust(pWally/16) done ex cerradura at 6 synonym ex puerta ex puerta at 6 synonym abrir puerta abrir puerta at 6 synonym abrir choza abrir choza at 6 present 30 ; sust(oChoza/30) writeln "Está cerrada por dentro, desde fuera es imposible. No existe ni cerradura ni nada que se le parezca en la puerta." done cerrar puerta at 6 present 30 ; sust(oChoza/30) writeln "Ya está cerrada." done romper puerta at 6 present 30 ; sust(oChoza/30) writeln "No, así no consigues nada." done llamar choza synonym llamar puerta llamar puerta at 6 present 30 ; sust(oChoza/30) writeln "Toc, toc, toc.... se escucha un grillo." done ex agua at 6 lnotzero 6 10 ; sust(aLocAgua/10) writeln "Lluvia lluvia y lluvia por todos sitios." done entrar _ at 6 present 30 ; sust(oChoza/30) writeln "La puerta de la cabaña está cerrada y no se puede abrir desde fuera." done _ rana at 6 writeln "¡Croak! ¡Croak!" pnjdice 16 "Ni caso me hace y ni caso le haré." 0 ; sust(pWally/16) done ex agua at 7 lnotzero 6 10 ; sust(aLocAgua/10) writeln "Lluvia lluvia y lluvia por todos sitios." done ex templo at 7 writeln "Queda hacia el sur." done ex oficina at 7 writeln "Queda hacia el este." done _ wilma at 8 present 21 ; sust(pIndio/21) eq 108 0 ; sust(fWilma/108) writeln "El canibal custodia su cena, intentas acercarte... pero si avanzas un poco más serás el postre." bzero# 110 0 ; sust(fTontIndio/110) ; sust(tonteria1/0) { pnjdice 21 "Quieto rostro redondo suculento y pálido. Tú ser comida de mañana, procurar ser vivo." 0 ; sust(pIndio/21) bset 110 0 ; sust(fTontIndio/110) ; sust(tonteria1/0) } writeln "El caníbal no permite acercarte mucho." done _ liana at 8 present 21 ; sust(pIndio/21) eq 108 0 ; sust(fWilma/108) writeln "El caníbal custodia su cena, intentas acercarte a la liana de la que cuelga Wilma... pero si avanzas un poco más serás el postre." bzero# 110 0 ; sust(fTontIndio/110) ; sust(tonteria1/0) { pnjdice 21 "Quieto rostro redondo suculento y pálido. Tú ser comida de mañana, procurar ser vivo." 0 ; sust(pIndio/21) bset 110 0 ; sust(fTontIndio/110) ; sust(tonteria1/0) } writeln "El caníbal no permite acercarte mucho." done rescatar wilma synonym coger wilma liberar wilma synonym coger wilma coger wilma at 8 eq 108 0 ; sust(fWilma/108) writeln "Wilma cuelga boca abajo de una liana que tiene atada a los pies. Tendrás que cortar la liana." done ex liana at 8 eq 108 0 ; sust(fWilma/108) writeln "Wilma cuelga de la liana. La liana parte de los pies del árbol y da la vuelta en una de las ramas." done romper liana synonym cortar liana soltar liana synonym cortar liana cortar liana at 8 eq 108 0 ; sust(fWilma/108) carried 23 ; sust(oHachaSinAfilar/23) writeln "No tienes nada que te pueda servir para cortar la liana. Tienes un hacha, pero no está afilada, así no te servirá." done cortar liana at 8 eq 108 0 ; sust(fWilma/108) carried 24 ; sust(oHachaAfilado/24) writeln "Cortas la liana y consigues liberar a Wilma." pnjdice 25 "Byeeee, te espero en la playa mi amollll." 0 ; sust(pWilma/25) let 108 1 ; sust(fWilma/108) place 25 255 ; sust(pWilma/25) picture 664 ; sust(ocho_2.png/664) let 115 408 ; sust(fGraficoAct/115) plus 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) pictureat 1550 100 284 ;pintamos a wilma rescatada ; sust(wilma.png/284) process 19 done cortar liana at 8 eq 108 0 ; sust(fWilma/108) writeln "No tienes nada que te pueda servir para cortar la liana." done cortar liana at 8 eq 108 1 ; sust(fWilma/108) writeln "Ya has rescatado a Wilma, no hace falta que destruyas toda la selva." done escalar arbol synonym subir arbol subir arbol synonym escalar liana escalar liana synonym subir liana subir liana at 8 present 25 ; sust(pWilma/25) writeln "Lo que debes hacer es bajar a Wilma." bzero# 102 9 ; sust(fTonterias/102) ; sust(tonteria10/9) { pnjdice 16 "Yo no subo más a ningún árbol." 0 ; sust(pWally/16) bset 102 9 ; sust(fTonterias/102) ; sust(tonteria10/9) } done decir wilma present 25 ; sust(pWilma/25) zero 108 ; sust(fWilma/108) process 11 done _ wilma present 25 ; sust(pWilma/25) zero 108 ; sust(fWilma/108) writeln "Wilma sigue colgada de los pies como un jamón, debes bajarla de ahí." done _ wilma eq 108 1 ; sust(fWilma/108) writeln "Ella ya está libre, espera que rescates pronto a Herbert y así escapar de esta isla." done ex pajaro at 9 eq 105 0 ; sust(fPajaroComiendo/105) writeln "Un pájaro enorme, tiene de cena un huevo." done ex pajaro at 9 writeln "Un pájaro enorme, está enfrascado en su tazón de comida." done golpear pajaro synonym matar pajaro cazar pajaro at 9 synonym matar pajaro matar pajaro at 9 pnjdice 16 "Yo soy más de 'flower power'." 0 ; sust(pWally/16) done leer tradin at 10 synonym ex tradin leer post at 10 synonym ex post ex tradin at 10 synonym ex post ex post at 10 synonym ex letrero ex letrero at 10 writeln "Se lee: 'Tradin Post'" eq# 113 0 ; sust(fLlave/113) { writeln "Vaya colgado detrás del letrero hay una llave." place 10 10 ; sust(oLlave/10) let 113 1 ; sust(fLlave/113) bzero# 102 18 ; sust(fTonterias/102) ; sust(tonteria19/18) { pnjdice 16 "Anda con que escondiendo cositas, ¡qué graciosillo!" 0 ; sust(pWally/16) bset 102 18 ; sust(fTonterias/102) ; sust(tonteria19/18) } } done ex tienda at 10 process 17 done _ letrero at 10 writeln "No hace falta hacer eso con el letrero." done ex adornos at 11 writeln "Adornan." bzero# 102 19 ; sust(fTonterias/102) ; sust(tonteria20/19) { pnjdice 16 "Oscar al mejor guión original." 0 ; sust(pWally/16) bset 102 19 ; sust(fTonterias/102) ; sust(tonteria20/19) } done _ adornos at 11 writeln "Sólo adornan, nada más." done saltar ventana at 12 synonym salir ventana salir _ at 12 noteq 51 255 ;hay nombre eq 51 4 ; sust(oVentana/4) goto 13 writeln "Atléticamente pasas desde la ventana a la playa. Está un poco alto pero la arena y tus suculentas carnes amortiguan la caída." let 115 13 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done ex ventana at 12 writeln "A través de ella tienes una hermosa vista de la playa. Queda un poquitín alta, pero nada que tu atlético cuerpo no pueda soportar." done abrir ventana at 12 synonym cerrar ventana cerrar ventana at 12 writeln "El tiempo y la humedad de la playa la ha estropeado un poco... está siempre abierta." done _ ventana at 12 pnjdice 16 "Podría hacer eso con la ventana, pero ¿pa'qué?" 0 ; sust(pWally/16) done examinar salon at 12 process 17 ;Proceso para mostrar la descripción de una localidad done examinar mesa at 12 writeln "Una mesa grande en mitad del salón con restos de comida encima." done _ mesa at 12 writeln "No hace falta que hagas eso con la mesa." done examinar playa at 12 writeln "Bonitas vistas de la playa las que ves a través de la ventana." done examinar playa at 13 process 17 ;Proceso para mostrar la descripción de una localidad done entrar _ at 13 noteq 51 255 ;hay nombre eq 51 4 ; sust(oVentana/4) pnjdice 16 "Uf uf, saltitos que doy, pero no llego a la ventana. Ha quedado un poco alta." 0 ; sust(pWally/16) done lavarme _ at 13 synonym entrar agua nadar _ at 13 synonym entrar agua entrar agua at 13 goto 22 let 115 22 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done entrar _ at 13 writeln "¿Por dónde quieres entrar?" done ex agua at 13 writeln "Agua marina y salada." done ex arena at 13 writeln "Arena de la playita, fina y blanca. Por esta parte de la playa el agua del mar la ha refrescado un poco." done coger arena at 13 writeln "No vamos a levantar ningún castillo por ahora." done cavar arena at 13 writeln "No estamos buscando ningún tesoro oculto." done _ ventana at 13 writeln "La ventana del templo ha quedado un poco alta, no llegas." done beber _ at 13 writeln "El agua salada del mar no te haría nada bien." done ex entrada at 14 synonym ex simbolo ex simbolo at 14 writeln "Un simbolo de alguna civilización que no conoces." done _ edificacion at 15 synonym _ muro ex muro at 15 writeln "Son las paredes de una edificación. No le ves ninguna puerta de entrada." notzero# 99 ; sust(fMuroRoto/99) writeln "El muro tiene hecho un agujero por el que pasar, dirección oeste." done golpear muro at 15 synonym romper muro romper muro at 15 carried 11 ; sust(oPico/11) notzero 99 ; sust(fMuroRoto/99) pnjdice 16 "Ya está, ya me cansé de dar golpes en el muro." 0 ; sust(pWally/16) done romper muro at 15 carried 11 ; sust(oPico/11) writeln "Golpeas con el pico y sin mucho esfuerzo consigues derribar parte de él. Has creado una entrada hacia el este a una estancia nueva." setexit 5 17 setexit 12 17 let 99 1 ; sust(fMuroRoto/99) picture 571 ;repintamos ; sust(quince_2.png/571) let 115 315 ; sust(fGraficoAct/115) plus 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) done romper muro at 15 pnjdice 16 "Dicen que tengo la cabeza gorda y dura, pero no tanto como para reventar un muro de piedra." 0 ; sust(pWally/16) done abrir muro at 15 pnjdice 16 "Hombre, abrir lo que se dice abrir, no creo que se pueda abrir un muro como si fuera una puerta." 0 ; sust(pWally/16) done ex pozo at 15 writeln "Es el pozo de los deseos, lleno de agua mágica. La boca del pozo está abierta por lo que puedes bajar por ella." done escalar _ synonym subir _ ex paredes at 16 writeln "No son paredes muy lisas así que escalar por ellas no te resultaría complicado." writeln "De las paredes rezuma un minúsculo hilillo de agua dulce." done ex agua at 16 writeln "El pozo está vacío, el único agua que queda es un minúsculo hilillo de agua que rezuma de las paredes." done beber agua at 16 writeln "Le das un lametón a las paredes." done coger agua at 16 present 32 ; sust(oAlmeja/32) let 33 55 ;El verbo llenar let 34 106 ;LA ALMEJA let 44 53 ;agua ex pozo at 16 writeln "{LOCATION|38}" done ex ARAÑA at 17 eq 98 1 ; sust(fAranaAsustada/98) write "Una enorme araña peluda. Está asustada y escondida en una de las esquinas de la mazmorra." writeln " El pez come araña de la pecera la atemoriza." done ex ARAÑA at 17 writeln "Una enorme araña peluda. Te mira de forma amenazante ocho veces." done matar ARAÑA at 17 eq 98 1 ; sust(fAranaAsustada/98) pnjdice 16 "Pobre araña... no hace falta rematarla." 0 ; sust(pWally/16) done matar ARAÑA at 17 pnjdice 16 "Sí... claro, qué fácil escribir eso." 0 ; sust(pWally/16) done _ ARAÑA at 17 pnjdice 16 "¡Qué asco qué asco!" 0 ; sust(pWally/16) done mover esqueleto at 17 synonym ex esqueleto ex esqueleto at 17 eq 98 1 ; sust(fAranaAsustada/98) writeln "Restos de lo que fue un/a pobre señ@r emparedad@." isat# 13 255 ; sust(oHueso/13) { writeln "Entre los restos del esqueleto hay un hueso diferente, pulido con diferentes muescas. Parece una especie de llave." place 13 17 ; sust(oHueso/13) } done ex esqueleto at 17 pnjdice 16 "No quiero perder de vista la araña gorda y peluda... " 0 ; sust(pWally/16) done _ esqueleto at 17 eq 98 1 ; sust(fAranaAsustada/98) pnjdice 16 "Hacer eso con el esqueleto me da cosa..." 0 ; sust(pWally/16) done _ esqueleto at 17 pnjdice 16 "No quiero perder de vista la araña gorda y peluda..." 0 ; sust(pWally/16) done _ _ at 17 noteq 98 1 ; sust(fAranaAsustada/98) noteq 33 13 ; sust(_voc_SALIR/13) noteq 33 4 ; sust(_voc_ESTE/4) noteq 33 24 ; sust(_voc_MIRAR/24) pnjdice 16 "No quiero perder de vista la araña gorda y peluda..." 0 ; sust(pWally/16) done ex coche at 18 writeln "Un coche con las ruedas cuadradas y de piedra." done subir coche synonym encender coche arrancar coche synonym encender coche encender coche at 18 writeln "No irías a ningún sitio..." done _ coche at 18 pnjdice 16 "Podría intentar eso con el coche, pero la verdad, no me apetece." 0 ; sust(pWally/16) done tocar piedra synonym ex piedra ex piedra synonym tocar rueda tocar rueda synonym ex rueda ex rueda at 18 writeln "Son cuadradas y de piedra muy rugosas, como la piedra de un afilador." bnotzero# 109 0 ; sust(fRueda/109) ; sust(ruedaAceite/0) { writeln "Las ruedas del coche están lubricadas con aceite de coco." done } bnotzero# 109 1 ; sust(fRueda/109) ; sust(ruedaAgua/1) { writeln "Las ruedas del coche están un poco húmedas." done } done mojar coche at 18 synonym mojar rueda mojar rueda at 18 carried 8 ; sust(oBotella/8) onotzero# 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) { writeln "Viertes el agua de coco sobre la rueda de piedra." bset 109 0 ; sust(fRueda/109) ; sust(ruedaAceite/0) bclear 109 1 ; sust(fRueda/109) ; sust(ruedaAgua/1) oclear 8 23 ; sust(oBotella/8) ; sust(aBotellaConAceite/23) oclear 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) done } onotzero# 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) { writeln "Viertes todo el agua de la botella sobre la rueda de piedra." bset 109 1 ; sust(fRueda/109) ; sust(ruedaAgua/1) bclear 109 0 ; sust(fRueda/109) ; sust(ruedaAceite/0) oclear 8 24 ; sust(oBotella/8) ; sust(aBotellaConAgua/24) oclear 8 25 ; sust(oBotella/8) ; sust(aBotellaConLiquido/25) done } writeln "Te haría falta algo con que mojar las ruedas. Tienes una botella pero está vacía. Quizás si la llenases de algún lubricante..." done mojar rueda at 18 writeln "Te haría falta algo con que mojarlas." done afilar _ at 18 process 12 done _ rueda at 18 pnjdice 16 "¿Hacer eso con las ruedas? ¿para qué?" 0 ; sust(pWally/16) done ex agujero at 19 writeln "Del agujero sale vapor de agua, está lleno de agua muy caliente." done saltar agujero at 19 synonym entrar agujero lavarme _ at 19 synonym entrar agujero entrar agujero at 19 pnjdice 16 "No quiero hacer una mariscada conmigo mismo." 0 ; sust(pWally/16) done dejar _ at 19 prep EN synonym meter _ meter _ at 19 noteq 34 255 noteq 51 255 eq 51 36 ; sust(oCangrejoCocido/36) sinonimo @44 "agua agujero old faithful" writeln "Ya está bien cocidito." done meter _ at 19 ;la estancia del agujero noteq 34 255 ;hay primer nombre noteq 51 255 ;es un objeto noteq 51 6 ; sust(oCangrejo/6) noteq 44 255 ;hay segundo nombre sinonimo @44 "agua agujero old faithful" writeln "Eso no es lo que deberíamos meter en el agua hirviendo." done lanzar agujero at 19 synonym meter agujero tirar agujero at 19 synonym meter agujero dejar agujero at 19 synonym meter agujero meter agua at 19 synonym meter agujero lanzar agua at 19 synonym meter agujero dejar agua at 19 synonym meter agujero tirar agua at 19 synonym meter agujero meter agujero at 19 noteq 44 255 ;hay segundo nombre whatox2 100 ; sust(fAux/100) eq# 100 6 ;es el cangrejo ; sust(fAux/100) ; sust(oCangrejo/6) { carried# 6 ; sust(oCangrejo/6) { process 15 ;writeln "Metes sin piedad al cangrejo en el agua hirviendo." done } notcarr# 6 ; sust(oCangrejo/6) { writeln "No tienes el cangrejo." done } } writeln "Eso no es lo que deberíamos meter en el agua hirviendo." done ex agua at 19 writeln "El agua que hay en el agujero está muy caliente, casi hierve." done beber agua at 19 pnjdice 16 "Demasiado caliente para mi gusto." 0 ; sust(pWally/16) done coger agua at 19 writeln "Demasiado caliente." done ex cielo synonym ex pajaro ex pajaro at 19 writeln "Miras al cielo para intentar ver dónde está ese pájaro que grita, pero no ves nada." done ex arbol at 19 writeln "Aquí hay dos enormes árboles, de uno de los cuales cuelga una liana." done ex rama at 19 writeln "En la rama más grande de uno de los árboles parece estar el nido del ave que se escucha..." done subir arbol let 33 57 ;57 ; sust(_voc_TREPAR/57) trepar arbol at 19 noteq 44 255 ;Hay segundo nombre eq 44 81 ;81 ; sust(_voc_LIANA/81) synonym saltar liana trepar arbol at 19 writeln "Agarras el tronco del árbol para intentar escalarlo pero, aunque estás en un envidiable estado de forma, no lo consigues." writeln "El tronco es demasiado grueso no puedes agarrarte bien." bzero# 102 2 ; sust(fTonterias/102) ; sust(tonteria3/2) { pnjdice 16 "Puf puf, me faltan horas de gimnasio." 0 ; sust(pWally/16) writeln "¿horas o años?" pnjdice 16 "¿Eres amigo de mi suegra?" 0 ; sust(pWally/16) bset 102 2 ; sust(fTonterias/102) ; sust(tonteria3/2) } done ex liana at 19 writeln "La liana cuelga de uno de los grandes árboles." done coger liana at 19 pnjdice 16 "Parece que está bien sujeta al árbol, además es larguísima, no podría con ella." 0 ; sust(pWally/16) done saltar liana at 19 synonym subir liana trepar liana at 19 synonym subir liana subir liana at 19 eq 101 1 ; sust(fEspinacasComidas/101) writeln "Te agarras a la liana con fuerzas... y comienzas a trepar." bzero# 102 3 ; sust(fTonterias/102) ; sust(tonteria4/3) { pnjdice 16 "Ufff izquierda ufff derecha" 0 ; sust(pWally/16) writeln "¡Venga Wally que tú puedes!" pnjdice 16 "Ufff izquierda ufff derecha" 0 ; sust(pWally/16) bset 102 3 ; sust(fTonterias/102) ; sust(tonteria4/3) } goto 25 let 115 25 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done subir liana at 19 writeln "Saltas a la liana e intentas subir por ella..." pnjdice 16 "Puf puf, me faltan las fuerzas, demasiado duro para mí." 0 ; sust(pWally/16) done _ liana at 19 pnjdice 16 "Bueno no sé si me apetece hacer eso con la liana." 0 ; sust(pWally/16) done _ nido at 19 pnjdice 16 "Desde aquí abajo no lo veo bien." 0 ; sust(pWally/16) done _ arbol at 19 pnjdice 16 "No sé si es necesario hacer eso con los árboles." 0 ; sust(pWally/16) done _ rama at 19 pnjdice 16 "Está muy alta, no llego." 0 ; sust(pWally/16) done trepar _ at 19 writeln "¿Dónde y cómo?" done saltar _ at 20 eq 34 255 ; no hay segundo nombre synonym bajar _ BAJAR _ AT 20 CARRIED 18 ; sust(oHuevo/18) WRITELN "En tu viaje hacia el suelo, aparece un enorme ave y te quita todo lo que tienes. No le ha gustado que le roben en el nido." CLEAR 103 ; sust(fAux2/103) LT: 103 @107 ;@fNUMERO_OBJETOS ;fNUMERO_OBJETOS = OBJETOS CREADOS + 1 ; sust(fAux2/103) ; sust(fNumObjetos/@107) { CARRIED# @103 PLACE @103 20 ; sust(fAux2/@103) ; sust(fAux2/@103) PLUS 103 1 ; sust(fAux2/103) } GOTO 19 WRITELN "Das un saltito y..." WRITELN "Aterrizas al pie del árbol." let 115 19 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done bajar _ at 20 goto 19 writeln "Das un saltito y..." pnjdice 16 "¡UN SALTITOOOOOOOOOO!" 0 ; sust(pWally/16) writeln "Aterrizas al pie del árbol." let 115 19 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done ex nido at 20 writeln "{LOCATION|38}" done ex agua at 21 writeln "El agua del mar queda más hacia el este." done ex arena at 21 writeln "Arena de la playita, fina y blanca. Por esta parte de la playa el agua del mar no llega, la arena quema un poco." done coger arena at 21 writeln "No vamos a levantar ningún castillo por ahora." done cavar arena at 21 writeln "No estamos buscando ningún tesoro." done _ cangrejo at 21 absent 6 ; sust(oCangrejo/6) writeln "Ya has cogido un cangrejo, deja al resto en paz." done ex fondo at 22 synonym bucear agua nadar costa at 22 synonym nadar orilla nadar playa at 22 synonym nadar orilla nadar orilla at 22 goto 13 let 115 13 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done nadar _ at 22 pnjdice 16 "Mejor no me alejo mucho de la orilla... puede haber tiburones." 0 ; sust(pWally/16) done examinar agua at 22 writeln "Agua limpia y cristalina." done beber agua at 22 writeln "El agua salada del mar no te haría mucho bien." done coger agua at 22 writeln "Preocupate por ahora por nadar y no ahogarte." done bucear _ at 22 writeln "Buceando descubres una gruta secreta..." pause 200 goto 23 let 115 23 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done examinar CABAÑA at 24 writeln "{LOCATION|38}" done saltar _ at 25 eq 34 255 ; no hay segundo nombre synonym bajar _ bajar _ at 25 goto 19 writeln "Das un saltito y..." pnjdice 16 "¡UN SALTITOOOOOOOOOO!" 0 ; sust(pWally/16) writeln "Aterrizas al pie del árbol." let 115 19 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done ex rama at 25 synonym ex nido ex arbol at 25 synonym ex nido ex nido at 25 writeln "Desde aquí, en la rama del árbol que tienes al lado hay un enorme nido. Debe ser del ave que se escucha graznar..." isat 17 20 ;el arco en el nido ; sust(oArco/17) writeln "En el nido hay un arco con sus flechas." done ex cielo synonym ex pajaro ex pajaro at 25 writeln "Miras al cielo para intentar ver dónde está ese pájaro que grita, pero no ves nada." done saltar arbol synonym saltar nido saltar rama synonym saltar nido saltar nido at 25 carried 18 ; sust(oHuevo/18) writeln "De un saltito saltas a la rama de al lado, justo al nido." goto 20 let 115 20 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done saltar nido at 25 isat 18 20 ; sust(oHuevo/18) writeln "De un saltito saltas a la rama de al lado, justo al nido." goto 20 let 115 20 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done saltar nido at 25 writeln "En pleno vuelo hacia tu viaje a la rama aparece un enorme pajarraco que te corta las... alas." writeln "Vas directo al suelo." goto 19 let 115 19 ; sust(fGraficoAct/115) process 17 ;Proceso para mostrar la descripción de una localidad done ex cielo synonym ex pajaro ex pajaro at 25 writeln "Miras al cielo para intentar ver dónde está ese pájaro que grita, pero no ves nada." done _ rama at 25 pnjdice 16 "Bueno me da pereza hacer eso con la rama." 0 ; sust(pWally/16) done _ nido at 25 pnjdice 16 "Queda en el otro árbol, desde aquí no llego bien." 0 ; sust(pWally/16) done /PRO 11 _ _ parse writeln "{ink|yellow|Wilma: } ¡Qué diablos dices Wally!" newtext done _ _ writeln "{ink|yellow|Wilma: } ¡Bájame de aquí!" newtext done /PRO 12 _ hacha eq 44 97 ; sust(_voc_COCHE/97) let 44 98 ; sust(_voc_RUEDA/98) _ hacha eq 44 98 ; sust(_voc_RUEDA/98) carried 23 ; sust(oHachaSinAfilar/23) bnotzero# 109 0 ; sust(fRueda/109) ; sust(ruedaAceite/0) { writeln "Con la piedra lubricada de aceite, consigues afilar el hacha, dejando un filo profesional." place 23 255 ; sust(oHachaSinAfilar/23) place 24 254 ; sust(oHachaAfilado/24) done } bnotzero# 109 1 ; sust(fRueda/109) ; sust(ruedaAgua/1) { writeln "Intentas afilar el hacha en la rueda de piedra, pero eso no funciona. El agua no es buen lubricante." done } writeln "Intentas afilar el hacha en la rueda de piedra, pero eso no funciona, la rueda está muy seca." done _ hacha noteq 44 255 carried 23 ; sust(oHachaSinAfilar/23) writeln "Creo que ese no es sitio correcto para afilar el hacha." done _ hacha carried 23 ; sust(oHachaSinAfilar/23) writeln "¿Dónde quieres afilar el hacha?" done _ hacha present 24 ; sust(oHachaAfilado/24) writeln "El hacha ya está bien afilada." done _ hacha notcarr 23 ; sust(oHachaSinAfilar/23) writeln "No tienes el hacha." done _ _ writeln "No sé que quieres afilar ni dónde." done /PRO 13 _ _ parse writeln "{ink|yellow|Herbert: } ¡Qué dices papi, no te entiendo!" newtext done _ _ writeln "{ink|yellow|Herbert: } ¡Sácame de aquí papa!" newtext done /PRO 14 _ _ beep 258 2 1 ; sust(coger.mp3/258) ; sust(MCanalFx/2) process 19 ;repintamos coger _ noteq 51 6 ; sust(oCangrejo/6) carried 6 ; sust(oCangrejo/6) writeln "Sueltas una de las pinzas del cangrejo para coger {OREF}" pnjdice 16 "¡AUUUU!" 0 ; sust(pWally/16) writeln "Con la pinza suelta el cangrejito te da un 'mordisco' y se te cae de las manos." place 6 21 ; sust(oCangrejo/6) pnjdice 16 "Se me escapó el cangrejo..." 0 ; sust(pWally/16) coger _ eq 1 3 ;si se tienen dos objetos no se pueden coger más pnjdice 16 "Dejo por aquí {OREF}, que no tengo más manos." 0 ; sust(pWally/16) place @51 @38 done quitar _ carried 6 ; sust(oCangrejo/6) writeln "Sueltas una de las pinzas del cangrejo para coger {OREF}" pnjdice 16 "¡AUUUU!" 0 ; sust(pWally/16) writeln "Con la pinza suelta el cangrejito te da un 'mordisco' y se te cae de las manos." place 6 21 ; sust(oCangrejo/6) pnjdice 16 "Se me escapó el cangrejo..." 0 ; sust(pWally/16) quitar _ eq 1 3 ;si tiene dos objetos no te deja coger más, con las chanclas sería 3 objetos pnjdice 16 "Dejo por aquí {OREF}, que no tengo más manos." 0 ; sust(pWally/16) place @51 @38 done /PRO 15 _ _ writeln "Metes sin piedad el cangrejo vivo en el agua hirviendo y lo transformamos en un cangrejo cocido." place 6 255 ; sust(oCangrejo/6) place 36 19 ; sust(oCangrejoCocido/36) done /PRO 16 ex almeja writeln "{textpic|almeja.png|0}" ex almeja present 32 ; sust(oAlmeja/32) onotzero 32 30 ; sust(oAlmeja/32) ; sust(aLleno/30) writeln "Dentro de la concha de la almeja hay unas cuantas gotas de agua del pozo de los deseos." done ex almeja present 32 ; sust(oAlmeja/32) writeln "Una pequeña concha de una almeja, serviría como recipiente para pequeñas cantidades de agua." writeln "La almeja está vacía." done beber _ pnjdice 16 "Podría beber agua de la almeja, pero ahora no tengo sed." 0 ; sust(pWally/16) done comer concha present 32 ; sust(oAlmeja/32) writeln "No sé que tipo de concha de almeja crees que tienes delante de ti... pero esta no se come, está muy dura." done oler almeja present 32 ; sust(oAlmeja/32) writeln "Huele a bacalao." done llenar almeja carried 32 ; sust(oAlmeja/32) onotzero 32 30 ; sust(oAlmeja/32) ; sust(aLleno/30) writeln "La almeja ya está llena." done llenar almeja at 16 carried 32 ; sust(oAlmeja/32) lnotzero @38 10 ;y estamos en un loclidad con agua ; sust(aLocAgua/10) writeln "Llenamos la almeja con agua del pozo." oset 32 30 ; sust(oAlmeja/32) ; sust(aLleno/30) done llenar almeja carried 32 ; sust(oAlmeja/32) lnotzero @38 10 ; sust(aLocAgua/10) writeln "Ese agua no es digna para esta almeja." done llenar almeja carried 32 ; sust(oAlmeja/32) writeln "Por aquí no veo nada de agua." done vaciar almeja carried 32 ; sust(oAlmeja/32) ozero 32 30 ; sust(oAlmeja/32) ; sust(aLleno/30) writeln "La almeja está vacía." done vaciar _ at 3 onotzero 32 30 ; sust(oAlmeja/32) ; sust(aLleno/30) present 37 ; sust(oOlla/37) noteq 44 255 eq 44 102 ; no hacemos whatox2, ya que la chimenea = fuego no es objeto presente ; sust(_voc_FUEGO/102) writeln "Vacías la almeja en el fuego de la olla, la olla se apaga." oclear 37 20 ; sust(oOlla/37) ; sust(aOn/20) oclear 32 30 ; sust(oAlmeja/32) ; sust(aLleno/30) picture 659 ; sust(tres_2.png/659) let 115 403 ; sust(fGraficoAct/115) plus 115 256 ; sust(fGraficoAct/115) ; sust(GRAFICOS/256) done vaciar _ carried 32 ; sust(oAlmeja/32) onotzero 32 30 ; sust(oAlmeja/32) ; sust(aLleno/30) writeln "Vacías el agua de la almeja en el suelo." oclear 32 30 ; sust(oAlmeja/32) ; sust(aLleno/30) done /PRO 17 _ _ cls process 19 ;drawpicture @115 ; sust(fGraficoAct/@115) writeln "{LOCATION|38}" process 1 /PRO INTERRUPT 18 _ _ CLEAR 103 ; sust(fAux2/103) CLEAR 114 ; sust(fAux3/114) let 100 50 ;posición en vertical del objeto ; sust(fAux/100) LT: 103 @107 ;@fNUMERO_OBJETOS ;fNUMERO_OBJETOS = OBJETOS CREADOS + 1 ; sust(fAux2/103) ; sust(fNumObjetos/@107) { CARRIED# @103 ; sust(fAux2/@103) { let 114 @103 ; Guardamos 103 ; sust(fAux3/114) ; sust(fAux2/@103) ; sust(fAux2/103) plus 103 356 ; El recurso para el objeto será 100 + 256 (constantes txtpaws) + el número de objeto ; sust(fAux2/103) ; sust(INV_GRAFICO/356) pictureat 50 @100 @103 ; sust(fAux/@100) ; sust(fAux2/@103) plus 100 75 ; Desplazamos en vertical para el siguiente objeto. ; sust(fAux/100) let 103 @114 ; Recuperamos 103 ; sust(fAux2/103) ; sust(fAux3/@114) ; sust(fAux2/103) } WORN# @103 ; sust(fAux2/@103) { let 114 @103 ; Guardamos 103 ; sust(fAux3/114) ; sust(fAux2/@103) ; sust(fAux2/103) plus 103 356 ; El recurso para el objeto será 100 + 256 (constantes txtpaws) + el número de objeto ; sust(fAux2/103) ; sust(INV_GRAFICO/356) plus 100 170 ; las prendas de vestir irán en la parte inferior del inventario. ; sust(fAux/100) pictureat 50 @100 @103 ; sust(fAux/@100) ; sust(fAux2/@103) minus 100 170 ; Desplazamos en vertical para el siguiente objeto. ; sust(fAux/100) let 103 @114 ; Recuperamos 103 ; sust(fAux2/103) ; sust(fAux3/@114) ; sust(fAux2/103) } PLUS 103 1 ; sust(fAux2/103) } bnotzero# 12 4 { noteq# 108 1 ; sust(fWilma/108) pictureat 1525 100 283 ; sust(wilmaesq.gif/283) eq# 108 1 ; sust(fWilma/108) pictureat 1525 100 284 ; sust(wilma.png/284) noteq# 112 1 ; sust(fHerbert/112) pictureat 1525 250 282 ; sust(herbertesq.gif/282) eq# 112 1 ; sust(fHerbert/112) pictureat 1525 250 285 ; sust(herbert.png/285) } /PRO 19 _ _ picture @115 ; sust(fGraficoAct/@115) noteq# 108 1 ; sust(fWilma/108) pictureat 1525 100 283 ; sust(wilmaesq.gif/283) eq# 108 1 ; las imágenes de wilma y herber que no se pinten en la pantalla final (13) ; sust(fWilma/108) { notat 13 noteq 112 1 ; sust(fHerbert/112) pictureat 1525 100 284 ; sust(wilma.png/284) } noteq# 112 1 ; sust(fHerbert/112) pictureat 1525 250 282 ; sust(herbertesq.gif/282) eq# 112 1 ; sust(fHerbert/112) { notat 13 noteq 108 1 ; sust(fWilma/108) pictureat 1525 250 285 ; sust(herbert.png/285) } /PRO 20 _ _ process 19 beep 258 2 1 ; sust(coger.mp3/258) ; sust(MCanalFx/2)