Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Помогите пожалуйста .)

тут можно задать вопрос по скриптингу
Post Reply
Delmar
Posts: 9
Joined: 22.11.2011 22:04

Помогите пожалуйста .)

Post 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'на, когда он появляеться, пишет в чат гильдии.
Шард Дрв.
Alex
Moderator
Moderator
Posts: 351
Joined: 07.04.2005 4:41

Re: Помогите пожалуйста .)

Post by Alex »

вот тут можно найти соответствующие стелс функции http://stealth.od.ua/wiki/doku.php?id=functions
Новый стелс лежит тут. Стелс это произведение искусства! :)
Delmar
Posts: 9
Joined: 22.11.2011 22:04

Re: Помогите пожалуйста .)

Post 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
Alex
Moderator
Moderator
Posts: 351
Joined: 07.04.2005 4:41

Re: Помогите пожалуйста .)

Post by Alex »

что именно не вышло? какие то сообщения об ошибках при запуске скрипта есть?
Новый стелс лежит тут. Стелс это произведение искусства! :)
MuDaCk
Apprentice
Apprentice
Posts: 393
Joined: 10.10.2006 0:03
Contact:

Re: Помогите пожалуйста .)

Post by MuDaCk »

Как это так, за целый час никаких результатов...
За пару секунд в стелсоредакторе скриптов уже есть результат -

Code: Select all

Program New;
begin
 //Body of Script
end.
My name is Игорёшка Image
Пишу скрипты за едуImage
Delmar
Posts: 9
Joined: 22.11.2011 22:04

Re: Помогите пожалуйста .)

Post by Delmar »

Alex wrote:что именно не вышло? какие то сообщения об ошибках при запуске скрипта есть?
Не могу найти. Как сделать что бы звук играл при появление данного слова? Наведите на правильный путь)
CFA
Developer
Developer
Posts: 492
Joined: 20.04.2006 6:03
Contact:

Re: Помогите пожалуйста .)

Post 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.
Delmar
Posts: 9
Joined: 22.11.2011 22:04

Re: Помогите пожалуйста .)

Post by Delmar »

Спасибо.
Но вот всё равно ошибка..


Compiler: [Error] (unicorn.sc at 6:9): Unknown identifier 'PlayWay'
Vargul
Neophyte
Neophyte
Posts: 49
Joined: 16.09.2010 10:30

Re: Помогите пожалуйста .)

Post by Vargul »

Ну опечатался он, PlayWav
Delmar
Posts: 9
Joined: 22.11.2011 22:04

Re: Помогите пожалуйста .)

Post by Delmar »

ой) а я то и не заметил)
спасибо)
Post Reply