Скрипт на заточку

[RODMAN91]

Да действительно, все работает. Извиняюсь за лишнее беспокойство. Биг сенк добрый человек

[vanik07]

а можно сделать чтоб етот скрипт быстрее точил? плз
Auto_enchant + 1 _selectskroll - gracia_final111.rar

[RODMAN91]

Подскажите пожалуйста, какую строчку вставить, чтобы проигрывался звуковой файл при заточке или остановке?
Например вот в этом куске кода я так понял происходит остановка при полученой заточке. Можно тут как то звук вставить?

if (strtoint(Edit2.text)>=strtoint(Edit1.Text)) then begin
msg.Lines.Add('Достигли требуемого уровня улучшения! Прервано!');
debugmsg('Достигли требуемого уровня улучшения! Прервано!');
ButtonStartEnchant.Enabled:=true;
ButtonStopEnchant.Enabled:=false;
exit;
end;


А вобще сам скрипт взят отсюда

[Azury]

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

Подскажите пожалуйста, какую строчку вставить, чтобы проигрывался звуковой файл при заточке или остановке?
Например вот в этом куске кода я так понял происходит остановка при полученой заточке. Можно тут как то звук вставить?

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;

[RODMAN91]

А саму строку кода для звука не знаешь? А то я в этом не шарю

[Azury]

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

А саму строку кода для звука не знаешь? А то я в этом не шарю

function PlaySound(FileName: AnsiString; Asynch: boolean = false): boolean;

правда насчет синтаксиса не в курсе

[RODMAN91]

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

function PlaySound(FileName: AnsiString; Asynch: boolean = false): boolean;

правда насчет синтаксиса не в курсе

А куды файл ложить? В корень папки с прогой? И что значит не в курсе синтаксиса?)))

Если можно выложите точный код или скрипт или строку плиз.

[RODMAN91]

Ну подскажите плиз как сделать звук после удачной заточки или остановке из за нехватки предметов в этом скрипте . Это же наверняка многим пригодится. Я попробовал в корневую папку файл кидать и прописывать его, ничего не получилось((( Помогите плиз.

//J-Fobos: у нас на форуме есть поиск http://coderx.ru/showthread.php?t=5344

[pelalum]

Ребята....извините что тревожу, но читать 51 страницу мне влом. Подскажите, на серваке стоит точка +100, когда ломается слетает в +30, а скрипт это не прочухивает и виснет l2phx в итоге и ЛА2 виснет и закрывается. Что делать ? Подскажите пожалуйста

[J-Fobos]

pelalum, та не надо всего читать) на форуме есть удобная функция