It is currently 28 Mar 2024, 21:56

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 6 posts ] 
Author Message
 Post subject: Мининг + EaseUO
PostPosted: 27 Nov 2017, 19:58 
Offline
Игрок

Joined: 23 Sep 2015, 21:33
Posts: 139
Code:
sub wait
{
set #LTargetKind 2
for %x -1 1
{
if #MAXWEIGHT < #WEIGHT + 101
{
return
}
for %y -1 1
  {
   repeat
   {
    set #lTargetX #CHARPOSX + %x
    set #lTargetY #CHARPOSY + %y
    set #lTargetZ #CHARPOSZ
    gosub usepick
    target
    event Macro 22 0
    set %weigh #WEIGHT
    set %timer2 #SCNT
    repeat
    {
     wait 1
    }
    until %weigh < #WEIGHT || nothing in #sysMsg || Try in #sysMsg || put in #sysMsg || close in #sysMsg || see in #sysMsg || destroyed in #sysMsg || line in #sysMsg || loosen in #sysMsg || %timer2 < #SCNT - 12
   }
   until nothing in #sysMsg || line in #sysMsg || decide in #sysMsg || Try in #sysMsg || close in #sysMsg || see in #sysMsg || line in #sysMsg
  }
}
return
}


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


Top
 Profile  
 
PostPosted: 28 Nov 2017, 01:55 
Offline
Начинающий игрок

Joined: 27 Nov 2017, 22:09
Posts: 14
для начала в шахте тайлы копки обознач, - где коавть будеш,
евективней изи"!


Top
 Profile  
 
PostPosted: 28 Nov 2017, 03:16 
Offline
Бывалый игрок
User avatar

Joined: 21 Mar 2017, 03:06
Posts: 333
Location: Київ
Тебе не помогут. Мининг - это чисто как личное .
Пользуйся Минингом общим в Миноке.


Top
 Profile  
 
PostPosted: 28 Nov 2017, 10:18 
Offline
Игрок

Joined: 23 Sep 2015, 21:33
Posts: 139
Code:
;######### CRAFT CORDINATES #############
set %categx 70
set %categy 210

set %selectx 270
set %selecty 150

;#########################################





sub findiron
{
event sysmessage ## SEARCHING FO-R IRON ###
  event sysmessage looping metal find
  ignoreitem reset 1
  set %x_m_s 0
  finditem RMK C_ , #BACKPACKID
  set %mycontrol 0
     while %x_m_s <> 1
        {
         if #FINDCOL = 0
            {
             set %ironfound  #FINDID
             event sysmessage found  %ironfound iron  #FINDSTACK ignots
             set %x_m_s 1
             set %mycontrol %mycontrol +1
            }
                      else
            {
              event sysmessage found not iron #FINDSTACK ignots  #FINDID
              ignoreitem #FINDID 1
              set %x_m_s 0
              set %mycontrol %mycontrol +1
              finditem RMK C_ , #BACKPACKID
            }
          if %mycontrol > 16
         {
         break
         }
         }
return
}


sub findbronze
{
event sysmessage ## SEARCHING FO-R bronze ###
  event sysmessage looping metal find
  ignoreitem reset 1
  set %x_m_s 0
  finditem RMK C_ , #BACKPACKID
  set %mycontrol 0
     while %x_m_s <> 1
        {
         if #FINDCOL = 1160
            {
             set %bronzefound  #FINDID
             event sysmessage found  %bronzefound bronze  #FINDSTACK ignots
             set %x_m_s 1
             set %mycontrol %mycontrol + 1
            }
                      else
            {
              event sysmessage found not bronze #FINDSTACK ignots  #FINDID
              ignoreitem #FINDID 1
              set %x_m_s 0
              set %mycontrol %mycontrol + 1
              finditem RMK C_ , #BACKPACKID
            }
         if %mycontrol > 16
         {
         break
         }
           
         }
return
}

sub findcopper
{
event sysmessage ## SEARCHING FO-R copper ###
  event sysmessage looping metal find
  ignoreitem reset 1
  set %x_m_s 0
  finditem RMK C_ , #BACKPACKID
  set %mycontrol 0
     while %x_m_s <> 1
        {
         if #FINDCOL = 2738
            {
             set %copperfound  #FINDID
             event sysmessage found  %copperfound copper  #FINDSTACK ignots
             set %x_m_s 1
             set %mycontrol %mycontrol +1
             }
                      else
            {
              event sysmessage found not copper #FINDSTACK ignots  #FINDID
              ignoreitem #FINDID 1
              set %x_m_s 0
              finditem RMK C_ , #BACKPACKID
              set %mycontrol %mycontrol +1
              if %mycontrol > 14
              {
              break
              }
            }
         }
return
}


sub bsiron
{

finditem  %ironfound C_ , #BACKPACKID
event sysmessage UNDER BS found #FINDSTACK %ironfound  iron ######
while %enoughiron <> 0
{
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughiron  1
}
else
{
gosub clean
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughiron  1
}
else
{
return
}
}
 finditem TLH C_ , #BACKPACKID
    if #FINDCNT > 1
     {
      event sysmessage found #FINDCNT hammers
      set %myhammer #FINDID
     }
     else
     {
      event sysmessage no hammers found

      halt
     }
      event sysmessage using hammer %myhammer usinng iron  %ironfound
      set #LOBJECTID %myhammer
      event macro 17 0
      target
      set #LTARGETID %ironfound
      set #LTARGETKIND 1
      event sysmessage LTARGETID IS #LTARGETID
      event Macro 22 0
       wait 30
      click %categx %categy f
      wait 30
      click %selectx %selecty f
      wait 7s
 finditem  %ironfound C_ , #BACKPACKID
}
return
gosub clean
find %ironfound C_ , #BACKPACKID
}

sub bscopper
{

finditem  %copperfound C_ , #BACKPACKID
event sysmessage UNDER BS found #FINDSTACK %copperfound  copper ######
while %enoughcopper <> 0
{
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughcopper  1
}
else
{
gosub clean
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughcopper  1
}
else
{
return
}
}
 finditem TLH C_ , #BACKPACKID
    if #FINDCNT > 1
     {
      event sysmessage found #FINDCNT hammers
      set %myhammer #FINDID
     }
     else
     {
      event sysmessage no hammers found

      halt
     }
      event sysmessage using hammer %myhammer usinng copper  %copperfound
      set #LOBJECTID %myhammer
      event macro 17 0
      target
      set #LTARGETID %copperfound
      set #LTARGETKIND 1
      event sysmessage LTARGETID IS #LTARGETID
      event Macro 22 0
       wait 30
      click %categx %categy f
      wait 30
      click %selectx %selecty f
      wait 7s
 finditem  %copperfound C_ , #BACKPACKID
}
return
gosub clean
find %copperfound C_ , #BACKPACKID
}

sub bsbronze
{

finditem  %bronzefound C_ , #BACKPACKID
event sysmessage UNDER BS found #FINDSTACK %bronzefound  bronze ######
while %enoughbronze <> 0
{
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughbronze  1
}
else
{
gosub clean
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughbronze  1
}
else
{
return
}
}
 finditem TLH C_ , #BACKPACKID
    if #FINDCNT > 1
     {
      event sysmessage found #FINDCNT hammers
      set %myhammer #FINDID
     }
     else
     {
      event sysmessage no hammers found

      halt
     }
      event sysmessage using hammer %myhammer usinng bronze  %bronzefound
      set #LOBJECTID %myhammer
      event macro 17 0
      target
      set #LTARGETID %bronzefound
      set #LTARGETKIND 1
      event sysmessage LTARGETID IS #LTARGETID
      event Macro 22 0
       wait 30
      click %categx %categy f
      wait 30
      click %selectx %selecty f
      wait 7s
 finditem  %bronzefound C_ , #BACKPACKID
}
return
gosub clean
find %bronzefound C_ , #BACKPACKID
}






sub clean
{
finditem JBG G
set %myforge #FINDID
finditem BPH C_ , #BACKPACKID
event sysmessage ## THERE ARE LEFT #FINDCNT SWORDS  ##
   while #FINDCNT <> 0
   {
    finditem BPH C_ , #BACKPACKID
    event sysmessage ##SWORDS CLEANING #FINDID  ##
    set #LOBJECTID %myforge
    set #LTARGETID #FINDID
    set #LTARGETKIND 1
    event macro 17
    wait 2s
    event macro 22
    wait 1s
   }
event sysmessage ##NO SWORD TO CLEAN##
find %ironfound C_ , #BACKPACKID
return
}



gosub window
while 1 = 1
{




Enable Event Sysmessage
set #sysmsgcol 1359
event SysMessage ###Script Crafted by Gign###
move 2566 463 1
gosub wait
move 2562 467 1
gosub wait
move 2564 467 1
gosub wait
move 2567 466 1
gosub wait
move 2570 464 1
gosub wait
move 2567 463 1
gosub wait
move 2567 461 1
gosub wait
move 2569 461 1
gosub wait
move 2571 461 1
gosub wait
move 2573 459 1
gosub wait
move 2570 458 1
gosub wait
move 2570 456 1
gosub wait
move 2572 455 1
gosub wait
move 2572 453 1
gosub wait
move 2570 453 1
gosub wait
move 2568 453 1
gosub wait
move 2569 451 1
gosub wait
move 2571 451 1
gosub wait
move 2567 456 0

gosub smeltall

while 1 = 1
{
 gosub findiron
 find %ironfound C_ , #BACKPACKID

 if #FINDSTACK > 30
    {
     gosub clean
     gosub bsiron
     }
     else
     {
     break
     }
}

while 1 = 1
{
 gosub findbronze
 find %bronzefound C_ , #BACKPACKID

 if #FINDSTACK > 30
    {
     gosub clean
     gosub bsbronze
     }
     else
     {
     break
     }
}

while 1 = 1
{
 gosub findcopper
 find %copperfound C_ , #BACKPACKID

 if #FINDSTACK > 30
    {
     gosub clean
     gosub bscopper
     }
     else
     {
     break
     }
}



move 2574 452 1
gosub wait
move 2578 452 1
gosub wait
move 2581 453 1
gosub wait
move 2585 453 1
gosub wait
move 2586 451 1
gosub wait
move 2584 449 1
gosub wait
move 2581 449 1
gosub wait
move 2576 445 1
gosub wait
move 2567 456 0

gosub smeltall
gosub findiron
while 1 = 1
{

 find %ironfound C_ , #BACKPACKID

 if #FINDSTACK > 30
    {
     gosub clean
     gosub bsiron
     }
     else
     {
     break
     }
}



}

sub smeltall
{
wait 1s
finditem DWJ C
wait 1s
while #FINDCNT > 0
{
  set #LOBJECTID #FINDID
  event macro 17
  finditem DWJ C
  wait 1s
}
return
}

sub wait
{
set #LTargetKind 2
for %x -1 1
{
if #MAXWEIGHT < #WEIGHT + 101
{
return
}
for %y -1 1
  {
   repeat
   {
    set #lTargetX #CHARPOSX + %x
    set #lTargetY #CHARPOSY + %y
    set #lTargetZ #CHARPOSZ
    gosub usepick
    target
    event Macro 22 0
    set %weigh #WEIGHT
    set %timer2 #SCNT
    repeat
    {
     wait 1
    }
    until %weigh < #WEIGHT || nothing in #sysMsg || Try in #sysMsg || put in #sysMsg || close in #sysMsg || see in #sysMsg || destroyed in #sysMsg || line in #sysMsg || loosen in #sysMsg || %timer2 < #SCNT - 12
   }
   until nothing in #sysMsg || line in #sysMsg || decide in #sysMsg || Try in #sysMsg || close in #sysMsg || see in #sysMsg || line in #sysMsg
  }
}
gosub dropore
return
}

sub usepick
{
finditem NPF C
while #FINDCNT < 1
{
  event SysMessage No Pickaxes
  wait 2s
  finditem NPF C
}
set #lObjectID #FINDID
event macro 17
return
}

sub dropore
{
finditem DWJ C
for %i 1 #findcnt
{
  set #findindex %i
  if _ , #findcol , _ in %dropcolor
  {
   exevent drag #findid #findstack
   exevent dropg #charposx #charposy #charposz
   wait 10
  }
}
return
}

sub window
}
set %charInfo #charName
set %checksizex 100
set %checksizey 20
set %checkposx 55
set %checkposy 10
set %checkname1 Iron
set %checkname2 Copper
set %checkname3 Bronze
set %checkname4 Steel
set %checkname5 Black_Steel
set %checkname6 Meteor
set %checkname7 Dark_Crystal
set %checkname8 Fire
set %checkname9 Elemental
set %checknamec1 0
set %checknamec2 2738
set %checknamec3 1160
set %checknamec4 1068
set %checknamec5 2723
set %checknamec6 2720
set %checknamec7 2735
set %checknamec8 1094
set %checknamec9 2734
menu window size 240 330
menu window title #spc , Crafted , #spc , by , #spc , Gign
menu Text text_1 10 10 Eaeo? ?oao aueeauaaou ia caie??
for %i 1 9
{
set %name %checkname . %i
set %posy %checkposy + ( 25 * %i )
menu check %name %checkposx %posy %checksizex %checksizey #false %name
}
menu Button button_1 50 260 100 50 Ia?aou eiiaou!
menu show
set #menubutton nothing
while #menubutton <> button_1
{
wait 1
}
menu Hide
for %i 1 9
{
set %name %checkname . %i
menu get %name
if #menures = #true
{
  set %mycolor %checknamec . %i
  set %dropcolor %dropcolor , _ , %mycolor
}
}
set %dropcolor %dropcolor , _
return
}


вот сам скрипт на минок шахту взят с форума на почемута он подходит к точке и пишет Цель слишком далеко


Top
 Profile  
 
PostPosted: 28 Nov 2017, 14:04 
Offline
Бывалый игрок
User avatar

Joined: 21 Mar 2017, 03:06
Posts: 333
Location: Київ
Попробуй этот на Инжу : Он точно рабочий
Code:
sub Mining()
   start:
   gotoXY(2557,498)
   minround()
   gotoXY(2557,495)
   minround()
   gotoXY(2560,495)
   minround()   
   gotoXY(2560,492)
   minround()
   gotoXY(2563,492)
   minround()
   gotoXY(2566,489)
   minround()
   gotoXY(2563,489)
   minround()
   gotoXY(2560,489)
   minround()   
   gotoXY(2561,487)
   minround()
   gotoXY(2563,486)
   minround()
   gotoXY(2566,486)
   minround()   
   gotoXY(2569,486)
   minround()
   gotoXY(2569,488)
   minround()
   gotoXY(2572,486)
   minround()
   gotoXY(2572,483)
   minround()
   gotoXY(2575,480)
   minround()   
   gotoXY(2572,480)
   minround()
   gotoXY(2569,480)
   minround()
   gotoXY(2566,483)
   minround()   
   gotoXY(2563,483)
   minround()
   gotoXY(2563,480)
   minround()
   gotoXY(2566,480)
   minround()
   gotoXY(2563,477)
   minround()
   gotoXY(2566,477)
   minround()   
   gotoXY(2566,474)
   minround()
   gotoXY(2569,475)
   minround()
   gotoXY(2569,477)
   minround()   
   gotoXY(2572,477)
   minround()
   gotoXY(2575,477)
   minround()
   goto start:
endsub

Sub minround()
   VAR Kirka = '0x0E86'
   VAR MaxVes = 1100
   VAR Tiles
   VAR x, y, t, k, mX, mY, mZ
   VAR MaxTime = 100   
   VAR ms1 = "There is nothing"
   VAR ms2 = "You can't use"
   VAR ms3 = "You put "
   VAR ms4 = "You loosen some rocks"
   VAR ms5 = "location"
   VAR ms6 = "Try mining"
   VAR ms7 = "Цель слишком далеко"
   mX = UO.GetX('self')
   mY = UO.GetY('self')
   mZ = UO.GetZ('self')
   for y=-1 to 1
      for x=-1 to 1
         If UO.Weight > MaxVes Then
            Plavca()
            BS()
         Endif
         Tiles = F_HarvestTiles(mX+x, mY+y)
         k = 0
         repeat
            UO.DeleteJournal()
            t = UO.Timer()
            k = k + 1
            UO.WaitTargetTile(Tiles, mX+x, mY+y, mZ)
            UO.UseType( Kirka )
            repeat
               wait(300)
            until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer()) or UO.Weight > MaxVes
         until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) or UO.Weight > MaxVes         
      next
   next
   Drop()  ; функция сброса чтобы закоментировать поставь перед ней ;
endsub

Sub F_HarvestTiles(x,y)
   var i
   if UO.PrivateGetTile(x, y, -1, 1339, 1343) then
      for i=1339 to 1343
         if UO.PrivateGetTile(x, y, -1, i, i) then           
            return i
         end if
      next
   end if
   return 0
end sub

Sub Drop() ; сотри ненужное...
;---------------------------------------------------------------------
   uo.findtype('0x19B9','0x0000','backpack')  ;сброс айрона
   if uo.findcount() > 0 then
      UO.Drop('-1',1,1,0,'finditem')
      wait(300)
   endif
;--------------------------------------------------------------------
   uo.findtype('0x19B9','0x0AB2','backpack') ;сброс меди
   if uo.findcount() > 0 then
      UO.Drop('-1',1,1,0,'finditem')
      wait(300)
   endif
;-------------------------------------------------------------------
   uo.findtype('0x19B9','0x0488','backpack') ;сброс бронзы
   if uo.findcount() > 0 then
      UO.Drop('-1',1,1,0,'finditem')
   endif
;-----------------------------------------------------------------------
endsub

sub BS()
   uo.findtype('0x1BEF','0x0000','backpack')
   UO.WaitTargetType('0x1BEF')
   UO.UseType('0x13E3')
   wait(3000)
   While uo.count('0x1BEF') > 9
      UO.SendGumpSelect(508)
      wait(7000)
      PlavcaItem()
   wend
endsub

Sub Plavca()
   gotoXY(2567,454)
   uo.findtype('0x19B9',-1,'backpack')
   while uo.count('0x19B9') > 0
      uo.usetype('0x19B9')
      wait(300)
   wend
endsub

sub PlavcaItem()
   uo.findtype('0x1413','0x0000','backpack')
   while uo.findcount() > 0
      UO.WaitTargetObject('finditem')
      UO.UseObject('0x40036951')
      wait(300)
      uo.findtype('0x1413','0x0000','backpack')
   wend
endsub

Sub gotoXY(x,y)
   var ld=0,ldc=0
   var dx,dy
   var mx,my
   var ox,oy,mk,k
   start:
   mx=UO.GetX()
   my=UO.GetY()
   dx=mx-x
   if dx<0 then
      dx=0-dx
   endif
   dy=my-y
   if dy<0 then
      dy=0-dy
   endif
   if dy>dx then
      dx=dy
   end if
   if dx<=0 then
      return
   end if
   if not ldc then
   end if
   if dx<3 then
      mk=70
   else
      mk=15
   end if
   
   ox=mx
   oy=my
   for k=1 to mk
      mx=UO.GetX()
      my=UO.GetY()
      if mx<>ox or my<>oy then
         goto sdidapl
      end if
      wait(10)
   next
   sdidapl:
   
   mx=UO.GetX()
   my=UO.GetY()
   dx=mx-x
   if dx<0 then
      dx=0-dx
   endif
   dy=my-y
   if dy<0 then
      dy=0-dy
   endif
   if dy>dx then
      dx=dy
   end if
   
   if dx<=0 then
      return
   end if
   if ld==dx then
      ldc=ldc+1
      if ldc>100 then
         uo.print("Can not reach location!")
         return
      end if
   else
      ld=dx
   end if
   
   if mx==x then
      if my==y then
         return
      endif
      if my>y then
         UO.Press(33)
         goto start
      endif
      UO.Press(35)
      goto start
   end if
   if mx<x then
      if my>y then
         UO.Press(39)
         goto start
      endif
      if my==y then
         UO.Press(34)
         goto start
      endif
      UO.Press(40)
      goto start
   end if
   if my<y then
      UO.Press(37)
      goto start
   endif
   if my==y then
      UO.Press(36)
      goto start
   endif
   UO.Press(38)
   goto start
end sub


Top
 Profile  
 
PostPosted: 01 Dec 2017, 00:03 
Offline
Игрок

Joined: 23 Sep 2015, 21:33
Posts: 139
скрипт этот норм на инжект но проблемка с бс у него


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 6 posts ] 

All times are UTC + 2 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 154 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group