..........................................
Dim vendor[2] 
vendor[1]='0x0190' 
vendor[2]='0x0191' 
VAR i, l 
UO.Exec("set norbcheck 1") 
UO.Exec("set norbcalc 1")
UO.Exec("set finddistance 2")
For i=1 to 9 
   if RunebookRecall(n) == 0 then
         UO.ClouseUO()
   end if
   UO.Useskill('Meditation') ## не понял зачем оно... 
   wait(3000) 
   For l=1 to 2 
         UO.FindType(vendor[l],-1,'ground') 
         while UO.FindCount()>0
            If UO.GetSerial('finditem')<>UO.GetSerial() then 
               UO.Say('Hi '+UO.GetName('finditem')) ##Зачем?
               wait(2000) ##Зачем?
               UO.Buy(buyName,UO.GetName('finditem')) 
               wait(2000) ##лишнее
            EndIf 
            UO.Ignore('finditem')
            UO.FindType(vendor[l],-1,'ground') 
         wend
         UO.IgnoreReset()
   Next
UO.Exec("set finddistance 14") 
End Sub    

sub RunebookRecall(n) 
var oldX=uo.getX() 
var oldY=uo.getY()
Dim run[9]
run[1] = ' 21'
run[2] = ' 33'
run[3] = ' 46'
run[4] = ' 58'
run[5] = ' 64'
run[6] = ' 73'
run[7] = ' 88'
run[8] = ' 94'
run[9] = ' 1025'
var time
   repeat 
      UO.Exec('warmode 0')
      UO.Recall('runebook',run[n])      
      repeat 
         wait(500) 
      until oldX<>uo.getX() or oldY<>uo.getY() or uo.Dead() or uo.InJournal('needs') or uo.InJournal('fizzles') or time+200<uo.Timer()      
      if uo.Dead() or uo.InJournal('needs') then
         return 0
      end if
   until oldX<>uo.getX() or oldY<>uo.getY() or UO.Dead() 
   if UO.Dead() then
      return 0
   end if
   return 1
end sub