Page 1 of 1
Помогите пожалуйста .)
Posted: 05.12.2011 3:30
by Delmar
Переделать вот этот скриптик под стелс .)
Вроде бы не большой, но не как уж не получается)
Заранее спасибо.
sub Alarm()
uo.deletejournal()
while 1==1
if uo.injournal('Unicorn') or uo.injournal('here') or uo.injournal('Seer') then
uo.deletejournal()
gong(5000)
endif
wait(1000)
wend
end sub
Sub Gong(times)
VAR i
for i=1 to times
UO.say("\Unicorn NA RESPE")
wait(3000)
next
end sub
Чар стоит гостом на респе Unicor'на, когда он появляеться, пишет в чат гильдии.
Шард Дрв.
Re: Помогите пожалуйста .)
Posted: 05.12.2011 17:11
by Alex
вот тут можно найти соответствующие стелс функции
http://stealth.od.ua/wiki/doku.php?id=functions
Re: Помогите пожалуйста .)
Posted: 05.12.2011 18:05
by Delmar
Спасибо.
Час нервов убит) К сожалению, так ничего и не вышло))
Буду стараться дальше)
Только по проще скрипт нашел который нужен.)
sub signal()
repeat
uo.deletejournal()
wait(500)
until uo.injournal('Unicorn') or uo.injournal('Nightmare')
uo.exec('playwav C:\song.wav')
end sub
Re: Помогите пожалуйста .)
Posted: 05.12.2011 18:07
by Alex
что именно не вышло? какие то сообщения об ошибках при запуске скрипта есть?
Re: Помогите пожалуйста .)
Posted: 06.12.2011 13:43
by MuDaCk
Как это так, за целый час никаких результатов...
За пару секунд в стелсоредакторе скриптов уже есть результат -
Code: Select all
Program New;
begin
//Body of Script
end.
Re: Помогите пожалуйста .)
Posted: 14.12.2011 4:37
by Delmar
Alex wrote:что именно не вышло? какие то сообщения об ошибках при запуске скрипта есть?
Не могу найти. Как сделать что бы звук играл при появление данного слова? Наведите на правильный путь)
Re: Помогите пожалуйста .)
Posted: 14.12.2011 6:32
by CFA
Delmar wrote:Не могу найти. Как сделать что бы звук играл при появление данного слова? Наведите на правильный путь)
Проигрывание звука -
Code: Select all
function PlayWav(FileName : String) : Boolean
Работа с журналом -
http://stealth.od.ua/wiki/doku.php?id=f ... ор_журнала
Скрипт будет типа такого (не проверял на ошибки, написал прямо тут)
Code: Select all
begin
while true do
begin
if inJournal('text') >= 0 then
begin
PlayWay('xxx.wav');
ClearJournal;
end;
wait(100);
end;
end.
Re: Помогите пожалуйста .)
Posted: 14.12.2011 8:02
by Delmar
Спасибо.
Но вот всё равно ошибка..
Compiler: [Error] (unicorn.sc at 6:9): Unknown identifier 'PlayWay'
Re: Помогите пожалуйста .)
Posted: 14.12.2011 8:14
by Vargul
Ну опечатался он, PlayWav
Re: Помогите пожалуйста .)
Posted: 14.12.2011 8:29
by Delmar
ой) а я то и не заметил)
спасибо)