слепой журнал

[omi4]

Попытка написания скрипта на добычу ресурсов, который юзает журнал, но пофиг на сами сообщения.
Для работы на рунке, а также сфере с измененными месагами.

Code: Select all

sub main()
; + EDIT ++++++++++++++++++
   var zona = 6;
; +++++++++++++++++++++++++
   var m, i, a, tr = 1, tX, tY
   for i=1 to zona
      if tr then
         m = - 6
      else
         m = 6
      endif
      for a=1 to zona
         tY = UO.GetX() + m
         GotoXY(tX,tY)
         if Lamber() then
            return 0
         endif
      next
      tX = UO.GetY() - 6
      if tr then
         tr = 0
      else
         tr = 1
      endif
   next
endsub

Sub Lamber()
   var X, Y, MaxRange = 3, LTimer
   for Y = -MaxRange to MaxRange
      for X = -MaxRange to MaxRange
         if Tree(UO.GetX()+X, UO.GetY()+Y) then
            repeat
               UO.Warmode(0)
               Util();
               LTimer = UO.Timer()
               UO.DeleteJournal()
               UO.WaitTargetTile(Tree(UO.GetX()+X, UO.GetY()+Y), UO.GetX()+X, UO.GetY()+Y, UO.GetZ())
               UO.UseObject("_0x0F43")
               repeat
                  wait(100)
               until UO.InJournal("is attacking you") || UO.JournalSerial(UO.InJournal(" ") -1) == "0xFFFFFFFF" || UO.Dead()
               if UO.InJournal("is attacking you") || UO.Weight >= 40 + UO.STR * 3.5 || UO.Dead() then
                  if UO.Dead() then
                     ;Resurrection()
                  else
                     UO.Cast('Recall', '^0x1F14')
                  endif
                  return 1
               endif
            until (UO.Timer() - LTimer) < 6 || UO.Dead()
         endif
      next
   next
   return 0
end sub

Sub Tree(X,Y)
   var i
   if UO.PrivateGetTile(X, Y, -1, 3274, 3302) then
      for i=3274 to 3302
         if UO.PrivateGetTile(X, Y, -1, i, i) then
            if i==3278 || i==3279 || i==3281 || i==3282 || i==3284 || i==3285 || i==3287 || i==3289 then
               return 0
            endif
            if i==3291 || i==3292 || i==3294 || i==3295 || i==3297 || i==3298 || i==3300 || i==3301 then
               return 0
            endif
            return i
         end if
      next
   end if
   return 0
end sub

Sub Util()
   while not UO.Hidden()
      UO.UseSkill('Stealth')
      repeat
         wait(100)
      until UO.JournalSerial(UO.InJournal(" ") -1) == "0xFFFFFFFF"
      UO.DeleteJournal()
   wend
endsub

Sub GotoXY(x,y) 
   var myX, myY, lastX = 0,lastY = 0, i, halt=0, z, r = 0
   for i = 1  to 60 
      MyX = UO.GetX(); 
      MyY = UO.GetY(); 
      Util(); 
      if LastX == MyX && LastY == MyY then 
         halt = halt + 1 
      else 
         halt=0 
      end if 
      if halt >= 10 then 
         if UO.GetDir() == 1 then 
            UO.Press(40,5) 
         end if 
         if UO.GetDir() == 3 then 
            UO.Press(37,5) 
         end if 
         if UO.GetDir() == 5 then 
            UO.Press(38,5) 
         end if 
         if UO.GetDir() == 7 then 
            UO.Press(39,5) 
         end if 
         halt=15 
      end if 
      if abs(x - myX) <= 1 && abs(y - myY) <= 1 then 
         return 1 
      end if 
      if x <= MyX then 
         if y <= MyY then 
            UO.Press(38,3) 
         end if 
         UO.Press(37,3) 
      else 
         if y <= MyY then 
            UO.Press(39,3) 
         end if 
         UO.Press(40,3) 
      end if 
      lastX = myX 
      lastY = myY 
      wait(200) 
   next 
   return 0 
end sub 

Sub abs(x) 
   if x > 0 then 
      return x 
   end if 
      return -x 
end sub