В конце процедуры точка не ставиться, точкой закрываеться програма.Venom wrote:
(at 26:4): Semicolon (';') expected
Я правильно понимаю, это значит что в предыдущей строке, т.е. в 25, не стоит ';'. Но символ та стоит?
Подскажите, в чем ошибка ?
Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Хелп, лут из трупа.
RainBow - http://rainbow-guild.kiev.ua/
Процедура должна выглядеть так примерно :
Что касаеться ошибки которая вылетает, нужно видеть скипт целиком.
Code: Select all
procedure FindCorpse;
VAR
Corpse: Cardinal;
begin
FindDistance := 1;
If FindType($1BFB, backpack) = 0 then
begin
If FindType($2006, ground) <> 0 then
begin
AddToSystemJournal('Найден труп ' + IntToStr(finditem));
Corpse := finditem;
UseObject(Corpse);
Wait(1000);
Ignore(Corpse);
If FindType($1BFB, Corpse) <> 0 then
begin
DragItem(finditem, 0);
Wait(500);
DropItem(backpack,0,0,0);
Wait(500);
end;
end;
end;
end;
RainBow - http://rainbow-guild.kiev.ua/