Stealth Client Forum

Posted: **26.11.2006 17:39**

при возникновении надписи в журнале должен включаться ваф файл который в папке со стелсом. не включается. и когда пишу формат, и когда не пишу...

Code: Select all

Program Ahtung;
begin
while not dead Do
wait(5000);
if (InJournal('ssssss') > 0) then
PlayWav('ahtung');
ClearJournal;
end.

Posted: **26.11.2006 17:45**

так тоже не пашет

Code: Select all

Program Ahtung;
var ahtung:string;
begin
ahtung:='D:\Stealth UO 1.0\Stealth_v1.0 (RC 1)\ahtung.wav'
while not dead Do
wait(5000);
PlayWav(ahtung);
end.

пожалуйста объясните принцип работы...

Posted: **26.11.2006 23:04**

*13* wrote:
Code: Select all
while not dead Do
wait(5000);
PlayWav(ahtung);

Любой учебник по паскалю поможет. В паскале к оператору цикла (или условному оператору) относится только одна строка кода после него. То есть он действует до ближайшей точки с запятой. Исключение - когда группа строк кода заключена между begin...end. В твоем случае в скрипте исполняется вот такой цикл:

Code: Select all

while not dead Do
wait(5000);

То есть до

Code: Select all

PlayWav(ahtung);

дело дойдет только после смерти чара.

Если же ты напишешь:

Code: Select all

while not dead Do
begin
   wait(5000);
   PlayWav(ahtung);
end;

Вот тогда все будет так, как тебе хотелось.

Stealth Client Forum

что в скрипте не так?

что в скрипте не так?