PDA

Просмотр полной версии : Помогите с скриптом!


DavisGOD
14.11.2015, 12:48
uses SysUtils, Classes;
var Figth_Flag:boolean;
tempItem: TL2Item;
Npc: TL2Npc;
Obj: TL2Buff;
L2Skill: TL2Skill;
Control: TL2Control;
TNpcList: TL2List;
function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
begin
if quest then Inventory.Quest.ByID(itemID, tempItem)
else Inventory.User.ByID(itemID, tempItem);
Result := tempItem.Count;
end;
begin
Engine.SetTarget(30400);
Engine.DlgOpen();
Engine.LoadConfig('KachEE');
Engine.FaceControl(0,true);
while delay(1000) do
if CheckItemCount(6353, true) >= 1 then begin
Engine.FaceControl(0,false);
break;
end;
Engine.MoveTo(46094, 41238, -3534);
Engine.SetTarget(30400);
Engine.DlgOpen();
end.


Вот скрипт после включения софта он просто продолжает бить мобов хоть в инвентаре есть итем с ИД(6353) он не выключает софт и скрипт продолжается бесконечно, что тут надо исправить?
Бот Adrenalin

Заранее спасибо!

LovMi
23.11.2015, 05:41
[Ссылки могут видеть только зарегистрированные и активированные пользователи]

Iamdimusik
06.12.2015, 09:40
попробуй условие поменять на : If Invetory.User.ById(6353, Item) then ... и в var добавить строчку Item:TLItem;