Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Fri Dec 06, 2019 6:07 pm

All times are UTC




Post new topic Reply to topic  [ 3 posts ] 
Author Message
 Post subject: Anti Macro malfunction recently ???????
Thanked: 0 time(s)  Unread post Posted: Wed Jun 22, 2016 1:39 am 
New User
New User



Joined: Mon Apr 04, 2016 3:11 am
Posts: 29
Been thanked: 1 time(s)
Has thanked: 4 time(s)
Contribution Points: 53
Recently, i keep ban for clicking the wrong picture due to the anti macro mailfuntion. 4th time this week so far. Previously i use to test it when i ask my guildmate use that on me to get exp buff. Just dont know why recently it keep clicking the wrong picture. Did gayking change the rgb value or anything at the macro there ? Anyone faced this issue also ? Leave your comments here if your anti macro malfunction too.

Code:
function("AntiAuto")
     begin
          if  Color.Pixel pattern can be located on screen("12,76,186,182,0,5,74,182,0,100,10,63,170,-184,0,9,62,170,-4,180,17,86,189,188,0,13,79,182", "10")
               begin
                    Color.Wait for and locate pixel pattern("12,76,186,182,0,5,74,182,0,100,10,63,170,-184,0,9,62,170,-4,180,17,86,189,188,0,13,79,182", "10", "x", "y")
                    Variable.Evaluate (Math)("{y}+41", "y1")
                    Variable.Evaluate (Math)("{y}+52", "y2")
                    Variable.Evaluate (Math)("{y}+61", "y3")
                    Variable.Evaluate (Math)("{x}-10", "xIcon1")
                    Variable.Evaluate (Math)("{x}+36", "xIcon2")
                    Variable.Evaluate (Math)("{x}+89", "xIcon3")
                    Variable.Evaluate (Math)("{x}+137", "xIcon4")
                    Variable.Evaluate (Math)("{x}+188", "xIcon5")
                    Variable.Evaluate (Math)("{y}+143", "yTopRow")
                    Variable.Evaluate (Math)("{y}+191", "yBottomRow")
                    Color.Get color at coordinate (RGB)("{x}", "{y1}", "r1", "g1", "b1")
                    Color.Get color at coordinate (RGB)("{x}", "{y2}", "r2", "g2", "b2")
                    Color.Get color at coordinate (RGB)("{x}", "{y3}", "r3", "g3", "b3")
                    Macro.Pause("1000")
                    if  Color.Near coordinate is within (RGB range)("{r1}", "{g1}", "{b1}", "10", "{xIcon1}", "{yTopRow}", "10")
                         and
                         Color.Near coordinate is within (RGB range)("{r2}", "{g2}", "{b2}", "10", "{xIcon1}", "{yTopRow}", "10")
                         and
                         Color.Near coordinate is within (RGB range)("{r3}", "{g3}", "{b3}", "10", "{xIcon1}", "{yTopRow}", "10")
                         begin
                              Mouse.Move to coordinate("{xIcon1}", "{yTopRow}")
                              Macro.Pause("1000")
                              Mouse.Click at coordinate("{xIcon1}", "{yTopRow}", "left")
                         end
                    Macro.Pause("1000")
                    if  Color.Near coordinate is within (RGB range)("{r1}", "{g1}", "{b1}", "10", "{xIcon2}", "{yTopRow}", "10")
                         and
                         Color.Near coordinate is within (RGB range)("{r2}", "{g2}", "{b2}", "10", "{xIcon2}", "{yTopRow}", "10")
                         and
                         Color.Near coordinate is within (RGB range)("{r3}", "{g3}", "{b3}", "10", "{xIcon2}", "{yTopRow}", "10")
                         begin
                              Mouse.Move to coordinate("{xIcon2}", "{yTopRow}")
                              Macro.Pause("1000")
                              Mouse.Click at coordinate("{xIcon2}", "{yTopRow}", "left")
                         end
                    Macro.Pause("1000")
                    if  Color.Near coordinate is within (RGB range)("{r1}", "{g1}", "{b1}", "10", "{xIcon3}", "{yTopRow}", "10")
                         and
                         Color.Near coordinate is within (RGB range)("{r2}", "{g2}", "{b2}", "10", "{xIcon3}", "{yTopRow}", "10")
                         and
                         Color.Near coordinate is within (RGB range)("{r3}", "{g3}", "{b3}", "10", "{xIcon3}", "{yTopRow}", "10")
                         begin
                              Mouse.Move to coordinate("{xIcon3}", "{yTopRow}")
                              Macro.Pause("1000")
                              Mouse.Click at coordinate("{xIcon3}", "{yTopRow}", "left")
                         end
                    Macro.Pause("1000")
                    if  Color.Near coordinate is within (RGB range)("{r1}", "{g1}", "{b1}", "10", "{xIcon4}", "{yTopRow}", "12")
                         and
                         Color.Near coordinate is within (RGB range)("{r2}", "{g2}", "{b2}", "10", "{xIcon4}", "{yTopRow}", "12")
                         and
                         Color.Near coordinate is within (RGB range)("{r3}", "{g3}", "{b3}", "10", "{xIcon4}", "{yTopRow}", "12")
                         begin
                              Mouse.Move to coordinate("{xIcon4}", "{yTopRow}")
                              Macro.Pause("1000")
                              Mouse.Click at coordinate("{xIcon4}", "{yTopRow}", "left")
                         end
                    Macro.Pause("1000")
                    if  Color.Near coordinate is within (RGB range)("{r1}", "{g1}", "{b1}", "10", "{xIcon5}", "{yTopRow}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{r2}", "{g2}", "{b2}", "10", "{xIcon5}", "{yTopRow}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{r3}", "{g3}", "{b3}", "10", "{xIcon5}", "{yTopRow}", "15")
                         begin
                              Mouse.Move to coordinate("{xIcon5}", "{yTopRow}")
                              Macro.Pause("1000")
                              Mouse.Click at coordinate("{xIcon5}", "{yTopRow}", "left")
                         end
                    Macro.Pause("1000")
                    if  Color.Near coordinate is within (RGB range)("{r1}", "{g1}", "{b1}", "10", "{xIcon1}", "{yBottomRow}", "11")
                         and
                         Color.Near coordinate is within (RGB range)("{r2}", "{g2}", "{b2}", "10", "{xIcon1}", "{yBottomRow}", "11")
                         and
                         Color.Near coordinate is within (RGB range)("{r3}", "{g3}", "{b3}", "10", "{xIcon1}", "{yBottomRow}", "11")
                         begin
                              Mouse.Move to coordinate("{xIcon1}", "{yBottomRow}")
                              Macro.Pause("1000")
                              Mouse.Click at coordinate("{xIcon1}", "{yBottomRow}", "left")
                         end
                    Macro.Pause("1000")
                    if  Color.Near coordinate is within (RGB range)("{r1}", "{g1}", "{b1}", "10", "{xIcon2}", "{yBottomRow}", "7")
                         and
                         Color.Near coordinate is within (RGB range)("{r2}", "{g2}", "{b2}", "10", "{xIcon2}", "{yBottomRow}", "7")
                         and
                         Color.Near coordinate is within (RGB range)("{r3}", "{g3}", "{b3}", "10", "{xIcon2}", "{yBottomRow}", "7")
                         begin
                              Mouse.Move to coordinate("{xIcon2}", "{yBottomRow}")
                              Macro.Pause("1000")
                              Mouse.Click at coordinate("{xIcon2}", "{yBottomRow}", "left")
                         end
                    Macro.Pause("1000")
                    if  Color.Near coordinate is within (RGB range)("{r1}", "{g1}", "{b1}", "10", "{xIcon3}", "{yBottomRow}", "10")
                         and
                         Color.Near coordinate is within (RGB range)("{r2}", "{g2}", "{b2}", "10", "{xIcon3}", "{yBottomRow}", "10")
                         and
                         Color.Near coordinate is within (RGB range)("{r3}", "{g3}", "{b3}", "10", "{xIcon3}", "{yBottomRow}", "10")
                         begin
                              Mouse.Move to coordinate("{xIcon3}", "{yBottomRow}")
                              Macro.Pause("1000")
                              Mouse.Click at coordinate("{xIcon3}", "{yBottomRow}", "left")
                         end
                    Macro.Pause("1000")
                    if  Color.Near coordinate is within (RGB range)("{r1}", "{g1}", "{b1}", "10", "{xIcon4}", "{yBottomRow}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{r2}", "{g2}", "{b2}", "10", "{xIcon4}", "{yBottomRow}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{r3}", "{g3}", "{b3}", "10", "{xIcon4}", "{yBottomRow}", "15")
                         begin
                              Mouse.Move to coordinate("{xIcon4}", "{yBottomRow}")
                              Macro.Pause("1000")
                              Mouse.Click at coordinate("{xIcon4}", "{yBottomRow}", "left")
                         end
                    Macro.Pause("1000")
                    if  Color.Near coordinate is within (RGB range)("{r1}", "{g1}", "{b1}", "10", "{xIcon5}", "{yBottomRow}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{r2}", "{g2}", "{b2}", "10", "{xIcon5}", "{yBottomRow}", "15")
                         and
                         Color.Near coordinate is within (RGB range)("{r3}", "{g3}", "{b3}", "10", "{xIcon5}", "{yBottomRow}", "15")
                         begin
                              Mouse.Move to coordinate("{xIcon5}", "{yBottomRow}")
                              Macro.Pause("1000")
                              Mouse.Click at coordinate("{xIcon5}", "{yBottomRow}", "left")
                         end
                    Macro.Pause("1000")
               end
     end
function
 


Top
 Profile  
Reply with quote  
 Post subject: Re: Anti Macro malfunction recently ???????
Thanked: 0 time(s)  Unread post Posted: Wed Jun 22, 2016 1:57 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Sat Apr 05, 2014 4:21 pm
Posts: 979
Location: In-Game
Been thanked: 202 time(s)
Has thanked: 18 time(s)
Contribution Points: 126
working fine here thats the one im using 1920x1080 res here
Code:
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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              Mouse.Click at coordinate("{Xicon5}", "{Yrow2}", "left")
                         end
                    Macro.Pause("100")
               end
     end
function

_________________
Some Of My Bots ^^
Skill Break Infinite Mountain Bot ---> viewtopic.php?f=304&t=23071
Mini Ete Bot 1920X1080 ---> viewtopic.php?f=304&t=22148
New DarkVeemon Bot (Attacks Wargreymon Too) 1920x1080 ---> viewtopic.php?f=304&t=22001

If I helped you ---> Hit "Thank You" Please ^^


Top
 Profile  
Reply with quote  
 Post subject: Re: Anti Macro malfunction recently ???????
Thanked: 1 time(s)  Unread post Posted: Wed Jun 22, 2016 2:20 pm 
New User
New User



Joined: Mon Apr 04, 2016 3:11 am
Posts: 29
Been thanked: 1 time(s)
Has thanked: 4 time(s)
Contribution Points: 53
DerMatze wrote:
working fine here thats the one im using 1920x1080 res here
Code:
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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              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("1000")
                              Mouse.Click at coordinate("{Xicon5}", "{Yrow2}", "left")
                         end
                    Macro.Pause("100")
               end
     end
function


yes bro. works fine for this script also. maybe there are some error we haven discover yet.


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 3 posts ] 

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