Ultima Online Antares

sub PVM_shet()
   var PVM
   var text = "За убийство|ПвМ поинтов"
   var X = 0
   UO.DeleteJournal()
   repeat
      if uo.injournal(text) then
         PVM = uo.journal(uo.injournal(text) - 1)
         PVM = explode (PVM, 'получаете', 1)
         PVM = explode (PVM, 'ПвМ', 0)
         X = X+val(PVM)
         uo.DeleteJournal()
         uo.charprint('self', 1061, "ПВМ = " +str(X))
      endif
      wait (100)
   until uo.dead()
end sub

Sub explode( string, pattern, num )
   var i, counter = 0, entry = 0
   for i=0 to strlen( string ) -strlen( pattern )
      if mid( string, i, strlen( pattern ) ) == pattern then
         counter = counter + 1
         if num == counter-1 then
            return mid( string, entry, i-entry )
         endif
         entry = i + strlen( pattern )
      endif
   next
   if entry == 0 then
      return false
   endif
   return mid( string, entry, strlen(string)-entry )
endsub