[goodvin1709]

У мну цыклом перебирает и находит необходимую пушку
Вот так я шукаю пушку
Оффтоп

Procedure FindItemToEnchant ;//Ищем Пушку.
Var
I : Integer ;
Begin
ItemToEnchant := 0 ;//Обнуляем текущую для заточки пушку.
For i := 1 to InventoryS do  //Перебор инвентаря.
Begin
If (ItemBase[i,1] = ItemID) and (ItemBase[i,3] < EnchantTarget) then //Если параметры ячейки массива подходят то выбираем ету пушку для заточки.
Begin
ItemToEnchant := ItemBase[i,2] ;  //назначим затачимую вещь.
i:=InventoryS;//Выходим с цыкла.
End ;
End ;
End ;

поле этого беру ItemToEnchant и пихаю в заточку.
Также я делаю поиск для точки и пакетом вроде
buf := hstr('14') ;
WriteD(Scroll) ;
WriteD(0) ;
SendToServerEx(CharName) ;
Жду делаем 500
и вставляю пушку.
buf := hstr('58') ; //Пакет на клик.
WriteD(ItemToEnchant) ; //Указываем пушку.
SendToServerEx(CharName);
и вот так заточило дальше идет пакет 27 я проверяю что иммено сталось по UpdateType от этого пакета.
если надо очищаю,додаю,правлю массив.И снова поиск точки и пушки и снова пуск заточки.
P.S у меня 3 окна и 3 разных скрипта.
Но точит и поттормаживает.