Ultima Online Antares

sub MeditateNow()
  dim scroll[2]
; переписываем сюда всякий мусор,
; что под ногами валяется,
; и нубы в НТ обычно его не берут даже
  scroll[2] = '0x1F31'       ; heal
  scroll[1] = '0x1F30'  
 ; feebl и пофиг, что вы не некрос
  for var i=1 to 2
; а может и не два, а может, двадцать два
  UO.WarMode(0)
  while UO.Count(scroll[i]) > 0
    UO.WarMode(0)
    uo.print('casting!')
    UO.WaitTargetObject('self')
    uo.usetype(scroll[i])
    wait(3500)
    DeleteJournal("peace")
    repeat
      UO.Useskill('Meditation')
    DeleteJournal("You lose")
    while NOT UO.InJournal("You lose") AND UO.Mana<UO.Int
      uo.print('waiting '+str(uo.mana)+' '+str(uo.Int))
      wait(500)
      checklag()
    wend
    wait(3000)
; можете считать меня лохом, но три секунды,
; чесс слово
    uo.print('отмедитировали')
    until UO.InJournal("peace")
    wait(1000)
  wend
  next
end sub

Sub DeleteJournal(msg)
  while uo.injournal(msg)
  uo.setjournalline(uo.injournal(msg)-1,"")
  wend
end sub

Sub checklag()
  DeleteJournal("ackpack")
  uo.click("backpack")
  repeat
  wait(50)
  until uo.injournal("ackpack")
endsub

    If UO.Mana<UO.Int/x Then
      While UO.Mana<UO.Int
        UO.DeleteJournal()
        LastTimer=UO.Timer()
        wait(100)
        if UO.WarMode()==1 then
          UO.WarMode(0)
        end if
        UO.Useskill('Meditation')
        If  UO.InJournal("must wait") Then
          Wait(500)
        End If
        Repeat
          wait(100)
        until UO.InJournal("You are|You lose|потеряли|прекратили|must wait") or UO.Timer()>LastTimer+500
      Wend
    Endif
   
    While UO.Mana>=UO.Int/x AND UO.SA>0 AND UO.SS>0
      z=UO.Mana
      UO.DeleteJournal()
      UO.Cast(6, 'self')
      repeat
        wait(100)
      until UO.Mana<z or UO.InJournal("fizzles")
    wend