Yoko

sub Magery()
   VAR NS='0x0F88' ; Тип Nighshade.
   VAR Sunduk='0x4012C297' ; Сериал(ID) Сундука.
   VAR Kolvo=100 ; Количество регов, которое чар берёт из сундука.
   While NOT UO.Dead()
      While UO.Mana>=9 AND UO.NS>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *.
         UO.DeleteJournal()
         UO.Cast('Poison', 'backpack') #зы сюды ставь на че кастовать поизон будешь, т.е вместо надписи 'backpack', поставь 'id шмота на который кастовать или ящика'
         wait(3000)
      wend
      If UO.Mana<9 Then ;*
         While UO.Mana<UO.Int
            UO.DeleteJournal()
            wait(1000)
                      UO.Useskill('Meditation')
            Repeat
               wait(100)
            until UO.InJournal("You are") OR UO.InJournal("You lose") # ЗДЕСБ ЕСЛИ ИГРАЕТЕ НЕ НА ОСКОМЕ - ИСПРАВЬТЕ  СООБЩЕНИЯ СЕРВА
         Wend
      Endif
      If UO.NS == 0 Then
   UO.FindType(NS, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
      wait(100)
   until UO.NS>0
Endif
   Wend
end sub 

Хай
Эсть вот такой скрипт на magery

Code:

sub Magery()
   VAR NS='0x0F88' ; Тип Nighshade.
   VAR Sunduk='0x4012C297' ; Сериал(ID) Сундука.
   VAR Kolvo=100 ; Количество регов, которое чар берёт из сундука.
   While NOT UO.Dead()
      While UO.Mana>=9 AND UO.NS>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *.
         UO.DeleteJournal()
         UO.Cast('Poison', 'backpack') #зы сюды ставь на че кастовать поизон будешь, т.е вместо надписи 'backpack', поставь 'id шмота на который кастовать или ящика'
         wait(3000)
      wend
      If UO.Mana<9 Then ;*
         While UO.Mana<UO.Int
            UO.DeleteJournal()
            wait(1000)
                      UO.Useskill('Meditation')
            Repeat
               wait(100)
            until UO.InJournal("You are") OR UO.InJournal("You lose") # ЗДЕСБ ЕСЛИ ИГРАЕТЕ НЕ НА ОСКОМЕ - ИСПРАВЬТЕ  СООБЩЕНИЯ СЕРВА
         Wend
      Endif
      If UO.NS == 0 Then
   UO.FindType(NS, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
      wait(100)
   until UO.NS>0
Endif
   Wend
end sub 

Как там поставить , штоб перед медитаций он один раз петался запустить Spirit Speak. успешно или фаил - не важно.

            wait(1000)
                      UO.Useskill('Meditation')
            Repeat
               wait(100)
            until UO.InJournal("You are") OR UO.InJournal("You lose") # ЗДЕСБ ЕСЛИ ИГРАЕТЕ НЕ НА ОСКОМЕ - ИСПРАВЬТЕ  СООБЩЕНИЯ СЕРВА
         uo.useskill('Spirit Speak')
         Wait(1000)
         Wend

uo.useskill('Spirit Speak')
         Wait(1000)
         Wend

uo.useskill('Spirit Speak')
         Wait(6000)
         Wend