Blue Eye Macro
http://blueeye-macro.com/

Simple Bot Script With Tutorial By Elrayes(UPDATED!!)(05/05)
http://blueeye-macro.com/viewtopic.php?f=304&t=28171
Page 1 of 6

Author:  Elrayes [ Sat Jul 16, 2016 5:23 am ]
Post subject:  Simple Bot Script With Tutorial By Elrayes(UPDATED!!)(05/05)

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 1672 times ]

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


Then Import it .

Image

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


Image

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


Image

Attachment:
Heal.png
Heal.png [ 36.5 KiB | Viewed 6903 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 6903 times ]


Image

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


Image

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


Image

Then Save&Exit This Script!!!
Attachment:
3.png
3.png [ 116.73 KiB | Viewed 1672 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 1672 times ]


Image

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


Image

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

Image

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

Author:  hairullaeva [ Sat Jul 16, 2016 6:43 am ]
Post subject:  Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes

Can u explain what anti-auto means tahnks

Author:  Elrayes [ Sat Jul 16, 2016 10:01 am ]
Post subject:  Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes

hairullaeva wrote:
Can u explain what anti-auto means tahnks

Anti Auto is the Script what solvs the Macro Protector

Author:  yahyama2001 [ Sat Jul 16, 2016 7:07 pm ]
Post subject:  Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes

Work without bypass?

Author:  Elrayes [ Sat Jul 16, 2016 7:10 pm ]
Post subject:  Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes

yahyama2001 wrote:
Work without bypass?

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

Author:  Javier1031 [ Sat Jul 16, 2016 9:06 pm ]
Post subject:  Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes

Thanks :)

Author:  Elrayes [ Sun Jul 17, 2016 5:38 pm ]
Post subject:  Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes

Javier1031 wrote:
Thanks :)

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

Author:  AgusMaris [ Sun Jul 17, 2016 5:53 pm ]
Post subject:  Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes

Nice, but what does "Anti KS" mean?

Author:  Elrayes [ Sun Jul 17, 2016 6:43 pm ]
Post subject:  Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes

AgusMaris wrote:
Nice, but what does "Anti KS" mean?

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

Author:  ahcene58 [ Mon Jul 18, 2016 10:14 am ]
Post subject:  Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes

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

Page 1 of 6 All times are UTC
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/