Помогите с скриптом!

[DavisGOD]

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]

http://zhyk.ru/forum/showthread.php?t=4013

[Iamdimusik]

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