Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Wed Jan 17, 2018 11:47 pm

All times are UTC




Post new topic Reply to topic  [ 26 posts ]  Go to page 1, 2, 3  Next
Author Message
 Post subject: Need help with click command
Thanked: 0 time(s)  Unread post Posted: Tue Oct 10, 2017 5:16 pm 
New User
New User



Joined: Thu Sep 07, 2017 12:56 am
Posts: 25
Been thanked: 0 time(s)
Has thanked: 5 time(s)
Contribution Points: 49
hello guys,

i have this script that im using for farming and sometimes leveling. However, i was wondering if any of you can help me and create a function or a command that clicks far monsters like sometimes i get too far and no monsters near me so i wanted a command that clicks on a specific monster if its yellow hp bar ( that appears above the monster ) was found on screen so yea i want something like that and will be really thankfull.

here is a pic of the yellow bar i mean
Attachment:
1.jpg
1.jpg [ 7.04 KiB | Viewed 366 times ]
actually no need to be the yellow bar as long i can click the monster from far.

Code:
 if  Keyboard.Key is not held down("{<f12>}")
     begin loop()
          Function.Execute("anti-auto")
          Function.Execute("hp")
          Keyboard.Press key("3")
          // RGB of the digi you want to attack
          if  Color.At coordinate is (RGB)("207", "85", "59", "766", "62")
               begin
                    begin loop()
                         Function.Execute("anti-auto")
                         Function.Execute("hp")
                         Keyboard.Press key("3")
                         Keyboard.Press key("6")
                         Keyboard.Press key("1")
                         Keyboard.Press key("{<f1>}")
                         Keyboard.Press key("{<f2>}")
                         Keyboard.Press key("3")
                         Function.Execute("Human Pause")
                         // Same co ordinates of the previous check
                         // --------->slow
                         //  if  Color.At coordinate is not (RGB)("207", "85", "59", "766", "62")
                         // ---------> fast
                         if  Color.At coordinate is not (RGB)("207", "85", "59", "766", "62")
                              begin
                                   Macro.Break from loop("yes")
                              end
                    end
               end
          Keyboard.Press key("{<tab>}")
     end

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

function("hp")
     begin
          // cheack hp digimon1
          if  Color.At coordinate is not (RGB)("216", "65", "54", "203", "128")
               begin
                    Keyboard.Press key("7")
               end
          // cheack hp digimon2
          if  Color.At coordinate is not (RGB)("216", "65", "54", "137", "128")
               begin
                    Keyboard.Press key("{<f7>}")
               end
          // cheack ds digmon
          if  Color.At coordinate is not (RGB)("28", "239", "255", "121", "143")
               begin
                    Keyboard.Press key("8")
               end
          // cheack ds tamer
          if  Color.At coordinate is not (RGB)("15", "241", "255", "136", "68")
               begin
                    Keyboard.Press key("{<f8>}")
               end
     end
function
 begin loop()
     Function.Execute("anti-auto")
 end

function("anti-auto")
     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", "5")
          begin
               Macro.Pause all other macros()
               Function.Execute("OpenMP")
               // 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", "5")
                    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", "5", "CoX", "CoY")
                         Window.Restore("AC Find And Click", "no")
                         Window.Set always on top("AC Find And Click", "no", "yes")
                         Macro.Pause("200")
                         Window.Bring to front("AC Find And Click", "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")
                         //       Mark Target
                         Window.Send mouse click("MadCatz MP", "no", "2", "0", "0", "Left")
                         Macro.Pause("300")
                         Mouse.Drag("{StartX}", "{StartY}", "{EndX}", "{EndY}", "Left")
                         Macro.Pause("100")
                         //       Mark Area
                         Window.Send mouse click("MadCatz MP", "no", "8", "0", "0", "Left")
                         Macro.Pause("300")
                         Mouse.Drag("{AllX}", "{AllY}", "{AllEndX}", "{AllEndY}", "Left")
                         Macro.Pause("100")
                         Window.Bring to front("AC Find And Click", "no")
                         // 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", "5")
                              begin loop()
                                   Keyboard.Press keys("{<f9>}")
                                   Macro.Pause("500")
                                   Mouse.Click("left")
                                   // 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", "5")
                                        begin
                                             Keyboard.Press keys("{<f10>}")
                                             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")
               Macro.Pause("200")
               Window.Set always on top("MadCatz MP", "no", "yes")
               Macro.Pause("200")
               when  Window.Is visible("MadCatz MP", "no")
                    begin
                         Window.Send mouse click("MadCatz MP", "no", "1", "0", "0", "Left")
                         Macro.Pause("500")
                         Window.Send mouse click("MadCatz MP", "no", "18", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "19", "0", "15", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "20", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "21", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "29", "0", "0", "Left")
                         begin loop("8")
                              Window.Send mouse click("MadCatz MP", "no", "30", "0", "15", "Left")
                         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("MadCatz MP", "no")
          begin
               System.Get combined screen resolution("MoveX", "MoveY")
               Variable.Evaluate (Math)("{MoveX}", "MadX")
               Variable.Evaluate (Math)("{MoveY}", "MadY")
               Window.Set location("MadCatz MP", "no", "{MadX}", "{MadY}")
               Window.Set always on top("MadCatz MP", "no", "no")
               Window.Bring to front("MadCatz MP", "no")
          end
function
 


that is the script i use and it also has Elrayes, Darktower AMP script that actually answers very fast which i have another favor to ask regarding this amp...

i dont know if it pauses the fighting and healing functions when i get macrod or not cuz it answers too fast but if it does not pause fighting and healing functions then can anyone modify it to make it pause the fighting and healing functions when macro protector is detected cuz it will be really helpfull and thx.


Top
 Profile  
Reply with quote  
 Post subject: Re: Need help with click command
Thanked: 1 time(s)  Unread post Posted: Thu Oct 12, 2017 10:41 am 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 492
Location: Egypt , Portsaid
Been thanked: 141 time(s)
Has thanked: 10 time(s)
Contribution Points: 1044
check my signature
Edit: here u go
http://blueeye-macro.com/viewtopic.php?f=304&t=30115

_________________
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  
 Post subject: Re: Need help with click command
Thanked: 0 time(s)  Unread post Posted: Fri Oct 13, 2017 10:48 am 
New User
New User



Joined: Thu Sep 07, 2017 12:56 am
Posts: 25
Been thanked: 0 time(s)
Has thanked: 5 time(s)
Contribution Points: 49
ahmedwaill wrote:



Thank you man, but my attacking script as you see does not have an attacking function name so what i should do with anti-ks ??


by the way, here is my script after inserting your far click script ( still did not modify cordinate and stuff ) also i added my anti-auto function under that anti-ks attacking function of yours to make it run amp function in case someone macro me while mouse-move fuction is running.

Code:
if  Keyboard.Key is not held down("{<f12>}")
     begin loop()
          Function.Execute("anti-auto")
          Function.Execute("hp")
          Keyboard.Press key("3")
          // RGB of the digi you want to attack
          if  Color.At coordinate is (RGB)("172", "159", "227", "757", "66")
               begin
                    begin loop()
                         Function.Execute("anti-auto")
                         Function.Execute("hp")
                         Keyboard.Press key("3")
                         Keyboard.Press key("6")
                         Keyboard.Press key("1")
                         Keyboard.Press key("{<f1>}")
                         Keyboard.Press key("{<f2>}")
                         Keyboard.Press key("3")
                         Function.Execute("Human Pause")
                         // Same co ordinates of the previous check
                         // --------->slow
                         //  if  Color.At coordinate is not (RGB)("172", "159", "227", "757", "66")
                         // ---------> fast
                         if  Color.At coordinate is not (RGB)("172", "159", "227", "757", "66")
                              begin
                                   Macro.Break from loop("yes")
                              end
                    end
               end
          Keyboard.Press key("{<tab>}")
     end
 begin
     Function.Execute("Mouse Move")
 end

function("Mouse Move")
     // Pixel pattern of the face of the mob you want to kill (on top of the screen)
     if  Color.At coordinate is not (RGB)("34", "119", "180", "781", "82")
          and
          Color.Pixel pattern can be located on screen("248,135,10,-24,-2,159,87,0,50,0,159,87,0,0,4,154,67,0,-50,0,154,67,0", "0")
          begin
               // Locate HP bar pixel pattern on the screen
               Color.Find pixel pattern("248,135,10,-24,-2,159,87,0,50,0,159,87,0,0,4,154,67,0,-50,0,154,67,0", "0", "yes", "Xmob", "Ymob")
               Variable.Evaluate (Math)("{Ymob}+42", "Ymob+42")
               Mouse.Move to coordinate("{Xmob}", "{Ymob+42}")
               if  Mouse.Coordinates are within("397", "772", "557", "740")
                    or
                    Mouse.Coordinates are within("1270", "1359", "690", "729")
                    begin
                         Function.Abort()
                    end
               Mouse.Click at coordinate("{Xmob}", "{Ymob+42}", "Left")
               // For Stopping
               if  Color.At coordinate is (RGB)("34", "119", "180", "781", "82")
                    and
                    // Here for Fist
                    Color.At coordinate is (RGB)("203", "119", "3", "574", "75")
                    begin
                         Function.Execute("anti-ks")
                         Function.Execute("anti-auto")
                    end
          end
function

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

function("hp")
     begin
          // cheack hp digimon1
          if  Color.At coordinate is not (RGB)("216", "65", "54", "203", "128")
               begin
                    Keyboard.Press key("7")
               end
          // cheack hp digimon2
          if  Color.At coordinate is not (RGB)("216", "65", "54", "137", "128")
               begin
                    Keyboard.Press key("{<f7>}")
               end
          // cheack ds digmon
          if  Color.At coordinate is not (RGB)("28", "239", "255", "121", "143")
               begin
                    Keyboard.Press key("8")
               end
          // cheack ds tamer
          if  Color.At coordinate is not (RGB)("15", "241", "255", "136", "68")
               begin
                    Keyboard.Press key("{<f8>}")
               end
     end
function
 begin loop()
     Function.Execute("anti-auto")
 end

function("anti-auto")
     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", "5")
          begin
               Macro.Pause all other macros()
               Function.Execute("OpenMP")
               // 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", "5")
                    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", "5", "CoX", "CoY")
                         Window.Restore("AC Find And Click", "no")
                         Window.Set always on top("AC Find And Click", "no", "yes")
                         Macro.Pause("200")
                         Window.Bring to front("AC Find And Click", "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")
                         //       Mark Target
                         Window.Send mouse click("MadCatz MP", "no", "2", "0", "0", "Left")
                         Macro.Pause("300")
                         Mouse.Drag("{StartX}", "{StartY}", "{EndX}", "{EndY}", "Left")
                         Macro.Pause("100")
                         //       Mark Area
                         Window.Send mouse click("MadCatz MP", "no", "8", "0", "0", "Left")
                         Macro.Pause("300")
                         Mouse.Drag("{AllX}", "{AllY}", "{AllEndX}", "{AllEndY}", "Left")
                         Macro.Pause("100")
                         Window.Bring to front("AC Find And Click", "no")
                         // 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", "5")
                              begin loop()
                                   Keyboard.Press keys("{<f9>}")
                                   Macro.Pause("500")
                                   Mouse.Click("left")
                                   // 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", "5")
                                        begin
                                             Keyboard.Press keys("{<f10>}")
                                             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")
               Macro.Pause("200")
               Window.Set always on top("MadCatz MP", "no", "yes")
               Macro.Pause("200")
               when  Window.Is visible("MadCatz MP", "no")
                    begin
                         Window.Send mouse click("MadCatz MP", "no", "1", "0", "0", "Left")
                         Macro.Pause("500")
                         Window.Send mouse click("MadCatz MP", "no", "18", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "19", "0", "15", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "20", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "21", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "29", "0", "0", "Left")
                         begin loop("8")
                              Window.Send mouse click("MadCatz MP", "no", "30", "0", "15", "Left")
                         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("MadCatz MP", "no")
          begin
               System.Get combined screen resolution("MoveX", "MoveY")
               Variable.Evaluate (Math)("{MoveX}", "MadX")
               Variable.Evaluate (Math)("{MoveY}", "MadY")
               Window.Set location("MadCatz MP", "no", "{MadX}", "{MadY}")
               Window.Set always on top("MadCatz MP", "no", "no")
               Window.Bring to front("MadCatz MP", "no")
          end
function


Top
 Profile  
Reply with quote  
 Post subject: Re: Need help with click command
Thanked: 0 time(s)  Unread post Posted: Fri Oct 13, 2017 2:24 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 492
Location: Egypt , Portsaid
Been thanked: 141 time(s)
Has thanked: 10 time(s)
Contribution Points: 1044
Xicor wrote:
ahmedwaill wrote:



Thank you man, but my attacking script as you see does not have an attacking function name so what i should do with anti-ks ??

well u can just Replace it with this Code
Code:
Macro.Break from loop("yes")

it should be ok

_________________
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  
 Post subject: Re: Need help with click command
Thanked: 0 time(s)  Unread post Posted: Sat Oct 14, 2017 2:56 am 
New User
New User



Joined: Thu Sep 07, 2017 12:56 am
Posts: 25
Been thanked: 0 time(s)
Has thanked: 5 time(s)
Contribution Points: 49
ahmedwaill wrote:
Xicor wrote:
ahmedwaill wrote:



Thank you man, but my attacking script as you see does not have an attacking function name so what i should do with anti-ks ??

well u can just Replace it with this Code
Code:
Macro.Break from loop("yes")

it should be ok



okay i did that and went to game to change cordinates and stuff then started the macro but the function did not work so i wonder whats wrong.

Here it is after modificication

Code:
if  Keyboard.Key is not held down("{<f12>}")
     begin loop()
          Function.Execute("anti-auto")
          Function.Execute("hp")
          Keyboard.Press key("3")
          // RGB of the digi you want to attack
          if  Color.At coordinate is (RGB)("172", "159", "227", "757", "66")
               begin
                    begin loop()
                         Function.Execute("anti-auto")
                         Function.Execute("hp")
                         Keyboard.Press key("3")
                         Keyboard.Press key("6")
                         Keyboard.Press key("1")
                         Keyboard.Press key("{<f1>}")
                         Keyboard.Press key("{<f2>}")
                         Keyboard.Press key("3")
                         Function.Execute("Human Pause")
                         // Same co ordinates of the previous check
                         // --------->slow
                         //  if  Color.At coordinate is not (RGB)("172", "159", "227", "757", "66")
                         // ---------> fast
                         if  Color.At coordinate is not (RGB)("172", "159", "227", "757", "66")
                              begin
                                   Macro.Break from loop("yes")
                              end
                    end
               end
          Keyboard.Press key("{<tab>}")
     end
 begin
     Function.Execute("Mouse Move")
 end

function("Mouse Move")
     // Pixel pattern of the face of the mob you want to kill (on top of the screen)
     if  Color.At coordinate is not (RGB)("128", "124", "165", "947", "153")
          and
          Color.Pixel pattern can be located on screen("248,135,10,-26,-2,159,87,0,50,0,159,87,0,0,4,154,67,0,-50,0,154,67,0", "0")
          begin
               // Locate HP bar pixel pattern on the screen
               Color.Find pixel pattern("248,135,10,-26,-2,159,87,0,50,0,159,87,0,0,4,154,67,0,-50,0,154,67,0", "0", "yes", "Xmob", "Ymob")
               Variable.Evaluate (Math)("{Ymob}+42", "Ymob+42")
               Mouse.Move to coordinate("{Xmob}", "{Ymob+42}")
               if  Mouse.Coordinates are within("397", "772", "557", "740")
                    or
                    Mouse.Coordinates are within("1270", "1359", "690", "729")
                    begin
                         Function.Abort()
                    end
               Mouse.Click at coordinate("{Xmob}", "{Ymob+42}", "Left")
               // For Stopping
               if  Color.At coordinate is (RGB)("128", "124", "165", "947", "153")
                    and
                    // Here for Fist
                    Color.At coordinate is (RGB)("190", "111", "4", "575", "74")
                    begin
                         Macro.Break from loop("yes")
                         Function.Execute("anti-auto")
                    end
          end
function

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

function("hp")
     begin
          // cheack hp digimon1
          if  Color.At coordinate is not (RGB)("216", "65", "54", "203", "128")
               begin
                    Keyboard.Press key("7")
               end
          // cheack hp digimon2
          if  Color.At coordinate is not (RGB)("216", "65", "54", "137", "128")
               begin
                    Keyboard.Press key("{<f7>}")
               end
          // cheack ds digmon
          if  Color.At coordinate is not (RGB)("28", "239", "255", "121", "143")
               begin
                    Keyboard.Press key("8")
               end
          // cheack ds tamer
          if  Color.At coordinate is not (RGB)("15", "241", "255", "136", "68")
               begin
                    Keyboard.Press key("{<f8>}")
               end
     end
function
 begin loop()
     Function.Execute("anti-auto")
 end

function("anti-auto")
     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", "5")
          begin
               Macro.Pause all other macros()
               Function.Execute("OpenMP")
               // 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", "5")
                    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", "5", "CoX", "CoY")
                         Window.Restore("AC Find And Click", "no")
                         Window.Set always on top("AC Find And Click", "no", "yes")
                         Macro.Pause("200")
                         Window.Bring to front("AC Find And Click", "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")
                         //       Mark Target
                         Window.Send mouse click("MadCatz MP", "no", "2", "0", "0", "Left")
                         Macro.Pause("300")
                         Mouse.Drag("{StartX}", "{StartY}", "{EndX}", "{EndY}", "Left")
                         Macro.Pause("100")
                         //       Mark Area
                         Window.Send mouse click("MadCatz MP", "no", "8", "0", "0", "Left")
                         Macro.Pause("300")
                         Mouse.Drag("{AllX}", "{AllY}", "{AllEndX}", "{AllEndY}", "Left")
                         Macro.Pause("100")
                         Window.Bring to front("AC Find And Click", "no")
                         // 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", "5")
                              begin loop()
                                   Keyboard.Press keys("{<f9>}")
                                   Macro.Pause("500")
                                   Mouse.Click("left")
                                   // 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", "5")
                                        begin
                                             Keyboard.Press keys("{<f10>}")
                                             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")
               Macro.Pause("200")
               Window.Set always on top("MadCatz MP", "no", "yes")
               Macro.Pause("200")
               when  Window.Is visible("MadCatz MP", "no")
                    begin
                         Window.Send mouse click("MadCatz MP", "no", "1", "0", "0", "Left")
                         Macro.Pause("500")
                         Window.Send mouse click("MadCatz MP", "no", "18", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "19", "0", "15", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "20", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "21", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "29", "0", "0", "Left")
                         begin loop("8")
                              Window.Send mouse click("MadCatz MP", "no", "30", "0", "15", "Left")
                         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("MadCatz MP", "no")
          begin
               System.Get combined screen resolution("MoveX", "MoveY")
               Variable.Evaluate (Math)("{MoveX}", "MadX")
               Variable.Evaluate (Math)("{MoveY}", "MadY")
               Window.Set location("MadCatz MP", "no", "{MadX}", "{MadY}")
               Window.Set always on top("MadCatz MP", "no", "no")
               Window.Bring to front("MadCatz MP", "no")
          end
function


Top
 Profile  
Reply with quote  
 Post subject: Re: Need help with click command
Thanked: 0 time(s)  Unread post Posted: Sat Oct 14, 2017 10:51 am 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 492
Location: Egypt , Portsaid
Been thanked: 141 time(s)
Has thanked: 10 time(s)
Contribution Points: 1044
Xicor wrote:

okay i did that and went to game to change cordinates and stuff then started the macro but the function did not work so i wonder whats wrong.

i believe that the script needs to be organized, However idk what is key F12 is referring to so i can't organize it unless i know what each command is referring to..

_________________
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  
 Post subject: Re: Need help with click command
Thanked: 0 time(s)  Unread post Posted: Sat Oct 14, 2017 12:09 pm 
New User
New User



Joined: Thu Sep 07, 2017 12:56 am
Posts: 25
Been thanked: 0 time(s)
Has thanked: 5 time(s)
Contribution Points: 49
ahmedwaill wrote:
Xicor wrote:

okay i did that and went to game to change cordinates and stuff then started the macro but the function did not work so i wonder whats wrong.

i believe that the script needs to be organized, However idk what is key F12 is referring to so i can't organize it unless i know what each command is referring to..



That is nothing, you can just ignore it..

However, i think the place i pasted the function is not right... can u organize it the way you wanted and upload it to me.

thx.


Top
 Profile  
Reply with quote  
 Post subject: Re: Need help with click command
Thanked: 0 time(s)  Unread post Posted: Sat Oct 14, 2017 12:50 pm 
New User
New User



Joined: Thu Sep 07, 2017 12:56 am
Posts: 25
Been thanked: 0 time(s)
Has thanked: 5 time(s)
Contribution Points: 49
well i came up with some news


i copied the function and pasted it in new macro and tried to start it and it did not work but after i did tick on infinite mark it worked.

Here is the problem my script cant run with infinite ticked and the mouse move function needs infinite to be ticked to work. So i hope you can help me find a solution for that.


Top
 Profile  
Reply with quote  
 Post subject: Re: Need help with click command
Thanked: 0 time(s)  Unread post Posted: Sat Oct 14, 2017 1:12 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 492
Location: Egypt , Portsaid
Been thanked: 141 time(s)
Has thanked: 10 time(s)
Contribution Points: 1044
well Try it like That And Tell Me if it Works and Focus on Each Command Comment to know what do each command referrer to
Code:
 Begin
     Function.Execute("anti-auto")
     Function.Execute("hp")
     Keyboard.Press key("3")
     // RGB Of Digimon You want to attack
     if  Color.At coordinate is not (RGB)("172", "159", "227", "757", "66")
          begin loop()
               Keyboard.Press key("{<tab>}")
               Function.Execute("anti-auto")
               // RGB of the digi you want to attack
               if  Color.At coordinate is (RGB)("172", "159", "227", "757", "66")
                    begin
                         Function.Execute("Attack")
                    end
               // RGB Of Digimon You want to attack
               if  Color.At coordinate is not (RGB)("172", "159", "227", "757", "66")
                    begin
                         Function.Execute("anti-auto")
                         Function.Execute("Mouse Move")
                    end
          end
 end

function("Attack")
     begin
          // RGB of the digi you want to attack
          if  Color.At coordinate is (RGB)("172", "159", "227", "757", "66")
               begin loop()
                    Function.Execute("anti-auto")
                    Function.Execute("hp")
                    Keyboard.Press key("3")
                    Keyboard.Press key("6")
                    Keyboard.Press key("1")
                    Keyboard.Press key("{<f1>}")
                    Keyboard.Press key("{<f2>}")
                    Keyboard.Press key("3")
                    Function.Execute("Human Pause")
                    // When Target HP Bar is 1%
                    if  Color.At coordinate is not (RGB)("172", "159", "227", "757", "66")
                         begin
                              Macro.Restart("no")
                         end
               end
     end
function

function("Mouse Move")
     // RGB Of Digimon You want to attack
     if  Color.At coordinate is not (RGB)("128", "124", "165", "947", "153")
          and
          // Pixel pattern of the face of the mob you want to kill (on top of the screen)
          Color.Pixel pattern can be located on screen("248,135,10,-26,-2,159,87,0,50,0,159,87,0,0,4,154,67,0,-50,0,154,67,0", "0")
          begin
               // Locate HP bar pixel pattern on the screen
               Color.Find pixel pattern("248,135,10,-26,-2,159,87,0,50,0,159,87,0,0,4,154,67,0,-50,0,154,67,0", "0", "yes", "Xmob", "Ymob")
               Variable.Evaluate (Math)("{Ymob}+42", "Ymob+42")
               Mouse.Move to coordinate("{Xmob}", "{Ymob+42}")
               if  Mouse.Coordinates are within("397", "772", "557", "740")
                    or
                    Mouse.Coordinates are within("1270", "1359", "690", "729")
                    begin
                         Function.Abort()
                    end
               Mouse.Click at coordinate("{Xmob}", "{Ymob+42}", "Left")
               // RGB Of Digimon You want to attack
               if  Color.At coordinate is (RGB)("128", "124", "165", "947", "153")
                    and
                    // Here for Fist Icon Under Target HP Bar
                    Color.At coordinate is (RGB)("190", "111", "4", "575", "74")
                    begin
                         Function.Execute("anti-auto")
                         Function.Execute("Attack")
                    end
          end
function

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

function("hp")
     begin
          // cheack hp digimon1
          if  Color.At coordinate is not (RGB)("216", "65", "54", "203", "128")
               begin
                    Keyboard.Press key("7")
               end
          // cheack hp digimon2
          if  Color.At coordinate is not (RGB)("216", "65", "54", "137", "128")
               begin
                    Keyboard.Press key("{<f7>}")
               end
          // cheack ds digmon
          if  Color.At coordinate is not (RGB)("28", "239", "255", "121", "143")
               begin
                    Keyboard.Press key("8")
               end
          // cheack ds tamer
          if  Color.At coordinate is not (RGB)("15", "241", "255", "136", "68")
               begin
                    Keyboard.Press key("{<f8>}")
               end
     end
function

function("anti-auto")
     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", "5")
          begin
               Macro.Pause all other macros()
               Function.Execute("OpenMP")
               // 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", "5")
                    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", "5", "CoX", "CoY")
                         Window.Restore("AC Find And Click", "no")
                         Window.Set always on top("AC Find And Click", "no", "yes")
                         Macro.Pause("200")
                         Window.Bring to front("AC Find And Click", "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")
                         //       Mark Target
                         Window.Send mouse click("MadCatz MP", "no", "2", "0", "0", "Left")
                         Macro.Pause("300")
                         Mouse.Drag("{StartX}", "{StartY}", "{EndX}", "{EndY}", "Left")
                         Macro.Pause("100")
                         //       Mark Area
                         Window.Send mouse click("MadCatz MP", "no", "8", "0", "0", "Left")
                         Macro.Pause("300")
                         Mouse.Drag("{AllX}", "{AllY}", "{AllEndX}", "{AllEndY}", "Left")
                         Macro.Pause("100")
                         Window.Bring to front("AC Find And Click", "no")
                         // 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", "5")
                              begin loop()
                                   Keyboard.Press keys("{<f9>}")
                                   Macro.Pause("500")
                                   Mouse.Click("left")
                                   // 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", "5")
                                        begin
                                             Keyboard.Press keys("{<f10>}")
                                             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")
               Macro.Pause("200")
               Window.Set always on top("MadCatz MP", "no", "yes")
               Macro.Pause("200")
               when  Window.Is visible("MadCatz MP", "no")
                    begin
                         Window.Send mouse click("MadCatz MP", "no", "1", "0", "0", "Left")
                         Macro.Pause("500")
                         Window.Send mouse click("MadCatz MP", "no", "18", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "19", "0", "15", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "20", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "21", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "29", "0", "0", "Left")
                         begin loop("8")
                              Window.Send mouse click("MadCatz MP", "no", "30", "0", "15", "Left")
                         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("MadCatz MP", "no")
          begin
               System.Get combined screen resolution("MoveX", "MoveY")
               Variable.Evaluate (Math)("{MoveX}", "MadX")
               Variable.Evaluate (Math)("{MoveY}", "MadY")
               Window.Set location("MadCatz MP", "no", "{MadX}", "{MadY}")
               Window.Set always on top("MadCatz MP", "no", "no")
               Window.Bring to front("MadCatz MP", "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


Top
 Profile  
Reply with quote  
 Post subject: Re: Need help with click command
Thanked: 0 time(s)  Unread post Posted: Sat Oct 14, 2017 1:25 pm 
New User
New User



Joined: Thu Sep 07, 2017 12:56 am
Posts: 25
Been thanked: 0 time(s)
Has thanked: 5 time(s)
Contribution Points: 49
ahmedwaill wrote:
well Try it like That And Tell Me if it Works and Focus on Each Command Comment to know what do each command referrer to
Code:
 Begin
     Function.Execute("anti-auto")
     Function.Execute("hp")
     Keyboard.Press key("3")
     // RGB Of Digimon You want to attack
     if  Color.At coordinate is not (RGB)("172", "159", "227", "757", "66")
          begin loop()
               Keyboard.Press key("{<tab>}")
               Function.Execute("anti-auto")
               // RGB of the digi you want to attack
               if  Color.At coordinate is (RGB)("172", "159", "227", "757", "66")
                    begin
                         Function.Execute("Attack")
                    end
               // RGB Of Digimon You want to attack
               if  Color.At coordinate is not (RGB)("172", "159", "227", "757", "66")
                    begin
                         Function.Execute("anti-auto")
                         Function.Execute("Mouse Move")
                    end
          end
 end

function("Attack")
     begin
          // RGB of the digi you want to attack
          if  Color.At coordinate is (RGB)("172", "159", "227", "757", "66")
               begin loop()
                    Function.Execute("anti-auto")
                    Function.Execute("hp")
                    Keyboard.Press key("3")
                    Keyboard.Press key("6")
                    Keyboard.Press key("1")
                    Keyboard.Press key("{<f1>}")
                    Keyboard.Press key("{<f2>}")
                    Keyboard.Press key("3")
                    Function.Execute("Human Pause")
                    // When Target HP Bar is 1%
                    if  Color.At coordinate is not (RGB)("172", "159", "227", "757", "66")
                         begin
                              Macro.Restart("no")
                         end
               end
     end
function

function("Mouse Move")
     // RGB Of Digimon You want to attack
     if  Color.At coordinate is not (RGB)("128", "124", "165", "947", "153")
          and
          // Pixel pattern of the face of the mob you want to kill (on top of the screen)
          Color.Pixel pattern can be located on screen("248,135,10,-26,-2,159,87,0,50,0,159,87,0,0,4,154,67,0,-50,0,154,67,0", "0")
          begin
               // Locate HP bar pixel pattern on the screen
               Color.Find pixel pattern("248,135,10,-26,-2,159,87,0,50,0,159,87,0,0,4,154,67,0,-50,0,154,67,0", "0", "yes", "Xmob", "Ymob")
               Variable.Evaluate (Math)("{Ymob}+42", "Ymob+42")
               Mouse.Move to coordinate("{Xmob}", "{Ymob+42}")
               if  Mouse.Coordinates are within("397", "772", "557", "740")
                    or
                    Mouse.Coordinates are within("1270", "1359", "690", "729")
                    begin
                         Function.Abort()
                    end
               Mouse.Click at coordinate("{Xmob}", "{Ymob+42}", "Left")
               // RGB Of Digimon You want to attack
               if  Color.At coordinate is (RGB)("128", "124", "165", "947", "153")
                    and
                    // Here for Fist Icon Under Target HP Bar
                    Color.At coordinate is (RGB)("190", "111", "4", "575", "74")
                    begin
                         Function.Execute("anti-auto")
                         Function.Execute("Attack")
                    end
          end
function

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

function("hp")
     begin
          // cheack hp digimon1
          if  Color.At coordinate is not (RGB)("216", "65", "54", "203", "128")
               begin
                    Keyboard.Press key("7")
               end
          // cheack hp digimon2
          if  Color.At coordinate is not (RGB)("216", "65", "54", "137", "128")
               begin
                    Keyboard.Press key("{<f7>}")
               end
          // cheack ds digmon
          if  Color.At coordinate is not (RGB)("28", "239", "255", "121", "143")
               begin
                    Keyboard.Press key("8")
               end
          // cheack ds tamer
          if  Color.At coordinate is not (RGB)("15", "241", "255", "136", "68")
               begin
                    Keyboard.Press key("{<f8>}")
               end
     end
function

function("anti-auto")
     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", "5")
          begin
               Macro.Pause all other macros()
               Function.Execute("OpenMP")
               // 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", "5")
                    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", "5", "CoX", "CoY")
                         Window.Restore("AC Find And Click", "no")
                         Window.Set always on top("AC Find And Click", "no", "yes")
                         Macro.Pause("200")
                         Window.Bring to front("AC Find And Click", "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")
                         //       Mark Target
                         Window.Send mouse click("MadCatz MP", "no", "2", "0", "0", "Left")
                         Macro.Pause("300")
                         Mouse.Drag("{StartX}", "{StartY}", "{EndX}", "{EndY}", "Left")
                         Macro.Pause("100")
                         //       Mark Area
                         Window.Send mouse click("MadCatz MP", "no", "8", "0", "0", "Left")
                         Macro.Pause("300")
                         Mouse.Drag("{AllX}", "{AllY}", "{AllEndX}", "{AllEndY}", "Left")
                         Macro.Pause("100")
                         Window.Bring to front("AC Find And Click", "no")
                         // 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", "5")
                              begin loop()
                                   Keyboard.Press keys("{<f9>}")
                                   Macro.Pause("500")
                                   Mouse.Click("left")
                                   // 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", "5")
                                        begin
                                             Keyboard.Press keys("{<f10>}")
                                             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")
               Macro.Pause("200")
               Window.Set always on top("MadCatz MP", "no", "yes")
               Macro.Pause("200")
               when  Window.Is visible("MadCatz MP", "no")
                    begin
                         Window.Send mouse click("MadCatz MP", "no", "1", "0", "0", "Left")
                         Macro.Pause("500")
                         Window.Send mouse click("MadCatz MP", "no", "18", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "19", "0", "15", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "20", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "21", "0", "0", "Left")
                         Window.Send mouse click("MadCatz MP", "no", "29", "0", "0", "Left")
                         begin loop("8")
                              Window.Send mouse click("MadCatz MP", "no", "30", "0", "15", "Left")
                         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("MadCatz MP", "no")
          begin
               System.Get combined screen resolution("MoveX", "MoveY")
               Variable.Evaluate (Math)("{MoveX}", "MadX")
               Variable.Evaluate (Math)("{MoveY}", "MadY")
               Window.Set location("MadCatz MP", "no", "{MadX}", "{MadY}")
               Window.Set always on top("MadCatz MP", "no", "no")
               Window.Bring to front("MadCatz MP", "no")
          end
function
 


before doing that i have something to tell you...

i mangaed to make it work by doing the following:

first i deleted
Code:
 begin
     Function.Execute("Mouse Move")
 end


then created an excute function at the beginning like this

Code:
 if  Keyboard.Key is not held down("{<f12>}")
     begin loop()
          Function.Execute("anti-auto")
          Function.Execute("Mouse Move")
          Function.Execute("hp")
          Keyboard.Press key("3")
          // RGB of the digi you want to attack
          if  Color.At coordinate is (RGB)("195", "80", "56", "758", "58")
               begin
                    begin loop()
                         Function.Execute("anti-auto")
                         Function.Execute("hp")
                         Keyboard.Press key("3")
                         Keyboard.Press key("6")
                         Keyboard.Press key("1")
                         Keyboard.Press key("{<f1>}")
                         Keyboard.Press key("{<f2>}")
                         Keyboard.Press key("3")
                         Function.Execute("Human Pause")
                         // Same co ordinates of the previous check
                         // --------->slow
                         //  if  Color.At coordinate is not (RGB)("195", "80", "56", "758", "58")
                         // ---------> fast
                         if  Color.At coordinate is not (RGB)("195", "80", "56", "758", "58")
                              begin
                                   Macro.Break from loop("yes")
                              end
                    end
               end
          Keyboard.Press key("{<tab>}")
     end

function("Mouse Move")
     // Pixel pattern of the face of the mob you want to kill (on top of the screen)
     if  Color.At coordinate is not (RGB)("122", "39", "40", "904", "406")
          and
          Color.Pixel pattern can be located on screen("248,135,10,-24,-2,159,87,0,50,0,159,87,0,0,4,154,67,0,-50,0,154,67,0", "0")
          begin
               // Locate HP bar pixel pattern on the screen
               Color.Find pixel pattern("248,135,10,-24,-2,159,87,0,50,0,159,87,0,0,4,154,67,0,-50,0,154,67,0", "0", "yes", "Xmob", "Ymob")
               Variable.Evaluate (Math)("{Ymob}+42", "Ymob+42")
               Mouse.Move to coordinate("{Xmob}", "{Ymob+42}")
               if  Mouse.Coordinates are within("397", "772", "557", "740")
                    or
                    Mouse.Coordinates are within("1270", "1359", "690", "729")
                    begin
                         Function.Abort()
                    end
               Mouse.Click at coordinate("{Xmob}", "{Ymob+42}", "Left")
               // For Stopping
               if  Color.At coordinate is (RGB)("122", "39", "40", "904", "406")
                    and
                    // Here for Fist
                    Color.At coordinate is (RGB)("190", "111", "4", "575", "74")
                    begin
                         Macro.Break from loop("yes")
                         Function.Execute("anti-auto")
                    end
          end
function


the result was that it clicks every time and fast like crazy mad person and i was going to ask you about a solution for that but after looking at the script u posted i have another thing in mind. Well i dont want to take your new modified script cuz i i think you removed the slow kill RGB which i need it.

this what i mean by slow kill
Code:
// RGB of the digi you want to attack
          if  Color.At coordinate is (RGB)("195", "80", "56", "758", "58")
               begin
                    begin loop()
                         Function.Execute("anti-auto")
                         Function.Execute("hp")
                         Keyboard.Press key("3")
                         Keyboard.Press key("6")
                         Keyboard.Press key("1")
                         Keyboard.Press key("{<f1>}")
                         Keyboard.Press key("{<f2>}")
                         Keyboard.Press key("3")
                         Function.Execute("Human Pause")
                         // Same co ordinates of the previous check
                         // --------->slow
                         //  if  Color.At coordinate is not (RGB)("195", "80", "56", "758", "58")
                         // ---------> fast
                         if  Color.At coordinate is not (RGB)("195", "80", "56", "758", "58")
                              begin
                                   Macro.Break from loop("yes")
                              end
                    end
               end
          Keyboard.Press key("{<tab>}")
     end


so i decided to make a mix maybe something like that

Code:
 if  Keyboard.Key is not held down("{<f12>}")
     begin loop()
          Function.Execute("anti-auto")
          Function.Execute("hp")
          Keyboard.Press key("3")
          // RGB of the digi you want to attack
          if  Color.At coordinate is (RGB)("195", "80", "56", "758", "58")
               begin
                    begin loop()
                         Function.Execute("anti-auto")
                         Function.Execute("hp")
                         Keyboard.Press key("3")
                         Keyboard.Press key("6")
                         Keyboard.Press key("1")
                         Keyboard.Press key("{<f1>}")
                         Keyboard.Press key("{<f2>}")
                         Keyboard.Press key("3")
                         Function.Execute("Human Pause")
                         // Same co ordinates of the previous check
                         // --------->slow
                         //  if  Color.At coordinate is not (RGB)("195", "80", "56", "758", "58")
                         // ---------> fast
                         if  Color.At coordinate is not (RGB)("195", "80", "56", "758", "58")
                              begin
                                   Function.Execute("Mouse Move")
                                   Macro.Break from loop("yes")
                              end
                    end
               end
          Keyboard.Press key("{<tab>}")
     end



i want your opinion


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