var RuneB, RuneB2, RuneBag, RuneH, StoreBAG, Nrune 
UO.Say("Укажите Сумку с Замарчеными рунками в вашем вещь-мешке.")     
      UO.AddObject('RuneB')
      While UO.Targeting()==2
         wait(500)
      Wend
      UO.SaveConfig()

UO.Say("Укажите ПУСТУЮ Сумку в паке (Для переброса рунок).")     
      UO.AddObject('RuneB2')
      While UO.Targeting()==2
         wait(500)
      Wend
      UO.SaveConfig()

UO.Say("Укажите Сумку в паке с кучей пустых рунок.")
      UO.AddObject('RuneBag')
      While UO.Targeting()==2
         wait(500)
      Wend
      UO.SaveConfig()

UO.Say("Укажите Рунку ДОМ( положите ее отдельно в пак ).")
      UO.AddObject('RuneH')
      While UO.Targeting()==2
         wait(500)
      Wend
      UO.SaveConfig()

UO.Say("Укажите сумку для покупок куда скидывать покупки (В СУНДУКЕ! )")
      UO.AddObject('StoreBAG')
      While UO.Targeting()==2
         wait(500)
      Wend
      UO.SaveConfig() 

uo.findtype('rune','-1','RuneB')

while uo.FindCount()

uo.findtype('rune','-1','RuneB')


Nrune=uo.GetSerial('finditem')

RecallRune(Nrune)
ContCharges()
BuyPRG()


uo.moveitem('Nrune','-1','RuneB2')

Nrune = 0 

uo.findtype('rune','-1','RuneB')

wend

uo.findtype('rune','-1','RuneB2')
wait(100)
while uo.findcount()>0
uo.MoveItem('finditem',-1,'RuneB')
wait(1000)
uo.findtype('rune','-1','RuneB')
wait(100)
wend

until uo.dead()

end sub


Sub ContCharges()
var rID
uo.Print("проверка количества зарядов...")
wait(1000)
uo.DeleteJournal()
uo.click('Nrune')
wait(2000)
if Uo.Injournal("(2 charges)") OR Uo.Injournal("(1 charges)") then
rID = uo.GetSerial('Nrune')
Mark(rID,0)
end if
end sub


Sub ContChargesH()
var rID
uo.Print("проверка количества зарядов...")
wait(1000)
uo.DeleteJournal()
uo.click('RuneH')
wait(2000)
if Uo.Injournal("(2 charges)") OR Uo.Injournal("(1 charges)") then
rID = uo.GetSerial('RuneH')
Mark(rID,1)
end if
end sub



Sub Mark(RuneID,Place)

var mark_key = 0

uo.Print("Выбрасываем старую рунку... ")
uo.drophere(RuneID)

Uo.UseObject(RuneBag)

wait(500)
uo.findtype(rune,'-1',RuneBag)
if uo.FindCount() then
uo.moveitem("finditem",'-1','backpack')
wait(700)

else

var Emsg = "Нет пустых рунок!!"
FatalError(Emsg)
end if

while mark_key == 0

If Uo.Mana < 50 then
while Uo.Mana < Uo.Int
Uo.Useskill("Meditation")
wait(5000)
wend
endif
Uo.DeleteJournal()
wait(500)
Uo.Cast("Mark",'finditem')
wait(10000)
mark_key = 1
if Uo.Injournal("spell") then
mark_key = 0
endif
wend

mark_key = 0


Uo.WaitTargetObject('finditem')

if Place == 0 then

uo.Exec('addobject Nrune')
wait(1500)


else


uo.Exec('addobject RuneH')

wait(1500)
endif
end sub


Sub RecallRune(nowrune)
wait(1000)
uo.Print("улетаем по руне")
var oldX,oldY
oldX = Uo.GetX()
oldY = Uo.GetY()
Uo.Useskill("Meditation")
wait(5000)
Repeat
If Uo.Mana < 30 then
while Uo.Mana < Uo.Int
Uo.Useskill("Meditation")
wait(5000)
wend
endif
Uo.Cast("Recall",nowrune)
wait(8000)
Until oldX<>UO.GetX() AND oldY<>UO.GetY()
end sub