20:52 | 22.11.2024
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Проверка количества итемов обычных и квестовых
Sonik · Offline · Дата: Четверг, 03.12.2015, 21:59 | Сообщение # 1

  • Подполковник
  • Сообщений: 143
 
3
 
Вставляем функцию в код:
Код
function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var tempItem: TL2Item;
begin
if quest then Inventory.Quest.ByID(itemID, tempItem)
else Inventory.User.ByID(itemID, tempItem);
Result := tempItem.Count;
end;

Чтобы проверить итемы:
Код
CheckItemCount(57); // item id

Чтобы проверить квест итемы:
Код
CheckItemCount(1087, True) // quest item id


Пример 1 (Простой итем):
Код
function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var tempItem: TL2Item;
begin
   if quest then Inventory.Quest.ByID(itemID, tempItem)
   else Inventory.User.ByID(itemID, tempItem);
   Result := tempItem.Count;
end;
begin
   if CheckItemCount(57) < 1000 then
      print('low adena');
end.
Проверяем сколько адены, если меньше 1000 пишем low adena.

Пример 2 (Квестовый итем):
Код
function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var tempItem: TL2Item;
begin
   if quest then Inventory.Quest.ByID(itemID, tempItem)
   else Inventory.User.ByID(itemID, tempItem);
   Result := tempItem.Count;
end;
begin
   if CheckItemCount(1087, True) < 8 then
      Engine.FaceControl(0, True);
end.
Проверяем сколько квест итемов, если меньше 8, фармим.

Также можно использовать и с while:
Код
while CheckItemCount(1087, True) < 8 do …


Отключение бота при достижении определенного количества  итемов
Код
function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var tempItem: TL2Item;
begin
   if quest then Inventory.Quest.ByID(itemID, tempItem)
   else Inventory.User.ByID(itemID, tempItem);
   Result := tempItem.Count;
end;

begin
   while true do begin
   if CheckItemCount(3423, True) >= 50 then
   Engine.FaceControl(0, false);
        Delay(1000);
   end;
end.

  • Страница 1 из 1
  • 1
Поиск: