Помогите со скриптом

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
ScorpioNSZ
Posts: 4
Joined: 2010-04-08 09:27:11

Помогите со скриптом

Post by ScorpioNSZ »

sub Alarm()
while 1==1
wait(1000)
if uo.Dead() or uo.injournal('GM') or uo.injournal('here?') or uo.injournal('Seer') then
uo.deletejournal()
gong(300)
endif
wend
end sub

sub Gong(times)
VAR i
for i=1 to times
UO.playwav('D:\faust.wav')
wait(500)
next
end sub
-----------------
запускаю параллельно со скриптом на ламбер, почему то не работает
подскажите как подправить, чтобы его можно было запустить, и как добавить условие чтобы он при любом объекте которые увидит запускал wav файл
Beyonder
Expert!
Posts: 388
Joined: 2005-04-23 10:19:43
Contact:

Re: Помогите со скриптом

Post by Beyonder »

Чувствую что нужно переделать скрипт на ламбер. Скрипт на ламбер удаляет журнал до того, как в нём заметил нужное сообщение этот скрипт.

Или второй вариант, попроще, - поставь паузу в этом скрипте не 1000 а 100.

Code: Select all

sub Alarm()
while 1==1
wait(1000)
ScorpioNSZ
Posts: 4
Joined: 2010-04-08 09:27:11

Re: Помогите со скриптом

Post by ScorpioNSZ »

Спасибо, а вот как добавить условие, чтобы при любом "You see" он алярмил,
Beyonder
Expert!
Posts: 388
Joined: 2005-04-23 10:19:43
Contact:

Re: Помогите со скриптом

Post by Beyonder »

if .... or uo.injournal('You see') then
ScorpioNSZ
Posts: 4
Joined: 2010-04-08 09:27:11

Re: Помогите со скриптом

Post by ScorpioNSZ »

Beyonder wrote:if .... or uo.injournal('You see') then

не работает так ((
kostjan
Posts: 89
Joined: 2009-03-06 21:52:25
Contact:

Re: Помогите со скриптом

Post by kostjan »

Вписываеш свои типы если надо! 8)

Code: Select all

sub poisk()
var i
uo.ignore('0x017DDBC6') ;Айди себя или поставь ('self')
DIM H[2]
H[1]='0x0190' ;тип мужчины
H[2]='0x0191' ;тип женщины
UO.set('finddistance','20') ;Радиус на скоко искать!
while 1>0
for i=1 to 2
  UO.FindType(H[i],-1,'ground')
  If UO.FindCount() > 0 Then
Gong(1);проигрывает сигнал
  Wait( 300 )
else
     Wait( 300 )
     end if
next
wend
end sub

Sub Gong(times)
   VAR i
   for i=1 to times
      UO.Exec("playwav E:\WINDOWS\Media\WindowsXP"); тут ВНИМАТЕЛЬНО укажи путь к файлу БЕЗ расширения
      wait(1200)
   next
end sub
Post Reply