Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Mon May 21, 2018 12:57 am

All times are UTC




Post new topic Reply to topic  [ 3 posts ] 
Author Message
 Post subject: Everquest 2, Armorer crafting macro
Thanked: 1 time(s)  Unread post Posted: Fri May 11, 2012 7:38 am 
New User
New User



Joined: Sat Apr 28, 2012 1:02 pm
Posts: 7
Location: Sweden
Been thanked: 2 time(s)
Has thanked: 0 time(s)
Contribution Points: 515
Hello all again, though it was time to release another macro which has helped me :twisted:
This time it is a crafting macro that will help you counter the failures in the Armor crafting minigame.

It reads the icons that you need to counter and hits the correct key, also while nothing needs to be countered presses keys to advance the craft as fast as possible from my experience, while still retaining durability of the craft.
Same as my previouse macro it will not spam the keys if the skill is on reuse timer to act more human, along with random pauses.

Default position on the crafting window is the only requirement for this macro to work, I have tested it in multiple screen resolutions, including smallest and biggest :D

As usual I try to keep the code commented to explain what I am measuring or doing, if there is anything you wonder about just comeback with a question and I will answer.
This one uses if color is in range to determine what to press, while my Sage crafting macro will use if it is not in range.

The macro will be available in the Repository shortly

// :mrgreen: Nalleman :mrgreen:
Code:
 begin
     Window.Bring to front("EverQuest II", "No")
     Macro.Pause("500")
     // If item is done, (at the green arrows to do another one), abort macro
     if  Color.At coordinate is within (RGB range)("110", "163", "59", "3", "539", "657")
          begin
               Macro.Abort()
          end
     // If no failuer on the screen
     if  Color.At coordinate is within (RGB range)("32", "26", "32", "3", "239", "600")
          begin
               if  Color.At coordinate is within (RGB range)("247", "251", "247", "3", "490", "653")
                    // If not on reuse
                    begin
                         Keyboard.Press key("6")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "75")
                         Keyboard.Release keys("6")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "150")
                    end
          end
     if  Color.At coordinate is within (RGB range)("32", "26", "32", "3", "239", "600")
          begin
               if  Color.At coordinate is within (RGB range)("255", "231", "148", "3", "448", "653")
                    // If not on reuse
                    begin
                         Keyboard.Press key("5")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "75")
                         Keyboard.Release keys("5")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "150")
                    end
          end
     if  Color.At coordinate is within (RGB range)("32", "26", "32", "3", "239", "600")
          begin
               if  Color.At coordinate is within (RGB range)("206", "142", "74", "3", "411", "653")
                    // If not on reuse
                    begin
                         Keyboard.Press key("1")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "75")
                         Keyboard.Release keys("1")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "150")
                    end
          end
     // start: if one of the failurs comes up
     if  Color.At coordinate is within (RGB range)("223", "194", "122", "3", "239", "600")
          begin
               // 1 and 4
               if  Color.At coordinate is within (RGB range)("206", "142", "74", "3", "411", "653")
                    // If not on reuse
                    begin
                         Keyboard.Press key("4")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "75")
                         Keyboard.Release keys("1")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "150")
                    end
          end
     if  Color.At coordinate is within (RGB range)("60", "25", "23", "3", "239", "600")
          // 2 and 5
          begin
               if  Color.At coordinate is within (RGB range)("255", "231", "148", "3", "448", "653")
                    // If not on reuse
                    begin
                         Keyboard.Press key("5")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "75")
                         Keyboard.Release keys("2")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "150")
                    end
          end
     if  Color.At coordinate is within (RGB range)("238", "242", "240", "3", "239", "600")
          // 3 and 6
          begin
               if  Color.At coordinate is within (RGB range)("247", "251", "247", "3", "490", "653")
                    // If not on reuse
                    begin
                         Keyboard.Press key("6")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "75")
                         Keyboard.Release keys("3")
                         Function.Execute setting 2 variables("RandomPause", "lower", "40", "upper", "150")
                    end
          end
 end
 // Pause the macro for a random amount of time, between 250 and 500 ms.
 //     Function.Execute setting 2 variables("Do random pause", "lower", "250", "upper", "500")

function("RandomPause")
     begin
          Variable.Set random number("ms", "{lower}", "{upper}")
          Macro.Pause("{ms}")
     end
function


Top
 Profile  
Reply with quote  
 Post subject: Re: Everquest 2, Armorer crafting macro
Thanked: 0 time(s)  Unread post Posted: Sat May 12, 2012 12:07 am 
Partner / Developer
Partner / Developer
User avatar



Joined: Mon Jan 18, 2010 11:51 am
Posts: 4523
Been thanked: 1182 time(s)
Has thanked: 132 time(s)
Contribution Points: 32823
Nice macro, thank you for sharing.

_________________
Blue Eye - Developer / Moderator
Code:
Gigus


Please read the rules about contribution points - click here

Do you know everything about BE, the forum, licenses and contribution points?
Please take a minute to read this introduction & guidelines.


Top
 Profile  
Reply with quote  
 Post subject: Re: Everquest 2, Armorer crafting macro
Thanked: 0 time(s)  Unread post Posted: Sun Sep 17, 2017 3:31 pm 
New User
New User



Joined: Sun Sep 17, 2017 3:14 pm
Posts: 15
Been thanked: 1 time(s)
Has thanked: 2 time(s)
Contribution Points: 32
any updates on these? :) lol


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

All times are UTC


You cannot post new topics in this forum
You can 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

Jump to:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group