when  Keyboard.Key is held down("K")
     begin loop()
          Macro.Pause("500")
          Keyboard.Press key("{<enter>}")
          when  Color.At coordinate is (RGB)("99", "98", "98", "1276", "704")
               begin
                    Keyboard.Insert text("/pokemarket")
               end
          when  Color.At coordinate is (RGB)("224", "224", "224", "127", "710")
               begin
                    Keyboard.Press key("{<enter>}")
               end
          when  Color.At coordinate is (RGB)("198", "198", "198", "673", "222")
               begin
                    Mouse.Click at coordinate("648", "296", "left")
                    when  Color.At coordinate is (RGB)("52", "67", "18", "609", "294")
                         begin
                              Mouse.Click at coordinate("614", "292", "left")
                         end
               end
          when  Color.At coordinate is not (RGB)("198", "198", "198", "673", "222")
               begin
                    Keyboard.Press key("{<enter>}")
                    when  Color.At coordinate is (RGB)("99", "98", "98", "1276", "704")
                         begin
                              Keyboard.Insert text("/pokemarket")
                         end
                    when  Color.At coordinate is (RGB)("224", "224", "224", "127", "710")
                         begin
                              Keyboard.Press key("{<enter>}")
                         end
                    when  Color.At coordinate is (RGB)("198", "198", "198", "673", "222")
                         begin
                              Mouse.Click at coordinate("716", "298", "left")
                              when  Color.At coordinate is (RGB)("52", "67", "18", "609", "294")
                                   begin
                                        Mouse.Click at coordinate("614", "292", "left")
                                   end
                         end
               end
          when  Color.At coordinate is not (RGB)("198", "198", "198", "673", "222")
               begin
                    Keyboard.Press key("{<enter>}")
                    when  Color.At coordinate is (RGB)("99", "98", "98", "1276", "704")
                         begin
                              Keyboard.Insert text("/pokemarket")
                         end
                    when  Color.At coordinate is (RGB)("224", "224", "224", "127", "710")
                         begin
                              Keyboard.Press key("{<enter>}")
                         end
                    when  Color.At coordinate is (RGB)("198", "198", "198", "673", "222")
                         begin
                              Mouse.Click at coordinate("754", "289", "left")
                              when  Color.At coordinate is (RGB)("52", "67", "18", "609", "294")
                                   begin
                                        Mouse.Click at coordinate("614", "292", "left")
                                   end
                         end
               end
          when  Color.At coordinate is not (RGB)("198", "198", "198", "673", "222")
               begin
                    Keyboard.Press key("{<enter>}")
                    when  Color.At coordinate is (RGB)("99", "98", "98", "1276", "704")
                         begin
                              Keyboard.Insert text("/pokemarket")
                         end
                    when  Color.At coordinate is (RGB)("224", "224", "224", "127", "710")
                         begin
                              Keyboard.Press key("{<enter>}")
                         end
                    when  Color.At coordinate is (RGB)("198", "198", "198", "673", "222")
                         begin
                              Mouse.Click at coordinate("790", "294", "left")
                              when  Color.At coordinate is (RGB)("52", "67", "18", "609", "294")
                                   begin
                                        Mouse.Click at coordinate("614", "292", "left")
                                   end
                         end
               end
          Function.Execute("PC")
          Function.Execute("Finder")
          if  Keyboard.Key is held down("M")
               begin
                    Macro.Break from loop("yes")
               end
     end

function("PC")
     when  Color.At coordinate is not (RGB)("198", "198", "198", "673", "222")
          begin
               Keyboard.Press key("{<enter>}")
               when  Color.At coordinate is (RGB)("99", "98", "98", "1276", "704")
                    begin
                         Keyboard.Insert text("/pc")
                    end
               when  Color.At coordinate is (RGB)("224", "224", "224", "40", "715")
                    begin
                         Keyboard.Press key("{<enter>}")
                    end
          end
function

function("Finder")
     when  Color.At coordinate is (RGB)("136", "200", "128", "735", "116")
          begin
               Keyboard.Hold keys("{<shift>}")
               Mouse.Click at coordinate("533", "171", "Left")
               Mouse.Click at coordinate("587", "171", "Left")
               Mouse.Click at coordinate("657", "171", "Left")
               Mouse.Click at coordinate("708", "171", "Left")
               Mouse.Click at coordinate("770", "171", "Left")
               Mouse.Click at coordinate("830", "171", "Left")
               Mouse.Click at coordinate("533", "231", "Left")
               Mouse.Click at coordinate("587", "231", "Left")
               Mouse.Click at coordinate("657", "231", "Left")
               Mouse.Click at coordinate("708", "231", "Left")
               Mouse.Click at coordinate("770", "231", "Left")
               Mouse.Click at coordinate("830", "231", "Left")
               Mouse.Click at coordinate("533", "290", "Left")
               Mouse.Click at coordinate("587", "290", "Left")
               Mouse.Click at coordinate("657", "290", "Left")
               Mouse.Click at coordinate("708", "290", "Left")
               Mouse.Click at coordinate("770", "290", "Left")
               Mouse.Click at coordinate("830", "290", "Left")
               Mouse.Click at coordinate("533", "345", "Left")
               Mouse.Click at coordinate("587", "345", "Left")
               Mouse.Click at coordinate("657", "345", "Left")
               Mouse.Click at coordinate("708", "345", "Left")
               Mouse.Click at coordinate("770", "345", "Left")
               Mouse.Click at coordinate("830", "345", "Left")
               Mouse.Click at coordinate("533", "400", "Left")
               Mouse.Click at coordinate("587", "400", "Left")
               Mouse.Click at coordinate("657", "400", "Left")
               Mouse.Click at coordinate("708", "400", "Left")
               Mouse.Click at coordinate("770", "400", "Left")
               Mouse.Click at coordinate("830", "400", "Left")
               Keyboard.Release keys("{<shift>}")
               if  Color.At coordinate is (RGB)("30", "30", "30", "16", "520")
                    begin
                         Mouse.Click at coordinate("822", "117", "Left")
                         Function.Execute("Finder")
                    end
               Keyboard.Press key("{<esc>}")
          end
function