sub obkast.daemon()
   var jrnl, i, p_len = 1 ; количество игроков, в списке
   var phrase = "obcast" ; фраза, на которую реагируем.
   DIM players[]
   ; Список ID игроков, на которых вешаем обкаст.
   players[0] = '0x0000000';
   repeat
      jrnl = uo.inJournal(phrase);
      if jrnl then
         for i=0 to p_len-1
            if uo.journalserial(jrn-1l) == players[i] then
               obkast.do( journalserial(jrnl-1) )
               break
            endif
         next
         uo.setjournalline(jrnl-1, '')
      endif
      wait(200)
   until false
endsub

Sub obkast.do(serial)
   var mana = uo.mana
   uo.cast('Protection', serial)
   while mana == uo.mana
      wait(50)
   wend
   mana = uo.mana
   uo.cast('Bless', serial)
   while mana == uo.mana
      wait(50)
   wend
endsub

,exec obkast.daemon

   while mana == uo.mana
      wait(50)
   wend 

(jrn-1l)

Sub obkast.do(serial)
   var m = uo.mana
   uo.cast('Protection', serial)
   repeat
      wait(50)
   until uo.mana<m
   m = uo.mana
   uo.cast('Bless', serial)
   repeat
      wait(50)
   until uo.mana<m
endsub

VAR One='0x99999999' ; чар № 1
VAR Two='0x99999999' ; ИД чара № 2
VAR Three='0x99999999' ; ИД чара № 3
VAR Four='0x99999999' ; ИД чара № 4
VAR Five='0x99999999' ; ИД чара № 5
VAR goblin=1
sub Start()
repeat
Ojidanie()
   wait(100)
      until goblin>2
end sub

Sub Ojidanie()
   If UO.InJournal('obkast') Then
Protection()
UO.DeleteJournal()
wait(100)
Else
Meditation()
      Endif 
end sub

Sub Protection()
   DIM Chars[5] 
Chars[0] = One 
Chars[1] = Two 
Chars[2] = Three 
Chars[3] = Four
Chars[4] = Five 
   VAR i 
   For i = 0 To 5 
      If UO.Count(Chars[ i ]) == 0 Then 
UO.Cast('Protection',Chars[ i ])
      wait(2500)
Else
      wait(100)
      Endif 
   Next 
end sub

Sub Meditation()
If UO.mana<=10 Then
UO.useskill('Meditation')
Else
wait(100)
EndIf
end sub

Проверено на птичках !!!

if uo.COunt(chars)

uo.FindCount() 

Ждём 100 сек
Сообщения нет => Идём медитировать
Используем скил медитации
Ждём 100 сек
Возврат к первой строке.

   For i = 0 To 5

5 элементов . С 0 до 4 =5 и ищу вроде только 5

if uo.COunt(chars) ищет не только в паке и подсумках, по крайней мере находило птичек.

uo.FindCount() может ощибся, всяко бывает, но работает же

Принцип медитации простой, пока нет сообщений (тоесть его не вызывают) он медитирует.


Если подольше посидеть с этим скриптом, то можно и добор регов и чеклаг и реконект добавить. Да и напихать еще кастов можно. Тоесть при сообщении "блесс" чтоб кастовал только блесс, при сообщении "протекшен", только протекшен. А при сообщении "обкаст", все сразу.

элемент 1 = Блесс

если в журнале(месага с содержанием элемент1) тогда
  кастуй элемент 1 на того кто произнёс.

цикл перебора сообщений кастов
если в журнале(месага элемент1) тогда
  взять ИД объекта который произнёс строку журнала
  цикл перебора ИД на кого кастовать
    сравнить это значение с теми что в массиве. если == , тогда кастуй

sub obkast()
###############
var keyword = 'обкаст' ; слово на которое реагировать
var refreshtime = 0.5  ; время проверки сообщений в журнале в сек
##############
var i, t, reg
Dim a[5]
# серийники
a[0]='0x0000000' 
a[1]='0x0000000'
a[2]='0x0000000'
a[3]='0x0000000'
a[4]='0x0000000'
repeat
if uo.injournal(keyword) then
for i=0 to 4 
if uo.journalserial(uo.injournal(keyword))==a[i] then
uo.cast('Bless',a[i])
uo.deletejournal()
t=0
reg= uo.ns  # Название рега присуствующего в касте
repeat
t=t+1
wait(500)
until uo.injournal('spell|mana') or t==15  or tmp<uo.ns #опять название рега
####
uo.cast('Protection',a[i])
uo.deletejournal()
t=0
reg=uo.ns  # Название рега присуствующего в касте
repeat
t=t+1
wait(500)
until uo.injournal('spell|mana') or t==15  or tmp<uo.ns #опять название рега
end if
next
end if
wait(refreshtime*1000)
until uo.dead()
end sub

sub obkast()
###############
var keyword = 'обкаст' ; слово на которое реагировать
var refreshtime = 0.5  ; время проверки сообщений в журнале в сек
##############
var t, reg
repeat
if uo.injournal(keyword) then
if uo.journalcolor(uo.injournal(keyworde))=='0x0000' then #цвет сообщений
uo.cast('Bless',uo.journalserial(uo.injournal(keyworde)))
uo.deletejournal()
t=0
reg= uo.ns  # Название рега присуствующего в касте
repeat
t=t+1
wait(500)
until uo.injournal('spell|mana') or t==15  or tmp<uo.ns #опять название рега
####
uo.cast('Protection',uo.journalserial(uo.injournal(keyworde)))
uo.deletejournal()
t=0
reg=uo.ns  # Название рега присуствующего в касте
repeat
t=t+1
wait(500)
until uo.injournal('spell|mana') or t==15  or tmp<uo.ns #опять название рега
end if
end if
wait(refreshtime*1000)
until uo.dead()
end sub