помогите со скриптом на заточку скиллов

[Valer4ik]

я уже 4 дня пытаюсь справится с этим скриптом.
как никрутил его всё равно выбивает с игри после 2-3 заточек а если заточка непроходит то скрипт остонавливаеца.
народ помогите пожалуйста найти РАБОЧИЙ скрипт для заточки скиллов!!!! хроники Gracia Epilogue, надо задержку между точками 2-3 сек, чтобы начиналась заточка заново после неудачной заточки.
ОЧЕНь надо!!
зарание ОГРОМНОЕ спасибо.


SCRIPT

PHP код:

const
   nik='tangence';
   Enchant=10;

var
   SubID, SkillID, SkillLvl, CurrEnch: integer;

procedure Init; //Вызывается при включении скрипта
begin

end;

procedure OnTimer01(Sender: TObject);
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin
 CurrEnch:=0;
end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    if FromServer and (pck[1]=#$62) then case pck[2] of
        #$A0:   //точнулся
                if CurrEnch<Enchant then
                   begin
                     CurrEnch:=CurrEnch+1;
                     Buf:=#$D0;
                     WriteH(SubID);
                     WriteD(SkillID);
                     WriteD(SkillLvl+CurrEnch);
                     SendToServerEx(nik);
                   end;
        #$A1:   //не точнулся
             begin
                     CurrEnch:=1;

                     Buf:=#$D0;
                     WriteH(SubID);
                     WriteD(SkillID);
                     WriteD(SkillLvl+CurrEnch);
                     SendToServerEx(nik);

             end;
    end;

    if FromClient and (pck[1]=#$D0) then
        begin
           SubID:=ReadH(2);
           SkillID:=ReadD(4);
           SkillLvl:=ReadD(8)-1;
           CurrEnch:=1;
        end;
end.