Алгоритм следующий :
если в паке нет шмотки, вещи и поблизости находится труп, то перс открывает этот труп, находит в нем отсутствующую шмоку и кидает себе в пак.
Скрипт запускается, но выдает -
Drop error: PickupedItem = 0.
Drag error: ID = 0, check your script!
Code: Select all
procedure FindCorpse;
VAR
Corpse: Cardinal;
Begin
FindDistance := 1;
If FindType($1BFB, backpack) = 0 then
begin
FindType($2006, ground);
begin
AddToSystemJournal('Найден труп ' + IntToStr(finditem));
Corpse := finditem;
UseObject(Corpse);
Wait(1000);
Ignore(Corpse);
begin
FindType($1BFB, Corpse);
DragItem(finditem, 0);
Wait(500);
DropItem(backpack,0,0,0);
Wait(500);
end;