Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Tue Dec 12, 2017 3:58 pm

All times are UTC




Post new topic Reply to topic  [ 23 posts ]  Go to page Previous  1, 2, 3  Next
Author Message
 Post subject: Re: [Function] to Let Mouse Select Target
Thanked: 0 time(s)  Unread post Posted: Fri Jul 14, 2017 4:40 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 435
Location: Egypt , Portsaid
Been thanked: 119 time(s)
Has thanked: 10 time(s)
Contribution Points: 953
XtremePerson wrote:
Very well explained well done ! Thnx button hit !

ty bro i'm Glad that u liked it :D

_________________
New Macro Protector Script By Elrayes™
http://blueeye-macro.com/viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
http://blueeye-macro.com/viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
http://blueeye-macro.com/viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!!!
http://blueeye-macro.com/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: [Function] to Let Mouse Select Target
Thanked: 0 time(s)  Unread post Posted: Thu Jul 27, 2017 4:21 am 
New User
New User



Joined: Thu Jul 20, 2017 2:21 pm
Posts: 26
Been thanked: 1 time(s)
Has thanked: 5 time(s)
Contribution Points: 56
I love this script. I added it to my tabbing script so just in case the mob is a little out of reach it will target and proceed with attack function. I was thinking about adding a timer that rotates the view, but I can't seem to really think of a way to do it. It would be an interesting addition to the script. No longer looking at the wall and kissing it lol.


Top
 Profile  
Reply with quote  
 Post subject: Re: [Function] to Let Mouse Select Target
Thanked: 1 time(s)  Unread post Posted: Thu Jul 27, 2017 10:06 am 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 435
Location: Egypt , Portsaid
Been thanked: 119 time(s)
Has thanked: 10 time(s)
Contribution Points: 953
WyvernGuest wrote:
I love this script. I added it to my tabbing script so just in case the mob is a little out of reach it will target and proceed with attack function. I was thinking about adding a timer that rotates the view, but I can't seem to really think of a way to do it. It would be an interesting addition to the script. No longer looking at the wall and kissing it lol.

well there is a better idea than timer to rotate the view opened ur game Interface Option then about the view make it Fixed View it will rotate the screen once u have a target and moving to it :)

_________________
New Macro Protector Script By Elrayes™
http://blueeye-macro.com/viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
http://blueeye-macro.com/viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
http://blueeye-macro.com/viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!!!
http://blueeye-macro.com/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: [Function] to Let Mouse Select Target
Thanked: 0 time(s)  Unread post Posted: Tue Oct 24, 2017 11:55 am 
New User
New User



Joined: Thu Feb 13, 2014 12:01 am
Posts: 19
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 40
ahmedwaill wrote:
WyvernGuest wrote:
I love this script. I added it to my tabbing script so just in case the mob is a little out of reach it will target and proceed with attack function. I was thinking about adding a timer that rotates the view, but I can't seem to really think of a way to do it. It would be an interesting addition to the script. No longer looking at the wall and kissing it lol.

well there is a better idea than timer to rotate the view opened ur game Interface Option then about the view make it Fixed View it will rotate the screen once u have a target and moving to it :)



when i using this script

this auto click script dont think target digi

and just double click all digi.... lol

how to define targeting digimon? my script :


Begin loop()
Function.Execute("anti-auto")
Function.Execute("hp")
Keyboard.Press key("3")
Keyboard.Press key("{<tab>}")
// RGB of the digi you want to attack
if Color.At coordinate is (RGB)("88", "52", "114", "920", "48")
begin
Function.Execute("Attack")
Keyboard.Press key("3")
end
// RGB Of Digimon You want to attack
if Color.At coordinate is not (RGB)("88", "52", "114", "920", "48")
begin
Function.Execute("anti-auto")
Function.Execute("Mouse Move")
end
end

function("Attack")
begin
// RGB of the digi you want to attack
if Color.At coordinate is (RGB)("88", "52", "114", "920", "48")
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")
Keyboard.Press key("3")
Function.Execute("Human Pause")
// When Target HP Bar is 1%
if Color.At coordinate is not (RGB)("198", "60", "49", "730", "59")
begin
Keyboard.Press key("{<tab>}")
Macro.Restart("no")
end
end
end
function

function("Mouse Move")
// RGB Of Digimon You want to attack
if Color.At coordinate is not (RGB)("193", "187", "184", "924", "51")
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)("193", "187", "184", "924", "51")
and
// Here for Fist Icon Under Target HP Bar
Color.At coordinate is (RGB)("192", "117", "9", "730", "78")
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


Top
 Profile  
Reply with quote  
 Post subject: Re: [Function] to Let Mouse Select Target
Thanked: 0 time(s)  Unread post Posted: Tue Oct 24, 2017 1:13 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 435
Location: Egypt , Portsaid
Been thanked: 119 time(s)
Has thanked: 10 time(s)
Contribution Points: 953
try it like that , and btw u need to put the Samge RGB of the Digimon u want to attack in mouse move function
Code:
 Begin loop()
     Function.Execute("anti-auto")
     Function.Execute("hp")
     Keyboard.Press key("3")
     Keyboard.Press key("{<tab>}")
     // RGB of the digi you want to attack
     if  Color.At coordinate is (RGB)("88", "52", "114", "920", "48")
          begin
               Function.Execute("Attack")
               Keyboard.Press key("3")
          end
     // RGB Of Digimon You want to attack
     if  Color.At coordinate is not (RGB)("88", "52", "114", "920", "48")
          begin
               Function.Execute("anti-auto")
               Function.Execute("Mouse Move")
          end
 end

function("Attack")
     begin
          // RGB of the digi you want to attack
          if  Color.At coordinate is (RGB)("88", "52", "114", "920", "48")
               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")
                    Keyboard.Press key("3")
                    Function.Execute("Human Pause")
                    // When Target HP Bar is 1%
                    if  Color.At coordinate is not (RGB)("198", "60", "49", "730", "59")
                         begin
                              Keyboard.Press key("{<tab>}")
                              Macro.Restart("no")
                         end
               end
     end
function

function("Mouse Move")
     // RGB Of Digimon You want to attack
     if  Color.At coordinate is not (RGB)("88", "52", "114", "920", "48")
          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)("193", "187", "184", "924", "51")
                    and
                    // Here for Fist Icon Under Target HP Bar
                    Color.At coordinate is (RGB)("192", "117", "9", "730", "78")
                    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™
http://blueeye-macro.com/viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
http://blueeye-macro.com/viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
http://blueeye-macro.com/viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!!!
http://blueeye-macro.com/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: [Function] to Let Mouse Select Target
Thanked: 0 time(s)  Unread post Posted: Wed Oct 25, 2017 3:25 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Wed Mar 23, 2016 7:18 am
Posts: 326
Been thanked: 44 time(s)
Has thanked: 36 time(s)
Contribution Points: 746
great script
i want to add into the script that i usually use but
i dont know how to make a multiple selection of the hp bar
and also how to 'select all' the area of the burn exp and tamer/digi slots

EDIT:

i think that i got it,
know how to select the HP bar... done
how to select the exp burn and Tamer/Digi slots... not yet

and this is the script that i use, but as you can see there is a "Keyboard.Hold keys("{<tab>}")
Keyboard.Release keys("{<tab>}")" between functions mouse move and heal at the begin of the script, only when i remove it it select the digi when a HP Bar is on screen, if i dont remove it, its moves the mouse but at the same time select another digi fast whit tab so how to correct it?

oh and in your move script when i replace the "anti-ks" function, your attack function, i dont know what to put in there, as you can see in this script that i use, i dont have attack function, so i put the "loot" function

and please look the TAB function, i just copied it, dunno how to make it fast tabing and slow tabing
thanks in advance

begin
Function.Execute("anti-auto")
Function.Execute("Mouse Move")
Keyboard.Hold keys("{<tab>}")
Keyboard.Release keys("{<tab>}")
Function.Execute("Heal")
Function.Execute("Loot")
// RGB of the digi you want to attack
if Color.At coordinate is (RGB)("36", "120", "181", "819", "82")
begin loop()
Keyboard.Hold keys("1")
Keyboard.Release keys("1")
Keyboard.Hold keys("{<f2>}")
Keyboard.Release keys("{<f2>}")
Keyboard.Hold keys("{<f1>}")
Keyboard.Release keys("{<f1>}")
Function.Execute("Loot")
Function.Execute("Heal")
Function.Execute("anti-auto")
// Same co ordinates of the previous check
if Color.At coordinate is not (RGB)("36", "120", "181", "819", "82")
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", "605", "85")
begin loop()
Keyboard.Hold keys("1")
Keyboard.Release keys("1")
Keyboard.Hold keys("{<f2>}")
Keyboard.Release keys("{<f2>}")
Keyboard.Hold keys("{<f1>}")
Keyboard.Release keys("{<f1>}")
Function.Execute("Heal")
Function.Execute("TAB")
Function.Execute("anti-auto")
// Same RGB from above
if Color.At coordinate is not (RGB)("164", "0", "29", "605", "85")
begin
Macro.Restart("no")
end
end
// Same RGB from above
if Color.At coordinate is not (RGB)("164", "0", "29", "605", "85")
begin
Macro.Restart("no")
end
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)("36", "120", "181", "819", "82")
and
Color.Pixel pattern can be located on screen("248,135,10,-23,-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,-23,-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)("36", "120", "181", "819", "82")
and
// Here for Fist
Color.At coordinate is (RGB)("110", "70", "4", "612", "78")
begin
Function.Execute("Loot")
end
end
function

function("Heal")
// RGB of a part of DIGIMON HP , preferable about 25% of your digimon HP , this uses Hp DISK in slot F8
if Color.At coordinate is not (RGB)("243", "57", "40", "195", "129")
begin
Keyboard.Hold keys("{<f8>}")
Keyboard.Release keys("{<f8>}")
end
// RGB of a part of digimon hp 2 to use CC in slot 5 , preferably specify about 50% of digimon HP
if Color.At coordinate is not (RGB)("243", "57", "40", "142", "129")
begin
Keyboard.Hold keys("5")
Keyboard.Release keys("5")
end
// RGB for Digimon DS to use DS DISK in slot F7
if Color.At coordinate is not (RGB)("15", "241", "255", "135", "142")
begin
Keyboard.Hold keys("{<f7>}")
Keyboard.Release keys("{<f7>}")
end
// RGB for TAMER DS , slot 8
if Color.At coordinate is not (RGB)("15", "241", "255", "132", "68")
begin
Keyboard.Hold keys("8")
Keyboard.Release keys("8")
end
function

function("Loot")
begin
Keyboard.Hold keys("4")
Keyboard.Release keys("4")
end
function

function("TAB")
// If target doesnt have HP, tab to next one.
if Color.At coordinate is not (RGB)("133", "26", "19", "401", "55")
and
Color.At coordinate is not (RGB)("165", "43", "34", "401", "55")
begin
Keyboard.Hold keys("{<tab>}")
Keyboard.Release keys("{<tab>}")
Function.Execute("Heal")
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

_________________
"If i said something important to you, please hit the THANKS button"


Top
 Profile  
Reply with quote  
 Post subject: Re: [Function] to Let Mouse Select Target
Thanked: 1 time(s)  Unread post Posted: Wed Oct 25, 2017 10:34 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 435
Location: Egypt , Portsaid
Been thanked: 119 time(s)
Has thanked: 10 time(s)
Contribution Points: 953
andre3ro wrote:
great script
i want to add into the script that i usually use but
i dont know how to make a multiple selection of the hp bar
and also how to 'select all' the area of the burn exp and tamer/digi slots

EDIT:

i think that i got it,
know how to select the HP bar... done
how to select the exp burn and Tamer/Digi slots... not yet

and this is the script that i use, but as you can see there is a "Keyboard.Hold keys("{<tab>}")
Keyboard.Release keys("{<tab>}")" between functions mouse move and heal at the begin of the script, only when i remove it it select the digi when a HP Bar is on screen, if i dont remove it, its moves the mouse but at the same time select another digi fast whit tab so how to correct it?

oh and in your move script when i replace the "anti-ks" function, your attack function, i dont know what to put in there, as you can see in this script that i use, i dont have attack function, so i put the "loot" function

and please look the TAB function, i just copied it, dunno how to make it fast tabing and slow tabing
thanks in advance

ah am sry for not responding quick , anyways u can check this :
viewtopic.php?f=304&t=30658&p=189352#p189352
and if still didn't understand go to the next page in that topic
EDIT : i've Updated the Script now date 26/10 04:20 AM GMT +2
now take it and just edit the Pixel Patern and Monster Face don't Mind the Burn 500% or skill bar anymore

_________________
New Macro Protector Script By Elrayes™
http://blueeye-macro.com/viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
http://blueeye-macro.com/viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
http://blueeye-macro.com/viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!!!
http://blueeye-macro.com/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: [Function] to Let Mouse Select Target
Thanked: 0 time(s)  Unread post Posted: Wed Nov 15, 2017 6:17 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 435
Location: Egypt , Portsaid
Been thanked: 119 time(s)
Has thanked: 10 time(s)
Contribution Points: 953
Updated On Date 14 November !!
Code:
UPDATE LOG :
Now You Don't Have to Set The Mouse Coordinates when it's On the Burn 500%
or The Skills Bar it's Already Calculated Using Variables.
Regards , Elrayes

_________________
New Macro Protector Script By Elrayes™
http://blueeye-macro.com/viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
http://blueeye-macro.com/viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
http://blueeye-macro.com/viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!!!
http://blueeye-macro.com/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: [Function] to Let Mouse Select Target
Thanked: 0 time(s)  Unread post Posted: Thu Nov 16, 2017 4:44 pm 
New User
New User



Joined: Thu Feb 13, 2014 12:01 am
Posts: 19
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 40
GOD ELRAYES TY!


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 9:13 am 
New User
New User



Joined: Mon Dec 04, 2017 9:10 am
Posts: 1
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 10
Code:
 begin loop()
     Keyboard.Hold keys("{<tab>}4")
     Function.Execute("Human Pause")
     Keyboard.Release keys("{<tab>}4")
     Function.Execute("Heal")
     Function.Execute("Anti-Macro Protector")
     // RGB of the digi you want to attack
     if  Color.At coordinate is (RGB)("80", "97", "152", "1042", "58")
          begin loop()
               Keyboard.Release keys("{<1>}")
               Keyboard.Release keys("{<1>}")
               Keyboard.Hold keys("1")
               Keyboard.Release keys("1")
               Keyboard.Hold keys("4")
               Keyboard.Release keys("4")
               Function.Execute("Heal")
               Function.Execute("Anti-Macro Protector")
               // 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("Anti-Macro Protector")
               // 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("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("Anti-Macro Protector")
     begin
          //  Locate time progression bar and pick the (X,Y) coordinates of the first  point
          if  Color.Pixel pattern can be located on screen("207,173,0,5,0,207,173,0,0,5,199,163,7,0,5,236,192,32,0,5,253,241,50,0,5,255,217,12,-5,0,255,218,12,0,-5,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "4")
               begin
                    //  Locate time progression bar and pick the (X,Y) coordinates of  the first point
                    Color.Wait for and locate pixel pattern("207,173,0,5,0,207,173,0,0,5,199,163,7,0,5,236,192,32,0,5,253,241,50,0,5,255,217,12,-5,0,255,218,12,0,-5,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "4", "X", "Y")
                    // Set the X and Y axis at the face to identify
                    Variable.Evaluate (Math)("{X} + 22", "X1")
                    Variable.Evaluate (Math)("{X} + 33", "X2")
                    Variable.Evaluate (Math)("{X} + 44", "X3")
                    Variable.Evaluate (Math)("{Y} - 43", "Y1")
                    Variable.Evaluate (Math)("{Y} - 32", "Y2")
                    Variable.Evaluate (Math)("{Y} - 21", "Y3")
                    //  Set the X and Y axis to locates each icon
                    Variable.Evaluate (Math)("{X} + 20", "Xicon1")
                    Variable.Evaluate (Math)("{X} + 70", "Xicon2")
                    Variable.Evaluate (Math)("{X} + 120", "Xicon3")
                    Variable.Evaluate (Math)("{X} + 170", "Xicon4")
                    Variable.Evaluate (Math)("{X} + 220", "Xicon5")
                    Variable.Evaluate (Math)("{Y} + 58", "Yrow1")
                    Variable.Evaluate (Math)("{Y} + 108", "Yrow2")
                    //  Pick the RGB at 5 points on the picture to identify
                    Color.Get color at coordinate (RGB)("{X1}", "{Y1}", "R1", "G1", "B1")
                    Color.Get color at coordinate (RGB)("{X3}", "{Y1}", "R2", "G2", "B2")
                    Color.Get color at coordinate (RGB)("{X2}", "{Y2}", "R3", "G3", "B3")
                    Color.Get color at coordinate (RGB)("{X1}", "{Y3}", "R4", "G4", "B4")
                    Color.Get color at coordinate (RGB)("{X3}", "{Y3}", "R5", "G5", "B5")
                    Macro.Pause("100")
                    //  If the RBG picked on the face matche with the icon 1 row 1
                    if  Color.Near coordinate is within (RGB range)("{R1}", "{G1}", "{B1}", "5", "{Xicon1}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R2}", "{G2}", "{B2}", "5", "{Xicon1}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R3}", "{G3}", "{B3}", "5", "{Xicon1}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R4}", "{G4}", "{B4}", "5", "{Xicon1}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R5}", "{G5}", "{B5}", "5", "{Xicon1}", "{Yrow1}", "15")
                         begin
                              Mouse.Move to coordinate("{Xicon1}", "{Yrow1}")
                              Macro.Pause("3000")
                              Mouse.Click at coordinate("{Xicon1}", "{Yrow1}", "left")
                         end
                    Macro.Pause("100")
                    //  If the RBG picked on the face matche with the icon 2 row 1
                    if  Color.Near coordinate is within (RGB range)("{R1}", "{G1}", "{B1}", "5", "{Xicon2}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R2}", "{G2}", "{B2}", "5", "{Xicon2}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R3}", "{G3}", "{B3}", "5", "{Xicon2}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R4}", "{G4}", "{B4}", "5", "{Xicon2}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R5}", "{G5}", "{B5}", "5", "{Xicon2}", "{Yrow1}", "15")
                         begin
                              Mouse.Move to coordinate("{Xicon2}", "{Yrow1}")
                              Macro.Pause("3000")
                              Mouse.Click at coordinate("{Xicon2}", "{Yrow1}", "left")
                         end
                    Macro.Pause("100")
                    //  If the RBG picked on the face matche with the icon 3 row 1
                    if  Color.Near coordinate is within (RGB range)("{R1}", "{G1}", "{B1}", "5", "{Xicon3}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R2}", "{G2}", "{B2}", "5", "{Xicon3}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R3}", "{G3}", "{B3}", "5", "{Xicon3}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R4}", "{G4}", "{B4}", "5", "{Xicon3}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R5}", "{G5}", "{B5}", "5", "{Xicon2}", "{Yrow1}", "15")
                         begin
                              Mouse.Move to coordinate("{Xicon3}", "{Yrow1}")
                              Macro.Pause("3000")
                              Mouse.Click at coordinate("{Xicon3}", "{Yrow1}", "left")
                         end
                    Macro.Pause("100")
                    //  If the RBG picked on the face matche with the icon 4 row 1
                    if  Color.Near coordinate is within (RGB range)("{R1}", "{G1}", "{B1}", "5", "{Xicon4}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R2}", "{G2}", "{B2}", "5", "{Xicon4}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R3}", "{G3}", "{B3}", "5", "{Xicon4}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R4}", "{G4}", "{B4}", "5", "{Xicon4}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R5}", "{G5}", "{B5}", "5", "{Xicon4}", "{Yrow1}", "15")
                         begin
                              Mouse.Move to coordinate("{Xicon4}", "{Yrow1}")
                              Macro.Pause("3000")
                              Mouse.Click at coordinate("{Xicon4}", "{Yrow1}", "left")
                         end
                    Macro.Pause("100")
                    //  If the RBG picked on the face matche with the icon 5 row 1
                    if  Color.Near coordinate is within (RGB range)("{R1}", "{G1}", "{B1}", "5", "{Xicon5}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R2}", "{G2}", "{B2}", "5", "{Xicon5}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R3}", "{G3}", "{B3}", "5", "{Xicon5}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R4}", "{G4}", "{B4}", "5", "{Xicon5}", "{Yrow1}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R5}", "{G5}", "{B5}", "5", "{Xicon5}", "{Yrow1}", "15")
                         begin
                              Mouse.Move to coordinate("{Xicon5}", "{Yrow1}")
                              Macro.Pause("3000")
                              Mouse.Click at coordinate("{Xicon5}", "{Yrow1}", "left")
                         end
                    Macro.Pause("100")
                    //  If the RBG picked on the face matche with the icon 1 row 2
                    if  Color.Near coordinate is within (RGB range)("{R1}", "{G1}", "{B1}", "5", "{Xicon1}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R2}", "{G2}", "{B2}", "5", "{Xicon1}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R3}", "{G3}", "{B3}", "5", "{Xicon1}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R4}", "{G4}", "{B4}", "5", "{Xicon1}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R5}", "{G5}", "{B5}", "5", "{Xicon1}", "{Yrow2}", "15")
                         begin
                              Mouse.Move to coordinate("{Xicon1}", "{Yrow2}")
                              Macro.Pause("3000")
                              Mouse.Click at coordinate("{Xicon1}", "{Yrow2}", "left")
                         end
                    Macro.Pause("100")
                    //  If the RBG picked on the face matche with the icon 2 row 2
                    if  Color.Near coordinate is within (RGB range)("{R1}", "{G1}", "{B1}", "5", "{Xicon2}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R2}", "{G2}", "{B2}", "5", "{Xicon2}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R3}", "{G3}", "{B3}", "5", "{Xicon2}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R4}", "{G4}", "{B4}", "5", "{Xicon2}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R5}", "{G5}", "{B5}", "5", "{Xicon2}", "{Yrow2}", "15")
                         begin
                              Mouse.Move to coordinate("{Xicon2}", "{Yrow2}")
                              Macro.Pause("3000")
                              Mouse.Click at coordinate("{Xicon2}", "{Yrow2}", "left")
                         end
                    Macro.Pause("100")
                    //  If the RBG picked on the face matche with the icon 3 row 2
                    if  Color.Near coordinate is within (RGB range)("{R1}", "{G1}", "{B1}", "5", "{Xicon3}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R2}", "{G2}", "{B2}", "5", "{Xicon3}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R3}", "{G3}", "{B3}", "5", "{Xicon3}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R4}", "{G4}", "{B4}", "5", "{Xicon3}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R5}", "{G5}", "{B5}", "5", "{Xicon3}", "{Yrow2}", "15")
                         begin
                              Mouse.Move to coordinate("{Xicon3}", "{Yrow2}")
                              Macro.Pause("3000")
                              Mouse.Click at coordinate("{Xicon3}", "{Yrow2}", "left")
                         end
                    Macro.Pause("100")
                    //  If the RBG picked on the face matche with the icon 4 row 2
                    if  Color.Near coordinate is within (RGB range)("{R1}", "{G1}", "{B1}", "5", "{Xicon4}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R2}", "{G2}", "{B2}", "5", "{Xicon4}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R3}", "{G3}", "{B3}", "5", "{Xicon4}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R4}", "{G4}", "{B4}", "5", "{Xicon4}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R5}", "{G5}", "{B5}", "5", "{Xicon4}", "{Yrow2}", "15")
                         begin
                              Mouse.Move to coordinate("{Xicon4}", "{Yrow2}")
                              Macro.Pause("3000")
                              Mouse.Click at coordinate("{Xicon4}", "{Yrow2}", "left")
                         end
                    Macro.Pause("100")
                    //  If the RBG picked on the face matche with the icon 5 row 2
                    if  Color.Near coordinate is within (RGB range)("{R1}", "{G1}", "{B1}", "5", "{Xicon5}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R2}", "{G2}", "{B2}", "5", "{Xicon5}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R3}", "{G3}", "{B3}", "5", "{Xicon5}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R4}", "{G4}", "{B4}", "5", "{Xicon5}", "{Yrow2}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{R5}", "{G5}", "{B5}", "5", "{Xicon5}", "{Yrow2}", "15")
                         begin
                              Mouse.Move to coordinate("{Xicon5}", "{Yrow2}")
                              Macro.Pause("3000")
                              Mouse.Click at coordinate("{Xicon5}", "{Yrow2}", "left")
                         end
                    Macro.Pause("100")
               end
     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
 


Plz Check my code scrip don't click hp monster ty sir T T


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  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