sub () Опции

[kklej]

Приив. Скажите пожалуйста выгоднее создать сабик или в коде уже шаманить?

[kklej]

спс. мне над следующее:

как ток перс воскресился, летит на метле к сундуку за инструментом, а потом обратно в пещеру и - начинаем копать! вот, гляньте пожалуйста!

мне надо правильно вставить реколл в шахту и чтобы опять начал копать!

что лучче сделать - суб новый для реколла в шахту и начало копки, или как то по другому?

вот, я сказал чего мне надо! подскажите пожалуйста.

хелп!

тут есть метка - na4alo:

Код

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