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

RODMAN91 · 28.01.2011, 14:01

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

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

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

Azury · 28.01.2011, 14:07

Цитата:

Сообщение от 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 · 28.01.2011, 14:29

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

А то я в этом не шарю

Azury · 28.01.2011, 14:34

Цитата:

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

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

А то я в этом не шарю

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

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

RODMAN91 · 28.01.2011, 18:09

Цитата:

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

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

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

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

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

Azury · 28.01.2011, 23:15

Цитата:

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

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

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

функция есть, а ее синтаксис, как раз то как написать путь файла каким образом и где остается вопросом, но можно поэксперементировать чем ждать помощи)