var NS=('0x0F88')
var BP=('0x0F7A')
sub strelka() #стрелка+спирит+медитация и добирает реги из сейфа#
while not uo.dead()
if uo.getquantity(NS)==0 then
doborNS()
wait(1000)
end if
if uo.getquantity(BP)==0 then
doborBP()
wait(1000)
end if
if uo.mana > 12 then
uo.cast('Magic Arrow')
uo.waittargetself()
wait(2100)
else
UO.UseSkill("Spirit Speak")
wait(3000)
while UO.Mana<UO.Int
UO.UseSkill("Meditation")
wait(3000)
wend
wait(2000)
end if
wend
end sub

sub doborNS()
uo.FindType(NS,'-1','0x40524901') # ID сейфа=0x40524901 #
uo.Grab('500','finditem')
wait(1000)
end sub

sub doborBP()
uo.FindType(BP,'-1','0x40524901')
uo.Grab('500','finditem')
wait(1000)
end sub

var count = '0x40524901'
var i
sub strelka() #стрелка+спирит+медитация и добирает реги из сейфа#
   DIM reg[2]
   reg[0]='0x0F88'
   reg[1]='0x0F7A'
   while not uo.dead()
      for i = 0 to 1
         if uo.count(reg[i])<2 then
            dobor(reg[i])
         end if
      next
      if uo.mana > 12 then
         uo.waittargetself()
         uo.cast('Magic Arrow')
         wait(2100)
      else
         UO.UseSkill("Spirit Speak")
         wait(3000)
         while UO.Mana<UO.Int
            UO.UseSkill("Meditation")
            wait(3000)
         wend
         wait(2000)
      end if
   wend
end sub
sub dobor(item)
   uo.FindType(item,'-1',count)
   uo.Grab('500','finditem')
   wait(1000)
end sub