begin
     Function.Execute setting 1 variable("getGUI", "windowID", "0")
 end

function("getGUI")
     if  Variable.Is equal to("windowID", "0")
          begin
               Window.Request user multiple buttons choice("DaMaGeX DMO Bot - Launcher", "Start Bot;Settings;Support;Exit;", "mainGUI")
               if  Variable.Is not empty("mainGUI")
                    begin
                         if  Variable.Contains text("mainGUI", "Start Bot")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "1")
                              end
                         if  Variable.Contains text("mainGUI", "Settings")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "2")
                              end
                         if  Variable.Contains text("mainGUI", "Support")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "3")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    or
                    Variable.Contains text("mainGUI", "Exit")
                    begin
                         Macro.Abort()
                    end
          end
     if  Variable.Is equal to("windowID", "1")
          begin
               Window.Request user multiple choice input("What features do you want to use?", "Use Skills;Auto-Heal Digimon;Auto-DS Digimon;Auto-DS Tamer;Pickup Drops;", "useFeatures")
               if  Variable.Exists("useFeatures")
                    begin
                         if  Variable.Contains text("useFeatures", "Use Skills")
                              begin
                                   Window.Request user multiple choice input("Which skill slots do you want to use?", "F1;F2;F3;F4;F5;F6;", "useSkillSlots")
                              end
                         if  Variable.Contains text("useFeatures", "Auto-Heal Digimon")
                              begin
                                   Window.Request user multiple buttons choice("At how many percent (%) of Digimon HP do you want to use a HP Disk? (Digimon Slot F7)", "25% of Digimon HP;50% of Digimon HP;75% of Digimon HP;", "useHPDisk")
                              end
                         if  Variable.Contains text("useFeatures", "Auto-DS Digimon")
                              begin
                                   Window.Request user multiple buttons choice("At how many percent (%) of Digimon DS do you want to use a DS Disk? (Digimon Slot F8)", "25% of Digimon DS;50% of Digimon DS;75% of Digimon DS;", "useDSDisk")
                              end
                         if  Variable.Contains text("useFeatures", "Auto-DS Tamer")
                              begin
                                   Window.Request user multiple buttons choice("At how many percent (%) of Tamer DS do you want to use a DS Item? (Tamer Slot 8)", "25% of Tamer DS;50% of Tamer DS;75% of TamerDS;", "useDSItem")
                              end
                    end
               Window.Bring to front("DMO", "No")
               while  Window.Is visible("DMO", "No")
                    begin
                         Function.Execute("getScreenSettings")
                         Function.Execute("getHPDSSettings")
                         if  Color.At coordinate is within (RGB range)("36", "99", "195", "20", "{mobContainerX}", "{mobContainerY}")
                              begin
                                   Function.Execute("attackMob")
                              end
                         if  Macro.Previous criteria was not met()
                              begin
                                   Function.Execute("findMob")
                              end
                    end
          end
     if  Variable.Is equal to("windowID", "2")
          begin
               Window.Request user multiple buttons choice("Select your option", "Set new RGB values;Set new RGB ranges;Back;", "settingsOneGUI")
               if  Variable.Is not empty("settingsOneGUI")
                    begin
                         if  Variable.Contains text("settingsOneGUI", "RGB values")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "4")
                              end
                         if  Variable.Contains text("settingsOneGUI", "RGB ranges")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "5")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    or
                    Variable.Contains text("settingsOneGUI", "Back")
                    begin
                         Function.Execute setting 1 variable("getGUI", "windowID", "0")
                    end
          end
     if  Variable.Is equal to("windowID", "3")
          begin
               Window.Request user multiple buttons choice("Please go to the Blue Eye Macro forum to get support! http://www.blueeye-macro.com/viewtopic.php?f=304&t=5547", "Back;", "supportGUI")
               if  Variable.Is empty("supportGUI")
                    or
                    Variable.Contains text("supportGUI", "Back")
                    begin
                         Function.Execute setting 1 variable("getGUI", "windowID", "0")
                    end
          end
     if  Variable.Is equal to("windowID", "4")
          begin
               Window.Request user multiple buttons choice("Select your option", "Set RGB value of Digimon HP;Set RGB value of Digimon DS;Set RGB value of Tamer DS;Back;", "settingsTwoGUI")
               if  Variable.Is not empty("settingsTwoGUI")
                    begin
                         if  Variable.Contains text("settingsTwoGUI", "Digimon HP")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "6")
                              end
                         if  Variable.Contains text("settingsTwoGUI", "Digimon DS")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "7")
                              end
                         if  Variable.Contains text("settingsTwoGUI", "Tamer DS")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "8")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    or
                    Variable.Contains text("settingsTwoGUI", "Back")
                    begin
                         Function.Execute setting 1 variable("getGUI", "windowID", "2")
                    end
          end
     if  Variable.Is equal to("windowID", "5")
          begin
               Window.Request user multiple buttons choice("Select your option", "Set RGB range of Digimon HP;Set RGB range of Digimon DS;Set RGB range of Tamer DS;Back", "settingsThreeGUI")
               if  Variable.Is not empty("settingsThreeGUI")
                    begin
                         if  Variable.Contains text("settingsThreeGUI", "Digimon HP")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "9")
                              end
                         if  Variable.Contains text("settingsThreeGUI", "Digimon DS")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "10")
                              end
                         if  Variable.Contains text("settingsThreeGUI", "Tamer DS")
                              begin
                                   Function.Execute setting 1 variable("getGUI", "windowID", "11")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    or
                    Variable.Contains text("settingsThreeGUI", "Back")
                    begin
                         Function.Execute setting 1 variable("getGUI", "windowID", "2")
                    end
          end
     if  Variable.Is equal to("windowID", "6")
          begin
               Window.Request user text input("Set the RGB value of the Digimons HP seperated a period (.) and then a minus (-)  (E.G.: 14.241-255)", "DigimonHPRGB")
               if  Variable.Is not empty("DigimonHPRGB")
                    begin
                         if  File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonHPRGB.txt")
                              begin
                                   if  Variable.Is match (Regex)("DigimonHPRGB", "^[0-9]{1,3}\.[0-9]{1,3}\-[0-9]{1,3}$")
                                        begin
                                             File.Write text("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonHPRGB.txt", "No", "{DigimonHPRGB}")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "4")
                                        end
                                   if  Macro.Previous criteria was not met()
                                        begin
                                             Window.Display message box("Invalid RGB value! Seperate the RGB by a period (.) and then a minus (-).", "Yes")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "6")
                                        end
                              end
                         if  Macro.Previous criteria was not met()
                              begin
                                   Window.Display message box("File DigimonHPRGB.txt does not exist!", "Yes")
                                   Function.Execute setting 1 variable("getGUI", "windowID", "4")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    begin
                         Function.Execute setting 1 variable("getGUI", "windowID", "4")
                    end
          end
     if  Variable.Is equal to("windowID", "7")
          begin
               Window.Request user text input("Set the RGB value of the Digimons DS seperated by a period (.) and then a minus (-) (E.G.: 14.241-255)", "DigimonDSRGB")
               if  Variable.Is not empty("DigimonDSRGB")
                    begin
                         if  File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonDSRGB.txt")
                              begin
                                   if  Variable.Is match (Regex)("DigimonDSRGB", "^[0-9]{1,3}\.[0-9]{1,3}\-[0-9]{1,3}$")
                                        begin
                                             File.Write text("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonDSRGB.txt", "No", "{DigimonDSRGB}")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "4")
                                        end
                                   if  Macro.Previous criteria was not met()
                                        begin
                                             Window.Display message box("Invalid RGB value! Seperate the RGB by a period (.) and then a minus (-).", "Yes")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "7")
                                        end
                              end
                         if  Macro.Previous criteria was not met()
                              begin
                                   Window.Display message box("File DigimonDSRGB.txt does not exist!", "Yes")
                                   Function.Execute setting 1 variable("getGUI", "windowID", "4")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    begin
                         Function.Execute setting 1 variable("getGUI", "windowID", "4")
                    end
          end
     if  Variable.Is equal to("windowID", "8")
          begin
               Window.Request user text input("Set the RGB value of the Tamers HP seperated by a period (.) and then a minus (-)  (E.G.: 14.241-255)", "TamerDSRGB")
               if  Variable.Is not empty("TamerDSRGB")
                    begin
                         if  File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\TamerDSRGB.txt")
                              begin
                                   if  Variable.Is match (Regex)("TamerDSRGB", "^[0-9]{1,3}\.[0-9]{1,3}\-[0-9]{1,3}$")
                                        begin
                                             File.Write text("C:\BlueEyeMacro\DaMaGeX\DMO\TamerDSRGB.txt", "No", "{TamerDSRGB}")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "4")
                                        end
                                   if  Macro.Previous criteria was not met()
                                        begin
                                             Window.Display message box("Invalid RGB value! Seperate the RGB by a period (.) and then a minus (-).", "Yes")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "8")
                                        end
                              end
                         if  Macro.Previous criteria was not met()
                              begin
                                   Window.Display message box("File TamerDSRGB.txt does not exist!", "Yes")
                                   Function.Execute setting 1 variable("getGUI", "windowID", "4")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    begin
                         Function.Execute setting 1 variable("getGUI", "windowID", "4")
                    end
          end
     if  Variable.Is equal to("windowID", "9")
          begin
               Window.Request user text input("Set the RGB range of the Digimons HP","DigimonHPRange")
               if  Variable.Is not empty("DigimonHPRange")
                    begin
                         if  File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonHPRange.txt")
                              begin
                                   if  Variable.Is numeric("DigimonHPRange")
                                        begin
                                             File.Write text("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonHPRange.txt", "No", "{DigimonHPRange}")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "5")
                                        end
                                   if  Macro.Previous criteria was not met()
                                        begin
                                             Window.Display message box("Invalid RGB Range! Make sure the range is numeric.", "Yes")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "9")
                                        end
                              end
                         if  Macro.Previous criteria was not met()
                              begin
                                   Window.Display message box("File DigimonHPRange.txt does not exist!", "Yes")
                                   Function.Execute setting 1 variable("getGUI", "windowID", "5")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    begin
                         Function.Execute setting 1 variable("getGUI", "windowID", "5")
                    end
          end
     if  Variable.Is equal to("windowID", "10")
          begin
               Window.Request user text input("Set the RGB range of the Digimons DS","DigimonDSRange")
               if  Variable.Is not empty("DigimonDSRange")
                    begin
                         if  File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonDSRange.txt")
                              begin
                                   if  Variable.Is numeric("DigimonDSRange")
                                        begin
                                             File.Write text("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonDSRange.txt", "No", "{DigimonDSRange}")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "5")
                                        end
                                   if  Macro.Previous criteria was not met()
                                        begin
                                             Window.Display message box("Invalid RGB Range! Make sure the range is numeric.", "Yes")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "10")
                                        end
                              end
                         if  Macro.Previous criteria was not met()
                              begin
                                   Window.Display message box("File DigimonDSRange.txt does not exist!", "Yes")
                                   Function.Execute setting 1 variable("getGUI", "windowID", "5")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    begin
                         Function.Execute setting 1 variable("getGUI", "windowID", "5")
                    end
          end
     if  Variable.Is equal to("windowID", "11")
          begin
               Window.Request user text input("Set the RGB range of the Tamers HP", "TamerDSRange")
               if  Variable.Is not empty("TamerDSRange")
                    begin
                         if  File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\TamerDSRange.txt")
                              begin
                                   if  Variable.Is numeric("TamerDSRange")
                                        begin
                                             File.Write text("C:\BlueEyeMacro\DaMaGeX\DMO\TamerDSRange.txt", "No", "{TamerDSRange}")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "5")
                                        end
                                   if  Macro.Previous criteria was not met()
                                        begin
                                             Window.Display message box("Invalid RGB Range! Make sure the range is numeric.", "Yes")
                                             Function.Execute setting 1 variable("getGUI", "windowID", "11")
                                        end
                              end
                    end
               if  Macro.Previous criteria was not met()
                    begin
                         Function.Execute setting 1 variable("getGUI", "windowID", "5")
                    end
          end
function

function("getScreenSettings")
     begin
          Window.Get size("DMO", "No", "screenWidth", "screenHeight")
          Window.Get location("DMO", "No", "No", "screenX", "screenY")
          Variable.Evaluate (Math)("{screenX} + ({screenWidth} / 2) + 42", "mobContainerX")
          Variable.Evaluate (Math)("{screenY} + 78", "mobContainerY")
          Variable.Evaluate (Math)("{screenX} + ({screenWidth} / 2)", "centerX")
          Variable.Evaluate (Math)("{screenY} + ({screenHeight} / 2)", "centerY")
     end
function

function("getHPDSSettings")
     if  Variable.Exists("useHPDisk")
          begin
               if  File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonHPRGB.txt")
                    and
                    File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonHPRange.txt")
                    begin
                         File.Read first line("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonHPRGB.txt", "DigimonHPRGB")
                         File.Read first line("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonHPRange.txt", "DigimonHPRange")
                         Variable.Split("DigimonHPRGB", ".", "DigimonHPR", "DigimonHPGB")
                         Variable.Split("DigimonHPGB", "-", "DigimonHPG", "DigimonHPB")
                         if  Variable.Contains text("useHPDisk", "25")
                              begin
                                   Variable.Evaluate (Math)("{screenX} + 140","digimonHPX")
                                   Variable.Evaluate (Math)("{screenY} + 158","digimonHPY")
                              end
                         if  Variable.Contains text("useHPDisk", "50")
                              begin
                                   Variable.Evaluate (Math)("{screenX} + 171","digimonHPX")
                                   Variable.Evaluate (Math)("{screenY} + 158","digimonHPY")
                              end
                         if  Variable.Contains text("useHPDisk", "75")
                              begin
                                   Variable.Evaluate (Math)("{screenX} + 200","digimonHPX")
                                   Variable.Evaluate (Math)("{screenY} + 158","digimonHPY")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    begin
                         Window.Display message box("Cannot find the setting files!", "Yes")
                         Macro.Abort()
                    end
          end
     if  Variable.Exists("useDSDisk")
          begin
               if  File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonDSRGB.txt")
                    and
                    File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonDSRange.txt")
                    begin
                         File.Read first line("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonDSRGB.txt", "DigimonDSRGB")
                         File.Read first line("C:\BlueEyeMacro\DaMaGeX\DMO\DigimonDSRange.txt", "DigimonDSRange")
                         Variable.Split("DigimonDSRGB", ".", "DigimonDSR", "DigimonDSGB")
                         Variable.Split("DigimonDSGB", "-", "DigimonDSG", "DigimonDSB")
                         if  Variable.Contains text("useDSDisk", "25")
                              begin
                                   Variable.Evaluate (Math)("{screenX} + 140","digimonDSX")
                                   Variable.Evaluate (Math)("{screenY} + 172","digimonDSY")
                              end
                         if  Variable.Contains text("useDSDisk", "50")
                              begin
                                   Variable.Evaluate (Math)("{screenX} + 171","digimonDSX")
                                   Variable.Evaluate (Math)("{screenY} + 172","digimonDSY")
                              end
                         if  Variable.Contains text("useDSDisk", "75")
                              begin
                                   Variable.Evaluate (Math)("{screenX} + 200","digimonDSX")
                                   Variable.Evaluate (Math)("{screenY} + 172","digimonDSY")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    begin
                         Window.Display message box("Cannot find the setting files!", "Yes")
                         Macro.Abort()
                    end
          end
     if  Variable.Exists("useDSItem")
          begin
               if  File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\TamerDSRGB.txt")
                    and
                    File.Exists("C:\BlueEyeMacro\DaMaGeX\DMO\TamerDSRange.txt")
                    begin
                         File.Read first line("C:\BlueEyeMacro\DaMaGeX\DMO\TamerDSRGB.txt", "TamerDSRGB")
                         File.Read first line("C:\BlueEyeMacro\DaMaGeX\DMO\TamerDSRange.txt", "TamerDSRange")
                         Variable.Split("TamerDSRGB", ".", "TamerDSR", "TamerDSGB")
                         Variable.Split("TamerDSGB", "-", "TamerDSG", "TamerDSB")
                         if  Variable.Contains text("useDSItem", "25")
                              begin
                                   Variable.Evaluate (Math)("{screenX} + 140","tamerDSX")
                                   Variable.Evaluate (Math)("{screenY} + 98","tamerDSY")
                              end
                         if  Variable.Contains text("useDSItem", "50")
                              begin
                                   Variable.Evaluate (Math)("{screenX} + 170","tamerDSX")
                                   Variable.Evaluate (Math)("{screenY} + 98","tamerDSY")
                              end
                         if  Variable.Contains text("useDSItem", "75")
                              begin
                                   Variable.Evaluate (Math)("{screenX} + 200","tamerDSX")
                                   Variable.Evaluate (Math)("{screenY} + 98","tamerDSY")
                              end
                    end
               if  Macro.Previous criteria was not met()
                    begin
                         Window.Display message box("Cannot find the setting files!", "Yes")
                         Macro.Abort()
                    end
          end
function

function("findMob")
     begin
          Keyboard.Hold keys("{<tab>}")
          Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
          Keyboard.Release keys("{<tab>}")
          Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "400", "pauseTimeMax", "800")
     end
function

function("attackMob")
     begin
          if  Variable.Contains text("useFeatures","Use Skills")
               begin
                    while  Color.At coordinate is within (RGB range)("36", "99", "195", "20", "{mobContainerX}", "{mobContainerY}")
                         begin
                              Variable.Get text length("useSkillSlots", "useSkillLength")
                              Variable.Evaluate (Math)("5200/(({useSkillLength}+1)/3)", "cooldownMinTime")
                              Variable.Evaluate (Math)("5800/(({useSkillLength}+1)/3)", "cooldownMaxTime")
                              Variable.Set("skillCount", "1")
                              While  Variable.Is not equal to("skillCount", "7")
                                   begin
                                        Variable.Evaluate (Text)("F{skillCount}", "skillKey")
                                        Variable.Evaluate (Text)("{<{skillKey}>}", "useKey")
                                        Variable.Increment (Math)("skillCount")
                                        Function.Execute("useSkill")
                                        Function.Execute("checkDrops")
                                   end
                              Function.Execute("antiBan")
                         end
               end
          if  Macro.Previous criteria was not met()
               begin
                    Keyboard.Hold keys("{useKey}")
                    Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
                    Keyboard.Release keys("{useKey}")
               end
          while  Color.At coordinate is within (RGB range)("36", "99", "195", "20", "{mobContainerX}", "{mobContainerY}")
               begin
                    Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
               end
          Function.Execute setting 1 variable("checkHPDS", "checkFor", "tamer;digimon")
     end
function

function("useSkill")
     if  Variable.Contains text("useSkillSlots", "{skillKey}")
          begin
               Keyboard.Hold keys("{useKey}")
               Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
               Keyboard.Release keys("{useKey}")
               Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "{cooldownMinTime}", "pauseTimeMax", "{cooldownMaxTime}")
               Function.Execute setting 1 variable("checkHPDS", "checkFor", "digimon")
          end
function

function("checkDrops")
     if  Variable.Contains text("useFeatures", "Pickup Drops")
          begin
               Variable.Increment (Math)("dropCount")
               Keyboard.Hold keys("4")
               Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
               Keyboard.Release keys("4")
               Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "300", "pauseTimeMax", "500")
          end
function

function("checkHPDS")
     if  Variable.Contains text("checkFor", "digimon")
          begin
               if  Variable.Contains text("useFeatures", "Auto-Heal Digimon")
                    begin
                         if  Color.At coordinate is not within (RGB range)("{DigimonHPR}", "{DigimonHPG}", "{DigimonHPB}", "{DigimonHPRange}", "{digimonHPX}", "{digimonHPY}")
                              begin
                                   Keyboard.Hold keys("{<f7>}")
                                   Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
                                   Keyboard.Release keys("{<f7>}")
                                   Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "400", "pauseTimeMax", "800")
                              end
                    end
               if  Variable.Contains text("useFeatures", "Auto-DS Digimon")
                    begin
                         if  Color.At coordinate is not within (RGB range)("{DigimonDSR}", "{DigimonDSG}", "{DigimonDSB}", "{DigimonDSRange}", "{digimonDSX}", "{digimonDSY}")
                              begin
                                   Keyboard.Hold keys("{<f8>}")
                                   Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
                                   Keyboard.Release keys("{<f8>}")
                                   Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "400", "pauseTimeMax", "800")
                              end
                    end
          end
     if  Variable.Contains text("checkFor", "tamer")
          begin
               if  Variable.Contains text("useFeatures", "Auto-DS Tamer")
                    begin
                         if  Color.At coordinate is not within (RGB range)("{TamerDSR}", "{TamerDSG}", "{TamerDSB}", "{TamerDSRange}", "{tamerDSX}", "{tamerDSY}")
                              begin
                                   Keyboard.Hold keys("8")
                                   Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
                                   Keyboard.Release keys("8")
                                   Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "400", "pauseTimeMax", "800")
                              end
                    end
          end
function

function("randomPause")
     begin
          Variable.Set random number("pauseTime", "{pauseTimeMin}", "{pauseTimeMax}")
          Macro.Pause("{pauseTime}")
     end
function

function("antiBan")
     begin
          Variable.Set random number("getAntiBan", "0", "20")
          if  Variable.Is equal to("getAntiBan", "1")
               begin
                    Variable.Set random number("scrollTimes", "1", "15")
                    Mouse.Scroll down("{scrollTimes}")
               end
          if  Variable.Is equal to("getAntiBan", "2")
               begin
                    Variable.Set random number("scrollTimes", "1", "15")
                    Mouse.Scroll up("{scrollTimes}")
               end
          if  Variable.Is equal to("getAntiBan", "3")
               begin
                    Keyboard.Hold keys("i")
                    Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
                    Keyboard.Release keys("i")
                    Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
               end
          if  Variable.Is equal to("getAntiBan", "4")
               begin
                    Keyboard.Hold keys("n")
                    Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
                    Keyboard.Release keys("n")
                    Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
               end
          if  Variable.Is equal to("getAntiBan", "5")
               begin
                    Keyboard.Hold keys("m")
                    Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
                    Keyboard.Release keys("m")
                    Function.Execute setting 2 variables("randomPause", "pauseTimeMin", "60", "pauseTimeMax", "120")
               end
     end
function