Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Mon Nov 19, 2018 5:22 pm

All times are UTC




Post new topic Reply to topic  [ 55 posts ]  Go to page 1, 2, 3, 4, 5, 6  Next
Author Message
 Post subject: Simple Bot Script With Tutorial By Elrayes(UPDATED!!)(05/05)
Thanked: 9 time(s)  Unread post Posted: Sat Jul 16, 2016 5:23 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 840
Location: Egypt , Portsaid
Been thanked: 240 time(s)
Has thanked: 10 time(s)
Contribution Points: 1993
Hello Guys ,
I'm Ahmed Elrayes,
I've Made This Bot For You Guys as an Open Source with Easy Way to Configure .
Image
[*] Super Fast Bot
[*] Anti Auto
[*] Attack All Digimons ( Not Bosses Or MC)
[*] Fatigue Bug
[*] Anti KS

Image
This scripts Consist of 2 Scripts The First is the Attacking , and the second is the Loot to grab gold , items from the ground
At First Here is the Attacking Script :
Code:
 begin
     Window.Bring to front("DMO", "No")
     Function.Execute("AntiAutocheck")
     Keyboard.Press key("{<tab>}")
     Function.Execute("anti-ks")
 end

function("anti-ks")
     begin
          // HP For Digimon 100%
          if  Color.At coordinate is (RGB)("198", "60", "49", "716", "55")
               begin
                    Function.Execute("Attack")
               end
     end
function

function("Attack")
     begin
          // Monster To Attack
          if  Color.At coordinate is (RGB)("36", "120", "181", "782", "81")
               begin loop()
                    Keyboard.Press keys("{<f2>}")
                    Macro.Pause("500")
                    Keyboard.Press keys("{<f1>}")
                    Keyboard.Press keys("1")
                    // That's the Tamer Skill Key
                    Keyboard.Press keys("3")
                    Function.Execute("Heal")
                    Function.Execute("Fatigue Check")
                    Function.Execute("AntiAutocheck")
                    // Here , set RGB for last bits of HP bar of target digimon so that it switches faster.
                    if  Color.At coordinate is not (RGB)("198", "60", "49", "573", "55")
                         begin
                              Function.Execute("AntiAutocheck")
                              Macro.Restart("yes")
                         end
               end
          // Same As the Monster Attack
          if  Color.At coordinate is not (RGB)("36", "120", "181", "782", "81")
               begin
                    Macro.Restart("yes")
               end
     end
function

function("Heal")
     // RGB for using item at F8 slot , i use this for Tamer DS Chicken Combo At 5%
     if  Color.At coordinate is not (RGB)("15", "241", "255", "120", "68")
          begin
               Keyboard.Press keys("{<f8>}")
          end
     // RGB for using item at F6 slot , i use this for HP Chicken Combo At 15%
     if  Color.At coordinate is not (RGB)("198", "60", "49", "116", "127")
          begin
               Keyboard.Press keys("{<f6>}")
          end
     // RGB for using item at F5  slot , i use this for HP Bread Where You Want
     if  Color.At coordinate is not (RGB)("132", "29", "18", "168", "124")
          begin
               Keyboard.Press keys("{<f5>}")
          end
     // RGB for using item at F3  slot , i use this for Digimon DS Where You Want
     if  Color.At coordinate is not (RGB)("15", "241", "255", "134", "142")
          begin
               Keyboard.Press keys("{<f3>}")
          end
     // RGB for using item at F4  slot , i use this for tamer Tamer DS Where You Want
     if  Color.At coordinate is not (RGB)("15", "241", "255", "136", "68")
          begin
               Keyboard.Press keys("{<f4>}")
          end
     // rgp of kfc , this will restore the red hp and remove fatigue
     if  Color.At coordinate is not (RGB)("111", "27", "25", "226", "53")
          begin
               Keyboard.Press key("{<f6>}")
               Macro.Pause("500")
          end
function

function("AntiAutocheck")
     begin
          //  Locate time progression bar when the Anti-Auto window pops up
          if  Color.Pixel pattern can be located on screen("207,172,0,5,0,207,172,0,0,5,199,163,7,0,5,236,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0")
               begin
                    Macro.Pause all other macros()
                    Function.Execute("anti-auto")
               end
     end
function

function("anti-auto")
     begin
          if  System.Process is not running("MADCATZMP")
               begin
                    Function.Execute("OpenMP")
               end
          // Here is the Pixel Pattern for Yellow time Progress Bar
          if  Color.Pixel pattern can be located on screen("207,173,0,5,0,207,173,0,0,5,198,163,7,0,5,235,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0")
               begin
                    // Here is the Pixel Pattern for Yellow time Progress Bar
                    Color.Wait for and locate pixel pattern("207,173,0,5,0,207,173,0,0,5,198,163,7,0,5,235,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0", "CoX", "CoY")
                    Window.Get window id("MadCatz MP", "no", "0", "MADCATZMPID2")
                    Window.Restore("{MADCATZMPID2}", "no")
                    Window.Set always on top("{MADCATZMPID2}", "no", "yes")
                    Macro.Pause("200")
                    Window.Bring to front("{MADCATZMPID2}", "no")
                    // Variables to Calculate
                    Variable.Evaluate (Math)("{CoX}+8", "StartX")
                    Variable.Evaluate (Math)("{CoY}-57", "StartY")
                    Variable.Evaluate (Math)("{CoX}+49", "EndX")
                    Variable.Evaluate (Math)("{CoY}-16", "EndY")
                    Variable.Evaluate (Math)("{CoX}-3", "AllX")
                    Variable.Evaluate (Math)("{CoY}+35", "AllY")
                    Variable.Evaluate (Math)("{CoX}+243", "AllEndX")
                    Variable.Evaluate (Math)("{CoY}+131", "AllEndY")
                    // Select Mouse Coordinates to Mark Target Button
                    Window.Bring to front("{MADCATZMPID2}", "no")
                    Macro.Pause("100")
                    Window.Set text("{MADCATZMPID2}", "yes", "3", "{StartX}")
                    Macro.Pause("50")
                    Window.Set text("{MADCATZMPID2}", "yes", "5", "{StartY}")
                    Macro.Pause("50")
                    Window.Set text("{MADCATZMPID2}", "yes", "6", "{EndY}")
                    Macro.Pause("50")
                    Window.Set text("{MADCATZMPID2}", "yes", "4", "{EndX}")
                    Macro.Pause("50")
                    // Select Mouse Coordinates to Mark Area Button
                    Window.Set text("{MADCATZMPID2}", "yes", "9", "{AllX}")
                    Macro.Pause("50")
                    Window.Set text("{MADCATZMPID2}", "yes", "11", "{AllY}")
                    Macro.Pause("50")
                    Window.Set text("{MADCATZMPID2}", "yes", "12", "{AllEndY}")
                    Macro.Pause("50")
                    Window.Set text("{MADCATZMPID2}", "yes", "10", "{AllEndX}")
                    Macro.Pause("50")
                    Window.Bring to front("{MADCATZMPID2}", "no")
                    Window.Get location("{MADCATZMPID2}", "no", "no", "MPX", "MPY")
                    Variable.Evaluate (Math)("{MPX}+30", "MPX")
                    Variable.Evaluate (Math)("{MPY}+7", "MPY")
                    Window.Send mouse click("{MADCATZMPID2}", "yes", "0", "30", "7", "Left")
                    // Here is the Pixel Pattern for Yellow time Progress Bar
                    if  Color.Pixel pattern can be located on screen("207,173,0,5,0,207,173,0,0,5,198,163,7,0,5,235,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0")
                         begin loop()
                              Window.Send mouse click("{MADCATZMPID2}", "yes", "26", "10", "10", "left")
                              Macro.Pause("1000")
                              if  Mouse.Coordinates are within("{AllX}", "{AllEndX}", "{AllY}", "{AllEndY}")
                                   begin
                                        Mouse.Click("left")
                                   end
                              // Here is the Pixel Pattern for Yellow time Progress Bar
                              if  Color.Pixel pattern can not be located on screen near coordinate("207,173,0,5,0,207,173,0,0,5,198,163,7,0,5,235,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0", "{CoX}", "{CoY}", "20")
                                   begin
                                        Window.Send mouse click("{MADCATZMPID2}", "yes", "27", "10", "10", "left")
                                        Macro.Pause("200")
                                        Window.Set always on top("{MADCATZMPID2}", "no", "no")
                                        Macro.Resume all paused macros()
                                        Macro.Restart("no")
                                   end
                         end
               end
     end
function

function("OpenMP")
     if  System.Process is not running("MADCATZMP")
          begin
               // in here the path of the Program
               System.Launch application("C:\GDMO\MADCATZMP.exe", "no")
               System.Wait for process to start("MADCATZMP")
               if  System.Process is running("MADCATZMP")
                    begin
                         Window.Wait for window to appear("MadCatz MP", "no")
                         Window.Get window id("MadCatz MP", "no", "0", "MADCATZMPID")
                         Window.Set always on top("{MADCATZMPID}", "no", "yes")
                         Macro.Pause("200")
                         Window.Bring to front("{MADCATZMPID}", "no")
                         if  Window.Is visible("{MADCATZMPID}", "no")
                              begin
                                   Window.Bring to front("{MADCATZMPID}", "no")
                                   Window.Send mouse click("{MADCATZMPID}", "yes", "0", "30", "5", "Left")
                                   Macro.Pause("100")
                                   Window.Close("{MADCATZMPID}", "no")
                                   Macro.Pause("100")
                                   Window.Wait for window to appear("MadCatz MP", "no")
                                   Window.Get window id("MadCatz MP", "no", "0", "MADCATZMPID4")
                                   Window.Bring to front("{MADCATZMPID4}", "no")
                                   Window.Get location("{MADCATZMPID4}", "no", "no", "MPX", "MPY")
                                   Macro.Pause("200")
                                   Variable.Evaluate (Math)("{MPX}+30", "MPX2")
                                   Variable.Evaluate (Math)("{MPY}+5", "MPY2")
                                   Window.Send mouse click("{MADCATZMPID4}", "yes", "0", "30", "5", "Left")
                                   Window.Set text("{MADCATZMPID4}", "yes", "18", "0")
                                   Macro.Pause("100")
                                   Window.Set text("{MADCATZMPID4}", "yes", "20", "1")
                                   Macro.Pause("100")
                                   Window.Set text("{MADCATZMPID4}", "yes", "29", "60")
                              end
                    end
               Macro.Pause("200")
               Function.Execute("MovingMP")
          end
function

function("MovingMP")
     // this place is the icon in the title bar so it will move it the the end of the screen to not interfere with the game if macro is appeard
     if  Window.Is visible("{MADCATZMPID4}", "no")
          begin
               Window.Get location("{MADCATZMPID4}", "no", "no", "MPX", "MPY")
               Variable.Evaluate (Math)("{MPX}+30", "MPX2")
               Variable.Evaluate (Math)("{MPY}+7", "MPY2")
               Mouse.Move to coordinate("{MPX2}", "{MPY2}")
               System.Get combined screen resolution("ResoX", "ResoY")
               Variable.Evaluate (Math)("{ResoX}-25", "ResX")
               Variable.Divide (Math)("ResoY", "2")
               Variable.Evaluate (Math)("{ResoY}-100", "ResY")
               Window.Set location("{MADCATZMPID4}", "yes", "{ResX}", "{ResY}")
               Window.Set always on top("{MADCATZMPID4}", "no", "yes")
               Window.Bring to front("{MADCATZMPID4}", "no")
          end
function

function("Fatigue Check")
     begin
          // put x,y of the shirt with attributes
          if  Color.At coordinate is (RGB)("255", "175", "0", "123", "53")
               begin
                    Function.Execute("Fatigue")
               end
     end
function

function("Fatigue")
     begin
          // RGB of Tamer's hp if its not yellow
          if  Color.At coordinate is not (RGB)("250", "175", "0", "122", "52")
               begin
                    Macro.Abort()
               end
          // RGP of tamer's hp if its yellow
          if  Color.At coordinate is (RGB)("250", "175", "0", "122", "52")
               begin
                    Function.Execute("remove tshirt")
                    Macro.Pause("30000")
                    Function.Execute("put tshirt")
                    Macro.Pause("2000")
                    Function.Execute("Heal")
               end
     end
function

function("remove tshirt")
     begin
          // put x,y of the shirt without attributes
          Keyboard.Hold keys("c")
          Macro.Pause("500")
          Keyboard.Release keys("c")
          Macro.Pause("500")
          Mouse.Move to coordinate("158", "203")
          Mouse.Hold button("Right")
          Macro.Pause("500")
          Mouse.Release button("Right")
          Macro.Pause("500")
          Keyboard.Hold keys("c")
          Macro.Pause("500")
          Keyboard.Release keys("c")
     end
function

function("put tshirt")
     begin
          // put x,y of the shirt with attributes
          if  Color.Pixel pattern can be located on screen("26,26,26,5,0,92,193,61,5,0,182,204,168,5,0,119,193,94,0,5,213,216,207,0,5,97,62,34,0,5,210,158,83,-5,0,171,116,62,-5,0,59,38,19,-5,0,231,233,230,0,-5,155,255,105,0,-5,53,159,175", "15")
               begin
                    //  X,Y Of Shirt
                    Color.Wait for and locate pixel pattern("26,26,26,5,0,92,193,61,5,0,182,204,168,5,0,119,193,94,0,5,213,216,207,0,5,97,62,34,0,5,210,158,83,-5,0,171,116,62,-5,0,59,38,19,-5,0,231,233,230,0,-5,155,255,105,0,-5,53,159,175", "15", "X", "Y")
                    Mouse.Move to coordinate("{X}", "{Y}")
                    Color.Wait for pixel pattern to appear("26,26,26,5,0,92,193,61,5,0,182,204,168,5,0,119,193,94,0,5,213,216,207,0,5,97,62,34,0,5,210,158,83,-5,0,171,116,62,-5,0,59,38,19,-5,0,231,233,230,0,-5,155,255,105,0,-5,53,159,175", "15")
                    Mouse.Hold button("Right")
                    Macro.Pause("500")
                    Mouse.Release button("Right")
                    Macro.Pause("500")
               end
     end
function
 

Then just Copy this script Then Create a New Macro Then Paste it .
Then Follow the pics to Configure it .

At first Configure the Anti-KS to not steal Others Digimons , to avoid Busting as a bot .
Attachment:
1.png
1.png [ 24.72 KiB | Viewed 2349 times ]

Attachment:
2.png
2.png [ 292.4 KiB | Viewed 2349 times ]


Then Import it .

Image

Attachment:
RGB DIGI.png
RGB DIGI.png [ 24.15 KiB | Viewed 7580 times ]


Image

Attachment:
Pressing Tap.png
Pressing Tap.png [ 25.69 KiB | Viewed 7580 times ]


Image

Attachment:
Heal.png
Heal.png [ 36.5 KiB | Viewed 7580 times ]


Image

To Edit The Anti Auto Function Follow This Topic !!!
viewtopic.php?f=304&t=30153

Image

Then The Fatigue Bug :
Attachment:
Fatigue 1.png
Fatigue 1.png [ 22.17 KiB | Viewed 7580 times ]


Image

Attachment:
Fatigue 2.png
Fatigue 2.png [ 30.35 KiB | Viewed 7580 times ]


Image

Attachment:
Fatigue 3.png
Fatigue 3.png [ 76.19 KiB | Viewed 7580 times ]


Image

Then Save&Exit This Script!!!
Attachment:
3.png
3.png [ 116.73 KiB | Viewed 2349 times ]


Image

Then Create a New Macro for the Second Part which is the Loot :

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

function("Loot")
     begin
          // The Loot Button Is F10
          Keyboard.Press key("4")
          Macro.Pause("300")
          Keyboard.Press key("4")
          Macro.Pause("300")
          Keyboard.Press key("4")
          Macro.Pause("300")
          Keyboard.Press key("4")
     end
     // Made By Elrayes
function
 


Attachment:
Loot.png
Loot.png [ 97.67 KiB | Viewed 2349 times ]


Image

Now here is how it looks :
Attachment:
Scripts.png
Scripts.png [ 4.9 KiB | Viewed 2349 times ]


Image

Regards,
Ahmed Elrayes ,
Thanks To HyBoi For His Script!!

Image

If You Like It Feel Free To ClicK On Thank You Button :) ---------------------->

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------


Last edited by Elrayes on Sun May 06, 2018 9:08 pm, edited 9 times in total.

Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sat Jul 16, 2016 6:43 am 
Silver Contributor
Silver Contributor



Joined: Sun Oct 19, 2014 11:03 pm
Posts: 219
Been thanked: 17 time(s)
Has thanked: 19 time(s)
Contribution Points: 6
Can u explain what anti-auto means tahnks

_________________
FC Barca Is Life.


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 1 time(s)  Unread post Posted: Sat Jul 16, 2016 10:01 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 840
Location: Egypt , Portsaid
Been thanked: 240 time(s)
Has thanked: 10 time(s)
Contribution Points: 1993
hairullaeva wrote:
Can u explain what anti-auto means tahnks

Anti Auto is the Script what solvs the Macro Protector

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sat Jul 16, 2016 7:07 pm 
New User
New User



Joined: Sat Mar 19, 2016 3:08 pm
Posts: 22
Been thanked: 1 time(s)
Has thanked: 6 time(s)
Contribution Points: 17
Work without bypass?


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 1 time(s)  Unread post Posted: Sat Jul 16, 2016 7:10 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 840
Location: Egypt , Portsaid
Been thanked: 240 time(s)
Has thanked: 10 time(s)
Contribution Points: 1993
yahyama2001 wrote:
Work without bypass?

hmmm ByPass isn't that important if you are windows 64x
..

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sat Jul 16, 2016 9:06 pm 
Silver Contributor
Silver Contributor



Joined: Wed Jul 13, 2016 3:24 pm
Posts: 112
Been thanked: 8 time(s)
Has thanked: 11 time(s)
Contribution Points: 96
Thanks :)


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sun Jul 17, 2016 5:38 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 840
Location: Egypt , Portsaid
Been thanked: 240 time(s)
Has thanked: 10 time(s)
Contribution Points: 1993
Javier1031 wrote:
Thanks :)

you are welcome bro hope u like it... :)

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sun Jul 17, 2016 5:53 pm 
Silver Contributor
Silver Contributor
User avatar



Joined: Sun Oct 20, 2013 7:37 pm
Posts: 100
Location: Argentina
Been thanked: 15 time(s)
Has thanked: 6 time(s)
Contribution Points: 190
Nice, but what does "Anti KS" mean?

_________________
A "thanks" helps me to continue helping :D
------------------------------------------------------------------------------------


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sun Jul 17, 2016 6:43 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 840
Location: Egypt , Portsaid
Been thanked: 240 time(s)
Has thanked: 10 time(s)
Contribution Points: 1993
AgusMaris wrote:
Nice, but what does "Anti KS" mean?

Anti Kill Steal... bto not attack any monster that Others attacking

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Mon Jul 18, 2016 10:14 am 
Contributor
Contributor



Joined: Wed Apr 02, 2014 12:42 pm
Posts: 93
Location: France
Been thanked: 47 time(s)
Has thanked: 25 time(s)
Contribution Points: 127
Bro does this work for 1366*768 without any changes ??? Btw , i used ur other script and it stucks when the bless comes maybe cuz of anti-ks function

_________________
HIT thank you , ITS FREE


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 55 posts ]  Go to page 1, 2, 3, 4, 5, 6  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