Хелп, лут из трупа.

[pr0Zak]

(at 26:4): Semicolon (';') expected

Я правильно понимаю, это значит что в предыдущей строке, т.е. в 25, не стоит ';'. Но символ та стоит?
Подскажите, в чем ошибка ?

В конце процедуры точка не ставиться, точкой закрываеться програма.

[Venom]

Поставил ";", получил - [Error] (27:1): Unexpected end of file

[pr0Zak]

Процедура должна выглядеть так примерно :

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;

Что касаеться ошибки которая вылетает, нужно видеть скипт целиком.

[Venom]

top off.
Все работает, всем спасибо !