Скрипт на заточку l2phx, проблема

[disartas]

Долго пользовался скриптом на заточку l2phx, взятый на этом форуме. Но работал он до Epilogue Хроник. с GOD он не пашет, не запускается. он запускался действием "приветствие", видимо, там изменилась команда или еще что-то(
Помогите, плс, исправить скрипт, чтоб он запускался любым другим способом. Играю на L2 Ertheia хрониках.
Сам скрипт

Цитата: const nik='NIK'; //сюда свой ник Enchant=5; var UseItem, EnchantItem: string; Count, CurrentEnch: integer; Timer01: TTimer; procedure Init; begin Timer01:=TTimer.Create(nil); Timer01.OnTimer:=@OnTimer01; Timer01.enabled:=false; Timer01.interval:=3200; //скорость точки end; procedure OnTimer01(Sender: TObject); begin buf:=UseItem; SendToServerEx(nik); buf:=EnchantItem; SendToServerEx(nik); end; procedure Free; begin Timer01.free; count:=0; CurrentEnch:=0; end; begin if FromServer and (pck[1]=#$87) then begin CurrentEnch:=ReadD(2); if CurrentEnch=Enchant then Timer01.enabled:=false; end; if FromClient and (pck[1]=#$19) then UseItem:=pck; if FromClient and (pck[1]=#$5F) then EnchantItem:=pck; if FromClient and (pck=#$34#$02#$00#$00#$00) then begin pck:=''; Timer01.enabled:=not(Timer01.enabled); end; end.