sub hi()
var i, jser, gser, exit, name
Dim a[2]
a[1]='Вася привет'
a[2]='Превед Вася'
for i=1 to 2
if uo.injournal(a[i]) then
jser=uo.journalserial()

repeat
uo.findtype('0x0190')   // поиск чаров которые могли это сказать
gser=uo.getserial('finditem')
if jser==gser then
exit=1
else
uo.ignore('finditem')
end if
until exit==1
uo.click(???) //см. строчку ниже
name=uo.getname(???) //надо получить имя и ID того чара которого мы искали выше.
uo.msg(name + '! Превед красавчег!')
uo.deletejournal()
end if
next
end sub