It is currently 28 Mar 2024, 22:08

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 5 posts ] 
Author Message
PostPosted: 21 Mar 2022, 01:53 
Offline
Начинающий игрок

Joined: 11 Mar 2022, 09:47
Posts: 23
Помогите скриптом на мининг+БС+Тинкер в пищере в миноке для изи уо
или скинте кусок скрипта что отвечает за копку а то все скрипты не работают на форуме
вот скрипт но он не копает а ходит тупу по координатам я так пенял поменяли тайлы или нет
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_QPF C
while #FINDCNT < 1
{
  event SysMessage No Pickaxes
  wait 2s
  finditem NPF_QPF 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: 24 Jul 2022, 14:25 
Offline
Новичок

Joined: 11 May 2022, 20:15
Posts: 5
Братцы, помогите рабочим скриптом за игровые ценности


Top
 Profile  
 
PostPosted: 22 Nov 2022, 16:19 
Offline
Игрок

Joined: 01 Oct 2022, 09:27
Posts: 60
Всем привет! у меня два вопроса:

1 - Куда ирон девать? Лям ирона валяется.

2 -Кто подскажет по скрипту мининга на Орион?

В Миноке чар нормально копает по координатам от 0495 до 0482 0481 0480 по Y.
Если 0479 то уже бежит на выход и вокруг горы бежит.
Может кто сталкивался и знает в чем подстава?

Так же начиная с версии орион клиента от 10 месяца и свежее вообще не копает, а говорит что цель недосягаема. Кто сталкивался?
Че говорил что-то 0 или -1 но точнее объяснить не смог из-за траблов со связью.


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

All times are UTC + 2 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 149 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