Процедура поиска сумки
Posted: 18.11.2013 21:13
Чтобы не указывать в каждом скрипте ИД сумки, а указать один раз ее тип и при подходе к этой сумке (разгрузка лута у дома предположим). Может кто писал подобное?
Daden wrote:Чтобы не указывать в каждом скрипте ИД сумки, а указать один раз ее тип и при подходе к этой сумке (разгрузка лута у дома предположим). Может кто писал подобное?
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;