Yoko

Code: Select all

Sub Gong(times) ; play wav-file
   VAR i
   for i=1 to times
      UO.Exec("playwav C:\WINDOWS\Media\ringin.wav")
      wait(500) ; time to play sample at once
   next
end sub

Code: Select all

Sub Gong(times) ; play wav-file
   VAR i
   for i=1 to times
      UO.Exec("playwav d:\Games\Ultima\GMYokoInjection\ALARM"); тут ВНИМАТЕЛЬНО укажи путь к файлу БЕЗ расширения
      wait(200) ; time to play sample at once
   next
end sub

Code: Select all

sub SoundTest()
wait(1000)
UO.playwav("d:\6039_69")
endsub

Code: Select all

sub SoundTest()
wait(1000)
UO.playwav("d:\SOUND")
endsub