[Помогите!] Адреналин.

[velty]

Нужна помощь с скриптом. В общем я нашел скрипт, который проверяет заточку. Т.е. чтоб точить кликером, а когда пушка будет допустим +20 перс ушел в релог. Так вот нужна помощь с самим скриптом, а то он не работает. Скажите что и куда вписать.

Сам скрипт:

uses SysUtils;

var
  Ench: cardinal;
  p2,p1,p: pointer;
  action: TL2Action;
  src, dst: string;
  dmg: cardinal;
  Endline1,EndLine2:String[64];
const 
  safeEnch:integer=3;//безопастная заточка
begin
  while engine.status = lsOnline do
  begin
    Action := Engine.WaitAction([laSysMsg], p1, p2);

    if Action = laSysMsg then 
    begin
        if (integer(p1)=63) then inc(Ench) else
        if (integer(p1)=1517) then Ench:=safeEnch;
        print('Текущая заточка '+Ench.ToString);
        if Ench>=60 then engine.restart;//заточились в релог уходим
    end;
  end;
end.

[Heitz]

Всё куда проще, за пять минут на коленке, держи)

var idWeapon : integer;
     weapon : TL2Item;
begin
  idWeapon := 123;//id weapon
  ItemList.ByID(idWeapon, weapon);
  while Engine.Status = lsOnline and weapon <> nil do
    begin
      if weapon.EnchantLevel = 6 then //your enchant lvl
        Engine.Restart; 	
    end;	
end.