oreolek/inform6_examination
1
0
Fork 0
Code Releases Activity

English version - hooray

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

4
source.inf
View file

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