sub poisk()
var i
uo.ignore('0x0084CF3F'); если на скрипте человек то укажи его ID тогда он не будет себя искать.
DIM H[2]
H[1]='0x0190' ; тип мужчины
H[2]='0x0191' ; тип женщины (или наоборот)
UO.set('finddistance','3'); вместо 3 поставь 30 будет на весь экран штырить
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 )
     Endif
next
wend
end sub

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

var Nick='a'
var Nick2='b'
while 1==1
uo.deletejournal()
wait(500)
if uo.injournal(Nick) then
uo.say('')
uo.say('\w ' + Nick2 + ': Йоу')
else
wait(100)
end if
wend

Не работает, не ту функции sub вставьте плз а че вставляю в начало ошибку выдает

sub main()
бла бла бла
end sub