function("Ride")
     begin
          begin
               Mouse.Move to coordinate("468", "592")
               Mouse.Hold button("left")
               Function.Execute("Human Pause")
               Mouse.Release button("left")
          end
          begin loop()
               Function.Execute("Heal")
               if  Color.At coordinate is (RGB)("0", "137", "215", "712", "27")
                    begin
                         Keyboard.Press key("1")
                         Function.Execute("Human Pause2")
                         Macro.Restart stopwatch("Ride")
                    end
               Keyboard.Press key("4")
               if  Color.At coordinate is (RGB)("59", "59", "70", "594", "702")
                    begin
                         Macro.Restart stopwatch("dropRide")
                    end
               if  Macro.Stopwatch counter is greater than("Ride", "4000")
                    begin
                         if  Macro.Stopwatch counter is greater than("dropRide", "4000")
                              begin
                                   Macro.Break from loop("no")
                              end
                    end
          end
          // Monta na ride
          while  Color.At coordinate is not (RGB)("24", "45", "62", "664", "584")
               begin
                    Keyboard.Press key("r")
               end
          while  Color.At coordinate is not (RGB)("129", "34", "24", "102", "53")
               begin
                    Function.Execute("Heal")
                    Macro.Pause("4000")
               end
     end
function

function("Human Pause")
     begin
          Variable.Set random number("HumanTime", "300", "600")
          Macro.Pause("{HumanTime}")
     end
function

function("Human Pause2")
     begin
          Variable.Set random number("HumanTime2", "100", "150")
          Macro.Pause("{HumanTime2}")
     end
function

function("Heal")
     // RGB of a part of digimon hp , preferable about 75% of your digimon HP , this uses Hp DISK in slot F4
     if  Color.At coordinate is not (RGB)("177", "48", "35", "138", "127")
          begin
               Keyboard.Hold keys("{<f4>}")
               Keyboard.Release keys("{<f4>}")
          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)("129", "34", "24", "201", "128")
          begin
               Keyboard.Hold keys("{<f6>}")
               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)("0", "94", "232", "138", "142")
          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)("1", "146", "254", "190", "67")
          begin
               Keyboard.Hold keys("{<f5>}")
               Macro.Pause("50")
               Keyboard.Release keys("{<f5>}")
          end
function

function("HPbreak")
     begin
          // Se o bixo tá sem vida, para o loop pra procurar outro
          if  Color.At coordinate is not (RGB)("177", "48", "35", "552", "55")
               begin
                    Macro.Break from loop("yes")
               end
     end
function