Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Mon Jan 22, 2018 10:18 pm

All times are UTC




Post new topic Reply to topic  [ 23 posts ]  Go to page Previous  1, 2, 3
Author Message
 Post subject: Re: [Function] to Let Mouse Select Target
Thanked: 0 time(s)  Unread post Posted: Mon Dec 04, 2017 10:25 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 507
Location: Egypt , Portsaid
Been thanked: 143 time(s)
Has thanked: 10 time(s)
Contribution Points: 1091
Well i've Edited it , ur script has Old Anti Macro Protector Script too so i added the newest one but u need to make some edits so follow the Instructions in the Following Link
viewtopic.php?f=304&t=30153
and here is ur Script now it should be Working if u made the Pixel Pattern Correctly
Code:
 begin loop()
     Keyboard.Hold keys("{<tab>}4")
     Function.Execute("Human Pause")
     Keyboard.Release keys("{<tab>}4")
     // RGB of the digi you want to attack
     if  Color.At coordinate is (RGB)("80", "97", "152", "1042", "58")
          begin
               Function.Execute("Attack"
          end
     // RGB Of Digimon You want to attack
     if  Color.At coordinate is not (RGB)("80", "97", "152", "1042", "58")
          begin
               Function.Execute("AntiAutoCheck")
               Function.Execute("Mouse Move")
          end
     Function.Execute("Heal")
     Function.Execute("AntiAutoCheck")
 end

function("Attack")
begin
     // RGB of the digi you want to attack
     if  Color.At coordinate is (RGB)("80", "97", "152", "1042", "58")
          begin loop()
               Keyboard.Hold keys("1")
               Keyboard.Release keys("1")
               Keyboard.Hold keys("4")
               Keyboard.Release keys("4")
               Function.Execute("Heal")
               Function.Execute("AntiAutoCheck")
               // Same co ordinates of the previous check
               if  Color.At coordinate is not (RGB)("80", "97", "152", "1042", "58")
                    begin
                         Macro.Restart("no")
                    end
          end
     // RGB of the red square of aggro monsters around the fist
     if  Color.At coordinate is (RGB)("164", "0", "29", "847", "86")
          begin loop()
               Keyboard.Hold keys("4")
               Keyboard.Hold keys("{<1>}")
               Keyboard.Release keys("4")
               Keyboard.Hold keys("1")
               Keyboard.Release keys("1")
               Function.Execute("Heal")
               Function.Execute("AntiAutoCheck")
               // Same RGB from above
               if  Color.At coordinate is not (RGB)("164", "0", "29", "848", "86")
                    begin
                         Macro.Restart("no")
                    end
          end
     // Same RGB from above
     if  Color.At coordinate is not (RGB)("164", "0", "29", "847", "86")
          begin
               Macro.Restart("no")
          end
end
function

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

function("Heal")
     // RGB of a part of digimon hp , preferable about 25% of your digimon HP , this uses Hp DISK in slot F4
     if  Color.At coordinate is not (RGB)("243", "57", "40", "191", "129")
          begin
               Keyboard.Hold keys("{<f8>}")
               Keyboard.Release keys("{<f8>}")
          end
     // RGB of a part of digimon hp to use FOOD in slot F6 , preferably specify about 50% of digimon HP
     if  Color.At coordinate is not (RGB)("229", "130", "0", "755", "979")
          begin
               Keyboard.Hold keys("{<f8>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f6>}")
          end
     // RGB for Digimon DS to use DS DISK in slot F3
     if  Color.At coordinate is not (RGB)("24", "205", "196", "133", "144")
          begin
               Keyboard.Hold keys("{<f3>}")
               Macro.Pause("50")
               Keyboard.Release keys("{<f3>}")
          end
     // RGB for TAMER DS , slot F5
     if  Color.At coordinate is not (RGB)("15", "239", "254", "111", "141")
          begin
               Keyboard.Hold keys("{<f5>}")
               Macro.Pause("50")
               Keyboard.Release keys("{<f5>}")
          end
function

function("Mouse Move")
     begin
          // Pixel pattern of the face of the mob you want to kill (on top of the screen)
          if  Color.At coordinate is not (RGB)("250", "250", "250", "1034", "57")
               and
               Color.Pixel pattern can be located on screen("159,87,0,0,4,154,67,0,-50,0,154,67,0,0,-4,159,87,0,24,0,159,87,0,0,4,154,67,0", "0")
               begin
                    // Locate HP bar pixel pattern on the screen
                    Color.Find pixel pattern("159,87,0,0,4,154,67,0,-50,0,154,67,0,0,-4,159,87,0,24,0,159,87,0,0,4,154,67,0", "0", "yes", "Xmob", "Ymob")
                    Variable.Evaluate (Math)("{Ymob}+42", "Ymob+42")
                    System.Get combined screen resolution("ResolutionMouseX", "ResolutionMouseY")
                    // Resolution For Mouse Burn 500%
                    Variable.Evaluate (Math)("{ResolutionMouseY}-156", "ResolutionMouseY2")
                    Variable.Evaluate (Math)("{ResolutionMouseX}-243", "ResolutionMouseX2")
                    // Resolution For Mouse Skill Bar
                    Variable.Evaluate (Math)("{ResolutionMouseY}-213", "ResolutionMouseY3")
                    if  Variable.Is between (Math)("Ymob+42", "{ResolutionMouseY2}", "{ResolutionMouseY}")
                         and
                         Variable.Is between (Math)("Xmob", "{ResolutionMouseX2}", "{ResolutionMouseX}")
                         begin
                              Function.Abort()
                         end
                    if  Variable.Is between (Math)("Ymob+42", "{ResolutionMouseY3}", "{ResolutionMouseY}")
                         and
                         Variable.Is between (Math)("Xmob", "396", "766")
                         begin
                              Function.Abort()
                         end
                    Mouse.Click at coordinate("{Xmob}", "{Ymob+42}", "Left")
                    // For Stopping
                    if  Color.At coordinate is (RGB)("250", "250", "250", "1034", "57")
                         begin
                              Function.Execute("anti-ks")
                         end
               end
     end
function

function("AntiAutoCheck")
     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")
                    File.Read first line("C:\GDMO\MADCATZMPID.txt", "MADCATZMPID2")
                    Window.Restore("{MADCATZMPID2}", "no")
                    File.Write text("C:\GDMO\Spots.txt", "no", "{CoX}")
                    File.Write text("C:\GDMO\Spots.txt", "yes", "{CoY}")
                    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")
                    Window.Send mouse click("{MADCATZMPID2}", "yes", "0", "30", "5", "Left")
                    Macro.Pause("200")
                    Window.Send mouse click("{MADCATZMPID2}", "no", "2", "0", "0", "Left")
                    Macro.Pause("500")
                    Mouse.Drag("{StartX}", "{StartY}", "{EndX}", "{EndY}", "Left")
                    Macro.Pause("100")
                    // Select Mouse Coordinates to Mark Area Button
                    Window.Send mouse click("{MADCATZMPID2}", "no", "8", "0", "0", "Left")
                    Macro.Pause("500")
                    Mouse.Drag("{AllX}", "{AllY}", "{AllEndX}", "{AllEndY}", "Left")
                    Macro.Pause("100")
                    Window.Bring to front("{MADCATZMPID2}", "no")
                    Window.Get location("{MADCATZMPID2}", "no", "no", "MPX", "MPY")
                    Variable.Evaluate (Math)("{MPX}+30", "MPX")
                    Variable.Evaluate (Math)("{MPY}+5", "MPY")
                    Window.Send mouse click("{MADCATZMPID2}", "yes", "0", "30", "5", "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()
                              Macro.Pause("200")
                              Keyboard.Press keys("{<f9>}")
                              Macro.Pause("500")
                              if  Mouse.Coordinates are not equal to("{MPX}", "{MPY}")
                                   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("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
                                        Keyboard.Press keys("{<f10>}")
                                        Window.Set always on top("{MADCATZMPID2}", "no", "no")
                                        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.Get text("{MADCATZMPID4}", "yes", "18", "no", "Seconds")
                                   Window.Set selected text("{MADCATZMPID4}", "Yes", "18", "{Seconds}")
                                   Window.Send press keys("{MADCATZMPID4}", "yes", "18", "0")
                                   Macro.Pause("100")
                                   Window.Get text("{MADCATZMPID4}", "yes", "20", "no", "Second")
                                   Window.Set selected text("{MADCATZMPID4}", "Yes", "20", "{Second}")
                                   Window.Send press keys("{MADCATZMPID4}", "yes", "20", "1")
                                   Macro.Pause("100")
                                   Window.Get text("{MADCATZMPID4}", "yes", "29", "no", "Percentage")
                                   Window.Set selected text("{MADCATZMPID4}", "Yes", "29", "{Percentage}")
                                   Window.Send press keys("{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
               System.Get combined screen resolution("ResoX", "ResoY")
               Variable.Evaluate (Math)("{ResoX}-25", "ResX")
               Variable.Divide (Math)("ResoY", "2")
               Variable.Evaluate (Math)("{ResoY}-100", "ResY")
               Mouse.Move to coordinate relative to window("30", "7", "{MADCATZMPID4}", "no")
               Mouse.Hold button("Left")
               Mouse.Move to coordinate("{ResX}", "{ResY}")
               Mouse.Release button("Left")
               Mouse.Save coordinate to variable("MouseX", "MouseY")
               File.Write text("C:\GDMO\MADCATZMPID.txt", "No", "{MADCATZMPID4}")
               File.Write text("C:\GDMO\Macro.txt", "No", "{MouseX}")
               File.Write text("C:\GDMO\\Macro.txt", "Yes", "{MouseY}")
               Window.Set always on top("{MADCATZMPID4}", "no", "yes")
               Window.Bring to front("{MADCATZMPID4}", "no")
          end
function
 

_________________
New Macro Protector Script By Elrayes™
viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!
viewtopic.php?f=304&t=27560
[Release] Elrayes BOT Multi Functional BOT!!
viewtopic.php?f=304&t=30783


Last edited by ahmedwaill on Mon Dec 04, 2017 1:37 pm, edited 1 time in total.

Top
 Profile  
Reply with quote  
 Post subject: Re: [Function] to Let Mouse Select Target
Thanked: 0 time(s)  Unread post Posted: Mon Dec 04, 2017 1:12 pm 


Can't complie

There was a compilation error near line:32, Trying to parse: " Function.Execute("Attack""

Again Sir ><


Top
  
Reply with quote  
 Post subject: Re: [Function] to Let Mouse Select Target
Thanked: 1 time(s)  Unread post Posted: Mon Dec 04, 2017 1:37 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 507
Location: Egypt , Portsaid
Been thanked: 143 time(s)
Has thanked: 10 time(s)
Contribution Points: 1091
Guest wrote:
Can't complie

There was a compilation error near line:32, Trying to parse: " Function.Execute("Attack""

Again Sir ><

Ah Sry my bad please 're copy it again now and try .
Forgot to type a little word in it

_________________
New Macro Protector Script By Elrayes™
viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!
viewtopic.php?f=304&t=27560
[Release] Elrayes BOT Multi Functional BOT!!
viewtopic.php?f=304&t=30783


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 23 posts ]  Go to page Previous  1, 2, 3

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