dobavit' v skripte

[Bangbuss]

kak mne pravelno dobavit' v skripte 6tob igral zvuk, ne tolka kogda uo.dead() no i kogda v zhurnale pojavilsa 'gm' 'admin'.

Code: Select all

sub Alarm()
   VAR CharHP=150
   while 1==1
      wait(1000)
      if uo.Dead() then
         gong(15)
      endif       
   wend
end sub 

sub Gong(times)
   VAR i
   for i=1 to times
      UO.Exec("playwav C:\uo\Inject\alert.wav")
      wait(100)
   next
end sub

[Millerbeer]

Code: Select all

sub Alarm() 
   VAR CharHP=150 
   while 1==1 
      wait(1000) 
      if uo.Dead() or uo.injournal('gm|admin') then 
         uo.deletejournal()
         gong(15) 
      endif        
   wend 
end sub 

sub Gong(times) 
   VAR i 
   for i=1 to times 
      UO.Exec("playwav C:\uo\Inject\alert.wav") 
      wait(100) 
   next 
end sub

[Bangbuss]

Thank you