###############################################################
######еТО ДЛЯ бланк мап#####################################
###################################################
var cont1='0x40442072' ; для карт и пустых мешков(<50) 
var cont2='0x4044205A' ; для наполненных мешков с картами 
var map='0x0E34' ; нерасшифрованная карта 
var mesh='0x0E76' ; пустой мешок 
var sm 

sub unload1()
uo.useobject(cont1) 
wait(1000) 
uo.useobject(cont2) 
wait(1000) 
uo.findtype(map,'-1','backpack') 
while uo.findcount() 
 uo.findtype(map,'-1',cont1) 
 if uo.findcount()>=245 then 
   uo.findtype(mesh,'-1',cont1) 
   sm=uo.getserial('finditem') 
   uo.moveitem(sm,'1',cont2) 
   wait(2000) 
   uo.findtype(map,'-1',cont1) 
   while uo.findcount() 
    uo.moveitem('finditem','1',sm) 
    wait(1000) 
    uo.findtype(map,'-1',cont1) 
   wend 
  else 
   uo.findtype(map,'-1','backpack') 
   uo.moveitem('finditem','1',cont1) 
   wait(1000) 
 endif 
 uo.findtype(map,'-1','backpack') 
wend 
endsub
######################################################

########

#Чар летате по 2 рунбукам, в 1 буке первая руна домой,2 бука
#полностью забита рунами к местам скупки!
#В паке отделная сумка в которой лежат рунки!
#В сундуке куда будет складавать реги должны быть реги на рекал
#манки и инвизки !При поевление пк пьёт инвиз и летит к 
#следушему вендору,При пролёте 2 рунбук летит домой скидавает
#что надо доберает если есть в паке рекалы юзаит их!
###############################################
var book1='0x403E2EEF' 
var book2='0x4046D497'
var book3='0x4004F5C3'
var unloadseif='0x4016E7E0'

var sumka='0x40108233'


sub uio()
uo.say(str(uo.getnotoriety('self')))
end sub

sub o()
var i,q="a",w="b",e="c",r="d",t="e"
dim up[101]
for i=0 to 100
up[i]=""
up[i]=up[i-1]+ q
next
for i=0 to 100
uo.findtype(-1,-1,'backpack')
next
end sub

sub scant()
var cnt,i=0
dim item[255]
uo.findtype(-1,-1,'backpack')
cnt=uo.findcount()
while cnt>0
uo.findtype(-1,-1,'backpack')
cnt=uo.findcount()
item[i]=uo.getserial('finditem')
i=i+1
wend
i=0
end sub



sub POGNALI() 
var o,j,b ,l=0,i,vend
 DIM r[255],lun[4]
lun[0]='0x1F15'
lun[1]='0x1F14'
lun[2]='0x1F16'
lun[3]='0x1F17' 
uo.setglobal('qwe','0')
uo.exec('terminate newcnl')
uo.exec('exec newcnl')
for i=0 to 254
uo.findtype(-1,-1,'backpack')
if uo.findcount() then
r[i]=uo.getserial('finditem')
uo.ignore('finditem')
endif
next
uo.ignorereset()
 while true
for o=1 to 16 
 if o>8 then
 l=1
 else
 l=0
endif
  rec(o,l)
  esh:
if  apkn()==1 then
goto pereskok
endif
     vend=getnpc()
     if vend<>1 then
 uo.print('idem k vendoru')
     b=UO.GetDistance(vend)
     while b>1 
      SuperWalk(uo.getx(vend),uo.gety(vend),vend) 
      b=UO.GetDistance(vend) 

if  apkn()==1 then
goto pereskok
endif
     wend 

   uo.buy('NS',uo.getname(vend))  # ??? ???????? QW ?? ???????? ?????? ??? ?????.
if  apkn()==1 then
goto pereskok
endif
     uo.ignore(vend)
     checklag()
     uo.warmode(0)
uo.useskill('Stealth')
 checklag()
wait(333)

     vend=0
          wait(3000)
     goto esh
     endif
     pereskok:
    next 
rec(0,0)
unload1()
 wait(2000) 
 unload() 
    wait(2000) 
    tomeshok()
    wait(1000)
    UO.UseSkill('Meditation') 
       wait(1000)
    UO.UseSkill('Meditation') 
    wait(200000)
 wend 
end sub 

sub getnpc()
uo.ignore('self')
var i
uo.set('finddistance','6')
dim pipl[2]
pipl[0]='0x0191'
pipl[1]='0x0190'
for i=0 to 1

uo.findtype(pipl[i],-1,'ground')
uo.print('Ishem venda')
if uo.findcount() then
if uo.getz('finditem')==uo.getz() then

uo.print(uo.getname('finditem') + '  nashli')
return uo.getserial('finditem')
else
uo.ignore('finditem') 

endif
endif
next
return 1
end sub

sub rec(k,p)# The recall rune fades completely.
var i=0,ser,book,kl=k,bl,exit=0,l=0,runa,pr=0
var x=uo.getx(),y=uo.gety()
dim lun[4],are[9],r[255]
uo.ignorereset()
are[0]='12'
are[1]='13'
are[2]='14'
are[3]='15'
are[4]='16'
are[5]='17'
are[6]='18'
are[7]='19'
are[8]='20'

lun[0]='0x1F15'
lun[1]='0x1F14'
lun[2]='0x1F16'
lun[3]='0x1F17'

while exit==0
  for l=0 to 3
  uo.findtype(lun[l],-1,sumka)
  if uo.findcount() then
  r[i]=uo.getserial('finditem')
  uo.ignore('finditem')
  else
  pr=pr+1
endif
next
i=i+1
if pr==4 then
exit=1
endif
pr=0
wend
exit=0

if k>8 then
kl=k-8
else
kl=k
endif
if p==0 then
  book=book1
endif
if p==1 then
  book=book2
endif
if p==2 then
  book=book1
endif
uo.recall(book,are[kl])
checklag()
wait(1800)   
while x==uo.getx() and y==uo.gety()
for i=0 to 3
  uo.findtype(lun[i],-1,'backpack')
  if uo.findcount() then
    if uo.containerof('finditem')==uo.getserial('backpack') then
       if uo.count('0x1F4C')>0 then
         if uo.mana<=11 then
         UO.Exec("usetype 0x0f0e 0x09df") 
       endif
        else
         if uo.mana <= 21 then
         UO.Exec("usetype 0x0f0e 0x09df") 
         endif
       endif
       uo.exec('addobject ser finditem')
       if uo.count('0x1f4c')>0 then
       uo.waittargetobject('finditem')
       uo.usetype('0x1f4c')
        else
      uo.cast('Recall','finditem')
      endif
    endif
  endif
next
checklag()
wait(5300)
wend

uo.warmode(0)
uo.useskill('Stealth')
wait(500)
uo.ignorereset()
if uo.containerof('ser')=='0x00000000' or uo.containerof('ser')<>uo.getserial('backpack') then
i=0
uo.print('1')
runa='0xdsfa1245'
uo.say('Nachalos')
while exit==0
if r[i]<>'0' or r[i]<>"" then
runa=r[i]
r[i]=0
exit=1
uo.print('exit')
else
i=i+1
endif
wend
uo.print(runa)
uo.moveitem(runa,0,'backpack')
checklag()
wait(1500)
uo.deletejournal()
ppc:
if uo.mana < 32 then
UO.Exec("usetype 0x0f0e 0x09df") 
endif
uo.cast('Mark',runa)
uo.addobject('ser',runa)
checklag()
wait(5500)
if uo.injournal('fizzles') then
uo.deletejournal()
goto ppc
endif
else
uo.print('tic tac')
endif
     uo.deletejournal()
uo.waittargetobject('ser')
uo.recall(book,'11')
checklag()
wait(2000)
endsub