Скрипт на заточку

[Hworang]

Сообщение от Fer123

По идее должно работать если здесь вставить:
CurEnchLvl:=0;
repeat
ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;

Увы, не помогло.
Во 1х было бы полезно знать куда вставлять код (CurEnchLvl:=0 встречается несколько раз)
Ну а сама проблемма в том что функция GetItemEnchant не объявлена в скрипте