oreolek
/
inform6_examination
1
0
Fork 0
Code Releases Activity

English version - hooray

This commit is contained in:
Alexander Yakovlev 2019-08-14 17:33:29 +07:00
parent 566e290f36
commit 5720f01247
Signed by: oreolek
GPG Key ID: 1CDC4B7820C93BD3
2 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
examine_en.h
View File

@ -1,15 +1,22 @@
Global thing_to_examine;
[ExamineScope thing;
if (thing ofclass Object && WordInProperty(thing_to_examine, thing, name)) {
<Examine thing_to_examine>;
rtrue;
}
rfalse;
[ IdObj name_o o n i;
objectloop (o in location && o provides name) {
n = o.#name / WORDSIZE;
for(i = 0 : i < n : i++)
if (o.&name-->i == name_o) return o;
}
rfalse;
];
[ UnknownVerb word;
thing_to_examine = word;
LoopOverScope(ExamineScope);
rfalse;
thing_to_examine = IdObj(word);
if (thing_to_examine) return 'unknown';
rfalse;
];
[ ExamineObjectSub;
<< Examine (thing_to_examine) >>;
];
verb 'unknown' * -> ExamineObject;

4
source.inf
View File

@ -19,7 +19,7 @@ Object gallery "Выставочный зал"
has light;
Object photo "маленьк/ое фото/" gallery
with name 'маленьк' 'фото',
with name 'маленьк/ое' 'фото/' 'фотограф/ия',
describe [;
"Перед вами стоит маленькое фото.";
@ -32,7 +32,7 @@ Object photo "маленьк/ое фото/" gallery
has static neuter;
Object teapot "глинян/ый чайник/" gallery
with name 'глин' 'чай',
with name 'глинян/ый' 'чай' 'чайник/',
describe [;
"Слева от фото выставлен невысокий глиняный чайник.";