sub poisk()
var i
uo.ignore('0x0084CF3F'); если на скрипте человек то укажи его ID тогда он не будет себя искать.
DIM H[2]
H[1]='0x0190'
H[2]='0x0191'
UO.set('finddistance','3'); вместо 3 поставь 40-50 будет на весь экран штырить
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 cons()
var txt, Time, Space, i 
Space=' '
uo.ignorereset()
uo.ignore('self')
uo.ignore('0x0084CF3F'); нпс 
uo.hide('0x0084CF3F')
DIM H[2]
H[1]='0x0190'
H[2]='0x0191'
UO.set('finddistance','3')
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
        If uo.InJournal(":") or uo.InJournal(">") or uo.InJournal("page") or uo.InJournal("GM") then
        txt=uo.LastMessage() 
        UO.textprint(txt) 
        uo.textopen() 
        uo.DeleteJournal() 
Gong(1);проигрывает сигнал
        end if 
wend
end sub

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

sub main()
var i
for i=0 to 5
uo.print( str(i) )
     wait(1000)
next
endsub

sub main()
var i
for i=0 to 5
uo.charprint('1069',i)
     wait(1000)
next
endsub

sub main()
var i
var msg ='Сюда фразу для проверки'
UO.DeleteJournal()
repeat
   wait( 300 )
until UO.InJournal( msg )
for i=0 to 5
uo.print( str(i) )
     wait(1000)
next
endsub