Цитата:
Сообщение от CapsLock
BreadFan спасибо на этом большое но тут ещё одна мелкая проблемка) я помоему разобрался немного помоги чуток это CurEnchLvl:=0; я нашёл эти надписи но их дофига по всему скрипту... какую мне именно строку изменить подскажи плизЗ)
|
в самом конце скрипта ищи Оффтоп
delphi Код:
//Пакет 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.
- менять только ее
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
|