Автоматизация заточки предметов до необходимого уровня by NLObP
Возможности скрипта
--------------------
+ Панель управления;
+ Затачиваем по очереди все предметы с ItemID пока не переломаем
или не заточим. Один предмет всегда остаётся.
Необходимо затариться оружием, заточками и валерьянкой.
Name='NLObP'; //Вписать сюда имя чара
//установить константу в зависимости от типа игры (С4 или Интерлюд)
interlude=true; //Interlude - true, C4 - false
Внимание!
Из комбобокса обязательно надо выбрать вещь, чтобы скрипт узнал
ID и количество, только потом ставить напротив галочку.
Галочки снимать не надо, если кончились заточки/вещи - можно сразу идти
покупать и продолжать заточку.
В инвентаре должно быть не менее двух одинаковых затачиваемых вещей, степень заточки значения не имеет
Скрипт распространяется как есть, и я не несу ответственности за то, что ВЫ натворили у себя, его используя.
Ммм, сейчас я пользусю вот этим скриптом - enchant_ l2sog_net.script. Может я че то не так настроил, но он точит сначала одну вещь до указанной точки, если ломается потом другую, потом третью и т.д. А я хотел чтобы сначала все на +1, потом все на +2 и т.д.. Может я че то не так настроил?
Подскажите пожалуйста, какую строчку вставить, чтобы проигрывался звуковой файл при заточке или остановке?
Например вот в этом куске кода я так понял происходит остановка при полученой заточке. Можно тут как то звук вставить?
if (strtoint(Edit2.text)>=strtoint(Edit1.Text)) then begin
msg.Lines.Add('Достигли требуемого уровня улучшения! Прервано!');
debugmsg('Достигли требуемого уровня улучшения! Прервано!');
ButtonStartEnchant.Enabled:=true;
ButtonStopEnchant.Enabled:=false;
exit;
end;
Подскажите пожалуйста, какую строчку вставить, чтобы проигрывался звуковой файл при заточке или остановке?
Например вот в этом куске кода я так понял происходит остановка при полученой заточке. Можно тут как то звук вставить?
if (strtoint(Edit2.text)>=strtoint(Edit1.Text)) then begin
msg.Lines.Add('Достигли требуемого уровня улучшения! Прервано!');
debugmsg('Достигли требуемого уровня улучшения! Прервано!');
ButtonStartEnchant.Enabled:=true;
ButtonStopEnchant.Enabled:=false;
exit;
end;
if (strtoint(Edit2.text)>=strtoint(Edit1.Text)) then begin
msg.Lines.Add('Достигли требуемого уровня улучшения! Прервано!');
debugmsg('Достигли требуемого уровня улучшения! Прервано!');
// думаю в этом месте по логике можно поставить звук
ButtonStartEnchant.Enabled:=true;
ButtonStopEnchant.Enabled:=false;
exit;
end;
А куды файл ложить? В корень папки с прогой? И что значит не в курсе синтаксиса?)))
Если можно выложите точный код или скрипт или строку плиз.
функция есть, а ее синтаксис, как раз то как написать путь файла каким образом и где остается вопросом, но можно поэксперементировать чем ждать помощи)