CAAD

Thing objGafasDeVisionNocturna "gafas de visión nocturna" limbo
with
   name_f 'gafas' 'vision' 'nocturna',
   name_m 'visor' 'nocturno',
   description "Equipo estándar GEO. Permiten ver en la oscuridad.",
   after [;
      SwitchOn, Wear:
         give self light;
         give self worn;
         "Las gafas se activan con un pitido contínuo.
          Al principio, todo se ve verde, hasta que se distinguen todos los bordes y formas.";
      SwitchOff, Disrobe:
         give self ~light;
         give self ~worn;
         "Las gafas se han desactivado con un pitido corto.";
   ],
has female pluralname clothing switchable;

class Thing;

name_f 'gafas' 'vision' 'nocturna',

name_fp 'gafas' 'vision' 'nocturna',

object jugador
with
! ... muchas cosas ...
react_before [;
    Inv: return doInv();
],
;

[ doInv x;
    if ( children( jugador ) == 0 ) {
        print "No llevas nada.";
        rtrue;
    } else {
        print "Llevas contigo:^";
    }

    x = child( jugador );

    while( x ~= Nothing ) {
        print "- ", (_The) x, "^";

        x = sibling( x );
    }

    print "^";
    rtrue;
];

PROBANDO
(c)2011 Joruiru.
Release 1 / Serial number 111111 / Inform v6.31 Library 6/11 D

Esto es un infierno
Una habitación triste y sin decoración.
Salidas visibles: ninguna.

Puedes ver unas gafas de visión nocturna.

>coge gafas
Cogidas.

>i
Llevas:
  unas gafas de visión nocturna

>ponte gafas
Las gafas se activan con un pitido contínuo. Al principio, todo se ve verde, hasta que se distinguen todos los bordes y formas.

>i
Llevas:
  unas gafas de visión nocturna (alumbrando y que llevas puesto)

>

!% -~SD
!% +language_name=Spanish
!%

Constant Story "PROBANDO";
Constant Headline "^(c)2011 Joruiru.^";

Release 1;
Serial "111111";

! Queremos usar el comando 'salidas'
Constant ADMITIR_COMANDO_SALIDAS;

Include "Parser";

Include "VerbLib";

[ Initialise ;
! Lugar de comienzo.
location = limbo;

!Se cambia el objeto jugador
!player = mySelfObj;

! Activamos esta variable para que la descripción de los lugares
! se repita siempre, incluso si el jugador ya ha estado alli.
lookmode = 2;

! Mensaje de Bienvenida
"Esto no tiene ni pies ni cabeza.";

];

Include "SpanishG";

Class Localidad
with describe [;
print (string) self.description;
print "^";
<<Salidas>>;
],
has light;

Localidad limbo "Esto es un infierno"
with
description "Una habitación triste y sin decoración.",
;

class Thing;

Thing objGafasDeVisionNocturna "gafas de visión nocturna" limbo
with
   name_f 'gafas' 'vision' 'nocturna',
   name_m 'visor' 'nocturno',
   description "Equipo estándar GEO. Permiten ver en la oscuridad.",
   after [;
      SwitchOn, Wear:
         give self light;
         give self worn;
         "Las gafas se activan con un pitido contínuo.
          Al principio, todo se ve verde, hasta que se distinguen todos los bordes y formas.";
      SwitchOff, Disrobe:
         give self ~light;
         give self ~worn;
         "Las gafas se han desactivado con un pitido corto.";
   ],
has female pluralname clothing switchable;

INFSP Task Team
!       Version: 0.9
!      Released: 8 - Junio - 2008
! Serial Number: 806.8

! INFSP (Spanish Inform Library)
! =====================================================================
!        Author: INFSP Task Team
!       Version: 0.9
!      Released: 8 - Junio - 2008
! Serial Number: 806.8
!          Note: For use with Inform 6. (Tested with Inform compiler
!                version 6.31 and Inform library 6/11).
!   Description: "An Inform library to write Interactive Fiction in
!                Spanish. Grammar Spanish File."
! =====================================================================
!  SpanishG.h -(Gramatica.h) GRAMATICA: Gramática española
!  INFSP 0.8 traduccion al ingles de informATE .: by Sarganar :.
!  InformATE es (c) de Zak
!  Re-edicion INFSP by Sarganar
!  caad.es/informate/infsp/
! ----------------------------------------------------------------------------

! =====================================================================
! INFSP (Spanish Inform Library)
! =====================================================================
!        Author: INFSP Task Team
!       Version: 0.9
!      Released: 8 - Junio - 2008
! Serial Number: 806.8
!          Note: For use with Inform 6. (Tested with Inform compiler
!                version 6.31 and Inform library 6/11).
!   Description: "An Inform library to write Interactive Fiction in
!                Spanish. Language Spanish File."
!================================================================
! Spanish.h
! INFSP 0.9 libreria española para inform, basada en informATE de Zak
!                         .: by Sarganar :.

 8: print " (alumbrando y que llevaba puest", (o) x1;
    ! El objeto tiene "luz" y "puesto"

writeListFrom( child( player ), ENGLISH_BIT );

writeListFrom( child( player ), ENGLISH_BIT | PARTINV_BIT);

writeListFrom( child( player ), ENGLISH_BIT | FULLINV_BIT);

Según el error que te da, imprime esto:

     8: print " (alumbrando y que llevas puest", (o) x1;

Luego llama a o():

[ o obj gna;

    gna=GetGNAOfObject(obj);
    switch(gna)
    {
     0,6: print "o";
     1,7: print "a";
     3,9: print "os";
     4,10: print "as";
    }
]; 

Y luego imprime "o)"

[ GetGNAOfObject obj case gender;
    if (obj hasnt animate) case = 6;
    if (obj has male) gender = male;
    if (obj has female) gender = female;
    if (obj has neuter) gender = neuter;
    if (gender == 0) {
        if (case == 0) gender = LanguageAnimateGender;
        else gender = LanguageInanimateGender;
    }
    if (gender == female)   case = case + 1;
    if (gender == neuter)   case = case + 2;
    if (obj has pluralname) case = case + 3;
    return case;
];

!% -~SD

!% -SD