sub main() 
DIM rune[3] 
DIM ven[3]
rune[1]='0x401029C6' ; Сюда вносятся ID рун к вендорам  
rune[2]='0x400A7747' ; 6 штук, можно сколько угодно
rune[3]='0x401026C0' ; просто все шестерки в скрипте 
;rune[4]='0x40102782' ; заменяются на нужную цифру
;rune[5]='0x401028C5' ; 
;rune[6]='0x40102924' ; 

ven[1]='0x0038C4C5' ; ID вендоров у которых скупаются реги
ven[2]='0x0036C6B5' ; 
ven[3]='0x001665B2' ; 
;ven[4]='0x0024591D' 
;ven[5]='0x002CA47B' 
;ven[6]='0x00075AAD' 


UO.Set('buydelay','2000')
while UO.notdead()
If MaxWeight<UO.Weight+VesPrirost Then 
   Domoy() 
   Magazin() 
Endif

i=i+1 
   recall(i,rune)
   If UO.InJournal("fade") Then
      Mark(i,rune)
      wait(500)
      UO.DeleteJournal()
   endif
   UO.Set('buydelay','2000')
   wait(50)
   UO.buy('sp',ven[i]) 
   wait(1000)
   UO.DeleteJournal()

if i=2 then
   i=0   
endif
wend 
end sub 
##################################### 
sub Recall(i,rune) 
repeat
med()                                                        
uo.WaitTargetObject(rune[i]) 
uo.Exec('warmode 0') 
uo.Cast('Recall') 
wait(3000) 
until not uo.InJournal('spell fizzles')
end sub 
##################################### 
sub Mark(i,rune) 
repeat
med()                                                        
uo.WaitTargetObject(rune[i]) 
uo.Exec('warmode 0') 
uo.Cast('Mark') 
wait(3000) 
until not uo.InJournal('spell fizzles')
end sub 
###################################### 
sub med() 
VAR LastTimer 
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.Timer()>LastTimer+200 
UO.DeleteJournal() 
wait(200) 
wend 
end sub 
##############################
sub Domoy() 
   VAR Dom="0x401C48B2" ; Id runy k sunduku 
   VAR Sunduk="0x4029B854" ; Id sunduka kuda kidat` tkan` 

   UO.DeleteJournal()  
      medicMax() 
      UO.Cast('Recall',Dom) 
      wait(4000)  
   If UO.InJournal("fade") Then 
         medicMax() 
         UO.DeleteJournal() 
         UO.Cast('Mark',Dom) 
         wait(5000) 
   Endif
   UO.FindType('0x0F88',-1,'backpack') ; NightShade
   wait(1000) 
   UO.MoveItem('finditem',0,Sunduk) 
   wait(1000)
   UO.FindType('0x0F88',-1,'backpack') ; balls of yarn 
   wait(1000) 
   UO.MoveItem('finditem',0,Sunduk) 
   wait(1000)
   UO.FindType('0x0F87',-1,'backpack') ; EyesOfNewt
   wait(1000) 
   UO.MoveItem('finditem',0,Sunduk) 
   wait(1000) 
   UO.FindType('0x0E34',-1,'backpack') ; BlankScroll
   wait(1000) 
   UO.MoveItem('finditem',0,Sunduk) 
   wait(1000)  
end sub

VAR MaxWeight=700 #вес, при котором буш лететь всё складывать

while UO.notdead()

while not UO.dead()