sub main()
   var jrnl, i, p_len = 5 ;
   var phrase = "obkast" ;
   DIM players[6]
   ;
   players[0] = '0x0170361E'; 1
   players[1] = '0x0170C0FE'; 2
   players[2] = '0x0051D929'; 3
   players[3] = '0x016F1491'; 4
   players[4] = '0x0050E47B'; 5

repeat
      jrnl = uo.inJournal(phrase);
      if jrnl then
         for i=0 to p_len-1
            if uo.journalserial(jrnl-1) == players[i] then
            obkast.do(uo.journalserial(jrnl-1))
endif
         next
         uo.setjournalline(jrnl-1, '')
      endif
      wait(200)
   until false
   uo.DeleteJournal()
end sub

Sub obkast.do(serial)
   uo.cast('Protection', serial)
   Wait(2000)
   uo.cast('Bless', serial)
   wait(50)
   uo.DeleteJournal()
end sub