oreolek/inform6_examination
1
0
Fork 0
Code Releases Activity

Russian version

Browse source
This commit is contained in:
Alexander Yakovlev 2019-08-14 23:19:56 +07:00
parent 5720f01247
commit 0e50e5a203
Signed by: oreolek
GPG key ID: 1CDC4B7820C93BD3
2 changed files with 17 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
examine_ru.h
View file

@ -1,20 +1,22 @@
Global thing_to_examine;
[ExamineScope thing;
if (
thing ofclass Object &&
! WordInProperty(thing_to_examine, thing, name)
thing_to_examine == (thing.&name) --> 0
) {
<Examine thing_to_examine>;
rtrue;
}
[ UnknownVerb o n i;
objectloop (o provides name) {
if (TestScope(o, player)) {
n = o.#name / WORDSIZE;
for(i = 0 : i < n : i++) {
if (Refers(o, 1)) {
thing_to_examine = o;
return 'unknown';
};
};
};
};
rfalse;
];
[ UnknownVerb word;
thing_to_examine = word;
LoopOverScope(ExamineScope);
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 [;
"Слева от фото выставлен невысокий глиняный чайник.";