Yoko

sub PoisonSelf() 
while uo.mana >= uo.INT 
Uo.Exec("cast 'Poison' self") 
wait(4000) 
wend 

while uo.mana < UO.INT 
Uo.Exec("useskill Meditation") 
wait(3000) 
wend 
uo.exec("exec PoisonSelf") 
endsub

sub PoisonSelf() 
 UO.Cast('Poison', 'backpack') #поставь ID предмета в паке и оставь пак открытым 
         wait(3000) 
if uo.mana < 9 then 
UO.Useskill('Meditation') 
repeat
wait(3000) 
end if 
wend 
endsub

sub pOISON()
  UO.Cast('Poison', 'backpack') 
         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("Медитация") 
         Wend 
      Endif
      end sub

#####################################################################
sub Magery() 
   ; ver. 2.01 (c) Edred
   ;
   ; Вводим сундук (пак) с найтшэдом, вводим подкормку чара.
   ;
   VAR sunduk = '0x40531245'
   VAR targ = '0x4041C420'
   VAR mir = 'You are at peace'
   VAR NS = '0x0F88'
;      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   UO.UseObject( sunduk )
   wait(1000)
   CheckLag()
   While UO.SkillVal( 'Magery' ) < 1000
      If UO.Count( NS ) == 0 Then
         UO.Findtype( NS, '-1', sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'NightShade not found, script terminated' )
            return
         Endif
         UO.MoveItem( 'finditem', '100' )
         wait(500)
         CheckLag()
      Endif
      If UO.Mana < 20 Then
         DeleteJournal( mir )
         repeat
            UO.UseSkill( 'Meditation' )
            wait(2000)
         until UO.InJournal( mir )
;         EatChar( sunduk, 2, 1, 60 )
      Endif
      UO.WaitTargetObject( targ )
      UO.Cast( 'Poison' )
      wait(3000)
   Wend
endsub