Yoko

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

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