MODVS VIVENDI - SPAC - Club de Aventuras AD

TUTORIAL
has female container openable ~open;
class cerillas
with short_name "cerilla",
plural "cerillas",
description [;
if(self in caja_de_cerillas)"Una cerilla que está dentro de la caja de cerillas.";
"Una cerilla normal y corriente.";
],
parse_name [ i j j2 j3 j4;
j=NextWord();
if (j=='cerilla')i++;
if (j=='cerillas'){i++; parser_action=##PluralFound;}
if (i>0 && action_to_be~=##Take or ##Remove){
j2=NextWord();
j3=NextWord();
j4=NextWord();
if(self in caja_de_cerillas){!¿está dentro de la caja?
if(j2=='de'){if(j3=='la' && j4=='caja')i=i+3;
if (j3=='caja')i=i+2;}
}!¿está dentro de la caja?
}
return i;
],
has female;
cerillas c1 "" caja_de_cerillas;
cerillas c2 "" caja_de_cerillas;
cerillas c3 "" caja_de_cerillas;
cerillas c4 "" caja_de_cerillas;
cerillas c5 "" caja_de_cerillas;
cerillas c6 "" caja_de_cerillas;
cerillas c7 "" caja_de_cerillas;
cerillas c8 "" caja_de_cerillas;
!###########################################
! Procedemos a reemplazar el Parsenoun de la librería por el código de la
! librería Intnombre que hemos descargado. Con esto conseguimos que los
! adjetivos puntúen previa detección de un nombre.
Replace ParseNoun;
Include "IntnombreINFSP.h";
#Include "SpanishG";
Vamos a analizar este trocito de código
del objeto caja_de_cerillas para ver lo
que estamos haciendo:
with parse_name [ i j j2 j3 j4;
j=NextWord();
if (j=='caja'){!ee
i++;
j2=NextWord();
j3=NextWord();
j4=NextWord();
if(j2=='de'){if(j3=='las'
&& j4=='cerillas')i=i+2;
if
(j3=='cerillas')i=i+2;}
}!ee
return i;
],
En lugar de definir los nombres y los
adjetivos definiéndolos previamente
Desambiguando en Inform 6
como de costumbre, vamos a mirarlos
paso a paso con la función parse_name.
Nextword(); devuelve el valor de la
siguiente palabra escrita,
consecutivamente. Como la primera es
el verbo (o cualquier texto conector de
la gramática; o cualquier palabra
supérflua que el parser decarte, como un
artículo), el primer Nextword() leerá la
SPAC – Octubre 2010 / 47