Yoko

Code: Select all

sub maning()
   #BETEP™#
   var mx, my, mz, i, j, jor, ser, noto
   Uo.exec("set norbcheck 1"); для рекола
   uo.exec("set norbcalc 1"); тоже
   
   uo.print('!!Выбери Лопату!! ')
   uo.exec('addobject Shovel')
   while uo.targeting()
      wait(100)
   wend
   
   
   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("Прячемся...")
            UO.UseSkill("Hiding")
            wait(4000)
         wend
         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
                  pwav()
                  #Pause()
               endif
               for jor = 0 to 9
                  ser = uo.journalserial(jor)
                  noto = uo.getnotoriety(ser)
                  if noto == 1 and noto == 2 and noto == 0 and not uo.injournal("elemental") then
                     if uo.waiting() then
                        uo.canceltarget()
                     endif
                     Save()
                     pwavw()
                     wait(180000) ; время в секундах при ожидании пока уйдет ПК
                     loot()
                     wait(3000)
                     goto reccal
                  endif
               next
            wend
            if uo.weight > 400 then ; Максимальный вес при котором домой с рудой
               goto end
            endif
         wend
         UO.DeleteJournal()
      next
   next
   goto na4alo
   end:
   if uo.waiting() then
      uo.canceltarget()
   endif
   uo.exec("recall Runebook 21") ; домой ( в рунбуке слот 1 )
   wait(10000)
   loot()
   wait(3000)
   reccal:
   uo.deletejournal()
   if uo.waiting() then
      uo.canceltarget()
   endif
   #uo.exec("recall Runebook 46") ; в шахту ( в рунбуке слот 3 )
   uo.exec("recall Runebook 33") ; в шахту ( в рунбуке слот 2 )
   #uo.exec("recall Runebook 58") ; в шахту ( в рунбуке слот 4 )
   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