;############################################################# ;############ ngPAWS - LIBRERIA DE INICIO 4.0 ############# ;############ 18/04/2014 ############# ;############################################################# ;# # ;# ESTA LIBRERIA BASE ES DE DOMINIO PUBLICO # ;# Ha sido creada por Uto y Radin y, cedida # ;# de manera que podáis decidir que licencia aplicáis a # ;# vuestra aventura sin restricciones # ;############################################################# ; Grafico de localidad ##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 ;Las imagenes de herbert un wilma ##define grf herbertesq.gif 26 ##define grf wilmaesq.gif 27 ##define grf wilma.png 28 ##define grf herbert.png 29 ; El valor del objeto de inventario será su número de objeto ; más 100 + 256 cte de txtpaws ##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 ; Ejemplo musica de localidad ;##define msc loc1.ogg 1 ; Musica de fondo ##define snd fondo.mp3 1 ; Coger / Dejar objeto ##define snd coger.mp3 2 ; Flags ; ÚLTIMO FLAG 116 ; FLAG 64 NO USAR, ALMACENA EL TERCER NOMBRE ; NOUN3 LO INICALIZO A 255 EN PROCCES 1 Y LO LIMPIO A 255 CADA TURNO ##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 ; Flag para el control de los distintos sonidos del juego ##define flg fMusica 116 ; Inicio del la música de fondo inicial. ; El fondo inicial comenzará la primera vez que entremos en la estancia uno ##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 ; La rueda puede estar mojada de agua o de aceite ##define flg fRueda 109 ##define const ruedaAceite 0 ; la rueda está mojada de aceite ##define const ruedaAgua 1; la rueda esá con agua ; *************************************** ; * IMPORTANTE MANTENER ACUTALIZADO ; * CADA VEZ QUE SE CREA UN OBJETO NUEVO ; *************************************** ;##define flg fNUMERO_OBJETOS 104; ESTO LO COMENTO DESPUÉS DE CREAR EL BUCLE DEL PROCESO 6 ; Control de bucles ##define flg fIterador 106 ##define flg fNumObjetos 107 ; un flag que uso a nivel de bits para controlar tonterias que dice Wally. ; si el bit en concreto está activo se dice la tontería, que se pondrá a cero ; cuando Willy la suelta.... que tontería más grande. ; bueno más que nada para prácticar con flags a nivel de bit. ##define flg fTonterias 102 ;Tontería 1, cuando examinas por primera vez el arco y la flecha ##define const tonteria1 0 ; Tontería 2, cuando quieres abrir la cabaña con la llave incorrecta ##define const tonteria2 1 ; Tontería 3, cuando quieres subir por le tronco del arbol ##define const tonteria3 2 ; Tonteria 4, cuando escalas el arbol por la liana ##define const tonteria4 3 ; Tonteria 5, comer el tazón de comida de pájaro ##define const tonteria5 4 ; Tonteria 6, hueles el tazón ##define const tonteria6 5 ; Tonteria 7, coger el tazón cuando está comiendo el pajaor ##define const tonteria7 6 ; Tonteria 8, coger el huevo cuando no puedes ##define const tonteria8 7 ; Tonteria 9, oler el huevo ##define const tonteria9 8 ; Tonteria 10, subir liana con wilma ##define const tonteria10 9 ; Tonteria 11, la antena ##define const tonteria11 10 ; Tonteria 12, otra tonteria de la antena al ex la choza ##define const tonteria12 11 ; Tonteria 13, la tonteria de la rana ##define const tonteria13 12 ; Tonteria 14; la tonteria de comerte la pinza ##define const tonteria14 13 ; Tonteria 15; la tontería que suelta Herbert ##define const tonteria15 14 ; Tonteria 16; la tonteria del fuego de la olla ##define const tonteria16 15 ; Tonteria 17; la tonteria del la primera estancia al inicio ##define const tonteria17 16 ; Tonteria 18; La tonteria de la antena de TV ##define const tonteria18 17 ; Tonteria 19: La tonteria de la llave ##define const tonteria19 18 ; Tonetria 20: La tonteria de los adornos ##define const tonteria20 19 ; Las tonterías y la conversa del indio ##define flg fTontIndio 110 ; Tontería 1 del indio cuando ex a wilma la primera vez ; Diferentes tonterías que te dice wilma ##define flg fTontWilma 111 ; Objetos ; IMPORTANTE MANTENER ACUALIZADO EL FLAG QUE INDICA EL NÚMERO ; TOTAL DE OBJETOS CREADOS ##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 ;Personajes ##define obj pWally 16 ##define obj pIndio 21 ##define obj pWilma 25 ;************************************************** ;************************************************** ; Atributos adicionales para localidades ;************************************************** ;************************************************** #define const aLocAgua = 10 ;Hay agua en la localidad ; Definiciones por defecto para atributos de objeto #define const aLight = 0 #define const aWear = 1 #define const aContainer = 2 #define const aNPC =3 #define const aConcealed = 4 #define const aEdible = 5 #define const aDrinkable = 6 #define const aEnterable = 7 #define const aFemale = 8 #define const aLockable = 9 #define const aLocked = 10 #define const aMale = 11 #define const aNeuter = 12 #define const aOpenable = 13 #define const aOpen = 14 #define const aPluralName = 15 #define const aTransparent = 16 #define const aScenery = 17 #define const aSupporter = 18 #define const aSwitchable = 19 #define const aOn = 20 #define const aStatic = 21 ;mis atributos #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 ;--Movimientos, verbos y nombres < 14-- N 2 noun NORTE 2 noun S 3 noun SUR 3 noun E 4 noun ESTE 4 noun O 5 noun OESTE 5 noun 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 ;--Nombres-- <20 indica que pueden ser usados como verbos ; <50 indica que son nombres propios, no seran ; tenidos en cuenta por los pronombres. 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 ;hueso 73 noun ;huesos 73 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 ;astillas 80 noun ;astilla 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 ;cocodrilo 95 noun ;caiman 95 noun ;cocodrilos 95 noun ;caimanes 95 noun ;elefante 95 noun ;elefantes 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 ;--Verbos-- 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 ;mis verbos 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 ;--Adjetivos-- PEQUEÑO 2 adjective PEQUEÑA 2 adjective GRANDE 3 adjective VIEJO 4 adjective VIEJA 4 adjective NUEVO 5 adjective NUEVA 5 adjective DURO 6 adjective DURA 6 adjective SUAVE 7 adjective LARGO 9 adjective LARGA 9 adjective ;--Adverbios-- RAPIDAMENT 2 adverb LENTAMENTE 3 adverb SILENCIOSA 4 adverb RUIDOSAMEN 5 adverb CUIDADOSAM 6 adverb TRANQUILAM 6 adverb ;--Preposiciones-- A 2 preposition AL 2 preposition DE 3 preposition DEL 3 preposition EN 4 preposition DENTRO 4 preposition 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 ;--Pronombres-- LO 2 pronoun LOS 2 pronoun SELO 2 pronoun SELOS 2 pronoun LA 2 pronoun LAS 2 pronoun SELA 2 pronoun SELAS 2 pronoun LE 2 pronoun LES 2 pronoun ;--Conjunciones-- Y 2 conjunction 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 ;obj loc peso nombre adjetivo atributo ;num ini /0 1 1 PECES _ ATTR aMale aConcealed /1 10 1 PECERA _ ATTR aFemale ;original mente en 10 /2 13 1 BOLSO _ ATTR aMale ; en la estancia 13 /3 12 1 SACACORCHO _ ATTR aMale /4 12 1 VENTANA _ ATTR aFemale aScenery aStatic /5 10 1 CHANCLETAS _ ATTR aFemale aWear aPluralName ;10 /6 21 1 CANGREJO _ ATTR aMale aVivo ;El cangrejo vivo /7 4 1 COCO _ ATTR aMale aStatic /8 16 1 botella _ ATTR aFemale ;16 /9 5 1 CABAÑA _ ATTR aFemale aStatic aScenery aOpenable aLockable aLocked /10 255 1 llave _ ATTR aFemale ;255 /11 24 1 pico _ ATTR aMale ;su habitación original la 24 /12 255 1 repelente _ ATTR aMale ; ELIMINADO /13 255 1 hueso _ ATTR aMale ;inicialmene 255 /14 23 1 cofre _ ATTR aMale aStatic aOpenable aLockable aLocked /15 255 1 espinacas _ ATTR aFemale aPluralName aEdible ; incialmente 255 /16 255 1 wally _ ATTR aMale aNPC aConcealed aHero /17 20 1 arco _ ATTR aMale ;original en 20 El arco con flechas /18 9 1 huevo _ ATTR aMale ;originalmente en 9 /19 12 1 tazon _ ATTR aMale ;12 /20 15 1 fuelle _ ATTR aMale ; en la estancia 15 /21 8 1 canibal _ ATTR aMale aNPC aVivo /22 255 1 arco _ ATTR aMale ;El arco sin flechas /23 23 1 hacha _ ATTR aMale ; El hacha sin afilar. en la estancia 23 /24 255 1 hacha _ ATTR aMale ; El hacha afilado, 255 /25 8 1 wilma _ ATTR aFemale aNPC /26 4 1 rama _ ATTR aFemale ;en la 4 /27 11 1 chimenea _ ATTR aFemale aScenery aStatic /28 11 1 chisquero _ ATTR aMale /29 255 1 cenizas _ ATTR aFemale aPluralName ;255 /30 6 1 choza _ ATTR aFemale aScenery ;la choza marina /31 7 1 diosa _ ATTR aFemale aStatic /32 255 1 almeja _ ATTR aFemale ;255 /33 3 1 leon _ ATTR aMale aScenery aStatic aEnfadado ;el leon que custido a herbert /34 3 1 herbert _ ATTR aMale aNPC /35 255 1 pinza _ ATTR aMale aCangrejo ;incialmente en 255 /36 255 1 cangrejo _ ATTR aMale ;El cangrejo muerto /37 3 1 olla _ ATTR aFemale aStatic aScenery aOn ;con la propiedad a aOn nos referimos aque el fuego de la olla está encendido ; Importante: Mantener actualiado el flag que indica el número total de objetos existentes ; fNUMERO_OBJETOS ; EN EL PROCESO 1 LE ASIGNO UN VALOR ; ^ POR AHORA LO APARTO DESPUÉS DE CREAR EL BUCLE DEL PROCESO 6 ; Importante: Recuerda que si creas un objeto contenedor o soporte debes dejar sin usar la localidad de igual número /PRO 0 ; ; ################################## ACCIONES MÚLTIPLES ################################### ; # # ; # Estas entradas usan un bucle DOALL y actúan sobre todos los objetos que encuentran, # ; # por tanto deben estar aquí delante (antes de las respuestas del programador) ya que # ; # en caso contrario no las tendría en cuenta. # ; # # ; ######################################################################################### _ _ HOOK "RESPONSE_START" ; Back call a el sistema de hooks, por defecto no hace nada pero algunas librerías plugin podrían 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 ; ** Convertir VACIAR xxxx, en SACAR TODO DE xxxx VACIAR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer COPYFF 34 44 COPYFF 35 45 SYNONYM SACAR TODO LET 43 &&_voc_DE 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 aContainer ; Es un contenedor ABSENT @13 WRITELN "No ves eso por aquí." DONE SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es un supporter ABSENT @13 WRITELN "No ves eso por aquí." DONE SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor PRESENT @13 OBJAT @13 14 ZERO 14 WRITELN "No hay nada ahí." DONE SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es un supporter PRESENT @13 OBJAT @13 14 ZERO 14 WRITELN "No hay nada ahí." DONE SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor PRESENT @13 DOALL @13 SACAR TODO PREP DE NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es un supporter PRESENT @13 DOALL @13 ; ** Convertir "ESCONDER ALGO EN ALGO" en "METER ALGO EN ALGO" ESCONDER _ NOTEQ 51 255 PRESENT @51 PREP EN WHATOX2 13 NOTEQ 13 255 ; Es un objeto PRESENT @13 SYNONYM METER _ LET 43 &&_voc_DENTRO ; ** Convertir "PONER ALGO EN..." en "METER ALGO EN..." PONER _ NOTEQ 51 255 PRESENT @51 PREP EN SYNONYM METER _ 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 aContainer ; Es un contenedor ABSENT @13 WRITELN "No ves eso por aquí." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es una superficie ABSENT @13 WRITELN "No ves eso por aquí." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor CARRIED @13 OBJAT 254 14 EQ 14 1; no llevas nada en el inventario (sólo llevas el container) WRITELN "No llevas nada." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter; es una superficie, poner todo CARRIED @13 OBJAT 254 14 EQ 14 1; no llevas nada en el inventario (sólo llevas el container) WRITELN "No llevas nada." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor ISAT @13 @38 OBJAT 254 14 ZERO 14 ;no llevas nada en el inventario WRITELN "No llevas nada." DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; es una superficie ISAT @13 @38 OBJAT 254 14 ZERO 14 ;no llevas nada en el inventario WRITELN "No llevas nada" DONE METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aContainer ; Es un contenedor PRESENT @13 DOALL CARRIED METER TODO PREP EN NOTEQ 13 255 ; Es un objeto ONOTZERO @13 aSupporter ; Es un superficie PONER TODO PRESENT @13 DOALL CARRIED QUITAR TODO OBJAT 253 13 ZERO 13 ; no llevas ningún objeto "puesto" WRITELN "No llevas nada puesto." DONE QUITAR TODO DOALL WORN PONER TODO OBJAT 254 13 ZERO 13 ; no llevas nada en el inventario WRITELN "No llevas nada para ponerte." DONE PONER TODO DOALL CARRIED TIRAR TODO OBJAT 254 13 ZERO 13 ; no llevas nada en el inventario WRITELN "No llevas nada." DONE TIRAR TODO EQ 1 1 ; si 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 ; ################################### FRASES SINONIMAS #################################### ; # # ; # Estas entradas convierten unas entradas en otras distintas porque a veces segun # ; # escribimos algo queremos realizar una acción u otra para el mismo verbo. # ; # Deben ir aquí al principio, antes de las acciones modificadas por el programador. # ; # # ; # Ejemplos comunes de frases sinónimas son: # ; # # ; # - NADAR como sinónimo de CAMINAR/IR en localidades "acuáticas" # ; # - ENCENDER TELEVISOR usado en el sentido de CONECTAR TELEVISOR # ; # - APAGAR LUZ usado en el sentido de DESCONECTAR # ; # # ; # Por defecto, en la librería base ENCENDER se usa en sentido de INCENDIAR, # ; # y APAGAR como SOFOCAR/EXTINGUIR # ; # # ; ######################################################################################### IR _ LT 34 14 COPYFF 34 33 _ _ PREP DENTRO EQ 33 255 EQ 34 255 SYNONYM ENTRAR _ LET 43 255 _ _ PREP FUERA EQ 33 255 EQ 34 255 SYNONYM SALIR _ LET 43 255 ; ** Convertir MIRAR DENTRO en EXAMINAR DENTRO MIRAR _ NOTEQ 34 255 PREP DENTRO SYNONYM EXAMINAR _ ; ** Convertir MIRAR "ALGO" en EXAMINAR "ALGO" MIRAR _ NOTEQ 34 255 SYNONYM EXAMINAR _ MIRAR _ BNOTZERO 12 1 SYNONYM EXAMINAR _ ; ** Convertir REGISTRAR en EXAMINAR DENTRO REGISTRAR _ SYNONYM EXAMINAR _ LET 43 &&_voc_DENTRO ; ** Convertir ARRANCAR en TIRAR DE edlobez -> siempre y cuando no sea un coche ARRANCAR _ noteq 34 &&_voc_COCHE SYNONYM TIRAR _ LET 43 &&_voc_DE ; ** Convertir X "ALGO" en EXAMINAR "ALGO" X _ EQ 34 255 BNOTZERO 12 1 SYNONYM EXAMINAR _ X _ NOTEQ 34 255 SYNONYM EXAMINAR _ ; ** Convertir CONSULTAR "A ALGUIEN" en PREGUNTAR "A ALGUIEN" CONSULTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC SYNONYM PREGUNTAR _ ; ** Convertir "HACER ALGO CON OBJETO2 A OBJETO1" en "HACER ALGO A OBJETO1 CON OBJETO2" _ _ PREP CON BZERO 12 2 ; la prep estaba antes del primer nombre NOTEQ 34 255 WHATOX 16 NOTEQ 16 255; el primer nombre de la SL es un objeto NOTEQ 44 255; hay segundo nombre WHATOX2 15 NOTEQ 15 255; el segundo nombre es de un objeto COPYFF 34 14 COPYFF 44 34 COPYFF 14 44 ; Les 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 ; ** Convertir "HACER ALGO A OBJETO2 CON OBJETO1" en "HACER ALGO CON OBJETO1 A OBJETO2" _ _ PREP A BZERO 12 2 ; la prep estaba antes del primer nombre NOTEQ 34 255 WHATOX 16 NOTEQ 16 255 ; el primer nombre de la SL es un objeto NOTEQ 44 255 ; hay segundo nombre WHATOX2 15 NOTEQ 15 255 ; el segundo nombre es de un objeto COPYFF 34 14 COPYFF 44 34 COPYFF 14 44 ; Les 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 ; ** Convertir "HACER ALGO EN OBJETO2(CONTENEDOR) OBJETO1" en "HACER ALGO OBJETO1 EN OBJETO2(CONTENEDOR)" _ _ PREP EN BZERO 12 2 ; la prep estaba antes del primer nombre NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ; El primer objeto es un contenedor presente NOTEQ 44 255 ; hay segundo nombre WHATOX2 15 NOTEQ 15 255 ; el segundo nombre es de un objeto COPYFF 34 14 COPYFF 44 34 COPYFF 14 44 ; Les 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 ; ** Convertir "HACER ALGO DE OBJETO2(CONTENEDOR) OBJETO1" en "HACER ALGO OBJETO1 DE OBJETO2(CONTENEDOR)" _ _ PREP DE BZERO 12 2 ; la prep estaba antes del primer nombre NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ; El primer objeto es un contenedor presente NOTEQ 44 255; hay segundo nombre WHATOX2 15 NOTEQ 15 255; el segundo nombre es de un objeto COPYFF 34 14 COPYFF 44 34 COPYFF 14 44 ; Les 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 ; ** Convertir "COGER DE" en "SACAR DE" COGER _ PREP DE noteq 44 &&_voc_CANGREJO ;siempre y cuando no se el cangrejo edlobez 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. ; ####################### RESPUESTAS MODIFICADAS POR EL PROGRAMADOR ####################### ; # # ; # Aquí puedes añadir tus propias respuestas. Se colocan en este punto porque así # ; # están por detras de las frases sinónimas y antes de las respuestas por defecto. # ; # # ; ######################################################################################### ; Versión version _ message 2000 done ;****************************************************************************************** ; Nuestro inventario ;****************************************************************************************** I _ process 4 done ;****************************************************************************************** ; Como máximo sólo podemos llevar dos objetos ;****************************************************************************************** ;coger agua con algo >> llenar algo de agua coger agua lnotzero @38 aLocAgua noteq 44 255 whatox2 fAux noteq fAux 255 ; es un objeto present @fAux let 33 55 ; llenar let 34 @44 let 44 53 ; el agua ; tienes la botella coger agua = llenar la botella de agua coger agua lnotzero @38 aLocAgua present oBotella let 33 55 ;El verbo llenar let 34 64 ;LA BOTELLA let 44 53 ;agua coger _ noteq 51 oPeces ;pasamos los peces, ya que no los cogeremos, irán dentro de la pecera 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 de algo la botella - > llenar la botella de algo ; **************************************************************************************** llenar _ present oBotella noteq 34 255 ; hay primer nombre noteq 44 255 ; Hay un segundo nombre whatox2 fAux noteq fAux 255 ; es un objeto eq fAux oBotella ; el segundo nombre es la botella present @fAux let fAux @34 ; guardamos el primer nombre let 34 @44 let 44 @fAux ; ***************************************************************************************** ; TODAS LAS ESTANCIAS EN EL PROCESO 10 ; ***************************************************************************************** _ _ process 10 isdone done ; ***************************************************************************************** ; TODOS LOS OBJETOS EN EL PROCESO 7 ; ***************************************************************************************** _ _ process 7 isdone done ; ***************************************************************************************** ; EDLOBEZ RESPUESTAS POR DEFECTO ; ***************************************************************************************** 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 pWally "Levente escucho los sonidos de la jungla." 0 done oir _ at 19 writeln "El sonido de un ave resuena en el cielo." pnjdice pWally "Debe ser un ave enorme." 0 done oir _ at 25 writeln "El sonido de un ave resuena en el cielo." pnjdice pWally "Debe ser un ave enorme." 0 done oir _ at 20 writeln "El sonido de un ave resuena en el cielo." pnjdice pWally "Como se me cague encima, me rompe el cuello." 0 done oir _ at 6 onotzero oDiosa aTormenta writeln "Rayos tronando y agua cayendo." pnjdice pWally "La que he lia'o." 0 done oir _ at 7 onotzero oDiosa aTormenta writeln "Rayos tronando y agua cayendo." pnjdice pWally "La que he lia'o." 0 done oir _ at 1 writeln "El sonido del riachuelo se mezcla con el de la jungla." done oir _ ;at 1 writeln "Sonidos de la jungla..." pnjdice pWally "Bichos gritando." 0 done oler _ at 22 pnjdice pWally "Huele a sal." 0 done oler _ at 21 pnjdice pWally "Huele a sal." 0 done oler _ at 23 pnjdice pWally "Huele a humedad, a moho." 0 done oler _ ;at 1 writeln "Huele a jungla." pnjdice pWally "Como el dormitorio de un solter@ a primera hora de la mañana." 0 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 aLocAgua 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 y tienes la botella beber _ present oBotella onotzero oBotella aBotellaConLiquido synonym beber botella process 5 done ; beber y tienes la almeja con agua beber _ present oAlmeja onotzero oAlmeja aLleno synonym beber almeja process 16 done ; beber y tienes la pecera beber _ present oPecera notzero fPeceraLlena synonym beber pecera process 7 done beber _ lzero @38 aLocAgua writeln "Aquí no hay nada de agua." done coger agua lnotzero @38 aLocAgua 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 fAux noteq fAux 255 absent @fAux 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 fMusica MfondoOn writeln "Música activada." beep fondo.mp3 MCanalFondo 0 done musica off bset fMusica MfondoOn writeln "Música desactivada." silence 1 done ; ############################### RESPUESTAS POR DEFECTO ################################## ; # # ; # Estas entradas devuelven las respuestas por defecto. Si no ponemos antes ninguna # ; # entrada que lo evite, se llegará hasta aquí y se dará la respeusta por defecto. # ; # # ; ######################################################################################### _ _ HOOK "RESPONSE_DEFAULT_START" ; Back call a el sistema de hooks, por defecto no hace nada pero algunas librerías plugin podrían hacer que hiciera algo. No borrar. I _ INVEN ; ------------------------- ENTRAR _ ; Entrar en un objeto NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aEnterable GOTO @51 DESC ;----------------------------------------------- SENTAR _ WRITELN "Ahora mismo no te apetece." DONE ;----------------------------------------------- LEVANTARTE _ WRITELN "Estás bien así." DONE ;----------------------------------------------- MIRATE _ WRITELN "Te miras de arriba a abajo pero no ves nada especial." DONE ;----------------------------------------------- REGISTRATE _ WRITELN "No encuentras nada destacable." DONE ;----------------------------------------------- SUICIDATE _ WRITELN "Esa no es la solución..." DONE ;----------------------------------------------- LAVATE _ WRITELN "Ahora mismo no te apetece..." DONE ;----------------------------------------------- XYZZY _ WRITELN "Has jugado a demasiadas aventuras conversacionales..." DONE ;----------------------------------------------- FIN _ QUIT TURNS END GRABAR _ SAVE CARGAR _ LOAD RAMSAVE _ RAMSAVE DESC RAMLOAD _ RAMLOAD 255 ANYKEY DESC TRANSCRIPCION _ TRANSCRIPT 1 DONE ;----------------------------------------------- COGER _ ; coger un objeto que está dentro de un contenedor PREP DE WHATOX2 14 NOTEQ 14 255 ; Si el objeto referenciado por noun 2 es un objeto y... ONOTZERO @14 aContainer ; Es un contenedor SYNONYM SACAR _ ; convertimos "coger objeto de un contenedor" en "sacar objeto de un contenedor" COGER _ ; 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 aStatic WRITELN "Mejor no coges {OREF}, está bien donde está." DONE COGER _ AUTOG DONE ;----------------------------------------------- DEJAR _ ; DEJAR un objeto dentro de un contenedor ############# PREP EN WHATOX2 14 NOTEQ 14 255 ; Si el objeto referenciado por noun 2 es un objeto y... ONOTZERO @14 aContainer ; Es un contenedor SYNONYM METER _; convertimos "dejar objeto en un contenedor" en "meter objeto en un contenedor" DEJAR _ ; 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 aWear WRITELN "No puedes sacar {OREF} de ningún sitio, en todo caso puedes quitártelo porque lo llevas puesto..." DONE SACAR _ ; SACAR un objeto pero no especificar de dónde NOTEQ 51 255 EQ 44 255 BZERO 12 1 WRITELN "¿De dónde quieres sacar eso?" DONE SACAR _ ; SACAR un objeto pero no especificar de dónde (encuentra una palabra que no está en el vocabulario) NOTEQ 51 255 CARRIED @51 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes sacar {OREF} de eso." DONE SACAR _ ; SACAR un objeto de un noun2 que no es un objeto. EQ 15 255 ; El segundo nombre no es un objeto WRITELN "¿De dónde dices que quieres sacar {OREF}?" DONE SACAR _ ; NOTEQ 15 255 ; Es un objeto ONOTZERO @15 aContainer ; Es un contenedor SAME 51 15 ; No puede sacarse de 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 aContainer ; Es un contenedor ONOTZERO @15 aOpenable OZERO @15 aOpen PRESENT @15 WRITELN "Antes abre {OBJECT|15}." BREAK DONE SACAR _ ; SACAR un objeto de un Container que está presente pero cerrado NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; Es un contenedor ONOTZERO @15 aLockable OZERO @15 aLocked PRESENT @15 WRITELN "Antes abre {OBJECT|15}." BREAK DONE SACAR _ NOTEQ 15 255 ; Es un objeto ONOTZERO @15 aContainer ; Es un contenedor ABSENT @15 WRITELN "No puedes sacar nada de ahí porque no está aquí." DONE SACAR _ NOTEQ 15 255 ; Es un objeto ONOTZERO @15 aContainer ; Es un contenedor ABSENT @15 WRITELN "No puedes coger nada de ahí porque no está aquí." DONE SACAR _ ; SACAR un objeto de un Container que está presente NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; Es un contenedor PRESENT @15 AUTOT @15 DONE SACAR _ ; SACAR un objeto de un Supporter que está presente NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aSupporter PRESENT @15 AUTOT @15 DONE SACAR _ NOTEQ 15 255 ; Es un objeto WRITELN "No puedes sacar cosas de ahí." DONE ;----------------------------------------------- METER _ ; Copiamos en el Flag 15 el 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 aWear WRITELN "Primero deberías quitarte {OREF} para poder hacer eso..." DONE METER _ ; METER un objeto pero que no lo llevamos NOTEQ 51 255 NOTCARR @51 WRITELN "No llevas {OREF}." DONE METER _ ; METER un objeto del inventario y no especificar dónde NOTEQ 51 255 CARRIED @51 EQ 44 255 BZERO 12 1 WRITELN "¿Dónde quieres meter eso?" DONE METER _ ; METER un objeto del inventario y no especificar dónde (encuentra una palabra que no está en el vocabulario) NOTEQ 51 255 CARRIED @51 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes meter {OREF} a eso." DONE METER _ ; METER un objeto del inventario a un noun2 que no es un objeto. NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 EQ 15 255 ; El segundo nombre no es un objeto WRITELN "¿Dónde dices que quieres meter {OREF}?" DONE METER _ NOTEQ 15 255 ; Es un objeto ONOTZERO @15 aContainer ; Es un contenedor SAME 51 15 ; No puede meterse en 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 aSupporter ; es un contenedor 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 aContainer ; pero no es un Container OZERO @15 aSupporter ; ni una superficie PRESENT @15 WRITELN "No puedes meter cosas dentro de eso..." DONE METER _ ; METER un objeto del inventario a un Container pero que no está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; y es un Container ABSENT @15 ; pero no está WRITELN "No puedes meter {OREF} ahí porque no llevas eso." DONE METER _ ; METER un objeto del inventario a 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 aSupporter ABSENT @15 ; pero no lo está WRITELN "No puedes meter {OREF} ahí porque no llevas eso." DONE METER _ ; METER un objeto presente a un Container que está presente pero cerrado NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; Es un contenedor PRESENT @15 ONOTZERO @15 aOpenable OZERO @15 aOpen WRITELN "Antes abre {OBJECT|15}." BREAK DONE METER _ ; METER un objeto presente a un 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 aContainer ; Es un contenedor PRESENT @15 ONOTZERO @15 aLockable OZERO @15 aLocked WRITELN "Antes abre {OBJECT|15}" BREAK DONE METER _ ; METER un objeto presente a un Container que está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aContainer ; Es un contenedor PRESENT @15 AUTOP @15 DONE METER _ ; METER un objeto presente a un Supporter que está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 NOTEQ 15 255 ; El noun2 es un objeto ONOTZERO @15 aSupporter PRESENT @15 AUTOP @15 DONE ;----------------------------------------------- QUITAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No sería adecuado." DONE TIRAR _ PREP DE NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE TIRAR _ ; Hay nombre pero no es un objeto PREP DE NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a tirar de eso." DONE TIRAR _ ; Es un objeto presente PREP DE NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada tirando de {OREF}." DONE TIRAR _ ; Es un objeto ausente PREP DE NOTEQ 51 255 ABSENT @51 WRITELN "Para tirar de {OREF} tendría que estar aquí." DONE ;----------------------------------------------- MIRAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Piensas que no conseguirás que pase desapercibido." DONE ESCONDER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ESCONDER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No crees que eso sirva de algo..." DONE ESCONDER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Escondiendo {OREF} no solucionarás nada." DONE ESCONDER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- LLORAR _ WRITELN "La autocompasión no conduce a nada." DONE ;----------------------------------------------- RECORDAR _ WRITELN "No recuerdas nada que te pueda ser útil." DONE ;----------------------------------------------- SALUDAR _ WRITELN "No hay respuesta alguna." DONE ;----------------------------------------------- ESCONDETE _ WRITELN "Esa es una opción muy cobarde." DONE ;----------------------------------------------- EMPUJAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE EMPUJAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aStatic PRESENT @51 WRITELN "No se mueve." DONE EMPUJAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE EMPUJAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aStatic ABSENT @51 WRITELN "No ves eso por aquí." DONE EMPUJAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a empujar eso." DONE EMPUJAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada empujando {OREF}." DONE EMPUJAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para empujar {OREF} tendría que estar aquí." DONE ;----------------------------------------------- MOVER _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE MOVER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE MOVER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a mover eso." DONE MOVER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada moviendo {OREF}." DONE MOVER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para mover {OREF} tendría que estar aquí." DONE ;----------------------------------------------- GIRAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No sería apropiado." DONE GIRAR _ NOTEQ 51 255 ONOTZERO @51 aStatic PRESENT @51 WRITELN "No ves utilidad en girar eso." DONE GIRAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE GIRAR _ NOTEQ 51 255 ONOTZERO @51 aStatic ABSENT @51 WRITELN "No ves eso por aquí." DONE GIRAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a girar eso." DONE GIRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No ves sentido a girar {OREF}." DONE GIRAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Girar {OREF} requiere su presencia." DONE ;----------------------------------------------- LANZAR _ ; 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 aNPC PRESENT @51 WRITELN "La violencia no es la solución." DONE LANZAR _ ; Es scenery NOTEQ 51 255 ONOTZERO @51 aStatic PRESENT @51 WRITELN "No puedes lanzar eso." DONE LANZAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE LANZAR _ NOTEQ 51 255 ONOTZERO @51 aStatic ABSENT @51 WRITELN "No ves eso por aquí." DONE LANZAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No, no ves sentido a lanzar eso." DONE LANZAR _ ; Es un objeto llevado NOTEQ 51 255 CARRIED @51 WRITELN "Lanzas {OREF}." PLACE @51 @38 DONE LANZAR _ ; Es un objeto que no llevas NOTEQ 51 255 NOTCARR @51 WRITELN "Desgraciadamente no llevas {OREF}." DONE ;----------------------------------------------- ESCUCHAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No parece decir nada." DONE ESCUCHAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ESCUCHAR _ EQ 34 255 WRITELN "Prestas atención a ver si oyes algo más, pero no escuchas nada en especial." DONE ;----------------------------------------------- COMER _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que se deje. En cualquier caso no es muy apropiado." DONE COMER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aStatic PRESENT @51 WRITELN "No es muy buena idea que te comas eso." DONE COMER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE COMER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres comer eso." DONE COMER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 OZERO @51 aEdible WRITELN "No ves sentido a comerte {OREF}." DONE COMER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aEdible WRITELN "Te comes {OREF}." DESTROY @51 DONE COMER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para comerte {OREF} debería estar aquí." DONE ;----------------------------------------------- BEBER _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Estás perdiendo el rumbo." DONE BEBER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE BEBER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres beber eso." DONE BEBER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 OZERO @51 aDrinkable WRITELN "No ves sentido a beberte {OREF}." DONE BEBER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aDrinkable WRITELN "Te bebes {OREF}." DESTROY @51 DONE BEBER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para beberte {OREF} debería estar aquí." DONE ;----------------------------------------------- MEAR _ WRITELN "No tienes ganas." DONE ;----------------------------------------------- ESCUPIR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Eso sería de muy mala educación." DONE ESCUPIR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ESCUPIR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a escupir a eso." DONE ESCUPIR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres escupir a {OREF}." DONE ESCUPIR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- TOCAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No se deja." DONE TOCAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE TOCAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a tocar eso." DONE TOCAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres tocar {OREF}." DONE TOCAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- OLER _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Es de mala educación." DONE OLER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE OLER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a oler eso." DONE OLER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aEdible WRITELN "La verdad es que {OREF} huele bien." DONE OLER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aDrinkable WRITELN "La verdad es que {OREF} huele bien." DONE OLER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres oler {OREF}." DONE OLER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aEdible WRITELN "La verdad es que {OREF} huele bien." DONE OLER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- AGITAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE AGITAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE AGITAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a agitar eso." DONE AGITAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres agitar {OREF}." DONE AGITAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- BALANCEATE _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE BALANCEATE _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE BALANCEATE _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No es algo adecuado para balancearse." DONE BALANCEATE _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Crees que {OREF} no es algo adecuado para balancearse." DONE BALANCEATE _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- ESPERAR _ SYSMESS 35 DONE ;----------------------------------------------- DORMIR _ WRITELN "No tienes sueño." DONE ;----------------------------------------------- SALTAR _ WRITELN "Saltas, sin conseguir nada." DONE ;----------------------------------------------- REZAR _ WRITELN "Rezas todo lo que sabes." DONE ;----------------------------------------------- CAVAR _ WRITELN "No quieres cavar aquí." DONE ;----------------------------------------------- PENSAR _ WRITELN "Pensar siempre es bueno." DONE ;----------------------------------------------- DORMIR _ WRITELN "No tienes sueño." DONE ;----------------------------------------------- CANTAR _ WRITELN "Cantas fatal." DONE ;----------------------------------------------- BAILAR _ WRITELN "La verdad es que bailar no se te da muy bien..." DONE ;----------------------------------------------- ATACAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es buena." DONE ATACAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ATACAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "La violencia no es la solución." DONE ATACAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Atacar {OREF} no solucionará nada." DONE ATACAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí, en cualquier caso la violencia no es la solución." DONE ;----------------------------------------------- GOLPEAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es buena." DONE GOLPEAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE GOLPEAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "La violencia no es la solución." DONE GOLPEAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Golpear {OREF} no solucionará nada." DONE GOLPEAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí, en cualquier caso la violencia no es la solución." DONE ;----------------------------------------------- USAR _ WRITELN "USAR es demasiado genérico, por favor 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Vaya ocurrencia..." DONE EX _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE EX _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Es de mala educación." DONE EX _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE EX _ ; Hay nombre pero no es un objeto, prep DENTRO presente PREP DENTRO NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a examinar dentro de eso." DONE EX _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a examinar eso." DONE EX _ ; Es un objeto presente y contenedor, transaparente con cosas dentro NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ONOTZERO @51 aTransparent OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial " LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente y contenedor, no abrible NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer OZERO @51 aOpenable OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial " LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente y contenedor, abrible y abierto con cosas dentro NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ONOTZERO @51 aOpenable ONOTZERO @51 aOpen OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial" LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente y contenedor, abrible y cerrado NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ONOTZERO @51 aOpenable OZERO @51 aOpen WRITELN "Examinas {OREF} pero no ves nada especial. Si lo abres podrás ver su contenido." DONE EX _ ; Es un objeto presente y contenedor, lockable y locked NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aContainer ONOTZERO @51 aLockable OZERO @51 aLocked WRITELN "Examinas {OREF} pero no ves nada especial. Si lo abres podrás ver su contenido." DONE EX _ ; Es un objeto presente y supporter con algo encima NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aSupporter OBJAT @51 13 NOTZERO 13 WRITE "Examinas {OREF} pero no ves nada especial " LISTCONTENTS @51 WRITELN "." DONE EX _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Examinas {OREF} pero no ves nada especial." DONE EX _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No se deja." DONE LIMPIAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE LIMPIAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a limpiar eso." DONE LIMPIAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Limpias {OREF}. No hay efecto alguno." DONE LIMPIAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- RASCAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No se deja." DONE RASCAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE RASCAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres rascar eso." DONE RASCAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Rascas {OREF}. No hay efecto alguno." DONE RASCAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF}_ por aquí." DONE ;----------------------------------------------- QUEMAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "La barbarie no solucionará tus problemas." DONE QUEMAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE QUEMAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a quemar eso." DONE QUEMAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Quemar {OREF} no es la solución." DONE QUEMAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- APAGAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es la solución." DONE CORTAR _ NOTEQ 51 255 ONOTZERO @51 aStatic PRESENT @51 WRITELN "No crees que cortar eso sea de mucha utilidad." DONE CORTAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE CORTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a cortar eso." DONE CORTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No ves sentido a cortar {OREF}." DONE CORTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- ATAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Crees que no se va a dejar." DONE ATAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ATAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a atar eso." DONE ATAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres atar {OREF}." DONE ATAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- DESATAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "¿Desatarle?." DONE DESATAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE DESATAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a desatar eso." DONE DESATAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "¿Desatar {OREF}?, ¿para qué?" DONE DESATAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- LLENAR _ ; 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 aContainer ; es un contenedor WRITELN "No quieres llenar {OREF}." DONE LLENAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 OZERO @51 aContainer ; no es un contenedor WRITELN "No puedes llenar {OREF}." DONE LLENAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------ NADAR _ WRITELN "Mejor no." DONE ;------------------------------------------------------- TREPAR _ WRITELN "No te apetece trepar." DONE ;----------------------------------------------- RETORCER _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es la solución." DONE RETORCER _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE RETORCER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a retorcer eso." DONE RETORCER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres retorcer {OREF}." DONE RETORCER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- APRETAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es la solución." DONE APRETAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE APRETAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a apretar eso." DONE APRETAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres apretar {OREF}." DONE APRETAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- BESAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No se deja." DONE BESAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE BESAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres besar eso." DONE BESAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres besar {OREF}." DONE BESAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- ABRAZAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Ni se deja, ni crees que sea muy apropiado." DONE ABRAZAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ABRAZAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres abrazar eso." DONE ABRAZAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres abrazar {OREF}." DONE ABRAZAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- CONECTAR _ ; 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 aSwitchable OZERO @51 aOn OSET @51 aOn WRITELN "Activas {OREF}." DONE CONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aSwitchable ONOTZERO @51 aOn WRITELN "Ya lo está." DONE CONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No ves la manera de activar {OREF}." DONE CONECTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- DESCONECTAR _ ; No hay nombre en la frase EQ 34 255 BNOTZERO 12 1 WRITELN "No puedes desconectar eso que dices." DONE DESCONECTAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor especifica qué quieres desconectar." DONE DESCONECTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a desconectar eso." DONE DESCONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aSwitchable ONOTZERO @51 aOn OCLEAR @51 aOn WRITELN "Desactivas {OREF}." DONE DESCONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aSwitchable OZERO @51 aOn WRITELN "Ya lo está." DONE DESCONECTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No puedes desconectar {OREF}." DONE DESCONECTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- ABRIR _ ; 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 aOpenable ; Abrible OZERO @51 aOpen ; Cerrado OZERO @51 aLocked ; No cerrado con llave OSET @51 aOpen WRITELN "Abres {OREF}." DONE ABRIR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aOpenable ; Abrible OZERO @51 aOpen ; Cerrado ONOTZERO @51 aLocked ; Cerrado con llave WRITELN "Está cerrado con llave." DONE ABRIR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aOpenable ; Abrible ONOTZERO @51 aOpen ; Abierto WRITELN "Ya lo está." DONE ABRIR _ NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aOpenable ; Abrible ONOTZERO @51 aOpen ; Abierto WRITELN "Ya lo está." DONE ABRIR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No puedes abrir {OREF}." DONE ABRIR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- CERRAR _ ; 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 aOpenable ONOTZERO @51 aOpen OCLEAR @51 aOpen WRITELN "Cierras {OREF}." DONE CERRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 ONOTZERO @51 aOpenable OZERO @51 aOpen WRITELN "Ya lo está." DONE CERRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No puedes cerrar {OREF}." DONE CERRAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;---------------------------------------------- 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Eso sería muy poco apropiado." DONE CHUPAR _ NOTEQ 51 255 ONOTZERO @51 aEdible PRESENT @51 WRITELN "Piensas en comerte {OREF} pero te contienes." DONE CHUPAR _ NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE CHUPAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No te imaginas chupando eso." DONE CHUPAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres chupar {OREF}." DONE CHUPAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- ROMPER _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "La violencia no es buena." DONE ROMPER _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ROMPER _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "La violencia no es la solución." DONE ROMPER _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Romper {OREF} no solucionará nada." DONE ROMPER _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí; en cualquier caso, romper eso no es la solución." DONE ;----------------------------------------------- COMPRAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Todo el mundo tiene un precio... pero no está en venta." DONE COMPRAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE COMPRAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No hay nada en venta." DONE COMPRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No hay nada en venta." DONE COMPRAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------------ DOBLAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Piensas que ya está bien como está..." DONE DOBLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE DOBLAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "Prefieres no doblar eso." DONE DOBLAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Doblar {OREF} no solucionará nada." DONE DOBLAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------------ DESDOBLAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Piensas que ya está bien como está..." DONE DESDOBLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE DESDOBLAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "¿Para qué quieres desdoblar eso?" DONE DESDOBLAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "¿Desdoblar {OREF}?, ¿para qué?" DONE DESDOBLAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------------ SALIDAS _ EXITS @38 1000 NEWLINE DONE ;------------------------------------------------------------ AYUDA _ HELP DONE ;------------------------------------------------------------ VERSION _ VERSION NEWLINE DONE ;------------------------------------------------------------ DAR _ ; Cuando el pronombre lleva un NPC y hay Noun2, los intercambiamos SAME 46 34 ; cierto si el Noun1 que tenemos proviene del pronombre WHATOX 13 ; metemos el objeto referenciado en el flag 15 ONOTZERO @13 aNPC ; ¿es un NPC? NOTEQ 44 255 ; Hay Noun2 COPYFF 34 14 ; Les damos la vuelta al Noun1 y al Noun2 COPYFF 44 34 COPYFF 14 44 COPYFF 35 14 ; Les damos la vuelta al adjetivo de Noun1 y al adjetivo de Noun2 COPYFF 45 35 COPYFF 14 45 ; forzamos al parser a que actualice los flags del objeto referenciado WHATO DAR _ ; No hay Noun1 entendible en la frase, y el Noun2 pasa a ocupar su lugar en la frase... PREP A ; Tiene que dar este mensaje porque lo que queríamos que fuera el Noun1 no es nada del vocabulario BZERO 12 2 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes dar eso." DONE DAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor especifica qué quieres dar." DONE DAR _ ; 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 aWear WRITELN "Primero deberías quitarte {OREF} para poder hacer eso..." DONE DAR _ ; DAR un objeto pero que no lo llevamos NOTEQ 51 255 NOTCARR @51 WRITELN "No llevas {OREF}." DONE DAR _ ; DAR un objeto del inventario y no especificar a quién NOTEQ 51 255 CARRIED @51 EQ 44 255 BZERO 12 1 WRITELN "¿A quién quieres dar eso?" DONE DAR _ ; DAR un objeto del inventario y no especificar a quién (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 aNPC ; pero no es un NPC WRITELN "Estás perdiendo la cabeza..." DONE DAR _ ; DAR un objeto del inventario a un NPC pero que no está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto ONOTZERO @13 aNPC ; y es un NPC ABSENT @13 ; pero no está presente WRITELN "No le puedes dar {OREF} porque no está aquí." DONE DAR _ ; DAR un objeto presente a un NPC que está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto ONOTZERO @13 aNPC ; y es un NPC PRESENT @13 ; y está presente WRITELN "Le ofreces {OREF} pero no le hace ni caso." DONE ;------------------------------------------------------------ MOSTRAR _ ; Cuando el pronombre lleva un NPC y hay Noun2, los intercambiamos SAME 46 34 ; cierto si el Noun1 que tenemos proviene del pronombre WHATOX 13 ; metemos el objeto referenciado en el flag 15 ONOTZERO @13 aNPC ; ¿es un NPC? NOTEQ 44 255 ; Hay Noun2 COPYFF 34 14 ; Les damos la vuelta al Noun1 y al Noun2 COPYFF 44 34 COPYFF 14 44 COPYFF 35 14 ; Les damos la vuelta al adjetivo de Noun1 y al adjetivo de Noun2 COPYFF 45 35 COPYFF 14 45 ; forzamos al parser a que actualice los flags del objeto referenciado WHATO MOSTRAR _ ; No hay Noun1 entendible en la frase, y el Noun2 pasa a ocupar su lugar en la frase... PREP A ; Tiene que dar este mensaje porque lo que queríamos que fuera el Noun1 no es nada del vocabulario BZERO 12 2 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes mostrar eso." DONE MOSTRAR _ ; No hay nombre en la frase EQ 34 255 BZERO 12 1 WRITELN "Por favor especifica qué quieres mostrar." DONE MOSTRAR _ ; 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 aWear WRITELN "Primero deberías quitarte {OREF} para poder hacer eso..." DONE MOSTRAR _ ; MOSTRAR un objeto pero que no lo llevamos NOTEQ 51 255 NOTCARR @51 WRITELN "No llevas {OREF}." DONE MOSTRAR _ ; MOSTRAR un objeto del inventario y no especificar a quién NOTEQ 51 255 CARRIED @51 EQ 44 255 BZERO 12 1 WRITELN "¿A quién quieres mostrar eso?" DONE MOSTRAR _ ; MOSTRAR un objeto del inventario y no especificar a quién (encuentra una palabra que no está en el vocabulario) NOTEQ 51 255 CARRIED @51 EQ 44 255 BNOTZERO 12 1 WRITELN "No puedes mostrarle {OREF} a eso." DONE MOSTRAR _ ; MOSTRAR un objeto del inventario a un noun2 que no es un objeto. NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 EQ 13 255 ; El segundo nombre no es un objeto WRITELN "No puedes mostrarle {OREF} a eso." DONE MOSTRAR _ ; MOSTRAR un objeto del inventario a un objeto presente pero que no es un NPC NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto OZERO @13 aNPC ; pero no es un NPC WRITELN "Estás perdiendo la cabeza..." DONE MOSTRAR _ ; MOSTRAR un objeto del inventario a un NPC pero que no está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto ONOTZERO @13 aNPC ; y es un NPC ABSENT @13 ; pero no está presente WRITELN "No le puedes mostrar {OREF} porque no está aquí." DONE MOSTRAR _ ; MOSTAR un objeto presente a un NPC que está presente NOTEQ 51 255 CARRIED @51 NOTEQ 44 255 WHATOX2 13 ; Pasamos el noun2 al flag 15 NOTEQ 13 255 ; El noun2 es un objeto ONOTZERO @13 aNPC ; y es un NPC PRESENT @13 ; y está presente WRITELN "Le muestras {OREF} pero no le hace ni caso." DONE ;------------------------------------------------------------ SOPLAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE SOPLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE SOPLAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a soplar eso." DONE SOPLAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres soplar {OREF}." DONE SOPLAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves eso que dices." DONE ;------------------------------------------------------------ GRITAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "Mejor no, puede enfadarse." DONE GRITAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "Gritas con fuerza pero no te oye." DONE GRITAR _ WRITELN "Gritas lo más fuerte que puedes y... no sucede nada." DONE ;------------------------------------------------------------ DESPERTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que haga falta." DONE DESPERTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE DESPERTAR _ WRITELN "Pellizcas tu mejilla creyendo que despertarás pero... no estás soñando...¿o sí?" DONE ;----------------------------------------------- LEVANTAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE LEVANTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE LEVANTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a levantar eso." DONE LEVANTAR _ ; Es un objeto presente pero pesa demasiado (IMPORTANTE) NOTEQ 51 255 PRESENT @51 GT 55 52 WRITELN "No puedes levantar {OREF}. Pesa demasiado." DONE LEVANTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No conseguirás nada levantando eso." DONE LEVANTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para levantar {OREF} tendría que estar aquí." DONE ;----------------------------------------------- ARRASTRAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE ARRASTRAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE ARRASTRAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a arrastrar eso." DONE ARRASTRAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada arrastrando {OREF}." DONE ARRASTRAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para arrastrar {OREF} tendría que estar aquí." DONE ;------------------------------------------------------------ VACIAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No es lo más apropiado." DONE VACIAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE VACIAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a vaciar eso." DONE VACIAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres vaciar {OREF}." DONE VACIAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------------ LLAMAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No hay respuesta..." DONE LLAMAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE LLAMAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a llamar a eso." DONE LLAMAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres llamar a {OREF}." DONE LLAMAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;------------------------------------------------------------ PREGUNTAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No hay respuesta alguna..." DONE PREGUNTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE PREGUNTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a preguntar a eso." DONE PREGUNTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres preguntar a {OREF}." DONE PREGUNTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves {OREF} por aquí." DONE ;----------------------------------------------- CONSULTAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No parece hacerte ni caso..." DONE INSULTAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE INSULTAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No conseguirás nada insultando a eso." DONE INSULTAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Estás perdiendo la cabeza..." DONE INSULTAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Ni ves eso que dices, ni crees que sea útil insultarle." DONE ;------------------------------------------------------------ UNIR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE UNIR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE UNIR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a unir eso." DONE UNIR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada uniendo {OREF}." DONE UNIR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para unir {OREF} tendría que estar aquí." DONE ;----------------------------------------------- SEPARAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No crees que le guste demasiado." DONE SEPARAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE SEPARAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No ves mucho sentido a separar eso." DONE SEPARAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No parece que se consiga nada separando {OREF}." DONE SEPARAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Para separar {OREF} tendría que estar aquí." DONE ;----------------------------------------------- HABLAR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "No parece interesarse por tu charla." DONE HABLAR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No está aquí." DONE HABLAR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No quieres hablarle a eso." DONE HABLAR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "Estás perdiendo la cabeza..." DONE HABLAR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "Ni ves eso que dices, ni crees que sea útil hablarle." DONE ;------------------------------------------------------------ IR _ ; 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 aNPC ; Es un NPC PRESENT @51 WRITELN "Prefieres no acercarte más..." DONE IR _ NOTEQ 34 255 NOTEQ 51 255 ONOTZERO @51 aNPC ; Es un NPC ABSENT @51 WRITELN "No sabes dónde está." DONE IR _ ; Hay nombre pero no es un objeto NOTEQ 34 255 EQ 51 255 WRITELN "No le ves sentido a ir hacia eso." DONE IR _ ; Es un objeto presente NOTEQ 51 255 PRESENT @51 WRITELN "No quieres ir a {OREF}." DONE IR _ ; Es un objeto ausente NOTEQ 51 255 ABSENT @51 WRITELN "No ves eso que dices." DONE ;########## RUTINA DE 'NO PUEDES IR EN ESA DIRECCION' EXTENDIDA #################### _ _ 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 ; ################################### PROCESO 1 #################################### ; # # ; # El proceso 1 es ejecutado por ngPAWS tras la descripción de localidad. # ; # # ; # Se usa principalmente para poner entradas que añadirán información # ; # extra a la descripción de la localidad actual. Por ejemplo, detalles sobre # ; # puertas abiertas, PSI presentes, etc # ; # # ; ################################################################################## _ _ HOOK "PRO1" ; Back call a el sistema de hooks, por defecto no hace nada pero algunas librerías plugin podrían hacer que hiciera algo. No borrar. _ _ AT 0 BSET 12 5 ; Spanish bset 12 0 ;No borramos pantalla por defecto ;... al cambiar de localidad mode 1 ; NÚMERO DE OBJETOS CREADOS ;let fNUMERO_OBJETOS 20 LO COMENTO DESPUÉS DE CREAR EL BUCLE DEL PROCESO 6 ;inicializamos variables let fPeceraLlena 0 let fMuroRoto 0 let fAranaAsustada 0 let fEspinacasEnCofre 1 let fEspinacasComidas 0 let fPajaroComiendo 0 let fWilma 0 let fHerbert 0 let fTontWilma 1 let noun3 255 ;atributos para algunas localidades lset 1 aLocAgua ;La localidad tiene agua lset 13 aLocAgua lset 22 aLocAgua lset 16 aLocAgua ;Process 6 contar el total de objetos process 6 ;picture intro.png ;anykey goto 1 ;cls desc _ _ let fGraficoAct @38 ;guardamos el gráfico de la localidad actual. _ _ at 1 bzero fTonterias tonteria16 ; writeln "{CLASS|mycss|Vacaciones, vacaciones estupendas vacaciones.... la opción de venir a una isla paradisíaca en una barca a pedales me lo recordará Wilma para toda la vida.}" pnjdice pWally "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 bset fTonterias tonteria16 ;Para la música bzero fMusica Mfondo beep fondo.mp3 MCanalFondo 0 bset fMusica Mfondo _ _ at 3 onotzero# oLeon aEnfadado { picture tres.png let fGraficoAct 3 PLUS fGraficoAct GRAFICOS } ozero# oLeon aEnfadado { onotzero# oOlla aOn ;la olla sigue encendida { picture tres_1.png let fGraficoAct 303 PLUS fGraficoAct GRAFICOS } ozero# oOlla aOn ;la olla ya se apago { eq# fHerbert 1 ;Herber es libre { picture tres_3.png let fGraficoAct 403 PLUS fGraficoAct GRAFICOS } noteq# fHerbert 1 ;Hebert sigue en la olla { picture tres_2.png let fGraficoAct 503 PLUS fGraficoAct GRAFICOS } } } _ _ at 4 present oBolso 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 fTonterias tonteria11 pnjdice pWally "¿Es una antena eso que hay sobre la choza?" 0 bset fTonterias tonteria11 _ _ at 6 ozero# oDiosa aTormenta { picture seis.png let fGraficoAct 6 PLUS fGraficoAct GRAFICOS } onotzero# oDiosa aTormenta { writeln "{ink|orange|Por esta zona de la jungla una gran tormenta, con sus rayos incluidos, lo inunda todo.}" picture seis_2.png let fGraficoAct 306 PLUS fGraficoAct GRAFICOS } _ _ at 7 onotzero oDiosa aTormenta 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# pIndio { picture ocho.png let fGraficoAct 8 PLUS fGraficoAct GRAFICOS } absent# pIndio { eq# fWilma 1 { picture ocho_2.png let fGraficoAct 308 PLUS fGraficoAct GRAFICOS } noteq# fWilma 1 { picture ocho_1.png let fGraficoAct 408 PLUS fGraficoAct GRAFICOS } } _ _ at 13 eq fHerbert 1 eq fWilma 1 cls picture final.png writeln "Pedalada a pedalada sales huyendo de este paraiso." newline pnjdice pWally "Wilma, ¿me ayudas a pedalear?" 0 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# fMuroRoto 0 { picture quince.png let fGraficoAct 15 PLUS fGraficoAct GRAFICOS } eq# fMuroRoto 1 { picture quince_2.png let fGraficoAct 315 PLUS fGraficoAct GRAFICOS } _ _ at 17 absent oPecera pnjdice pWally "¡Qué asco, qué asco! la araña me mira ocho veces de forma amenazante." 0 let fAranaAsustada 0 _ _ at 17 present oPecera zero fPeceraLlena pnjdice pWally "¡Qué asco, qué asco! la araña me mira ocho veces de forma amenazante." 0 let fAranaAsustada 0 _ _ at 17 present oPecera notzero fPeceraLlena writeln "La araña al ver la pecera huye a esconderse en un rincón de la habitación." let fAranaAsustada 1 _ _ LET noun3 255 ISLIGHT LISTOBJ ;Lista los objetos LISTNPC @38 ;Lista las personas ;Los gift de herbert y wilma noteq# fWilma 1 pictureat 1525 100 wilmaesq.gif eq# fWilma 1 pictureat 1525 100 wilma.png noteq# fHerbert 1 pictureat 1525 250 herbertesq.gif eq# fHerbert 1 pictureat 1525 250 herbert.png /PRO 2 ; ################################### PROCESO 2 #################################### ; # # ; # El proceso 2 es ejecutado por ngPAWS cada turno. # ; # # ; # Se usa principalmente para implementar movimientos y acciones de PSIs, # ; # eventos no controlados por el jugador como por ejemplo puentes que se hunden, # ; # puertas que se abren, etc # ; # # ; ################################################################################## _ _ HOOK "PRO2" ; Back call a el sistema de hooks, por defecto no hace nada pero algunas librerías plugin podrían hacer que hiciera algo. No borrar. LET noun3 255 ;limpiamos nombre 3 /PRO 3 ; ** PROCESO PARA LOS PECES 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# fPeceraLlena writeln "Uno de ellos ya no nada tan alegre desde que lo metiste en la pecera." done ex _ notzero fPeceraLlena present oPecera writeln "El pobre pez come-arañas, desde la pecera, te hace ojitos." done coger _ at 1 notzero fPeceraLlena writeln "Ya has metido un pez come-arañas dentro de la pecera, no te hace falta ninguno más." pnjdice pWally "Bueno vale." 0 done coger _ at 1 present oPecera notcarr# oPecera { writeln "Con las manos no puedes, mejor usar la pecera." get oPecera } writeln "Metes uno de los peces come-arañas dentro de la pecera." let fPeceraLlena 1 done coger _ at 1 writeln "Con las manos no puedes, te haría falta algo donde meter uno de ellos." done soltar _ present oPecera notzero fPeceraLlena lnotzero @38 aLocAgua pnjdice pWally "Eres libre pececillo...." 0 let fPeceraLlena 0 done soltar _ present oPecera zero fPeceraLlena writeln "No tienes ningún pececito." done soltar _ present oPecera notzero fPeceraLlena writeln "Aquí no... por lo menos en algún lugar donde haya agua." pnjdice pWally "Upss lo siento, no me di cuenta." 0 done soltar _ at 1 writeln "Ya nadan libres por el riachuelo." done _ _ present oPecera notzero fPeceraLlena writeln "Un pobre pez come-arañas te hace ojitos desde la pecera." done _ _ at 1 pnjdice pWally "¡Qué graciosillos los pececillos!" 0 done /PRO 4 _ _ ; edlobez trapicheos de prueba carried oPecera notzero fPeceraLlena writeln "Llevas: " listat 254 objat 253 fAux ; las prendas que llevamos noteq# fAux 0 { writeln "Llevas puesto: " } listat 253 writeln "La pecera tiene un pececillo dentro." pnjdice pWally "Hola pececillo." 0 done ; Si tienes el cangrejo, será lo único que tendrás en el inventario. ; Como mucho tendrás una prenda de vestir puesta _ _ carried oCangrejo writeln "Sólo llevas un cangrejo. Con cada mano le agarras una de sus pinzas para que no te ataque." objat 253 fAux ; las prendas que llevamos noteq# fAux 0 { writeln "Llevas puesto: " } listat 253 done _ _ inven /PRO 5 ; Proceso para manejar la botella ex _ writeln "{textpic|botella.png|0}" ex _ ozero oBotella aBotellaConLiquido writeln "Una botella de cristal. Está vacía." done ex _ write "Una botella de cristal. " onotzero# oBotella aBotellaConAceite writeln "Está llena de agua de coco." onotzero# oBotella aBotellaConAgua writeln "Está llena de agua." done beber _ pnjdice pWally "Podría beber agua de la botella, pero ahora no tengo sed." 0 done llenar _ ;Primero miramos si la botella está lleta onotzero oBotella aBotellaConAceite writeln "La botella ya está llena de agua de coco." pnjdice pWally "Pensaba que cabía un poco más." 0 done llenar _ onotzero oBotella aBotellaConAgua writeln "La botella ya está llena de agua." pnjdice pWally "Pensaba que cabía un poco más." 0 done ; esta entrada vendría del proceso 7, objeto coco "vaciar coco en la botella" llenar _ at 4 eq 51 oCoco onotzero oCoco aCocoAbierto ;el coco está abierto writeln "Llenas la botella con agua de coco." oset oBotella aBotellaConAceite oset oBotella aBotellaConLiquido done llenar _ at 4 ; estamos en la estancia del coco onotzero oCoco aCocoAbierto ;el coco está abierto eq 44 65 ; el segundo nombre es aceite writeln "Llenas la botella con agua de coco." oset oBotella aBotellaConAceite oset oBotella aBotellaConLiquido done llenar _ at 4 ; estamos en la estancia del coco onotzero oCoco aCocoAbierto ;el coco está abierto eq 44 53 ; el segundo nombre es agua agua writeln "Llenas la botella con agua de coco." oset oBotella aBotellaConAceite oset oBotella aBotellaConLiquido 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 aLocAgua ;y estamos en un loclidad con agua writeln "Llenas la botella de agua." oset oBotella aBotellaConAgua oset oBotella aBotellaConLiquido done llenar _ writeln "No sé de qué quieres llenar la botella." done vaciar _ ozero oBotella aBotellaConLiquido writeln "La botella está vacía." done vaciar _ at 18 eq 44 &&_voc_COCHE let 44 &&_voc_RUEDA ;synonym vaciar botella ; Podemos vaciar la botella en la estancia del coche vaciar _ at 18 eq 44 &&_voc_RUEDA onotzero# oBotella aBotellaConAceite { writeln "Viertes el agua de coco de la botella sobre la rueda de piedra." bset fRueda ruedaAceite bclear fRueda ruedaAgua oclear oBotella aBotellaConAceite oclear oBotella aBotellaConLiquido } onotzero# oBotella aBotellaConAgua { writeln "*Viertes todo el agua de la botella sobre la rueda de piedra." bset fRueda ruedaAgua bclear fRueda ruedaAceite oclear oBotella aBotellaConAgua oclear oBotella aBotellaConLiquido } done ; Podemos vaciar la botella en la chimenea vaciar _ present oChimenea noteq 44 255 ;hay segundo nombre whatox2 fAux eq fAux oChimenea ;es la chimenea onotzero# oBotella aBotellaConAceite { writeln "Viertes el agua de coco de la botella en la chimenea." onotzero# oChimenea aOn { writeln "El fuego de la chimenea chisporrotea... el agua de coco no es capaz de apagarlo." } oclear oBotella aBotellaConAceite oclear oBotella aBotellaConLiquido done } onotzero# oBotella aBotellaConAgua { writeln "Vacías todo el agua de la botella en la chimenea." onotzero# oChimenea aOn { writeln "Apagas el fuego de la chimenea dejando en ella un resto de cenizas." oclear oChimenea aOn place oCenizas 11 } oclear oBotella aBotellaConAgua oclear oBotella aBotellaConLiquido done } ; Podemos vaciar la botella en el fuego de la estancia 3, donde está la olla vaciar _ at 3 present oOlla noteq 44 255 eq 44 &&_voc_FUEGO ; no hacemos whatox2, ya que la chimenea = fuego no es objeto presente onotzero# oBotella aBotellaConAceite { 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 oBotella aBotellaConAceite oclear oBotella aBotellaConLiquido done } onotzero# oBotella aBotellaConAgua { 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 oBotella aBotellaConAgua oclear oBotella aBotellaConLiquido done } vaciar _ onotzero# oBotella aBotellaConAceite { writeln "Vacías todo el agua de coco de la botella." oclear oBotella aBotellaConAceite oclear oBotella aBotellaConLiquido } onotzero# oBotella aBotellaConAgua { writeln "Vacías todo el agua de la botella." oclear oBotella aBotellaConAgua oclear oBotella aBotellaConLiquido } done cerrar _ synonym abrir _ abrir _ writeln "No tiene tapón." done _ _ nosinonimo @33 "coge deja dar" pnjdice pWally "Bueno, podría hacer eso con la botella, pero creo que no es necesario." 0 done /PRO 6 ; Proceso contador de objetos de la aventura ; No cuenta los aNPC _ _ ;##define flg fIterador 106 ;##define flg fNumObjetos 107 let fIterador 255 clear fNumObjetos ;numero total de objetos clear fAux ; auxiliar para almacenar objetos de cada room notzero: fIterador { clear fAux objat @fIterador fAux ;notzero# fAux ;{ ;write " - Encontrado " print fAux ;write " objetos en room " print fIterador ;} plus fNumObjetos @fAux minus fIterador 1 } ;writeln "Numero de objetos: " plus fNumObjetos 4 ;sumo 4 de los 4 aNpc ;print fNumObjetos ;newline /PRO 7 ; Proceso 7 todos los objetos de nuestra aventura ; **************************************************************************************** ; LA PECERA ; **************************************************************************************** ex pecera present oPecera notzero fPeceraLlena writeln "{textpic|pecera.png|0}" writeln "Dentro de la pecera nada un pobre pez que te hace ojitos." newline done ex pecera present oPecera writeln "{textpic|pecera.png|0}" writeln "Una pecera... para meter peces." newline done llenar pecera synonym meter pecera ; meter en la pecera los peces meter pecera at 1 ;los peces están en la pecera present oPecera noteq 44 255 whatox2 fAux eq fAux oPeces notzero fPeceraLlena writeln "Ya has metido uno dentro de la pecera, no te hace falta ninguno más." pnjdice pWally "Bueno vale." 0 done meter pecera at 1 present oPecera noteq 44 255 whatox2 fAux eq fAux oPeces writeln "Metes uno de los peces dentro de la pecera." let fPeceraLlena 1 done ;Meter algo en la pecera.. meter _ present oPecera noteq 44 255 ;Hay segundo nombre whatox2 fAux ;Guardamos el segundo nombre eq fAux oPecera writeln "La pecera es para meter peces." done meter _ present oPecera noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 oPecera ; El primer nombre es la pecera writeln "La pecera es para meter peces." done ; llenar de algo la pecera ; llenar la pecera de algo llenar _ present oPecera noteq 44 255 ;Hay segundo nombre whatox2 fAux ;Guardamos el segundo nombre eq fAux oPecera writeln "La pecera es para meter peces." done llenar _ present oPecera noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 oPecera ; El primer nombre es la pecera writeln "La pecera es para meter peces." done ; beber de la pecera beber agua present oPecera noteq 44 255 whatox2 fAux eq fAux oPecera synonym beber pecera beber pecera present oPecera notzero fPeceraLlena pnjdice pWally "Es agua donde nada un pez, no me apetece." 0 done beber pecera present oPecera 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 oPecera notzero fPeceraLlena lnotzero @38 aLocAgua pnjdice pWally "Eres libre pececillo...." 0 let fPeceraLlena 0 done vaciar pecera present oPecera notzero fPeceraLlena writeln "Pobre pez, fuera del río moriría." done vaciar pecera present oPecera zero fPeceraLlena writeln "La pecera no tiene ningún pez dentro." done _ pecera present oPecera nosinonimo @33 "coge deja da" pnjdice pWally "Lo intentaría, pero la verdad no le veo mucho sentido hacer eso con la pecera." 0 done ; ***************************************************************************************** ; El bolso ; ***************************************************************************************** ex bolso present oBolso writeln "{textpic|bolso.png|0}" writeln "Es el bolso de Wylma." pnjdice pWally "Un bolso de piel de cocodrilo muy, muy feo." 0 newline done abrir bolso present oBolso writeln "No está bien cotillear en las cosas de tu mujer." pnjdice pWally "¿Cotilla yo? noooo." 0 done cerrar bolso present oBolso writeln "Está cerrado." done oler bolso present oBolso pnjdice pWally "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 done ; Meter algo en el bolso meter _ present oBolso noteq 44 255 whatox2 fAux eq fAux oBolso 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 en el bolso algo meter _ present oBolso noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 oBolso ; El primer nombre es el bolso 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 ; coger y soltar el bolso para controla si en la estancia 5 lo soltamos soltar bolso carried oBolso notat 4 let fCocodriloTriste 0 soltar bolso carried oBolso at 4 let fCocodriloTriste 1 coger bolso present oBolso let fCocodriloTriste 1 _ bolso present oBolso 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 ; ***************************************************************************************** ; El sacacorchos ; ***************************************************************************************** ex sacacorcho present oSacacorcho writeln "{textpic|sacacorcho.png|0}" writeln "Para sacar corchos o bien para hacer agujeros en frutos de piel muy dura." newline done ; ***************************************************************************************** ; Las chancletas ; ***************************************************************************************** ex chancletas present oChancletas writeln "{textpic|chanclas.png|0}" writeln "Unas cómodas chancletas para ir a la playa." pnjdice pWally "Ideales." 0 worn# oChancletas writeln "Las chancletas las llevas puestas en tus hermosos pies." newline done ; ***************************************************************************************** ; El cangrejo de la localidad 21 ; Aquí está el cangrejo vivo ; ***************************************************************************************** ; si aparece en la frase cangrejo - pinza, el orden debe ser pinza - cangrejo _ _ present oCangrejo noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 oCangrejo ; El primer nombre es el cangrejo whatox2 fAux ;obtengo el objeto referenciado por el segundo nombre eq fAux oPinza ;es la pinza COPYFF 34 fAux ; Le doy la vuelta a los flags 34 y 44 (nombre1 y nombre2) COPYFF 44 34 COPYFF fAux 44 COPYFF 35 fAux ; Le doy la vuelta a los flags 35 y 45 (adjetivo1 y adjetivo2) COPYFF 45 35 COPYFF fAux 45 WHATO ; Hago que los flags 51 y 54-58 se actualicen para el nuevo NOUN1 let 51 oPinza _ _ present oCangrejoCocido noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 oCangrejoCocido ; El primer nombre es el cangrejo whatox2 fAux ;obtengo el objeto referenciado por el segundo nombre eq fAux oPinza ;es la pinza COPYFF 34 fAux ; Le doy la vuelta a los flags 34 y 44 (nombre1 y nombre2) COPYFF 44 34 COPYFF fAux 44 COPYFF 35 fAux ; Le doy la vuelta a los flags 35 y 45 (adjetivo1 y adjetivo2) COPYFF 45 35 COPYFF fAux 45 WHATO ; Hago que los flags 51 y 54-58 se actualicen para el nuevo NOUN1 let 51 oPinza ex cangrejo carried oCangrejo 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 oCangrejo writeln "{textpic|cangrejo.png|0}" writeln "Un suculento cangrejo de hermosas pinzas." pnjdice pWally "Buff, que mariscada me haría con él." 0 newline done _ cangrejo at 21 present oCangrejo notworn oChancletas pnjdice pWally "¡AUUUUU! La arena de esta zona de la playa quema demasiado, no puedo acercarme a él." 0 done coger cangrejo ;at 21 present oCangrejo notcarr oCangrejo objat 254 fAux noteq fAux 0 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 pWally "Que buenas pinzas tiene." 0 done coger cangrejo present oCangrejo notcarr oCangrejo objat 254 fAux eq fAux 0 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 oCangrejo 254 beep coger.mp3 MCanalFx 1 done ; meter/lanzar/tirar/dejar cangrejo en agua ; meter/lanzar/tirar/dejar cangrejo en agujero ; cocinar cangrejo meter cangrejo synonym dejar cangrejo lanzar cangrejo synonym dejar cangrejo tirar cangrejo synonym dejar cangrejo ;cocinar cangrejo = cocer cangrejo = hervir cangrejo ; synonym dejar cangrejo ; dejar cangrejo en agua hirviendo dejar cangrejo carried oCangrejo 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 oCangrejo at 19 process 15 ;writeln "Metes sin piedad al cangrejo en el agua hirviendo." process 19 ;Repintamos done cocer cangrejo carried oCangrejo notat 19 writeln "Te hace falta agua muuuuy caliente." done dejar cangrejo carried oCangrejo writeln "El cangrejo se marcha rápido y fugaz." pnjdice pWally "uppsss, se me escapó el cangrejo." 0 place oCangrejo 21 done comer cangrejo present oCangrejo pnjdice pWally "¿Así vivito?... creo que él me comería a mi." 0 done matar cangrejo present oCangrejo writeln "Lo triturarías y sería un desperdicio." done ; ***************************************************************************************** ; El coco que está junto al cocodrilo ; No hace falta comprobar si está o no el coco, ya que de la estancia 4 no se moverá ; ***************************************************************************************** coger coco at 4 present oBolso pnjdice pWally "El coco es muy grande, pesa demasiado." 0 done ex coco at 4 present oBolso 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# oCoco aCocoAbierto 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 oBolso onotzero oCoco aCocoAbierto writeln "El coco ya tiene un pequeño orificio hecho." done abrir coco at 4 present oBolso carried oSacacorcho pnjdice pWally "Ohhhh, con el sacacorchos puedo abrir un pequeño agujero en la corteza del coco." 0 oset oCoco aCocoAbierto done abrir coco at 4 present oBolso noteq 44 255 ;hay un segundo nombre whatox2 fAux noteq fAux oSacacorcho writeln "Con eso no puedo abrir bien el coco." done abrir coco at 4 present oBolso pnjdice pWally "El coco tiene una corteza muy dura... no puedo con las manos, me haría falta algo para perforar la corteza." 0 done ex aceite at 4 onotzero oCoco aCocoAbierto synonym ex agua ex agua at 4 present oBolso onotzero oCoco aCocoAbierto writeln "El agua de este tipo de cocos es muy aceitosa, perfecta para lubricar cosas." done coger agua at 4 present oBolso onotzero oCoco aCocoAbierto writeln "Deberás vaciar el coco en algún recipiente." done beber coco at 4 synonym beber agua beber agua at 4 present oBolso onotzero oCoco aCocoAbierto pnjdice pWally "Plush plush... no está muy buena." 0 done vaciar agua at 4 present oBolso onotzero oCoco aCocoAbierto writeln "Supongo que lo que quieres hacer es 'vaciar el coco'." pnjdice pWally "Sí, sería buena idea." 0 done vaciar coco at 4 present oBolso onotzero oCoco aCocoAbierto eq 44 255 writeln "¿Dónde, en el suelo?, es una pena desperdiciar este magnífico lubricante." pnjdice pWally "Además me ha costado mucho abrir el coco." 0 done ; vaciar el coco en la botella vaciar coco at 4 present oBolso onotzero oCoco aCocoAbierto noteq 44 255 whatox2 fAux eq fAux oBotella present oBotella let 33 55 ;El verbo llenar process 5 isdone done _ coco at 4 present oBolso pnjdice pWally "Podría hacer eso con el coco, pero creo que no es necesario." 0 done _ coco at 4 pnjdice pWally "El coco está demasiado cerca del cocodrilo, no puedo acercarme." 0 done ; ***************************************************************************************** ; La botella ; ***************************************************************************************** _ botella present oBotella process 5 isdone done ; ***************************************************************************************** ; La cabaña ; ***************************************************************************************** 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 oCabana writeln "Una cabaña montada en esta zona de la jungla, está medio abandonada." onotzero# oCabana aLocked writeln "La puerta de la CABAÑA está cerrada." ozero# oCabana aLocked writeln "La puerta de la CABAÑA está abierta." done abrir CABAÑA present oCabana ozero oCabana aLocked pnjdice pWally "A ver... uy, si ya está abierta. ¡Qué memoria la mía!" 0 done cerrar CABAÑA present oCabana onotzero oCabana aLocked writeln "Ya está más que cerrada." done cerrar CABAÑA present oCabana ozero oCabana aLocked pnjdice pWally "Mejor la dejo abierta... por si acaso." 0 done abrir CABAÑA at 5 noteq 44 255 ;hay segundo nombre whatox2 fAux noteq fAux oLlave writeln "No... esa no es la llave correcta para esta cabaña." bzero# fTonterias tonteria2 { pnjdice pWally "Dicen que con paciencia y saliva..." 0 writeln "¡Wally! por favor, que no es esa la llave para abrir la cabaña." bset fTonterias tonteria2 } done abrir CABAÑA present oCabana carried oLlave writeln "La cerradura parece un poco oxidada, pero con un poco de mañana consigues abrir la puerta." oclear oCabana aLocked done abrir CABAÑA present oCabana writeln "Golpeas la puerta de la cabaña para intentar abrirla, pero sin una llave, imposible." done romper puerta present oCabana 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 oCabana writeln "Toc, toc, toc... nadie contesta." done ;****************************************************************************************** ; La llave de la cabña ; ***************************************************************************************** ex llave present oLlave writeln "{textpic|llave.png|0}" writeln "Parece la llave de una cabaña." newline done ;****************************************************************************************** ; El pico ;****************************************************************************************** ex pico present oPico writeln "{textpic|pico.png|0}" writeln "Esto es lo que utilizan los albañiles para hacer agujeros." pnjdice pWally "También suele dar urticaria si lo tocas demasiado." 0 newline done coger pico present oPico notcarr oPico pnjdice pWally "No sé si tocar este tipo de cosas, pero bueno, haremos un sacrificio por la causa." 0 ;****************************************************************************************** ; El repelente ;****************************************************************************************** ex repelente present oRepelente pnjdice pWally "Un repelente de sueg..." 0 writeln "psss Wally, de moscas gordas hombre, de moscas gordas." done ;****************************************************************************************** ; El hueso llave ;****************************************************************************************** ex hueso present oHueso writeln "{textpic|hueso.png|0}" writeln "Tiene tallada unas muescas" pnjdice pWally "Creo que si encaja en el lugar adecuado puede abrir algo." 0 newline done ex muescas present oHueso writeln "Las muescas que tiene el hueso parecen los dientes de una llave." done ;****************************************************************************************** ; El cofre ;****************************************************************************************** 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# oCofre aLocked { writeln " El cofre está cerrado con llave." pnjdice pWally "¿Tendrá un tesoro dentro?" 0 } ozero# oCofre aLocked { write " El cofre está abierto." eq# fEspinacasEnCofre 1 { writeln " Tiene dentro unas..." pnjdice pWally "¿hojas de espinacas?" 0 } noteq# fEspinacasEnCofre 1 writeln " Está vacío." } done abrir cofre at 23 ozero oCofre aLocked writeln "El cofre ya está abierto." done abrir cofre at 23 noteq 44 255 ;hay segundo nombre whatox2 fAux noteq fAux oHueso writeln "No... esa no es la llave correcta para el cofre." pnjdice pWally "Qué sí hombre que sí..." 0 writeln "¡Wally! que no es esa la llave" done abrir cofre at 23 carried oHueso writeln "El hueso que tiene las muescas encaja en la cerradura del cofre como si fuera una llave." oclear oCofre aLocked done abrir cofre at 23 writeln "El cofre tiene una cerradura con una especie de calavera." pnjdice pWally "¿Dónde estará la llave?" 0 done cerrar cofre at 23 onotzero oCofre aLocked writeln "El cofre está cerrado." done cerrar cofre at 23 pnjdice pWally "Bueno, ha costado mucho abrirlo. Mejor lo dejo tal y como está." 0 done ; meter algo en el cofre meter _ at 23 noteq 44 255 whatox2 fAux eq fAux oCofre writeln "No hace falta meter eso en el cofre." done ; meter en el cofre algo meter _ at 23 ;prep en noteq 51 255; El primer nombre de la frase es un objeto noteq 44 255; Hay un segundo nombre eq 51 oCofre ;es el cofre 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 oCofre aLocked 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 pWally "Podría hacer eso con el cofre, pero creo que no es necesario." 0 done ; ***************************************************************************************** ; Las espinacas ;****************************************************************************************** ex espinacas ;eq 51 255 ;las espinacas aún no han aparecido eq fEspinacasEnCofre 1 present oCofre ;estamos en la habitación con el cofre ozero oCofre aLocked ;el cofre está abierto writeln "{textpic|espinacas.png|0}" writeln "Hojas pequeñas y verdes, dicen que son típicas de esta zona del planeta." pnjdice pWally "Son como ¿espinacas?" 0 newline done ex espinacas present oEspinacas writeln "{textpic|espinacas.png|0}" writeln "Hojas pequeñas y verdes, dicen que son típicas de esta zona del planeta." pnjdice pWally "Son como ¿espinacas?" 0 newline done coger espinacas eq fEspinacasEnCofre 1 ; las espinacas están en el cofre present oCofre ozero oCofre aLocked ;el cofre está abierto ;place oEspinacas 23 eq# 1 2 ;¿tenemos menos de dos objetos? pnjdice pWally "¡¡¡¡Eyy!!!! que sólo tengo dos manos." 0 noteq# 1 2 { writeln "Coges las hojas de espinacas." let fEspinacasEnCofre 0 place oEspinacas 254 } done oler espinacas carried oEspinacas pnjdice pWally "No recuerdo muy bien el olor de las espinacas, pero no creo que fuese así." 0 done oler espinacas writeln "No tienes las espinacas." done comer espinacas carried oEspinacas let fEspinacasComidas 1 place oEspinacas 255 pnjdice pWally "No están mal. Me siento... muy activo." 0 process 19 ;repintamos done comer espinacas writeln "No tienes las espinacas." done ; ***************************************************************************************** ; El arco con las flechas ; ***************************************************************************************** ; Incialmente cuando el arco está en el nido _ arco at 25 absent oArco isat oArco 20 writeln "Queda un poco lejos." done ex arco present oArco writeln "{textpic|arco.png|0}" writeln "Una arco con una sola flecha, debes aprovecharla bien." bzero# fTonterias tonteria1 { pnjdice pWally "Aprovecho para decir que ¡ME QUIERO IR A CASA!" 0 bset fTonterias tonteria1 } newline done lanzar arco synonym disparar arco matar arco carried oArco noteq 44 255 ;hay segundo nombre eq 44 &&_voc_INDIO let 44 &&_voc_ARCO synonym matar indio disparar arco carried oArco noteq 44 255 ;hay segundo nombre eq 44 &&_voc_INDIO notat# 8 ;en la localidad del indio { writeln "No veo por aquí a ningún indio." done } onotzero pIndio aVivo writeln "Apuntas con tu arco al indio... y das en el blanco." writeln "El cuerpo del indio caníbal se desvanece." place oArco 255 place oArcoSinFlechas 254 place pIndio 255 picture ocho_1.png done disparar arco carried oArco noteq 44 255 writeln "El arco sólo tiene una sola flecha, debes seleccionar bien tu objetivo." done disparar arco carried oArco writeln "¿A quién quieres disparar con el arco?" done ; ***************************************************************************************** ; El huevo ; ***************************************************************************************** _ huevo at 9 eq fPajaroComiendo 0 write "Intentas acercarte a la cena del pajarraco... " bzero# fTonterias tonteria8 { newline pnjdice pWally "¡AAAAUUUUUUUU!" 0 bset fTonterias tonteria8 } writeln " pero te mete un picotazo en la mitad del cerebro que te deja más tonto aún." done ex huevo present oHuevo writeln "{textpic|huevo.png|0}" writeln "Un gran huevo." newline done romper huevo present oHuevo pnjdice pWally "¿Tortilla?, no gracias." 0 done comer huevo present oHuevo writeln "No te cabe en la boca." done oler huevo present oHuevo write "Huele a eso... " bzero# fTonterias tonteria9 { newline pnjdice pWally "¿a huevos?" 0 write "no, " bset fTonterias tonteria9 } writeln "a culo de pájaro." done dar huevo at 9 carried oHuevo noteq 44 255; Hay un segundo nombre eq 44 &&_voc_PAJARO writeln "Ha sido complicado conseguirlo, mejor te lo quedas." done ; ***************************************************************************************** ; El tazón de comida ; ***************************************************************************************** ex comida present oTazon writeln "{textpic|tazon.png|0}" writeln "Un tazón lleno de comida muy rara, son semillitas." newline done ;El tazón hay que dársela al pájaro no dejarla así como asi dejar comida at 9 carried oTazon writeln "Dejas el tazón de comida, el pájaro te mira con mucha desconfianza." place oTazon 9 done comer comida present oTazon at 9 eq fPajaroComiendo 1 writeln "Te intentas acercar al tazón de comida, pero el pajarraco te mete un picotazo escandaloso." done oler comida present oTazon at 9 eq fPajaroComiendo 1 writeln "Te intentas acercar al tazón de comida, pero el pajarraco te mete un picotazo escandaloso." done comer comida present oTazon write "Pruebas una de estas semillitas... " bzero# fTonterias tonteria5 { newline pnjdice pWally "puaggg sabe a uñas de pies..." 0 bset fTonterias tonteria5 } writeln "no te gustan mucho." done oler comida present oTazon write "Hueles estas semillitas... " bzero# fTonterias tonteria6 { newline pnjdice pWally "ffffff huele a pies sudaos" 0 bset fTonterias tonteria6 } writeln "no tienen un olor muy agradable." done dar tazon at 9 carried oTazon noteq 44 255; Hay un segundo nombre eq 44 &&_voc_PAJARO writeln "Te acercas con cuidado al pajarito y le dejas el tazón de comida." let fPajaroComiendo 1 oset oTazon aConcealed place oTazon 9 process 19 ;repintamos done dar tazon carried oTazon noteq 44 255; Hay un segundo nombre writeln "Creo que no lo quiere." done dar tazon carried oTazon writeln "No sé a quién quieres darle el tazón de comida." done coger tazon present oTazon at 9 eq fPajaroComiendo 1 write "Intentas coger el tazón con las semillitas... " bzero# fTonterias tonteria7 { newline pnjdice pWally "Sí claro, cógelo tú." 0 writeln "¡Cobarde!" bset fTonterias tonteria7 } writeln "... el pájaro entorna los ojos preparándose para picotearte los ojos. Mejor lo dejamos ahí." done ; ************************************************************************************************ ; El fuelle ; ************************************************************************************************ ex fuelle present oFuelle 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 oFuelle present oChimenea noteq 44 255 whatox2 fAux eq fAux oChimenea synonym avivar chimenea soplar aire synonym lanzar aire lanzar aire carried oFuelle present oChimenea noteq 44 255 whatox2 fAux eq fAux oChimenea synonym avivar chimenea lanzar aire carried oFuelle present oChimenea noteq 44 255 whatox2 fAux eq fAux oFuelle synonym avivar chimenea apretar fuelle carried oFuelle writeln "Lanzas una ráfaga de aire con el fuelle." done lanzar aire carried oFuelle noteq 44 255 whatox2 fAux eq fAux oFuelle writeln "Lanzas una ráfaga de aire con el fuelle." done ; ************************************************************************************************ ; El indio canibal ; ************************************************************************************************ ex indio present pIndio onotzero pIndio aVivo writeln "Un guerrero de la tribu caníbal que habita esta isla." pnjdice pIndio "¿Qué mirar tu? ¿yo gustar?. Tú sí gustar a mi, 'mmm... albóndigas con tomate'." 0 done golpear indio synonym matar indio pegar indio synonym matar indio disparar indio synonym matar indio lanzar indio synonym matar indio matar indio present pIndio noteq 44 255 ;Hay segundo nombre whatox2 fAux eq fAux oArco ;Es el arco notcarr# oArco { 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 oArco 255 place oArcoSinFlechas 254 place pIndio 255 picture ocho_1.png let fGraficoAct 308 plus fGraficoAct GRAFICOS done matar indio present pIndio pnjdice pIndio "Mejor no intentar eso gran albóndiga." 0 writeln "El indio caníbal tiene muy malas pulgas, creo que no puedes tan fácilmente con él." done decir indio present pIndio process 9 done ; *********************************************************************************************** ; El arco sin flechas ; *********************************************************************************************** examinar arco present oArcoSinFlechas writeln "{textpic|arcosin.png|0}" writeln "Un arco para lanzar flechas al que ya no le queda ninguna flecha." newline done disparar arco carried oArcoSinFlechas writeln "Ya no tienes ninguna flecha." done ; ************************************************************************************************ ; El hacha sin afilar ; ************************************************************************************************ ex hacha present oHachaSinAfilar 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 oHachaSinAfilar notat 18 writeln "Deberías indicar cómo quieres afilar el hacha." done ; ************************************************************************************************* ; El hacha afilado ; ************************************************************************************************* ex hacha present oHachaAfilado 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 oHachaAfilado notat 18 writeln "Ya está bien afilado." done ; ************************************************************************************************ ; Las ramitas ; ************************************************************************************************ examinar ramitas present oRamitas writeln "{textpic|ramitas.png|0}" writeln "Ramitas secas, son perfectas para hacer un buen fuego en una chimenea." newline done ; quemar ramas en chimenea quemar ramitas at 11 synonym quemar chimenea quemar ramitas present oRamitas 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 fAux eq fAux oChimenea ;Es la chimenea writeln "Dejas las ramitas listas para hacer una buena hoguera." place oRamitas 11 done ; ************************************************************************************** ; El chisquero ; ************************************************************************************** ex chisquero present oChisquero 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 oChisquero at 11 ; present oChimenea noteq 44 255 ;Hay segundo nombre whatox2 fAux eq fAux oChimenea ;Es la chimenea synonym quemar chimenea encender chisquero present oChisquero at 11 noteq 44 255 whatox2 fAux eq fAux oRamitas synonym quemar chimenea ;writeln "Sería una imprudencia hacer eso aquí. Habría que buscar un lugar adecuado para eso. encender chisquero present oChisquero noteq 44 255 whatox2 fAux eq fAux oRamitas present oRamitas writeln "Sería una imprudencia hacer eso aquí. Habría que buscar un lugar adecuado." done encender chisquero present oChisquero writeln "Aprietas el chisquero y salta una pequeña chispa." done ; ************************************************************************************************** ; La chimenea de la estancia 11 ; ************************************************************************************************** ex chimenea at 11 write "Más que una chimenea parece la fragua de un herrero." onotzero# oChimenea aOn { writeln " La chimenea está encendida." ozero# oChimenea aFuegoVivo { 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# oChimenea aOn { writeln "La chimenea ya está encendida." done } present# oRamitas { present# oChisquero { writeln "Pones las ramitas en la chimenea y con la chispa del chisquero la enciendes." place oRamitas 255 oset oChimenea aOn 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# oChimenea aOn { ozero# oChimenea aFuegoVivo { writeln "El fuego de la chimenea era tan débil que se apagó por sí mismo." oclear oChimenea aOn place oRamitas 11 done } carried# oBotella { onotzero# oBotella aBotellaConLiquido { ; forzamos "vaciar botella" let 33 &&_voc_VACIAR let 34 &&_voc_BOTELLA let 44 &&_voc_CHIMENEA 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 oFuelle onotzero# oChimenea aOn { ozero# oChimenea aFuegoVivo { writeln "Con el aire del fuelle avivas el fuego." pnjdice pWally "Esto sí que es un buen fuego." 0 oset oChimenea aFuegoVivo done } onotzero# oChimenea aFuegoVivo { pnjdice pWally "Esto sí que es un buen fuego." 0 done } } writeln "Aquí hay una chimenea, pero está apagada." done avivar fuego at 11 synonym soplar chimenea soplar chimenea at 11 onotzero# oChimenea aOn { ozero# oChimenea aFuegoVivo { writeln "Soplas y soplas a la chimenea. Tus pulmones no dan para mucho, te haría falta algo para avivar el fuego." done } pnjdice pWally "Ya me cansé de soplar." 0 done } pnjdice pWally "Soplar a una chimenea apagada, mmm... interesante e inútil jugada." 0 done ; ******************************************************************************************* ; La diosa tormenta y las cenizas ; ******************************************************************************************* ex cenizas present oCenizas writeln "{textpic|cenizas.png|0}" writeln "Restos del fuego de las ramitas." newline done ex pies present oDiosa synonym ex diosa ex diosa present oDiosa ozero oDiosa aTormenta 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 oDiosa onotzero oDiosa aTormenta 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 oDiosa carried oCenizas noteq 44 255 whatox2 fAux eq fAux oDiosa writeln "Al ofrecer a la diosa Tormenta las cenizas sagradas, una gran tormenta se desata en esta zona de la jungla." pnjdice pWally "¡La que he lia'o!" 0 place oChoza 255 ; la choza marina desaparece place oAlmeja 6 ; Aparece la almeja oset oDiosa aTormenta place oCenizas 255 lset 6 aLocAgua lset 7 aLocAgua process 19 done entregar _ synonym dar _ ofrecer _ synonym dar _ dar _ present oDiosa noteq 44 255 whatox2 fAux eq fAux oDiosa writeln "Eso a la diosa tormenta no le interesa." done besar estatua present oDiosa pnjdice pWally "plis plis...y seguro que mi mujer se entera." 0 done _ estatua present oDiosa pnjdice pWally "Creo que hacer eso con la estatua de la diosa no tiene mucho sentido." 0 done _ cenizas present oCenizas nosinonimo @33 "coge deja da" pnjdice pWally "Hacer eso con las cenizas no me llevaría a ningún sitio." 0 done ; **************************************************************************************************** ; la concha de la almeja ; **************************************************************************************************** _ almeja process 16 isdone done ; ************************************************************************************** ; El leon que custodia a herbert ; ************************************************************************************** ex leon present oLeon onotzero oLeon aEnfadado 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 oLeon 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 oLeon onotzero oLeon aEnfadado writeln "Una pequeña astilla que tiene clavada el león en una de sus patas." done ex astilla present oLeon writeln "La lanzaste bien lejos, ya no puede causar ningún daño." done ex pata present oLeon onotzero oLeon aEnfadado writeln "El león que hace mala cara tiene una astilla clavada en una de sus patas." done ex pata present oLeon writeln "Una pata curada en un león feliz." done matar leon present oLeon writeln "Antes de que levantases la mano el león te devoraría." pnjdice pWally "Ni lo intento." 0 done curar leon synonym coger astilla sacar astilla synonym coger astilla arrancar astilla synonym coger astilla quitar astilla synonym coger astilla coger astilla present oLeon onotzero oLeon aEnfadado carried oPinza 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 pWally "Lanzo bien lejos las astilla, que no ocurra otro accidente." 0 oclear oLeon aEnfadado picture tres_1.png let fGraficoAct 303 plus fGraficoAct GRAFICOS process 19 done coger astilla present oLeon onotzero oLeon aEnfadado writeln "Te acercas un poquito al león y con cuidado intentas arrancarle la astilla que tiene clavada en la pata..." pnjdice pWally "No puedo con las manos, me haría falta una pinza para sujetarla bien." 0 done coger astilla present oLeon writeln "Te has deshecho de ella, para que no ocurra otro accidente." done ; *********************************************************************************** ; Herbert ; *********************************************************************************** ex herbert present pHerbert writeln "Herbert está dentro de una olla." onotzero# oOlla aOn { writeln "¡Lo están cocinando!" } pnjdice pHerbert "¡Sácame de aquí papa!" 0 done salvar herbert synonym coger herbert sacar herbert synonym coger herbert rescatar herbert synonym coger herbert liberar herbert synonym coger herbert coger herbert present pHerbert onotzero oLeon aEnfadado ; el león te lo impide writeln "Los leones no dejan que te acerques ni un centímetro a Herbert." done coger herbert present pHerbert onotzero oOlla aOn writeln "La olla quema por el fuego que la calienta, no te puedes acercar mucho." pnjdice pWally "Mmm antes debería apagar el fuego que caliente la olla." 0 done coger herbert present pHerbert writeln "Sacas a Herbert de la olla y lo pones a salvo." pnjdice pHerbert "¡Gracias papi! me voy a la playa, debemos huir de aquí." 0 let fHerbert 1 place pHerbert 255 picture tres_3.png let fGraficoAct 503 plus fGraficoAct GRAFICOS process 19 done decir herbert present pHerbert process 13 done _ herbert present pHerbert writeln "Herbert hierve poco a poco al chup chup." done ; *********************************************************************************** ; Las pinzas del cangrejo ; *********************************************************************************** ex pinza onotzero oPinza aCangrejo ;la pinza está en el cangrejo present# oCangrejo ;está presente el cangrejo vivo { writeln "Fuertes pinzas unidas firmemente al cangrejo." done } present# oCangrejoCocido { 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 oPinza 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 oPinza writeln "Podrían serte útiles, mejor no." bzero# fTonterias tonteria14 { pnjdice pWally "¡¡¡Cachis!!!" 0 bset fTonterias tonteria14 } done romper pinza notcarr oPinza LET 43 &&_voc_DE synonym tirar pinza cortar pinza notcarr oPinza LET 43 &&_voc_DE synonym tirar pinza coger pinza onotzero oPinza aCangrejo ;la pinza está en el cangrejo present# oCangrejo ;está presente el cangrejo vivo { writeln "Por ahora las pinzas pertenecen al cangrejo, tendrás que arrancárselas." done } present# oCangrejoCocido { writeln "Por ahora las pinzas pertenecen al cangrejo, tendrás que arrancárselas." done } tirar pinza notcarr oPinza prep de LET 43 &&_voc_DE synonym tirar pinza quitar pinza notcarr oPinza LET 43 &&_voc_DE synonym tirar pinza tirar pinza notcarr oPinza prep de onotzero oPinza aCangrejo ;la pinza está en el cangrejo present# oCangrejo ;está presente el cangrejo vivo { carried# oCangrejo { pnjdice pWally "Buf buf, no puedo, es más fuerte que yo." 0 done } writeln "Antes deberías coger al cangrejo." done } present# oCangrejoCocido { oclear oPinza aCangrejo ;quitamos la pinza del cangrejo writeln "Profanas el cuerpo cocido del cangrejo y le arrancas una de sus pinzas." let 33 20 place oPinza 254 ;movemos la pinza al jugador process 14 ; no podemos añadir nada al inventario del jugador directamente ;place oPinza @38 done } tirar pinza ;notcarr oPinza prep de present oCangrejoCocido writeln "Ya has profanado bastante el cuerpo sin vida del pobre cangrejo." done ; ************************************************************************************************************ ; El cangrejo cocido ; ************************************************************************************************************ ex cangrejo present oCangrejoCocido writeln "{textpic|cangrejo.png|0}" writeln "Un exquisito cangrejo bien cocidito." onotzero# oPinza aCangrejo { 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 ;cocinar cangrejo = cocer cangrejo = hervir cangrejo ; synonym dejar cangrejo ; dejar cangrejo en agua hirviendo dejar cangrejo carried oCangrejo 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 oCangrejoCocido at 19 writeln "Ya está bien cocidito." done comer cangrejo present oCangrejoCocido onotzero# oPinza aCangrejo { pnjdice pWally "Algo me dice que antes debería hacer algo con el cangrejo." 0 done } writeln "Procuras no mirar sus inertes ojos mientras te lo zampas." pnjdice pWally "Le faltaba un poco de sal, pero no estaba mal." 0 place oCangrejoCocido 255 done ; ******************************************************************************* ; La olla donde se cuece Herbert ; ******************************************************************************* ex olla present oOlla onotzero# oOlla aOn { writeln "Una gran olla calentada por un fuego, dentro de la cual están cocinando a Herbert." bzero# fTonterias tonteria15 { pnjdice pHerbert "¡Papa qué miras! ¡Sácame de aquí!" 0 bset fTonterias tonteria15 } done } writeln "Una gran olla, para guisar humanos. El fuego que calentaba la olla está apagado." present# pHerbert { pnjdice pHerbert "¡Sácame de aquí papi!" 0 } done ex fuego present oOlla ozero oOlla aOn writeln "El fuego que calentaba la olla ya se apagó." done ex fuego present oOlla onotzero oOlla aOn writeln "Un fuego calienta la olla, pero no es un fuego normal, parece algo mágico." bzero# fTonterias tonteria16 { pnjdice pWally "¿Un fuego mágico?" 0 pnjdice pHerbert "Sí papa, mágico, no le des más vueltas y ¡apágalo!" 0 bset fTonterias tonteria15 done } done ; echar agua al fuego -> apagar fuego con agua echar agua present oOlla ;onotzero oOlla aOn eq 44 &&_voc_CHIMENEA ; chimenea sinónimo de fuego let 44 &&_voc_AGUA synonym apagar fuego ; echar agua de XXXX al fuego - > apagar fuego con agua de XXXX echar agua present oOlla ;onotzero oOlla aOn noteq 44 255 ;hay segundo nombre eq noun3 &&_voc_FUEGO let noun3 @44 ;noun3 el contenedor let 44 &&_voc_AGUA synonym apagar fuego ; echar agua echar agua present oOlla onotzero oOlla aOn eq 44 255 writeln "¿De dónde saco el agua?" done echar agua present oOlla synonym apagar fuego apagar olla present oOlla synonym apagar fuego apagar fuego present oOlla ozero oOlla aOn writeln "El fuego ya está apagado." done ; entrada "apagar el fuego" a secas apagar fuego present oOlla onotzero oOlla aOn eq 44 255 writeln "¿Y cómo quieres apagar el fuego?" done ; apagar fuego con agua de (algún contenedor)... ; uso del tercer nombre http://foro.caad.es/viewtopic.php?f=6&t=6063 apagar fuego present oOlla onotzero oOlla aOn noteq 44 255 eq 44 &&_voc_AGUA eq# noun3 &&_voc_BOTELLA ; APAGAR FUEGO CON EL AGUA DE LA BOTELLA { let 44 &&_voc_BOTELLA } eq# noun3 &&_voc_ALMEJA ; APAGAR FUEGO CON EL AGUA DE LA ALMEJA { let 44 &&_voc_ALMEJA } eq# noun3 255 { writeln "¿El agua... de dónde la saco?" done } ; apagar fuego con la botella o con la almeja apagar fuego present oOlla onotzero oOlla aOn noteq 44 255 ;hay segundo nombre whatox2 fAux eq# fAux oBotella ; "apagar el fuego con la botella { carried# oBotella { onotzero# oBotella aBotellaConLiquido { ; forzamos "vaciar botella en fuego" let 33 &&_voc_VACIAR let 34 &&_voc_BOTELLA let 44 &&_voc_CHIMENEA ;chimienea es sinónimo de fuego 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# fAux oAlmeja ; apagar el fuego con la almeja { carried# oAlmeja { let 33 &&_voc_VACIAR let 34 &&_voc_ALMEJA let 44 &&_voc_CHIMENEA ;chimienea es sinónimo de fuego 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 oOlla onotzero oOlla aOn writeln "Tienes demasiada fe en tus pulmones, así no apagarás el fuego." done /PRO 8 ; Descripción dinámica de las estancia ; Donde cocinan a herbert _ _ at 3 present pHerbert 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 pHerbert 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 ; En la choza marina _ _ at 6 present oChoza 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 oChoza 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# fTonterias tonteria13 { newline pnjdice pWally "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 bset fTonterias tonteria13 } write "Hacia el oeste te adentras en la jungla y hacia el este sale el camino de la playa." done ; Con la diosa tormenta _ _ at 7 ozero oDiosa aTormenta 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 oDiosa aTormenta 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 ; Estancia del indio _ _ at 8 present pIndio 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 pWilma writeln "Wilma sigue colgada como un jamón, está muy enfadada." let fAux 2000 let fAux2 1 add fTontWilma fAux write "{ink|yellow|Wilma: }" message @fAux ;newline add fAux2 fTontWilma eq# fTontWilma 6 let fTontWilma 1 done _ _ at 8 write "Antigua despensa de los nativos, donde dejaban madurar a sus presas a la espera de ser devoradas." done ; El pájaro no está comiendo, así que el huevo está sí o si _ _ at 9 eq fPajaroComiendo 0 ;el pájaro no está comiendo 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 fPajaroComiendo 1 ;el pájaro ya está comiendo write "Aquí hay un pajarraco enorme. Está disfrutando de su tazón de semillitas y te ignora por completo." done ; El muro del pozo de los deseos _ _ at 15 eq fMuroRoto 0 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 fMuroRoto 1 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 ; ** Mini conversa con el indio canibal _ _ parse pnjdice pIndio "Tú hablar mucho y raro." 0 done _ hola pnjdice pIndio "Saludos futura albóndiga." 0 done _ wilma pnjdice pIndio "Mujer buena y sabrosa, colgada como jamón 5J." 0 done _ herbert pnjdice pIndio "En gran olla, ser entrante de cena." 0 done _ wally pnjdice pIndio "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 done _ isla pnjdice pIndio "Ser isla maravillosa y tranquila hasta llegar colonos españoles. Pero problema solucionar rápido, comer españoles uno por uno." 0 pnjdice pIndio "Españoles construir palacio en isla." 0 done _ ESPAÑOLES pnjdice pIndio "Ser isla maravillosa y tranquila hasta llegar colonos españoles. Pero problema solucionar rápido, comer españoles uno por uno." 0 pnjdice pIndio "Españoles construir palacio en isla." 0 done _ palacio pnjdice pIndio "Ser isla maravillosa y tranquila hasta llegar colonos españoles. Pero problema solucionar rápido, comer españoles uno por uno." 0 pnjdice pIndio "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 pnjdice pIndio "Huyó de isla con todas riquezas en barco suizo." 0 done _ leon pnjdice pIndio "Fauna rica y variada en isla." 0 done comer _ pnjdice pIndio "Tener festín humano estos días." 0 done xyzzy _ pnjdice pIndio "Eso no servir de nada gran albóndiga." 0 done _ _ pnjdice pIndio "Tú mañana ser primer plato." 0 done /PRO 10 ; Todas las estancias de nuestra aventura ;****************************************************************************************** ; LOCALIDAD NÚMERO 1. ; En esta localidad está el riachuelo con los pececitos dentro. ;****************************************************************************************** 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 pWally "Mmmm... agua fresquita del río... sabe a pis de pez." 0 done beber agua at 1 eq 44 &&_voc_RIO pnjdice pWally "Mmmm... agua fresquita del río... sabe a pis de pez." 0 done nadar _ at 1 pnjdice pWally "Es un agua muy poco profunda para nadar." 0 done leer letrero synonym ex letrero ex letrero at 1 writeln "Jungla, señalando al oeste." done _ letrero at 1 pnjdice pWally "Podría hacer eso con el letrero, pero la verdad, no tengo ganas." 0 done ex murcielago at 1 writeln "Volando, son grandes y gordos." done _ murcielago at 1 pnjdice pWally "Me dan mucho miedo, no quiero saber nada de los murciélagos." 0 done _ leon at 1 writeln "Se pueden oír de vez en cuando el rugido de algún león." pnjdice pWally "¡Qué bonita la jungla!" 0 done _ elefante at 1 writeln "Son graaaandes, mejor dejarlos en paz." done ; **************************************************************************************** ; Localidad número 2 ; **************************************************************************************** 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 ; **************************************************************************************** ; Localidad número 3, Herbert y los leones ; **************************************************************************************** ex herbert at 3 present pHerbert writeln "Herbert está dentro de una olla." onotzero# oOlla aOn { writeln "¡Lo están cocinando!" } pnjdice pHerbert "¡Sácame de aquí papa!" 0 done _ herbert at 3 present pHerbert onotzero oLeon aEnfadado ; el león te lo impide writeln "Los leones no dejan que te acerques ni un centímetro a Herbert." done _ olla at 3 present pHerbert onotzero oLeon aEnfadado ; el león te lo impide writeln "Los leones no dejan que te acerques ni un centímetro." done _ fuego at 3 present pHerbert onotzero oLeon aEnfadado ; el león te lo impide writeln "Los leones no dejan que te acerques ni un centímetro." done ; **************************************************************************************** ; Localidad número 4 con el cocodrilo ; **************************************************************************************** ex cocodrilo at 4 absent oBolso writeln "El cocodrilo está esperando su cena, ¿serás tú?" done ex cocodrilo at 4 present oBolso 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 oBolso writeln "Te acercas un poco... pero el cocodrilo abre su boquita dispuesto a zamparte." pnjdice pWally "Mejor no acercarme mucho más." 0 done ; **************************************************************************************** ; Localidad número 5 en la cabaña ; **************************************************************************************** ; Si hemos llegado a esta localidad, es porque hemos dejado el bolso en la localidad 5 ; o bien llevamos el bolso encima. ; Antes de abandonar esta localidad debemos comprobar si el bolso está en la localidad 4 ; o bien lo llevamos encima. este _ at 5 carried oBolso let fCocodriloTriste 1 este _ at 5 isat oBolso 4 let fCocodriloTriste 1 este _ at 5 eq fCocodriloTriste 0 pnjdice pWally "Hay un cocodrilo muy enfadao por ahí... no puedo pasar." 0 done oeste _ at 5 synonym entrar CABAÑA entrar _ at 5 onotzero oCabana aLocked 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# oCabana aLocked writeln "La puerta de la cabaña está cerrada con llave." ozero# oCabana aLocked writeln "La puerta de la cabaña está abierta." done ; ***************************************************************************************** ; Localidad 6 la choza marina ; ***************************************************************************************** ex choza at 6 present oChoza 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 oChoza 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 oChoza writeln "Parece que en el tejado de la choza hay una antena de TV... o de comunicaciones." bzero# fTonterias tonteria12 { pnjdice pWally "Un peligro en esta zona del planeta, con la de tormentas que hay, un rayo fulminaría la choza." 0 bset fTonterias tonteria12 } done coger antena at 6 present oChoza writeln "No hace falta que vayas cargando por la jungla con una antena de TV." bzero# fTonterias tonteria18 { pnjdice pWally "Además tendría que subir al techo de la cabaña, desatornillar la antena, y con lo que pesa... quita quita." 0 bset fTonterias tonteria18 } done _ antena at 6 present oChoza pnjdice pWally "¿Una antena de TV?, no creo que deba perder más tiempo con ella." 0 done subir techo at 6 synonym escalar CABAÑA subir CABAÑA at 6 synonym escalar CABAÑA escalar CABAÑA at 6 present oChoza writeln "Aquí no hace falta que actúes como Spiderman." done ex restos at 6 present oChoza writeln "La cabaña está hecha de restos marinos, conchas de almejas sobre todo." pnjdice pWally "La concha de una almeja me podría servir para guardar pequeñas cantidades de agua..." 0 done romper restos at 6 present oChoza synonym coger restos coger restos at 6 present oChoza 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 oChoza pnjdice pWally "Y soplé y soplé hasta que la cabaña... ni de broma derrumbé." 0 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 oChoza 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 oChoza writeln "Ya está cerrada." done romper puerta at 6 present oChoza writeln "No, así no consigues nada." done llamar choza synonym llamar puerta llamar puerta at 6 present oChoza writeln "Toc, toc, toc.... se escucha un grillo." done ex agua at 6 lnotzero 6 aLocAgua writeln "Lluvia lluvia y lluvia por todos sitios." done entrar _ at 6 present oChoza writeln "La puerta de la cabaña está cerrada y no se puede abrir desde fuera." done _ rana at 6 writeln "¡Croak! ¡Croak!" pnjdice pWally "Ni caso me hace y ni caso le haré." 0 done ; ***************************************************************************************** ; Localidad 7 con la diosa ; ***************************************************************************************** ex agua at 7 lnotzero 6 aLocAgua 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 ; ***************************************************************************************** ; Localidad 8 con el indio ; ***************************************************************************************** _ wilma at 8 present pIndio eq fWilma 0 writeln "El canibal custodia su cena, intentas acercarte... pero si avanzas un poco más serás el postre." bzero# fTontIndio tonteria1 { pnjdice pIndio "Quieto rostro redondo suculento y pálido. Tú ser comida de mañana, procurar ser vivo." 0 bset fTontIndio tonteria1 } writeln "El caníbal no permite acercarte mucho." done _ liana at 8 present pIndio eq fWilma 0 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# fTontIndio tonteria1 { pnjdice pIndio "Quieto rostro redondo suculento y pálido. Tú ser comida de mañana, procurar ser vivo." 0 bset fTontIndio tonteria1 } writeln "El caníbal no permite acercarte mucho." done rescatar wilma synonym coger wilma liberar wilma synonym coger wilma coger wilma at 8 eq fWilma 0 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 fWilma 0 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 fWilma 0 carried oHachaSinAfilar 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 fWilma 0 carried oHachaAfilado writeln "Cortas la liana y consigues liberar a Wilma." pnjdice pWilma "Byeeee, te espero en la playa mi amollll." 0 let fWilma 1 place pWilma 255 picture ocho_2.png let fGraficoAct 408 plus fGraficoAct GRAFICOS pictureat 1550 100 wilma.png ;pintamos a wilma rescatada process 19 done cortar liana at 8 eq fWilma 0 writeln "No tienes nada que te pueda servir para cortar la liana." done cortar liana at 8 eq fWilma 1 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 pWilma writeln "Lo que debes hacer es bajar a Wilma." bzero# fTonterias tonteria10 { pnjdice pWally "Yo no subo más a ningún árbol." 0 bset fTonterias tonteria10 } done decir wilma present pWilma zero fWilma process 11 done _ wilma present pWilma zero fWilma writeln "Wilma sigue colgada de los pies como un jamón, debes bajarla de ahí." done _ wilma eq fWilma 1 writeln "Ella ya está libre, espera que rescates pronto a Herbert y así escapar de esta isla." done ; ***************************************************************************************** ; Localidad 9 con el pajaro-huevo ; ***************************************************************************************** ex pajaro at 9 eq fPajaroComiendo 0 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 pWally "Yo soy más de 'flower power'." 0 done ; **************************************************************************************** ; Localidad 10 En la cantina ; **************************************************************************************** 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# fLlave 0 { writeln "Vaya colgado detrás del letrero hay una llave." place oLlave 10 let fLlave 1 bzero# fTonterias tonteria19 { pnjdice pWally "Anda con que escondiendo cositas, ¡qué graciosillo!" 0 bset fTonterias tonteria19 } } done ex tienda at 10 process 17 done _ letrero at 10 writeln "No hace falta hacer eso con el letrero." done ; **************************************************************************************** ; Localidad 11 En la chimenea ; **************************************************************************************** ex adornos at 11 writeln "Adornan." bzero# fTonterias tonteria20 { pnjdice pWally "Oscar al mejor guión original." 0 bset fTonterias tonteria20 } done _ adornos at 11 writeln "Sólo adornan, nada más." done ; **************************************************************************************** ; Localidad 12 Salón del templo ; ***************************************************************************************** ; En esta localidad además de las salidas naturales, podemos salir a través de la ventana saltar ventana at 12 synonym salir ventana salir _ at 12 ;prep por noteq 51 255 ;hay nombre eq 51 oVentana 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 fGraficoAct 13 process 17 ;Proceso para mostrar la descripción de una localidad done ;salir _ ; at 12 ; goto 14 ; desc ; done ; La ventana 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 pWally "Podría hacer eso con la ventana, pero ¿pa'qué?" 0 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 ; **************************************************************************************** ; Localidad 13 en la playa ; **************************************************************************************** examinar playa at 13 process 17 ;Proceso para mostrar la descripción de una localidad done entrar _ at 13 ;prep por noteq 51 255 ;hay nombre eq 51 oVentana pnjdice pWally "Uf uf, saltitos que doy, pero no llego a la ventana. Ha quedado un poco alta." 0 done lavarme _ at 13 synonym entrar agua nadar _ at 13 synonym entrar agua entrar agua at 13 goto 22 let fGraficoAct 22 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 ; **************************************************************************************** ; Localidad 14 entrada al templo ; **************************************************************************************** ex entrada at 14 synonym ex simbolo ex simbolo at 14 writeln "Un simbolo de alguna civilización que no conoces." done ; **************************************************************************************** ; Localidad 15 fuera del pozo ; **************************************************************************************** _ 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# fMuroRoto 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 oPico notzero fMuroRoto pnjdice pWally "Ya está, ya me cansé de dar golpes en el muro." 0 done romper muro at 15 carried oPico 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 fMuroRoto 1 picture quince_2.png ;repintamos let fGraficoAct 315 plus fGraficoAct GRAFICOS done romper muro at 15 pnjdice pWally "Dicen que tengo la cabeza gorda y dura, pero no tanto como para reventar un muro de piedra." 0 done abrir muro at 15 pnjdice pWally "Hombre, abrir lo que se dice abrir, no creo que se pueda abrir un muro como si fuera una puerta." 0 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 ;***************************************************************************************** ; Localidad 16 dentro del pozo ;***************************************************************************************** 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 = LLENAR ALMEJA DE AGUA coger agua at 16 present oAlmeja let 33 55 ;El verbo llenar let 34 106 ;LA ALMEJA let 44 53 ;agua ex pozo at 16 writeln "{LOCATION|38}" done ;***************************************************************************************** ; Localidad 17 zona oculta ;***************************************************************************************** ex ARAÑA at 17 eq fAranaAsustada 1 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 fAranaAsustada 1 pnjdice pWally "Pobre araña... no hace falta rematarla." 0 done matar ARAÑA at 17 pnjdice pWally "Sí... claro, qué fácil escribir eso." 0 done _ ARAÑA at 17 pnjdice pWally "¡Qué asco qué asco!" 0 done mover esqueleto at 17 synonym ex esqueleto ex esqueleto at 17 eq fAranaAsustada 1 writeln "Restos de lo que fue un/a pobre señ@r emparedad@." isat# oHueso 255 { writeln "Entre los restos del esqueleto hay un hueso diferente, pulido con diferentes muescas. Parece una especie de llave." place oHueso 17 } done ex esqueleto at 17 pnjdice pWally "No quiero perder de vista la araña gorda y peluda... " 0 done _ esqueleto at 17 eq fAranaAsustada 1 pnjdice pWally "Hacer eso con el esqueleto me da cosa..." 0 done _ esqueleto at 17 pnjdice pWally "No quiero perder de vista la araña gorda y peluda..." 0 done _ _ at 17 noteq fAranaAsustada 1 noteq 33 &&_voc_SALIR noteq 33 &&_voc_ESTE noteq 33 &&_voc_MIRAR pnjdice pWally "No quiero perder de vista la araña gorda y peluda..." 0 done ; **************************************************************************************** ; Localidad 18 Coche con ruedas de piedra ; **************************************************************************************** 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 pWally "Podría intentar eso con el coche, pero la verdad, no me apetece." 0 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# fRueda ruedaAceite { writeln "Las ruedas del coche están lubricadas con aceite de coco." done } bnotzero# fRueda ruedaAgua { writeln "Las ruedas del coche están un poco húmedas." done } done ;mojar rueda, lubricar rueda mojar coche at 18 synonym mojar rueda mojar rueda at 18 carried oBotella onotzero# oBotella aBotellaConAceite { writeln "Viertes el agua de coco sobre la rueda de piedra." bset fRueda ruedaAceite bclear fRueda ruedaAgua oclear oBotella aBotellaConAceite oclear oBotella aBotellaConLiquido done } onotzero# oBotella aBotellaConAgua { writeln "Viertes todo el agua de la botella sobre la rueda de piedra." bset fRueda ruedaAgua bclear fRueda ruedaAceite oclear oBotella aBotellaConAgua oclear oBotella aBotellaConLiquido 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 ; En esta estancia el verbo afilar, lo pasamos a un proceso afilar _ at 18 process 12 done _ rueda at 18 pnjdice pWally "¿Hacer eso con las ruedas? ¿para qué?" 0 done ; **************************************************************************************** ; Localidad 19 old faithful ; **************************************************************************************** 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 pWally "No quiero hacer una mariscada conmigo mismo." 0 done ; Meter algo en el agua o en el agujero ;Meter en el agujero el cangrejo ;tirar _ ; at 19 ; noteq 43 &&_voc_DE ; noteq 34 &&_voc_PINZA ;habia problemas en esta estancia con tirar de pinzas de cangrejo ; synonym meter _ dejar _ at 19 prep EN synonym meter _ ; Meter algo en el agujero meter _ at 19 noteq 34 255 noteq 51 255 eq 51 oCangrejoCocido 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 oCangrejo 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 ; meter lanzar tirar dejar 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 en el agujero el algo meter agujero at 19 noteq 44 255 ;hay segundo nombre whatox2 fAux eq# fAux oCangrejo ;es el cangrejo { carried# oCangrejo { process 15 ;writeln "Metes sin piedad al cangrejo en el agua hirviendo." done } notcarr# oCangrejo { 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 pWally "Demasiado caliente para mi gusto." 0 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 ; todo lo que sea subir al arbol ; lo paso a trepar arbol subir arbol let 33 &&_voc_TREPAR ;57 ; subir al arbol por la liana trepar arbol at 19 noteq 44 255 ;Hay segundo nombre ; no usamos whatox2 ya que en este caso liana no es un objeto ; sólo una entrada del vocabulario eq 44 &&_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# fTonterias tonteria3 { pnjdice pWally "Puf puf, me faltan horas de gimnasio." 0 writeln "¿horas o años?" pnjdice pWally "¿Eres amigo de mi suegra?" 0 bset fTonterias tonteria3 } done ex liana at 19 writeln "La liana cuelga de uno de los grandes árboles." done coger liana at 19 pnjdice pWally "Parece que está bien sujeta al árbol, además es larguísima, no podría con ella." 0 done saltar liana at 19 synonym subir liana trepar liana at 19 synonym subir liana subir liana at 19 eq fEspinacasComidas 1 ; Aquí la musica de rocky???? writeln "Te agarras a la liana con fuerzas... y comienzas a trepar." bzero# fTonterias tonteria4 { pnjdice pWally "Ufff izquierda ufff derecha" 0 writeln "¡Venga Wally que tú puedes!" pnjdice pWally "Ufff izquierda ufff derecha" 0 bset fTonterias tonteria4 } ;anykey goto 25 let fGraficoAct 25 process 17 ;Proceso para mostrar la descripción de una localidad done ;Aquí pasamos a localidad 25, en la copa del árbol ;subir liana ; at 19 ; eq fEspinacasComidas 1 ; goto 25 ; desc subir liana at 19 writeln "Saltas a la liana e intentas subir por ella..." pnjdice pWally "Puf puf, me faltan las fuerzas, demasiado duro para mí." 0 done _ liana at 19 pnjdice pWally "Bueno no sé si me apetece hacer eso con la liana." 0 done _ nido at 19 pnjdice pWally "Desde aquí abajo no lo veo bien." 0 done _ arbol at 19 pnjdice pWally "No sé si es necesario hacer eso con los árboles." 0 done _ rama at 19 pnjdice pWally "Está muy alta, no llego." 0 done trepar _ at 19 writeln "¿Dónde y cómo?" done ; **************************************************************************************** ; Localidad 20 en el nido ; Aquí llegamos desde la localidad 28. ; **************************************************************************************** saltar _ at 20 eq 34 255 ; no hay segundo nombre synonym bajar _ ; Si nos vamos y nos queremos llevar el huevo... el pájaro nos quita todo ; MADE IN UTO : http://foro.caad.es/viewtopic.php?f=6&t=6026#p73762 BAJAR _ AT 20 CARRIED oHuevo 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 fAux2 LT: fAux2 @fNumObjetos ;@fNUMERO_OBJETOS ;fNUMERO_OBJETOS = OBJETOS CREADOS + 1 { CARRIED# @fAux2 PLACE @fAux2 20 PLUS fAux2 1 } GOTO 19 WRITELN "Das un saltito y..." WRITELN "Aterrizas al pie del árbol." let fGraficoAct 19 process 17 ;Proceso para mostrar la descripción de una localidad done bajar _ at 20 goto 19 writeln "Das un saltito y..." pnjdice pWally "¡UN SALTITOOOOOOOOOO!" 0 writeln "Aterrizas al pie del árbol." let fGraficoAct 19 process 17 ;Proceso para mostrar la descripción de una localidad done ex nido at 20 writeln "{LOCATION|38}" done ; **************************************************************************************** ; Localidad 21 con el cangrejo ; **************************************************************************************** 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 oCangrejo writeln "Ya has cogido un cangrejo, deja al resto en paz." done ;***************************************************************************************** ; Localidad 22 nadando ;***************************************************************************************** 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 fGraficoAct 13 process 17 ;Proceso para mostrar la descripción de una localidad done nadar _ at 22 pnjdice pWally "Mejor no me alejo mucho de la orilla... puede haber tiburones." 0 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 fGraficoAct 23 process 17 ;Proceso para mostrar la descripción de una localidad done ; *************************************************************************************** ; Localidad 24 dentro de la cabaña ; *************************************************************************************** examinar CABAÑA at 24 writeln "{LOCATION|38}" done ; *************************************************************************************** ; Localidad 25 ; En la copa del árbol, tras subir por la liana ; **************************************************************************************** saltar _ at 25 eq 34 255 ; no hay segundo nombre synonym bajar _ bajar _ at 25 goto 19 writeln "Das un saltito y..." pnjdice pWally "¡UN SALTITOOOOOOOOOO!" 0 writeln "Aterrizas al pie del árbol." ;anykey let fGraficoAct 19 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 oArco 20 ;el arco en el nido 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 oHuevo writeln "De un saltito saltas a la rama de al lado, justo al nido." goto 20 let fGraficoAct 20 process 17 ;Proceso para mostrar la descripción de una localidad done saltar nido at 25 isat oHuevo 20 writeln "De un saltito saltas a la rama de al lado, justo al nido." goto 20 let fGraficoAct 20 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 fGraficoAct 19 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 pWally "Bueno me da pereza hacer eso con la rama." 0 done _ nido at 25 pnjdice pWally "Queda en el otro árbol, desde aquí no llego bien." 0 done /PRO 11 ; ** Mini conversa con wilma _ _ parse writeln "{ink|yellow|Wilma: } ¡Qué diablos dices Wally!" newtext done _ _ writeln "{ink|yellow|Wilma: } ¡Bájame de aquí!" newtext done /PRO 12 ; ** En la estancia 18, con el coche ; ** Afilamos el hacha en las ruedas del coche. ; ** Hace falta que tengamos el aceite de coco. ; ** Y el hacha sin afilar ; ** Se llega a este proceso desde la estancia 18, al teclear el verbo afilar. _ hacha eq 44 &&_voc_COCHE let 44 &&_voc_RUEDA _ hacha eq 44 &&_voc_RUEDA carried oHachaSinAfilar ;carried oBotella bnotzero# fRueda ruedaAceite { writeln "Con la piedra lubricada de aceite, consigues afilar el hacha, dejando un filo profesional." place oHachaSinAfilar 255 place oHachaAfilado 254 done } bnotzero# fRueda ruedaAgua { 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 oHachaSinAfilar writeln "Creo que ese no es sitio correcto para afilar el hacha." done _ hacha carried oHachaSinAfilar writeln "¿Dónde quieres afilar el hacha?" done _ hacha present oHachaAfilado writeln "El hacha ya está bien afilada." done _ hacha notcarr oHachaSinAfilar writeln "No tienes el hacha." done _ _ writeln "No sé que quieres afilar ni dónde." done /PRO 13 ; ** Mini conversa con herbert _ _ 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 ; Es este proceso se llega tras tener éxito al coger un objeto ; viene de la pestaña STX : ; /36 ; Coges {OREF}{process|14}. ; para controlas el éxito de coger ; Para más info: http://foro.caad.es/viewtopic.php?f=6&t=5836 _ _ beep coger.mp3 MCanalFx 1 process 19 ;repintamos coger _ noteq 51 oCangrejo carried oCangrejo writeln "Sueltas una de las pinzas del cangrejo para coger {OREF}" pnjdice pWally "¡AUUUU!" 0 writeln "Con la pinza suelta el cangrejito te da un 'mordisco' y se te cae de las manos." place oCangrejo 21 pnjdice pWally "Se me escapó el cangrejo..." 0 ; no podemos hacer place objeto - > a jugador, debemos pasar por aquí después coger _ eq 1 3 ;si se tienen dos objetos no se pueden coger más pnjdice pWally "Dejo por aquí {OREF}, que no tengo más manos." 0 place @51 @38 done quitar _ carried oCangrejo writeln "Sueltas una de las pinzas del cangrejo para coger {OREF}" pnjdice pWally "¡AUUUU!" 0 writeln "Con la pinza suelta el cangrejito te da un 'mordisco' y se te cae de las manos." place oCangrejo 21 pnjdice pWally "Se me escapó el cangrejo..." 0 quitar _ eq 1 3 ;si tiene dos objetos no te deja coger más, con las chanclas sería 3 objetos pnjdice pWally "Dejo por aquí {OREF}, que no tengo más manos." 0 place @51 @38 done ;dejar _ ; process 18 /PRO 15 ; Proceso para cocer al cangrejo ; Se llega aquí después de lanzar o dejar el cangrejo en el agua hirviendo del agujero. ; Podemos llegar bien desdes el proceso 7 -> Objeto cangrejo "meter cangrejo en el aguerjo" (creo.... ; ... que esto sobra, ya que con lo del proceso 10 bastaría) ; o bien desde el proceso 10 -> Localidad 19 "meter cangrejo en el agujero" "meter en el agujero el cangrejo" _ _ writeln "Metes sin piedad el cangrejo vivo en el agua hirviendo y lo transformamos en un cangrejo cocido." place oCangrejo 255 place oCangrejoCocido 19 done /PRO 16 ; ** La almeja ex almeja writeln "{textpic|almeja.png|0}" ex almeja present oAlmeja onotzero oAlmeja aLleno writeln "Dentro de la concha de la almeja hay unas cuantas gotas de agua del pozo de los deseos." done ex almeja present oAlmeja 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 pWally "Podría beber agua de la almeja, pero ahora no tengo sed." 0 done comer concha present oAlmeja 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 oAlmeja writeln "Huele a bacalao." done llenar almeja carried oAlmeja onotzero oAlmeja aLleno writeln "La almeja ya está llena." done llenar almeja at 16 carried oAlmeja ;eq 44 53 ; el segundo nombre es agua lnotzero @38 aLocAgua ;y estamos en un loclidad con agua writeln "Llenamos la almeja con agua del pozo." oset oAlmeja aLleno done llenar almeja carried oAlmeja ;eq 44 53 lnotzero @38 aLocAgua writeln "Ese agua no es digna para esta almeja." done llenar almeja carried oAlmeja writeln "Por aquí no veo nada de agua." done vaciar almeja carried oAlmeja ozero oAlmeja aLleno writeln "La almeja está vacía." done ; Podemos vaciar la almeja en el fuego de la estancia 3, donde está la olla vaciar _ at 3 onotzero oAlmeja aLleno present oOlla noteq 44 255 eq 44 &&_voc_FUEGO ; no hacemos whatox2, ya que la chimenea = fuego no es objeto presente writeln "Vacías la almeja en el fuego de la olla, la olla se apaga." oclear oOlla aOn oclear oAlmeja aLleno picture tres_2.png let fGraficoAct 403 plus fGraficoAct GRAFICOS done vaciar _ carried oAlmeja onotzero oAlmeja aLleno writeln "Vacías el agua de la almeja en el suelo." oclear oAlmeja aLleno done /PRO 17 ; ** Imprimir la descripción completa de una localidad ; Texto + obejeto _ _ cls process 19 ;drawpicture @fGraficoAct writeln "{LOCATION|38}" process 1 ;ISLIGHT ;LISTOBJ ;Lista los objetos ;LISTNPC @38 ;Lista las personas /PRO INTERRUPT 18 ; ** Proceso interrupción para imprimir inventario gráfico. ; Buscaremos todos los objetos que tenemos mediante un bucle: ; Y se imprimen con pictureat _ _ CLEAR fAux2 CLEAR fAux3 let fAux 50 ;posición en vertical del objeto LT: fAux2 @fNumObjetos ;@fNUMERO_OBJETOS ;fNUMERO_OBJETOS = OBJETOS CREADOS + 1 { CARRIED# @fAux2 { let fAux3 @fAux2 ; Guardamos fAux2 plus fAux2 INV_GRAFICO ; El recurso para el objeto será 100 + 256 (constantes txtpaws) + el número de objeto pictureat 50 @fAux @fAux2 plus fAux 75 ; Desplazamos en vertical para el siguiente objeto. let fAux2 @fAux3 ; Recuperamos fAux2 } WORN# @fAux2 { let fAux3 @fAux2 ; Guardamos fAux2 plus fAux2 INV_GRAFICO ; El recurso para el objeto será 100 + 256 (constantes txtpaws) + el número de objeto plus fAux 170 ; las prendas de vestir irán en la parte inferior del inventario. pictureat 50 @fAux @fAux2 minus fAux 170 ; Desplazamos en vertical para el siguiente objeto. let fAux2 @fAux3 ; Recuperamos fAux2 } PLUS fAux2 1 } ;Repintamos los gif de herbert y wilma sólo si hemos redimensionado ( bit 4 de flag 12 a 1 ) bnotzero# 12 4 { ;Los gift de herbert y wilma noteq# fWilma 1 pictureat 1525 100 wilmaesq.gif eq# fWilma 1 pictureat 1525 100 wilma.png noteq# fHerbert 1 pictureat 1525 250 herbertesq.gif eq# fHerbert 1 pictureat 1525 250 herbert.png } /PRO 19 ; ** Repintar el grafico de una localidad. ; Cada vez que se repinta una localidad picture pintará la pantalla según el recurso de entrada en el flag fGraficoAct ; En el proceso 1, el flag fGraficoAct, le cargamos el valor de la localidad actual, que será por defecto el número de ; recuro inicial de la localidad. ; Si la imagen de la localidad cambia durante el juego este flag debe ser recargado en el propio proceso 1. _ _ picture @fGraficoAct ;Los gift de herbert y wilma noteq# fWilma 1 pictureat 1525 100 wilmaesq.gif eq# fWilma 1 ; las imágenes de wilma y herber que no se pinten en la pantalla final (13) { notat 13 noteq fHerbert 1 pictureat 1525 100 wilma.png } noteq# fHerbert 1 pictureat 1525 250 herbertesq.gif eq# fHerbert 1 { notat 13 noteq fWilma 1 pictureat 1525 250 herbert.png } /PRO 20 ; ** New ngPAWS Process 20 ; Al dejar un objeto, sonido FX + repintar localidad para eliminar el objeto del invetnario gráfic _ _ process 19 beep coger.mp3 MCanalFx 1