Процедура поиска сумки

[Daden]

Чтобы не указывать в каждом скрипте ИД сумки, а указать один раз ее тип и при подходе к этой сумке (разгрузка лута у дома предположим). Может кто писал подобное?

[drabadan]

Чтобы не указывать в каждом скрипте ИД сумки, а указать один раз ее тип и при подходе к этой сумке (разгрузка лута у дома предположим). Может кто писал подобное?

Code: Select all

procedure SetUnloadBag;
begin
if (GetX(self) = UnloadTile_X) and (GetY(self) = UnloadTile_Y) then
  if FindType(UnloadChest_Type, Ground) > 0 then 
    UnloadChest_Id := FindItem;
end;