sub buy()
repeat
 UO.buy('regi','vendor')  
 wait(500) 
 UO.Say("bye guards")
  if uo.weight > 600 then
   Save()
   Stop()
  endif
Until UO.Dead ()
end sub

sub Save() ; 
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
uo.waittargetobject('runeHome') ;руна домой.
wait(500)
uo.cast('Recall')
wait(8000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
wait(2000)
if uo.injournal("fade")then
uo.waittargetobject('runeHome') ; 
wait(500)
uo.cast('Mark')
wait(9000)
uo.deletejournal()
endif
end sub

sub Stop() 
wait(500) 
UO.Exec("terminate all") 
end sub