1
0
Fork 0

BeforeParsing solution by @cheshire

master
Alexander Yakovlev 3 years ago
parent 26949072a9
commit 5886c70ecf
Signed by: oreolek
GPG Key ID: 1CDC4B7820C93BD3
  1. 17
      examine_ru.h
  2. 2
      source.inf

@ -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);
];

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

Loading…
Cancel
Save