Помогите переписать скрипт на заточку

[Bisker]

Цитата: Расчитано на пвп серваки и изобилие блес точек... Использование: включаем скрипт, c помощью приветствия(1-е социальное действие), забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку.Скорость заточки выставлена 700мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака... Сам скрипт: Цитата: Код: const nik='Ваш ник'; Enchant=6; ///до скольки нужно точить var UseItem, SelectItem, EnchantItem: string; CurrentEnch: integer; key: boolean; Timer01, Timer02: TTimer; procedure Init; begin Timer01:=TTimer.Create(nil); Timer01.OnTimer:=@OnTimer01; Timer01.enabled:=false; Timer01.interval:=700; /// здесь можно выставить интервал Timer02:=TTimer.Create(nil); Timer02.OnTimer:=@OnTimer02; Timer02.enabled:=false; Timer02.interval:=500; /// здесь можно выставить интервал end; procedure OnTimer01(Sender: TObject); begin case key of false: begin buf:=UseItem; SendToServerEx(nik); Timer02.enabled:=true; end; true: begin buf:=EnchantItem; SendToServerEx(nik); end; end; key:=not(key); end; procedure OnTimer02(Sender: TObject); begin buf:=SelectItem; SendToServerEx(nik); Timer02.enabled:=false; end; procedure Free; begin Timer01.free; Timer02.free; CurrentEnch:=0; key:=false; end; begin if FromServer and (pck[1]=#$87) then case ReadD(2) of 0: begin CurrentEnch:=CurrentEnch+1; if CurrentEnch=Enchant then Timer01.enabled:=false; end; 3: CurrentEnch:=0; end; if FromClient and (pck[1]=#$19) then UseItem:=pck; if FromClient and (pck[1]=#$D0) then SelectItem:=pck; if FromClient and (pck[1]=#$5F) then EnchantItem:=pck; if FromClient and (pck[1]+pck[2]=#$56#$0C) then begin pck:=''; Timer01.enabled:=not(Timer01.enabled); end; end.

Всю жизнь юзал этот чудесный наипростейший скрипт.
На эпилоге юзал. А на ГОДе уже никак. Запускаю скрипт, жму 1ое соц действие и перс просто машет рукой, хотя не должен этого делать, и скрипт не активируется.
Подскажите, как переписать этот скрипт под год, чтоб его можно было запустить. Видимо, из-за того, что добавились соц.действия или что-то куда-то перенесли, потому и не работает...
Другие скрипты сложные, надо ID искать, некоторые не точат меньше 2вещей. А мне надо 1 палку точить, и все.