Цитата:
Сообщение от Muko
скрипт нивидит ни пухи ни точек
|
Попробуй убрать(поставить) галочку: Показывать смещение в Hex
Цитата:
Сообщение от NLObP
для Грации можно взять здесь
|
Скачал данный скрипт. Как сделать чтобы он не "останавливался" при поломке всех итемов??? Точу блессед точками.
Опишу, навсякий, проблему:
Точиться все отлично, но при поломке итема скрипт перестает его брать в расчет. Когда же последний итем ломатеся, то игра зависает.
Добавлено через 20 часов 28 минут
решил сделать так:
case заключил в цикл:
Код:
repeat
case pck[1] of
//......................................
#$11: begin
//debugmsg('S>C Пакет ItemListPacket #$11');
ItemList;
end;
//......................................
#$21: begin
//debugmsg('S>C Пакет InventoryUpdate #$21');
InventoryUpdate;
end;
//......................................
//Пакет ChooseInventory
#$7C: begin
flag7C:=false;
if ready then begin //and (readd(2)=itemid)
//ищем подходящий предмет для заточки
timer.enabled:=false; //отключаем пока не найдем предмет для заточки
repeat
ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;
//************************************************
if (CurEnchLvl>=strtoint(Edit1.Text)) then begin
msg.Lines.Add('Нет подходящих предметов для улучшения! Прервано!');
msg.Lines.Add('Достигли MaxEnchLvl!');
timer.enabled:=false;
ready:=false;
delay(500);
RequestEnchantItem(-1);
exit;
end else begin
msg.Lines.Add('Пробуем улучшить ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
flag7c:=true;
ready:=false;
timer.enabled:=true;
delay (500);
exit;
end;
end;
end;
#$FE: begin
if pck[2]=#$81
then begin
flagFE:=true;
delay (2000);
exit;
end;
end;
#$87: begin
if readd(2)=0
then begin
msg.Lines.Add('Улучшили ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(good);
flag87:=true;
delay (500);
exit;
end
else begin
msg.Lines.Add('Сломали ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(broken);
flag87:=true;
delay (500);
exit;
end;
end;
end;
until CurEnchLvl><0; //начнем с начала. Расскоментировать для блессет скроллов
if flag7C=true
После компилироавния ставит курсор перед последним end что это значит???
Откомментируйте пожалуйста.