Помогите кто чем может !!!

[leto]

Этот скрипт расчитан на блески и точит всего одну вещь кто сможет переделать чтоб точил все вещи в инвенторе ну вобщем работало примерно как у NLObP TAMBIK или mks этот скрипт работает на хрониках HighFive сервер shock-world
или от сюда что выдрать и добавить в скрипты выше упомянутых форумчян чтоб они работали ???

PHP код:

const 
  nik='lesay';//Тут вписываем свой ник
  Enchant=8;//это число при котором скрипт точить дальше не будит
 
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:=3000; //тут ставим интервал 1000 = 1 сек
 
Timer02:=TTimer.Create(nil);
 Timer02.OnTimer:=@OnTimer02;
 Timer02.enabled:=false;
  Timer02.interval:=3000; //Тут тоже настраиваем под себя время заточки
 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.