Yoko

sub Magery()

        ; Выбираем предмет, на который будем кастовать.
  UO.Print( 'Укажите предмет, на который будем кастовать!' ) 
  UO.Exec( 'addobject MyTarget' ) 
     While UO.Targeting() 
       Wait( 200 ) 
     Wend 
  Wait( 1000 )

  Repeat
         ; Кастуем поизон, пока есть мана.
    While UO.Mana >= 9 
       UO.Cast( 'Poison', MyTarget )
       Wait(3000)
    Wend
         ; Медитируем.
    UO.DeleteJournal()
      Repeat
        UO.UseSkill( 'Meditation' )
        Wait( 1000 )
      Until UO.InJournal('at peace')
  Until UO.Dead()

end sub