Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Sun May 28, 2017 2:44 pm

All times are UTC




Post new topic Reply to topic  [ 138 posts ]  Go to page 1, 2, 3, 4, 5 ... 14  Next
Author Message
 Post subject: Toxic Waste - A DMO hatching bot
Thanked: 18 time(s)  Unread post Posted: Thu Mar 06, 2014 4:08 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Sun Feb 02, 2014 3:21 pm
Posts: 720
Been thanked: 108 time(s)
Has thanked: 4 time(s)
Contribution Points: 3199
Hello people!

As requested, I created a hatching bot (mostly for lazy people, but I made it so it should have higher chances than spamming hatching buttons)

Version of the bot v0.3 BETA

How to use -

Set your resolution to 1366x768 - Without this the bot probably won't work

Make sure there are only eggs you want to hatch in your inventory and that you have enough data

Open the incubator but don't move or touch anything

Run the script in BEM.

Don't move your mouse after the bot starts.

Additional info -

This bot is for 5/5 Digis. Depending on what level you want, you will have to delete some function executes in the code. If you want 4/5s, delete the L4Check line in the first few lines.

If you want 3/5s, delete the L3Check line in the first few lines.

Remember, this is a BETA test. There probably will be bugs. If you find them, post them here. You will get a thanks from me once you discover it, and probably thanks from others!

Here is the code:

Code:
 begin
     Function.Execute("Reset")
 end

function("Reset")
     begin
          if  Color.At coordinate is (RGB)("23", "94", "191", "247", "200")
               begin
                    Function.Execute("EggCheck")
                    Humanly.Move to coordinate("334", "434")
                    Function.Execute("HP")
                    Function.Execute("L0Check")
                    Function.Execute("L1Check")
                    Function.Execute("L2Check")
                    Function.Execute("L3Check")
                    Function.Execute("L4Check")
                    Function.Execute("End")
               end
          Macro.Pause("100")
          Function.Execute("Reset")
     end
function

function("EggCheck")
     begin
          if  Color.At coordinate is (RGB)("0", "19", "105", "236", "437")
               begin
                    Humanly.Move to coordinate("313", "432")
                    Function.Execute("HP")
                    Humanly.Click("left", "no")
                    Macro.Pause("250")
                    if  Color.At coordinate is (RGB)("0", "19", "105", "236", "437")
                         begin
                              Function.Execute("EggCheck")
                         end
               end
     end
function

function("L0Check")
     begin
          if  Color.At coordinate is not (RGB)("55", "255", "255", "235", "394")
               begin
                    Humanly.Click("left", "no")
                    Macro.Pause("1000")
                    if  Color.At coordinate is (RGB)("0", "19", "105", "236", "437")
                         begin
                              Macro.Pause("200")
                              Macro.Abort all other macros()
                              Function.Execute("Reset")
                         end
                    if  Color.At coordinate is not (RGB)("55", "255", "255", "235", "394")
                         begin
                              Function.Execute("HP")
                              Macro.Abort all other macros()
                              Function.Execute("L0Check")
                         end
               end
     end
function

function("L1Check")
     begin
          if  Color.At coordinate is (RGB)("54", "252", "255", "237", "382")
               begin
                    Function.Execute("T1")
                    Humanly.Click("left", "no")
                    Macro.Pause("1000")
                    if  Color.At coordinate is (RGB)("0", "19", "105", "236", "437")
                         begin
                              Macro.Pause("200")
                              Macro.Abort all other macros()
                              Function.Execute("Reset")
                         end
                    if  Color.At coordinate is not (RGB)("55", "252", "255", "234", "354")
                         begin
                              Function.Execute("HP")
                              Macro.Abort all other macros()
                              Function.Execute("L1Check")
                         end
               end
     end
function

function("L2Check")
     begin
          if  Color.At coordinate is (RGB)("54", "244", "255", "237", "352")
               begin
                    Function.Execute("T2")
                    Humanly.Click("left", "no")
                    Macro.Pause("1000")
                    if  Color.At coordinate is (RGB)("0", "19", "105", "236", "437")
                         begin
                              Macro.Pause("200")
                              Macro.Abort all other macros()
                              Function.Execute("Reset")
                         end
                    if  Color.At coordinate is not (RGB)("54", "244", "255", "237", "325")
                         begin
                              Function.Execute("HP")
                              Macro.Abort all other macros()
                              Function.Execute("L2Check")
                         end
               end
     end
function

function("L3Check")
     begin
          if  Color.At coordinate is not (RGB)("54", "244", "255", "237", "325")
               begin
                    Function.Execute("T3")
                    Humanly.Click("left", "no")
                    Macro.Pause("1000")
                    if  Color.At coordinate is (RGB)("0", "19", "105", "236", "437")
                         begin
                              Macro.Pause("200")
                              Macro.Abort all other macros()
                              Function.Execute("Reset")
                         end
                    if  Color.At coordinate is not (RGB)("54", "244", "255", "237", "286")
                         begin
                              Function.Execute("HP")
                              Macro.Abort all other macros()
                              Function.Execute("L3Check")
                         end
               end
     end
function

function("L4Check")
     begin
          if  Color.At coordinate is not (RGB)("54", "244", "255", "237", "286")
               begin
                    Function.Execute("T4")
                    Humanly.Click("left", "no")
                    Macro.Pause("1000")
                    if  Color.At coordinate is (RGB)("0", "19", "105", "236", "437")
                         begin
                              Macro.Pause("200")
                              Macro.Abort all other macros()
                              Function.Execute("Reset")
                         end
                    if  Color.At coordinate is not (RGB)("54", "244", "255", "237", "251")
                         begin
                              Function.Execute("HP")
                              Macro.Abort all other macros()
                              Function.Execute("L4Check")
                         end
               end
     end
function

function("T1")
     begin
          Variable.Set random number("Time1", "1000", "3000")
          Macro.Pause("{Time1}")
     end
function

function("T2")
     begin
          Variable.Set random number("Time2", "2000", "4000")
          Macro.Pause("{Time2}")
     end
function

function("T3")
     begin
          Variable.Set random number("Time3", "4000", "6000")
          Macro.Pause("{Time3}")
     end
function

function("T4")
     begin
          Variable.Set random number("Time4", "6000", "10000")
          Macro.Pause("{Time4}")
     end
function

function("HP")
     begin
          Variable.Set random number("HumanTime", "300", "500")
          Macro.Pause("{HumanTime}")
     end
function

function("End")
     begin
          Macro.Abort all macros()
     end
function


1024x768 (NOT TESTED)

Code:
 begin
     Function.Execute("Reset")
 end

function("Reset")
     begin
          if  Color.At coordinate is (RGB)("24", "98", "194", "345", "210")
               begin
                    Function.Execute("EggCheck")
                    Humanly.Move to coordinate("270", "432")
                    Function.Execute("HP")
                    Function.Execute("L0Check")
                    Function.Execute("L1Check")
                    Function.Execute("L2Check")
                    Function.Execute("L3Check")
                    Function.Execute("L4Check")
                    Function.Execute("End")
               end
          Macro.Pause("100")
          Function.Execute("Reset")
     end
function

function("EggCheck")
     begin
          if  Color.At coordinate is (RGB)("4", "21", "93", "183", "434")
               begin
                    Humanly.Move to coordinate("270", "430")
                    Function.Execute("HP")
                    Humanly.Click("left", "no")
                    Macro.Pause("250")
                    if  Color.At coordinate is (RGB)("4", "21", "93", "183", "434")
                         begin
                              Function.Execute("EggCheck")
                         end
               end
     end
function

function("L0Check")
     begin
          if  Color.At coordinate is not (RGB)("4", "21", "93", "183", "434")
               begin
                    Humanly.Click("left", "no")
                    Macro.Pause("1000")
                    if  Color.At coordinate is (RGB)("3", "38", "89", "184", "388")
                         begin
                              Macro.Pause("200")
                              Macro.Abort all other macros()
                              Function.Execute("Reset")
                         end
                    if  Color.At coordinate is not (RGB)("3", "38", "89", "184", "388")
                         begin
                              Function.Execute("HP")
                              Macro.Abort all other macros()
                              Function.Execute("L0Check")
                         end
               end
     end
function

function("L1Check")
     begin
          if  Color.At coordinate is (RGB)("56", "255", "255", "182", "383")
               begin
                    Function.Execute("T1")
                    Humanly.Click("left", "no")
                    Macro.Pause("1000")
                    if  Color.At coordinate is (RGB)("3", "38", "89", "184", "388")
                         begin
                              Macro.Pause("200")
                              Macro.Abort all other macros()
                              Function.Execute("Reset")
                         end
                    if  Color.At coordinate is not (RGB)("56", "255", "255", "182", "350")
                         begin
                              Function.Execute("HP")
                              Macro.Abort all other macros()
                              Function.Execute("L1Check")
                         end
               end
     end
function

function("L2Check")
     begin
          if  Color.At coordinate is (RGB)("56", "255", "255", "182", "350")
               begin
                    Function.Execute("T2")
                    Humanly.Click("left", "no")
                    Macro.Pause("1000")
                    if  Color.At coordinate is (RGB)("3", "38", "89", "184", "388")
                         begin
                              Macro.Pause("200")
                              Macro.Abort all other macros()
                              Function.Execute("Reset")
                         end
                    if  Color.At coordinate is not (RGB)("56", "255", "255", "182", "323")
                         begin
                              Function.Execute("HP")
                              Macro.Abort all other macros()
                              Function.Execute("L2Check")
                         end
               end
     end
function

function("L3Check")
     begin
          if  Color.At coordinate is not (RGB)("56", "255", "255", "182", "323")
               begin
                    Function.Execute("T3")
                    Humanly.Click("left", "no")
                    Macro.Pause("1000")
                    if  Color.At coordinate is (RGB)("3", "38", "89", "184", "388")
                         begin
                              Macro.Pause("200")
                              Macro.Abort all other macros()
                              Function.Execute("Reset")
                         end
                    if  Color.At coordinate is not (RGB)("56", "255", "255", "182", "287")
                         begin
                              Function.Execute("HP")
                              Macro.Abort all other macros()
                              Function.Execute("L3Check")
                         end
               end
     end
function

function("L4Check")
     begin
          if  Color.At coordinate is not (RGB)("56", "255", "255", "182", "287")
               begin
                    Function.Execute("T4")
                    Humanly.Click("left", "no")
                    Macro.Pause("1000")
                    if  Color.At coordinate is (RGB)("3", "38", "89", "184", "388")
                         begin
                              Macro.Pause("200")
                              Macro.Abort all other macros()
                              Function.Execute("Reset")
                         end
                    if  Color.At coordinate is not (RGB)("56", "255", "255", "182", "249")
                         begin
                              Function.Execute("HP")
                              Macro.Abort all other macros()
                              Function.Execute("L4Check")
                         end
               end
     end
function

function("T1")
     begin
          Variable.Set random number("Time1", "1000", "3000")
          Macro.Pause("{Time1}")
     end
function

function("T2")
     begin
          Variable.Set random number("Time2", "2000", "4000")
          Macro.Pause("{Time2}")
     end
function

function("T3")
     begin
          Variable.Set random number("Time3", "4000", "6000")
          Macro.Pause("{Time3}")
     end
function

function("T4")
     begin
          Variable.Set random number("Time4", "6000", "10000")
          Macro.Pause("{Time4}")
     end
function

function("HP")
     begin
          Variable.Set random number("HumanTime", "300", "500")
          Macro.Pause("{HumanTime}")
     end
function

function("End")
     begin
          Macro.Abort all macros()
     end
function


You can also make requests. If the "don't move your mouse" thingy is a handful to you, I'll make it so that it automatically moves the mouse to the button. While creating this bot, I have found that the less mouse moves, the better. Also, if you're wondering why it's so slow, it's intentional. Slower injections somewhat increase chances.

Changelog

v0.2 BETA - fixed infinite Hatch Time function - also made it loop until it comes to 5/5 or the desired level, anyways.
v0.3 BETA - improved the general speed - no more wait after alt tab - automatically detects when you alt tabbed and starts. No more wait after egg crashes or after egg insert.

Hope you find this useful :)

_________________
Black, as an unnatural color is naturally the dominant amongst all of them.

Check out my creations!

DMO Hatching bot - http://www.blueeye-macro.com/viewtopic.php?f=304&t=16848
DMO Anti-Freeze script - http://www.blueeye-macro.com/viewtopic.php?f=304&t=16746
DMO AFK Shop bot - http://www.blueeye-macro.com/viewtopic.php?f=304&t=16745

Image


Last edited by ToxicGorilla on Mon May 05, 2014 3:18 pm, edited 7 times in total.

Top
 Profile  
Reply with quote  
 Post subject: Re: Toxic Waste - A DMO hatching bot
Thanked: 1 time(s)  Unread post Posted: Thu Mar 06, 2014 7:23 pm 
Silver Contributor
Silver Contributor
User avatar



Joined: Tue Feb 18, 2014 11:28 pm
Posts: 174
Location: Tahiti
Been thanked: 38 time(s)
Has thanked: 17 time(s)
Contribution Points: 68
thank you, I might have better luck with your script

_________________
Haere maru, haere papu. ;)
if I helped you click thank you
Bot for MC : viewtopic.php?f=304&t=16743&p=80286#p80286


Top
 Profile  
Reply with quote  
 Post subject: Re: Toxic Waste - A DMO hatching bot
Thanked: 1 time(s)  Unread post Posted: Thu Mar 06, 2014 7:24 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Sun Feb 02, 2014 3:21 pm
Posts: 720
Been thanked: 108 time(s)
Has thanked: 4 time(s)
Contribution Points: 3199
brandy09 wrote:
thank you, I might have better luck with your script


Be sure to dl the new version, because I just updated it now to be much more faster and with no wait basically (checks if you alt tabbed xD)

_________________
Black, as an unnatural color is naturally the dominant amongst all of them.

Check out my creations!

DMO Hatching bot - http://www.blueeye-macro.com/viewtopic.php?f=304&t=16848
DMO Anti-Freeze script - http://www.blueeye-macro.com/viewtopic.php?f=304&t=16746
DMO AFK Shop bot - http://www.blueeye-macro.com/viewtopic.php?f=304&t=16745

Image


Top
 Profile  
Reply with quote  
 Post subject: Re: Toxic Waste - A DMO hatching bot
Thanked: 1 time(s)  Unread post Posted: Thu Mar 06, 2014 7:49 pm 
Silver Contributor
Silver Contributor
User avatar



Joined: Tue Feb 18, 2014 11:28 pm
Posts: 174
Location: Tahiti
Been thanked: 38 time(s)
Has thanked: 17 time(s)
Contribution Points: 68
ToxicGorilla wrote:
brandy09 wrote:
thank you, I might have better luck with your script


Be sure to dl the new version, because I just updated it now to be much more faster and with no wait basically (checks if you alt tabbed xD)



ok thanks

_________________
Haere maru, haere papu. ;)
if I helped you click thank you
Bot for MC : viewtopic.php?f=304&t=16743&p=80286#p80286


Top
 Profile  
Reply with quote  
 Post subject: Re: Toxic Waste - A DMO hatching bot
Thanked: 0 time(s)  Unread post Posted: Fri Mar 07, 2014 8:58 am 
Silver Contributor
Silver Contributor
User avatar



Joined: Sat May 12, 2012 9:00 pm
Posts: 228
Been thanked: 22 time(s)
Has thanked: 3 time(s)
Contribution Points: 3
wow really good, thanks man :D


Top
 Profile  
Reply with quote  
 Post subject: Re: Toxic Waste - A DMO hatching bot
Thanked: 0 time(s)  Unread post Posted: Fri Mar 07, 2014 9:03 am 
Gold Contributor
Gold Contributor



Joined: Mon Mar 03, 2014 8:56 am
Posts: 351
Been thanked: 11 time(s)
Has thanked: 5 time(s)
Contribution Points: 101
Nice bot man i like it


Top
 Profile  
Reply with quote  
 Post subject: Re: Toxic Waste - A DMO hatching bot
Thanked: 0 time(s)  Unread post Posted: Fri Mar 07, 2014 2:49 pm 
Silver Contributor
Silver Contributor
User avatar



Joined: Fri Feb 28, 2014 11:15 pm
Posts: 242
Been thanked: 13 time(s)
Has thanked: 8 time(s)
Contribution Points: 47
nice :D


Top
 Profile  
Reply with quote  
 Post subject: Re: Toxic Waste - A DMO hatching bot
Thanked: 0 time(s)  Unread post Posted: Fri Mar 07, 2014 3:16 pm 
Silver Contributor
Silver Contributor
User avatar



Joined: Wed Feb 26, 2014 1:53 pm
Posts: 160
Location: Indonesia
Been thanked: 12 time(s)
Has thanked: 2 time(s)
Contribution Points: 46
the script only work until lvl4 only or until lvl5? Sorry for asking

_________________
Shadow Without Fear and Thus Without Weakness


Top
 Profile  
Reply with quote  
 Post subject: Re: Toxic Waste - A DMO hatching bot
Thanked: 0 time(s)  Unread post Posted: Fri Mar 07, 2014 3:35 pm 
Contributor
Contributor
User avatar



Joined: Fri Feb 28, 2014 6:26 pm
Posts: 52
Been thanked: 5 time(s)
Has thanked: 1 time(s)
Contribution Points: 20
nice bro :lol:
BOT HATCH :lol:


Top
 Profile  
Reply with quote  
 Post subject: Re: Toxic Waste - A DMO hatching bot
Thanked: 1 time(s)  Unread post Posted: Fri Mar 07, 2014 3:36 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Sun Feb 02, 2014 3:21 pm
Posts: 720
Been thanked: 108 time(s)
Has thanked: 4 time(s)
Contribution Points: 3199
imperial999 wrote:
the script only work until lvl4 only or until lvl5? Sorry for asking


It works to 5/5 by default, however, you can make it go only to 4/5 or 3/5 by commenting or deleting the first L4Check and/or L3Check lines.

L4Check is a function which checks if 4/5 has been achieved, as well as the other L's (they check if the #/5 is achieved)

_________________
Black, as an unnatural color is naturally the dominant amongst all of them.

Check out my creations!

DMO Hatching bot - http://www.blueeye-macro.com/viewtopic.php?f=304&t=16848
DMO Anti-Freeze script - http://www.blueeye-macro.com/viewtopic.php?f=304&t=16746
DMO AFK Shop bot - http://www.blueeye-macro.com/viewtopic.php?f=304&t=16745

Image


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 138 posts ]  Go to page 1, 2, 3, 4, 5 ... 14  Next

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