puzzle(help)

[myunknown 0]

I need a script for this puzzle

In another program I used this code:

 begin
     Function.Execute with timeout("take", "5000")
     Keyboard.Press key("{<space>}")
     Macro.Pause("100")
 end

function("take")
     begin
          begin loop()
               if  Color.Can be located on screen (RGB)("0", "255", "206", "0")
                    begin
                         Color.Find coordinate of first occurrence (RGB)("0", "255", "206", "0", "x", "y")
                         begin loop()
                              Variable.Add (Math)("x", "{Displacement}")
                              if  Color.Near coordinate is within (RGB range)("209", "139", "0", "1", "{x}", "{y}", "10")
                                   begin
                                        Macro.Break from loop("no")
                                   end
                         end
                         Macro.Break from loop("no")
                    end
          end
     end
function