Скрипт на заточку

[4erep0k]

вобщем обращаюсь с такой проблемой..у меня l2phx 3.1.18
я играю на interlude,скачал скрипт для интерлюда,всё переделал как писалось.вот посмотрите ..это начало скрипта,дальше думаю нету смысла его кидать,ну если не попросите конечно..
вощем у меня такая ошибка..я покупаю точки,покупаю 2 пушки,делаю как всё было описанно сдесь.http://coderx.ru/showthread.php?t=476

скачал скрипт отсюда http://coderx.ru/downloads.php?do=file&id=24

но когда включаю скрипт оно точит 1-3 раза и останавливается.точней юзает свиток точки и просто не точит дальше ((
вот с чего всё начинается http://i034.radikal.ru/1106/01/915a79b4f1d3.jpg

и вот чем заканчивается.http://s58.radikal.ru/i162/1106/8b/61340adbbdce.jpg
ПОМОГИТЕ ПОЖАЛУЙСТА!
если у кого-то есть скрипт под interlude то выложите или пришлите в скайп cherepok55

мне надо что бы точило например шб.блесс точками,до +15 а потом само останавливалось.при этом само закупало точки,во время процесса.

КТО СМОЖЕТ ПОМОГИТЕ,БУДУ ОЧЕНЬ БЛАГОДАРЕН!
ВОТ НАЧАЛО МОЕГО СКРИПТА,ПРИ НАДОБНОСТИ вЫЛОЖУ ВЕСЬ!


Оффтоп

const
Name='CoreOwned'; //Вписать сюда имя чара
//установить константу в зависимости от типа игры (С4 или Интерлюд)
interlude=true; //Interlude - true, C4 - false
//-------------------------
max=86; //количество слотов в инвентаре чара

//............................................
//Список переменных
var
Item, scrl:integer;
ScrollID, ScrollOID:integer; //ScrollID скролла заточки
ItemID,ItemOID:integer; //ItemID затачиваемого предмета
MaxEnchLvl:integer; //уровень заточки который требуется достичь
ItemBase: array[1..4,1..max] of integer; //ItemOID, ItemID, Kol-vo, ItemLvl
ready, add : boolean;
timer : TTimer;
ItemCount, CurEnchLvl: integer;
SocialID : integer; // вспомогательная
ItemsName, StringList : TStringList; //названия предметов, имена продавцов
FormMain : TForm; //Создаваемая форма
Splitter1 : TSplitter;
Splitter2 : TSplitter;
Stats : TMemo;
Msg : TMemo;
Panel1 : TPanel;
GroupBox2 : TGroupBox;
Label2 : TLabel;
Label4 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
CheckBoxItem : TCheckBox;
ComboBoxItem : TComboBox;
ButtonStartEnchant : TButton;
ButtonStopEnchant : TButton;
CheckBoxScroll : TCheckBox;
ComboBoxScroll : TComboBox;
EditItemVal : TEdit;
EditScrollVal : TEdit;
EditScrollOID : TEdit;
EditItemOID : TEdit;
Label1 : TLabel;
Label3 : TLabel;
Edit1 : TEdit;
Edit2 : TEdit;

//Breadfan: эээ а галочки поставить, слева от названия заточки\итема - пробовал?