Цитата:
Сообщение от 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 не объявлена в скрипте