Автоматизация заточки предметов до необходимого уровня by NLObP
Возможности скрипта
--------------------
+ Панель управления;
+ Затачиваем по очереди все предметы с ItemID пока не переломаем
или не заточим. Один предмет всегда остаётся.
Необходимо затариться оружием, заточками и валерьянкой.
Name='NLObP'; //Вписать сюда имя чара
//установить константу в зависимости от типа игры (С4 или Интерлюд)
interlude=true; //Interlude - true, C4 - false
Внимание!
Из комбобокса обязательно надо выбрать вещь, чтобы скрипт узнал
ID и количество, только потом ставить напротив галочку.
Галочки снимать не надо, если кончились заточки/вещи - можно сразу идти
покупать и продолжать заточку.
В инвентаре должно быть не менее двух одинаковых затачиваемых вещей, степень заточки значения не имеет
Скрипт распространяется как есть, и я не несу ответственности за то, что ВЫ натворили у себя, его используя.
Приветы всем.
Испольую скрипт NlobP версия 0.7 от 20.07.2008.(Сервер Interlude), дело в том, что вещь при сточке, стачивается не на 0, а на 15, и когда это происходит зависает пакетхак, тему читал, так и не понял как с этим бороться, значения в CurEnchLvl менял на 15, не помогает, все равно зависает, я так понял это у многих, кто-нибудь решил эту проблему?
Что никто не решил? Если нет, напишите каими скриптами пользуетесь, буду признателен.
Что нужно изменить в скрипте для того,чтобы он точил 1 вещь,а не по очереди? Хроники Interlude.Вроде версия скрипта 0.5 должна точить 1 вещь?Если да,то прошу выложить эту версию.
Добавлено через 18 минут
Все разобрался,теперь проблема со сбросом заточки.Сбрасывает на 3,после этого программа зависает.Вобщем проблема такая же как у nneett
Добавлено через 24 минуты
Цитата:
Сообщение от Fer123
nneett,
я вместо этого
DELPHI Код:
repeat
ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
if ItemOID=0thenbegininc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;
CurEnchLvl получаю в InventoryUpdate для определенного ItemOID
Это как раз эффективно когда точишь блесс точками.
Обьясни пожалуйста поподробнее,что нужно сделать,чтобы все работало нормально?
Последний раз редактировалось xakep14, 15.11.2009 в 17:49.
Причина: Добавлено сообщение
вставь CurEnchLvl:=BaseItems[ComboBoxItem.ItemIndex+1,10];
По убирай везде где есть
Код:
repeat
ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;
и другие присвоения CurEnchLvl. А также всякие проверки на сломанность оружия, все равно блессами точишь.
09 это для Грации,а мне для Interlude нужно.Но щас попробую.
Добавлено через 17 минут
Попробывал,в итоге ошибку в скрипте какую-то выбивало,короче скрипт испортился.Есть еще какие-то предложения или может ты сам попробуешь исправить?А то у меня может просто не получается.
Последний раз редактировалось xakep14, 15.11.2009 в 23:54.
Причина: Добавлено сообщение
Добавлено через 13 часов 5 минут
Возник еще 1 вопрос,как к этому прилепить еще использование МР?Нужно вот что:
1)Использовал банку МР
2)Заюзал скилл
3)Использовал банку МР
4)Купил заточки
Последний раз редактировалось xakep14, 17.11.2009 в 12:44.
Причина: Добавлено сообщение