Blue Eye Macro

 begin
     // Mouse.Click at pixel pattern("bigXbutton", "0", "yes", "Left")
     Macro.Pause("1000")
     Color.Find pixel pattern("{tl}", "0", "no", "xo", "yo")
     Color.Find pixel pattern("{br}", "0", "no", "xf", "yf")
     Variable.Calculate difference (Math)("xf", "xo", "width")
     Variable.Calculate difference (Math)("yf", "yo", "height")
     Color.Limit area of interest to coordinates("{xo}", "{yo}", "{width}", "{height}")
     Color.Wait for pixel pattern to appear("{start}", "0")
     Mouse.Click at pixel pattern("{start}", "0", "yes", "left")
     Color.Wait for pixel pattern to appear("{go}", "0")
     Macro.Pause("1500")
     Function.Execute repeatedly("run", "1000")
 end

function("run")
     begin
          Function.Execute("resetleft")
          Variable.Set("bestcol", "0")
          Variable.Set("bestval", "0")
          Variable.Set("bestorientation", "0")
          Variable.Set("ccol", "0")
          Variable.Set("corient", "0")
          begin loop("2")
               begin loop("10")
                    Macro.Pause("50")
                    Color.Find coordinate of occurrence on screen closest to coordinate (RGB)("102", "102", "102", "0", "{xf}", "{yf}", "xlast", "ylast")
                    Variable.Subtract (Math)("ylast", "5")
                    if  Variable.Is greater than (Math)("ylast", "{bestval}")
                         begin
                              Variable.Set("bestval", "{ylast}")
                              Variable.Set("bestcol", "{ccol}")
                              Variable.Set("bestorientation", "{corient}")
                         end
                    Function.Execute("goright")
                    Variable.Increment (Math)("ccol")
               end
               Function.Execute("turn")
               Variable.Increment (Math)("corient")
               Function.Execute("resetleft")
               Variable.Set("ccol", "0")
          end
          Function.Execute("turn")
          Function.Execute("turn")
          begin loop("{bestorientation}")
               Function.Execute("turn")
          end
          Function.Execute("goleft")
          Function.Execute("goleft")
          begin loop("{bestcol}")
               Function.Execute("goright")
          end
          Function.Execute("drop")
          Macro.Pause("700")
     end
function

function("resetleft")
     begin loop("10")
          Keyboard.Hold keys("{<left>}")
          Macro.Pause("50")
          Keyboard.Release keys("{<left>}")
          Macro.Pause("20")
     end
function

function("goleft")
     begin
          Keyboard.Hold keys("{<left>}")
          Macro.Pause("50")
          Keyboard.Release keys("{<left>}")
          Macro.Pause("20")
     end
function

function("goright")
     begin
          Keyboard.Hold keys("{<right>}")
          Macro.Pause("50")
          Keyboard.Release keys("{<right>}")
          Macro.Pause("20")
     end
function

function("turn")
     begin
          Keyboard.Hold keys("z")
          Macro.Pause("50")
          Keyboard.Release keys("z")
          Macro.Pause("20")
     end
function

function("drop")
     begin
          Keyboard.Hold keys("{<space>}")
          Macro.Pause("50")
          Keyboard.Release keys("{<space>}")
          Macro.Pause("20")
     end
function