[Breadfan]

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

BreadFan спасибо на этом большое но тут ещё одна мелкая проблемка) я помоему разобрался немного помоги чуток это CurEnchLvl:=0; я нашёл эти надписи но их дофига по всему скрипту... какую мне именно строку изменить подскажи плизЗ)

в самом конце скрипта ищи Оффтоп

//Пакет ChooseInventory
    #$6F: if ready then begin //and (readd(2)=itemid)
      //ищем подходящий предмет для заточки
      timer.enabled:=false; //отключаем пока не найдем предмет для заточки
      repeat
        ItemOID:=GetItem(ItemID,CurEnchLvl);
        if ItemOID=0 then begin
          inc(CurEnchLvl);
          x:=x+1;
          Edit2.text:=inttostr(CurEnchLvl);
        end;
      until ItemOID<>0;
      //************************************************
      msg.Lines.Add('Пробуем улучшить ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID));
      RequestEnchantItem(ItemOID);
      ready:=false;
      timer.enabled:=true; //пока в тесте отключаем (вкл. после заточки предмета)
    end;
    #$81: if readd(2)=0 then begin
//вот тут меняй !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
          CurEnchLvl:=0; //начнем с начала
//------------------------------------------
          x:=x+1;
          end;
  end;
end.

- менять только ее