В помощь бомжам х1 с шедоу пухами

[segment59]

1. Проверяет надета ли пуха

2. Экономит время пухи, когда чар сидит - он ее снимает

procedure Shadow(id_sh: Integer; odet : Boolean);
var find_item : TL2Item;
item_cnt, i : Integer;
begin
   if(ItemList.ByID(id_sh, find_item)) then
      if(find_item.Equipped xor odet) then
         if(id_sh <> 57) then 
            Engine.UseItem(id_sh); 
end;

Begin
while 1=1 do begin
if (User.Sitting) then begin
    Engine.UseItem(8824);//Тут указываем ID пушки
    while (User.Sitting) do begin
    delay(900);
    end;
  end;
  Shadow(8824, true);//Тут указываем ID пушки
  delay(5000);
end;
end. 

 

 

Изменено 15 июля, 2022 пользователем segment59