Part 2.53b - Accessi Diretti a Inform 6

Include (-
[ LanguageTimeOfDay hours mins i;
i = hours%12;
if (i == 0) i = 12;
if (i < 10) print " ";
print i, ":", mins/10, mins%10;
if ((hours/12) > 0) print " pm"; else print " am";
];
-) instead of "Time" in "Language.i6t".

Include (-
[ LanguageVerb i;
switch (i) {
'i//','inv','inventory':
print "take inventory";
'g//': print "look";
'x//': print "examine";
'z//': print "wait";
default: rfalse;
}
rtrue;
];

[ LanguageVerbLikesAdverb w;
if (w == 'look' or 'go' or 'push' or 'walk')
rtrue;
rfalse;
];

[ LanguageVerbMayBeName w;
if (w == 'long' or 'short' or 'normal'
or 'brief' or 'full' or 'verbose')
rtrue;
rfalse;
];
-) instead of "Commands" in "Language.i6t".