Yoko

sub GetOnRegs()
   VAR i=0
   VAR sunduk3='0x403E7D7E'   ; ñóíäóê ñ ðåãàìè
   DIM Regs[8] 
   Regs[0]='0x0F7A'      ; Black Pearl 
   Regs[1]='0x0F7B'      ; Bood Moss 
   Regs[2]='0x0F86'      ; Mandrake Root 
   Regs[3]='0x0F84'      ; garlic 
   Regs[4]='0x0F85'      ; Ginseng 
   Regs[5]='0x0F88'      ; Night Shade 
   Regs[6]='0x0F8C'      ; Sulphorous Ash 
   Regs[7]='0x0F8D'      ; Spiders Silk 
     for i = 0 to 7   
       UO.FindType(Regs[i],'-1','ground') 
         UO.MoveItem( 'finditem', '100' , 'backpack') 
         wait( 1000 ) 
     next
endsub

sub autoMedit() 
  var LastTimer 
  while not uo.Dead() 
    uo.DeleteJournal() 
    CheckLag() 
    while uo.Mana>=uo.INT 
        wait(1000) 
    wend 
    while uo.Mana<uo.INT 
        LastTimer=uo.Timer() 
        uo.UseSkill('Meditation') 
        repeat 
            wait(100) 
        until uo.InJournal("You are") or uo.InJournal("You lose") or uo.InJournal("You stop") or uo.Timer()>LastTimer+200 
        uo.DeleteJournal() 
    wend 
  wend 
end sub



sub arrow()
uo.Cast('Magic Arrow','self')
wait(4000)
uo.bandageself()
end sub 

sub GoGo() 
uo.Set('finddistance','3')
   VAR i=0
   VAR k=0 
   VAR  LastTimer
   DIM Regs[8] 
   Regs[0]='0x0F7A'      ; Black Pearl 
   Regs[1]='0x0F7B'      ; Bood Moss 
   Regs[2]='0x0F86'      ; Mandrake Root 
   Regs[3]='0x0F84'      ; garlic 
   Regs[4]='0x0F85'      ; Ginseng 
   Regs[5]='0x0F88'      ; Night Shade 
   Regs[6]='0x0F8C'      ; Sulphorous Ash 
   Regs[7]='0x0F8D'      ; Spiders Silk 
while NOT uo.Dead()
     for k = 0 to 100
     uo.Cast('Magic Arrow','self')
     wait(3000)
     while uo.life < uo.str
       uo.bandageself()
       wait(3500)
     wend
     while uo.mana < 90
        LastTimer=uo.Timer() 
        uo.UseSkill('Meditation') 
        repeat 
            wait(100) 
        until uo.InJournal("You are") or uo.InJournal("You lose") or uo.InJournal("You stop") or uo.Timer()>LastTimer+200 
        uo.DeleteJournal() 
    wend 
  wend 
 next
wend
endsub