1
0
Fork 0

BeforeParsing solution by @cheshire

This commit is contained in:
Alexander Yakovlev 2019-08-15 02:10:48 +07:00
parent 26949072a9
commit 5886c70ecf
Signed by: oreolek
GPG Key ID: 1CDC4B7820C93BD3
2 changed files with 18 additions and 1 deletions

17
examine_ru.h Normal file
View File

@ -0,0 +1,17 @@
[ BeforeParsing o i j n;
objectloop (o provides name) {
for (i=1 : i<=parse-->0 : i++) {
if (TestScope(o, player) && Refers(o, i)) {
n++;
}
}
}
if (n < parse-->0) rfalse;
for (j=buffer-->0 : j>0 : j--) {
buffer-->(j+2) = buffer-->j;
}
buffer-->1 = 'о';
buffer-->2 = ' ';
buffer-->0 = buffer-->0 + 2;
VM_Tokenise(buffer, parse);
];

View File

@ -5,7 +5,7 @@ Constant Headline "^Тест Информа.^";
Include "Parser";
Include "VerbLib";
Include "./examine_en";
Include "./examine_ru";
[ Initialise;
location = gallery;