Версия для печати темы

sub Rekolka() 
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
uo.exec("recall Runebook 46") 
wait(6500)

if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
end sub

loot()
wait(3000)
goto reccal
endif
next   
wend
if uo.weight > 150 then 
goto end
endif
wend
UO.DeleteJournal()
next
next
goto start
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21"); к сундуку
wait(10000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 94"); в шахту обратно
mx = UO.GetX("self")
my = UO.GetY("self")
wait(10000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
goto start
end sub

sub main(); стартовая процедура
   check('1')
end sub

Sub check(x); скрытая процедура с параметром кнопки
   if gold() then
      uo.recall('0x40A5516A',x)
   endif
end sub

Sub gold(); скрытая процедура возвращающая 1 при удачном и 0 при не удачном поиске
   if UO.Count('0x0EED') then
      return 1
   else
      return 0
   endif
endsub

if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
else
goto na4alo
endif
end sub

sub maning()
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1"); для рекола
uo.exec("set norbcalc 1"); тоже

na4alo:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
ToHide()
UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (500)
if uo.injournal("heavy") or uo.dead() then

endif
for jor = 0 to 9   
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then
if uo.waiting() then
uo.canceltarget()
endif

UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))

Sub ToHide() 
   if not UO.Hidden() then
      UO.Print('Уходим в stealth...') 
      UO.WarMode(0)      
   endif
   while not UO.Hidden()
    UO.UseSkill('Stealth')
    wait(1000) 
   wend 
end sub
end sub

uo.print('Select pickaxe')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend

var Runebook2='0x403ADD4B' # Для рекола домой.
var Runenr='46' # Номер руны. 
var Chest='0x404E5DF9' # Сундук с инструментами.
var helpX=1868 # Переменные без кавычек! 
var helpY=50 # Переменные без кавычек!   

sub maning()
   var mx, my, mz, i, j, jor, ser, noto
   Uo.exec("set norbcheck 1"); для рекола
   uo.exec("set norbcalc 1"); тоже
   uo.print('Select pickaxe! ')
   uo.exec('addobject Shovel')
   while uo.targeting()
      wait(100)
   wend
   uo.print('Select Runebook! ')
   uo.exec('addobject Runebook')
   while uo.targeting()
      wait(100)
   wend

if not uo.getglobal('flagRes')=='1' then
      uo.exec('exec Resurrector')
      uo.setglobal('flagRes','1')
   endif

   na4alo:
   mx = UO.GetX("self")
   my = UO.GetY("self")
   mz = UO.GetZ("self")
   UO.DeleteJournal()
   for i = mx-4 to mx+4
      for j = my -4 to my+4
         while not UO.Hidden()
            UO.Warmode("0")
            uo.print("Hiding...")
            UO.UseSkill("Hiding")
            wait(4000)
         wend
         UO.Print("Dig in coordinates: "+str(mx-i)+" "+str(my-j))
         while not UO.InJournal("no ore here|location|far away|in rock|Iron Ore|Copper|Rusty Ore")
            UO.DeleteJournal()
            if uo.waiting() then
               uo.canceltarget()
            endif
            UO.Waittargettile("1341", str(i), str(j), str(mz))
            UO.Useobject("Shovel")
            while not UO.InJournal("You put|heavy|location|no ore|but fail|far away|in rock")
               wait (500)

               for jor = 0 to 9
                  ser = uo.journalserial(jor)
                  noto = uo.getnotoriety(ser)
                  if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then
                     if uo.waiting() then
                        uo.canceltarget()
                     endif

                     loot()
                     wait(3000)
                     goto reccal
                  endif
               next
            wend
            if uo.weight > 650 then; Максимальный вес при котором домой с рудой
               goto end
            endif
         wend
         UO.DeleteJournal()
      next
   next
   goto na4alo
   end:
   if uo.waiting() then
      uo.canceltarget()
   endif
   uo.exec("recall Runebook 21"); home
   wait(10000)
   loot()
   wait(3000)
   reccal:
   uo.deletejournal()
   if uo.waiting() then
      uo.canceltarget()
   endif
   uo.exec("recall Runebook 94"); cave
   mx = UO.GetX("self")
   my = UO.GetY("self")
   wait(10000)
   if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
      goto reccal
   endif
   goto na4alo
end sub

sub loot() 
   if uo.waiting() then
      uo.canceltarget()
   endif
   VAR a,Exit
   VAR UnloadCont='0x403B3732' 
   DIM Ore[10]
Ore[0]=0x19B9; 4 and more ore
Ore[1]=0x19B7; 1 ore
Ore[2]=0x19BA; 2 ore
Ore[3]=0x19B8; 3 ore
Ore[4]=0x0F15; citrine
Ore[5]=0x0F26; a diamond
Ore[6]=0x0F18; turmalin
Ore[7]=0x0F10; emerald
Ore[8]=0x0F11; saphire
Ore[9]=0x0F0F; star saphire
Ore[10]=0x0F16; ametist 
   UO.SetReceivingContainer(UnloadCont)
   wait(500)
   For a=0 to 10
      Exit=0
      repeat
         UO.FindType(Ore[a])
CheckLag()
         if UO.GetQuantity('finditem')>0 then
            UO.Grab('0','finditem')
            wait(1500)
         Else
            Exit=1
         endif
      until Exit==1
   Next
   UO.UnSetReceivingContainer()
end sub

sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub

sub GetPickaxe()
   var n
   dim instrument[4]
   instrument[1]='0x0F39'
   instrument[2]='0x0F3A'
   instrument[3]='0x0E86'
   instrument[4]='0x0E85'
   if uo.count('0x0F39')==0 and uo.count('0x0F3A')==0 and uo.count('0x0E86')==0 and uo.count('0x0E85')==0 then
      for n=1 to 4
         uo.findtype(instrument[n],-1,Chest)
         if uo.findcount() then
            pickaxe=uo.getserial('finditem')
            uo.moveitem('finditem',0,'backpack')
            checklag()
            wait(700)
            return
         endif
      next
   else
      for n=1 to 4
         uo.findtype(instrument[n],-1,'my')
         if uo.findcount() then
            pickaxe=uo.getserial('finditem')
            return
         endif
      next   
   endif
   while 1
      uo.print(' pickaxe not found ')
      wait(3000)
   wend
endsub

sub Open(what)
   uo.useobject(what)
   checklag()
   wait(700)
endsub

sub Rekolka() 
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
uo.exec("recall Runebook 46") 
wait(6500)

if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
else
goto na4alo
endif
end sub