Цитата:
Сообщение от NLObP
Batyr, инвентарь неправильно определяет, похоже на это.
|
спасибо, сам разобрался) просто в месте
Цитата:
procedure enchantSkroll;
begin
skrolObject:=skrolOID;
sumskrol:=Getitem(skrolID,3,5);//считаем SKROL
SendMsg2 (' SKROLL ... c ID : '+IntToStr(skrolID)+' = '+IntToStr(sumskrol)+' ШТ ');
if (sumskrol>0) then Timer01.enabled:=true;// вкл таймер выбора свитка
if (sumskrol=0) then Timer01.enabled:=true;//Поменял это then begin; на то что написано...зачем останавливать заточку если свитка нет, заточки же итак не будет)
autoMsg:=true;
SendMsg2 ('........ НЕДОСТАТОЧНО SKROLL........ ');
end;
|