{*
 *VidyaScape Tutorial Island Bot
 *STATUS: IN PROGRESS
 *}

//Config
//Brand new account
//Not logged in yet
//Client loaded

program AutoTutorialIsland;
  {$I srl-6/srl.simba}

//SRL-6 RSPS CLIENT OVERRIDE
function waitClientReady(): boolean;override;begin result:= true;end


var
  X, Y:Integer;
  user:= 'io' + IntToStr(RandomRange(0, 9999999))
       + 'y' + IntToStr(RandomRange(0, 11));
  pass:= '$' + IntToStr(RandomRange(0, 100001));

  loginScreenDetected:Boolean:= false;
  clientStable:Boolean:= false;
  log1Chopped:Boolean:= false;
  fishCaught:Boolean:= false;
  oreMined:Boolean:= false;

  //DTMs
  cookExit:Integer;

const
  //INTERFACES
  clientArea:= IntToBox(5, 30, 519, 365);
  invyArea:= IntToBox(522, 193, 764, 525);
  chatboxArea:= IntToBox(6, 367, 518, 503);
  minimapArea:= IntToBox(569, 30, 719, 181);

//essentials

procedure setAppearance;
var
  i:Integer;
  Female:Boolean:= True;
  //male is default so its ur a girl or not

begin
  wait(100 + Random(51));
  writeln('Setting player appearance.');

  if (Female = True) then
  begin
    //set female
    MoveMouse(450, 320);
    wait(250 + Random(51));
    ClickMouse(450, 320, 1);
    wait(250 + Random(51));

    //set hair
    MoveMouse(170, 120);
    wait(250 + Random(51));
    ClickMouse(170, 120, 1);
    wait(100 + Random(51));

    //set hair color
    MoveMouse(470, 120);
    wait(250 + Random(51));
    ClickMouse(470, 120, 1);
    wait(100 + Random(51));
    for i := 0 to 3 do //clicks 5 times
    begin
      ClickMouse(470, 120, 1);
      wait(100 + Random(51));
    end

    //set torso
    MoveMouse(170, 190);
    wait(250 + Random(51));
    ClickMouse(170, 190, 1);
    wait(100 + Random(51));
    for i := 0 to 0 do //clicks 2 times
    begin
      ClickMouse(170, 190, 1);
      wait(100 + Random(51));
    end;

    //set torso color
    MoveMouse(470, 150);
    wait(250 + Random(51));
    ClickMouse(470, 150, 1);
    wait(100 + Random(51));
    for i := 0 to 0 do //clicks 2 times
    begin
      ClickMouse(470, 150, 1);
      wait(100 + Random(51));
    end;

    //set hands
    MoveMouse(170, 260);
    wait(250 + Random(51));
    ClickMouse(170, 260, 1);
    wait(100 + Random(51));

    //set leg color
    MoveMouse(470, 190);
    wait(250 + Random(51));
    ClickMouse(470, 190, 1);
    wait(100 + Random(51));
    for i := 0 to 0 do //clicks 2 times
    begin
      ClickMouse(470, 190, 1);
      wait(100 + Random(51));
    end;

    //set feet color
    MoveMouse(470, 225);
    wait(250 + Random(51));
    ClickMouse(470, 225, 1);
    wait(100 + Random(51));
    for i := 0 to 0 do //clicks 2 times
    begin
      ClickMouse(470, 225, 1);
      wait(100 + Random(51));
    end;

    //set skin color
    MoveMouse(470, 260);
    wait(250 + Random(51));
    ClickMouse(470, 260, 1);
    wait(100 + Random(51));

  end
  wait(500 + Random(551));
end;

{*
 *Procedure: setCamera;
 *Used to set north & up key camera.
 *Also to give the program a fixed starting position.
 *}
procedure setCamera;
begin
    wait(100 + Random(51));
    writeln('Setting camera...');

    //Click compass
    MoveMouse(563, 42);
    wait(100 + Random(51));
    ClickMouse(563, 42, 1);
    wait(250 + Random(51));

    //Up key camera
    KeyDown(38);
    wait(2900 + Random(151));
    KeyUp(38);
    wait(250 + Random(51));

    //fixed point check
end;

{*
 *Procedure: loginCheck;
 *Used in the loginPlayer function to make sure the player
 *is fully logged in and client is stable.
 *Repeats every 1-1.25 seconds until client returns stable
 *-else terminates the script
 *TO DO:
 *-Make sure fps stabilizes before continuing
 *}
procedure loginCheck;
var
  count:Integer = 0; //procedure run count

begin
  wait(750 + Random(51));
  if FindColorTolerance(X, Y, 14610138, 551, 114, 568, 129, 5) then
  begin
    writeln('Client stable');
    clientStable:= true;
  end else
    if (clientStable = false) then
    begin
      writeln('Client not stable yet');
      Inc(count); //increases count by 1
      if (count >= 99) then //if procedure run >= 99
      begin
        terminateScript; //completely shut down script
      end
      if (count >= 1) then //if procedure has to run >= 1
      begin
        writeln('Procedure loginCheck; repeated ' + IntToStr(count) + ' time(s).');
      end
    end
end;

{*
 *Procedure: clearText;
 *Used to clear text where needed.
 *}
procedure clearText;
var
  count:Integer:= 0;
begin
  wait(100 + Random(51));
  writeln('Clearing text...');

  repeat
    PressKey(vk_delete);
    Inc(count);
    until(count >= 15);

  wait(1000 + Random(51));
end;

{*
 *Procedure loginPlayer;
 *Used to log in the player.
 *Makes sure is fully logged in and stable client.
 *}
procedure loginPlayer;
var
  loginScreen:= DTMFromString('mWAAAAHicY2FgYFjFyMDQC8THgHgpEDcCxeqgOAaIGZw4GJx1GRimVQYznJ2nw4AOGNEwCAAA4YsIOw==');

begin
  if FindDTM(loginScreen, X, Y, 218, 47, 554, 151) then
  begin
    wait(100 + Random(51));
    writeln('Logging in player...');

    //click username box
    MoveMouse(379, 227);
    wait(250 + Random(51));
    ClickMouse(379, 227, 1);
    wait(100 + Random(151));
    ClickMouse(379, 227, 1); //2x click to make sure
    wait(250 + Random(51));

    //if text in user box then
    //begin
    //clear user box
      clearText;
    //end;

    //write username
    SendKeys(user, 50+Random(51), 30+Random(30));
    wait(100 + Random(51));

    //press enter to pass box
    PressKey(13);
    wait(100 + Random(51));

    //if text in pass box then
    //begin
      //clear pass box
      clearText;
    //end;

    //enter pass
    SendKeys(pass, 50+Random(51), 30+Random(30));
    wait(100 + Random(51));

    //click log in
    MoveMouse(382, 325);
    wait(200 + Random(51));
    ClickMouse(382, 325, 1);
    wait(100 + Random(51));

    //wait a normal amount of time to log
    wait(5000 + Random(551));

    //wait until fully logged in
    repeat
      loginCheck;
    until (clientStable:= true);

    loginScreenDetected:= true;

    FreeDTM(loginScreen);
  end else
  writeln('Waiting for client to load...');

end;

procedure logoutPlayer;
begin
  //click logout tab
  MoveMouse(645, 511);
  wait(250 + Random(51));
  ClickMouse(645, 511, 1);
  wait(500 + Random(51));

  //click here to log out
  MoveMouse(643, 402);
  wait(250 + Random(51));
  ClickMouse(643, 402, 1);
  wait(500 + Random(51));
end;

procedure chatboxCheck;
var
  chatboxChecker := BitmapFromString(50, 10, 'meJydkzEOAjEMBPP0vIQCaOAbSA' +
        'gBJQ2I4p5COINvtbuXE0hbJI7jjO24llJL2Z2fc9qeHk1tsb8OaMT' +
        'TFB4txuyojlQZU1Ud9kR1Gd7qkmA6lKklzEfJiO8ilZ4Glb6r/LZQ' +
        '0/abHdYKnSkdomK3MdpiZdJuO/5BclRZNNtB6iMabfsyMvmQERnQb' +
        't3woTzaHO/aU/vr0G5/C/0czFoJSQ0DxyG2lkqHhWL209G1BWsAoa' +
        'SKNTW9MwsYMIrcuThHpXFC68NNgX+lyl/9B9VKmhVUCRYXI3E7AjR' +
        '06mNHwNK+AIJ5fBM=');

begin
  if FindBitmapToleranceIn(chatboxChecker, X, Y, chatboxArea, 5) then
  begin
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(500 + Random(51));
  end;
FreeBitmap(chatboxChecker);
end;

procedure clickHereToContinue;
begin
  MoveMouse(300, 475);
  wait(250 + Random(51));
  ClickMouse(300, 475, 1);
  wait(750 + Random(51));
end;

//first time using cases :)

procedure ClickTab(Tab: String);
begin
  case (Tab) of
    'playerControls':
    begin
      MoveMouse(680, 510);
      wait(250 + Random(51));
      ClickMouse(680, 510, 1);
      wait(750 + Random(51));
    end;

    'inventory':
    begin
      MoveMouse(650, 210);
      wait(250 + Random(51));
      ClickMouse(650, 210, 1);
      wait(750 + Random(51));
    end;

    'skills':
    begin
      MoveMouse(580, 212);
      wait(500 + Random(51));
      ClickMouse(580, 212, 1);
      wait(1000 + Random(51));
    end;

    'questTab':
    begin
      MoveMouse(612, 210);
      wait(250 + Random(51));
      ClickMouse(612, 210, 1);
      wait(2000 + Random(51));
    end;

  else
    WriteLn('"' + Tab + '" tab does not exist.');
  end;
end;

procedure ClickNPC(NPC: String);
var
  //master chef
  chefFound:Boolean:= False;
  chefDialogueFound:Boolean:= False;
  chefDialogue := BitmapFromString(22, 6, 'meJxtkEEKgFAIRD16Z6kWdY7gE61' +
        'bVHSYhh4N9gtcqDxn1Igm7hiXs5+PoWxd2eNp5pwQIzLeU2DKKcGq' +
        'RIzEK8C51YTZAoAOpRR+lZmlaQXBX6OvLyMs76sri3ZaFVnBn8kLe' +
        'w2f6aeh4Km8huMC9ZnRxg==');

  questGuideFound:Boolean:= False;
  miningInstructorFound:Boolean:= False;

begin
  case (NPC) of
    'RuneScape Guide':
    begin
      if FindColorTolerance(X, Y, 462720, clientArea, 5) then
      begin
        MoveMouse(X, Y);
        wait(100 + Random(51));
        ClickMouse(X, Y, 1);
        wait(2000 + Random(51));
      end;
    end;

    'Survival Expert':
    begin
      if FindColorTolerance(X, Y, 2895710, clientArea, 5) then
      begin
        MoveMouse(X, Y);
        wait(100 + Random(51));
        ClickMouse(X, Y, 1);
        wait(2000 + Random(51));
      end;
    end;

    'Master Chef':
    begin
      repeat
        if FindColorTolerance(X, Y, 3562038, clientArea, 5) then
        begin
          writeln('Master chef found!');
          MoveMouse(X, Y);
          wait(50 + Random(51));
          ClickMouse(X, Y, 1);
          wait(2500 + Random(51));

          //find until dialogue pops up
          if FindBitmapToleranceIn(chefDialogue, X, Y, chatboxArea, 5) then
          begin
            wait(50 + Random(51));
            chefDialogueFound:= True;
          end else
          begin
            repeat
              ClickNPC('Master Chef');
            until(chefDialogueFound = True);
          end;

          chefFound:= True;
        end;
      until(chefFound = True);
      chefFound = False;
      chefDialogueFound = False;
    FreeBitmap(chefDialogue);
    end;

    'Quest Guide':
    begin
      repeat
        if FindColorTolerance(X, Y, 1717772, clientArea, 5) then
        begin
          writeln('Quest guide found!');
          MoveMouse(X, Y);
          wait(250 + Random(51));
          ClickMouse(X, Y, 1);
          wait(2000 + Random(51));
          questGuideFound:= True;
        end;
        until(questGuideFound = True);
        questGuideFound = False;
    end;

    'Mining Instructor':
    begin
      repeat
        if FindColorTolerance(X, Y, 4462657, clientArea, 5) then
        begin
          writeln('Mining instructor found!');
          MoveMouse(X, Y);
          wait(250 + Random(51));
          ClickMouse(X, Y, 1);
          wait(2500 + Random(51));
          miningInstructorFound:= True;
        end;
      until(miningInstructorFound = True);
      miningInstructorFound = False;
    end;

  else
    WriteLn('"' + NPC + '" NPC does not exist.');
  end;

end;

//loops

procedure logCheck;
begin
  wait(5000);
  if FindColorTolerance(X, Y, 2443624, 657, 245, 674, 259, 5) then
  begin
    //"the tree has run out of logs"
    chatboxCheck;

    //click log
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(500 + Random(51));
    log1Chopped:= true;
  end else
  repeat
    logCheck;
    until(log1Chopped:= true);

end;

procedure fishCheck;
begin
  wait(5000);
  chatboxCheck;

  if FindColorTolerance(X, Y, 7179721, invyArea, 5) then
  begin
    //click fish
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(500 + Random(51));
    fishCaught:= true;
  end else

  repeat
    fishCheck;
    until(fishCaught:= true);
end;

procedure tinOreCheck;
var
  tinOre := DTMFromString('mWAAAAHicY2FgYChiYmAoAeJ0IM4FYndGBgY7IHYDYn8gLkxPY8iMj2cIc1BniHTSYkAHjGgYBACEAwbQ');

begin
  wait(5000);
  if FindDTM(tinOre, X, Y, invyArea) then
  begin
    oreMined:= true;
  end else
  repeat
    tinOreCheck;
    until(oreMined:= true);

  FreeDTM(tinOre);
end;

procedure copperOreCheck;
var
  copperOre := DTMFromString('mWAAAAHicY2FgYJjNxMAwF4h7gXg6ELsyMjDYMkLoACA+HifPsC5YmkFbUYQh0kmLAR0womEQAAClLwcN');

begin
  wait(5000);
  if FindDTM(copperOre, X, Y, invyArea) then
  begin
    oreMined:= true;
  end else
  repeat
    copperOreCheck;
    until(oreMined:= true);

  FreeDTM(copperOre);
end;


//main blocks

procedure RuneScapeGuide;
var
  i:Integer;

begin
  ClickNPC('RuneScape Guide');

  for i := 0 to 4 do //repeat 6 times
    clickHereToContinue;

  ClickTab('playerControls');

  ClickNPC('RuneScape Guide');

  for i := 0 to 0 do //repeat 2 times
    clickHereToContinue;

  //click door
  MoveMouse(397, 193);
  wait(100 + Random(51));
  ClickMouse(397, 193, 1);
  wait(3750 + Random(551));

  //walk south
  MoveMouse(665, 151);
  wait(100 + Random(51));
  ClickMouse(665, 151, 1);
  wait(8000 + Random(2001));
end;

procedure SurvivalExpert;
var
  i:Integer;

begin

  ClickNPC('Survival Expert');

  for i := 0 to 0 do //repeat 2 times
    clickHereToContinue;

  ClickTab('inventory');

  //Click indicated tree
  MoveMouse(90, 200);
  wait(250 + Random(51));
  ClickMouse(90, 200, 1);
  wait(2000 + Random(51));

  logCheck;

  //select logs
  MoveMouse(667, 252);
  wait(500 + Random(51));
  ClickMouse(667, 252, 1);
  wait(250 + Random(51));

  //use logs with tinderbox
  MoveMouse(581, 252);
  wait(500 + Random(51));
  ClickMouse(581, 252, 1);
  wait(6500 + Random(51));

  chatboxCheck;

  ClickTab('skills');

  ClickNPC('Survival Expert');

  for i := 0 to 0 do //repeat 2 times
    clickHereToContinue;

  ClickTab('inventory');

  //Click net fishing spot
  MoveMouse(189, 320);
  wait(250 + Random(51));
  ClickMouse(189, 320, 1);
  wait(2000 + Random(51));

  fishCheck;

  //use shrimp with fire
  MoveMouse(267, 97);
  wait(250 + Random(51));
  ClickMouse(267, 97, 1);
  wait(7000 + Random(51));

  chatboxCheck;

  //1st shrimp always burns
  //>=2nd shrimp always cooks

  //click net fishing spot
  MoveMouse(256, 313);
  wait(2000 + Random(51));
  ClickMouse(256, 313, 1);
  wait(500 + Random(51));

  fishCheck;

  //use shrimp with fire
  MoveMouse(267, 97);
  wait(250 + Random(51));
  ClickMouse(267, 97, 1);
  wait(5000 + Random(51));

  chatboxCheck;

  //click by west fence
  MoveMouse(597, 122);
  wait(250 + Random(51));
  ClickMouse(597, 122, 1);
  wait(10000 + Random(51));

  //click fence
  MoveMouse(238, 174);
  wait(250 + Random(51));
  ClickMouse(238, 174, 1);
  wait(2000 + Random(51));

  //click by cook house entrance
  MoveMouse(605, 137);
  wait(250 + Random(51));
  ClickMouse(605, 137, 1);
  wait(12000 + Random(51));

end;

procedure MasterChef;
var
  i:Integer;

begin
  //open door
  MoveMouse(239, 194);
  wait(250 + Random(51));
  ClickMouse(239, 194, 1);
  wait(2000 + Random(51));

  ClickNPC('Master Chef');

  for i := 0 to 3 do //repeat 5 times
    clickHereToContinue;

  //click pot of flour
  MoveMouse(666, 291);
  wait(250 + Random(51));
  ClickMouse(666, 291, 1);
  wait(750 + Random(51));

  //click water
  MoveMouse(625, 291);
  wait(250 + Random(51));
  ClickMouse(625, 291, 1);
  wait(750 + Random(51));

  //click dough
  MoveMouse(623, 289);
  wait(250 + Random(51));
  ClickMouse(623, 289, 1);
  wait(750 + Random(51));

  //use dough with range
  if FindColorTolerance(X, Y, 726705, clientArea, 5) then
  begin
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(3500 + Random(51));
  end

  chatboxCheck;

  //click music tab
  MoveMouse(742, 506);
  wait(250 + Random(51));
  ClickMouse(742, 506, 1);
  wait(2000 + Random(51));

  //walk to cook exit
  //we can just use color here
  //because we know you are on either 2 spots
  //in front of the range
  if FindColorTolerance(X, Y, 238, 624, 70, 646, 82, 5) then
  begin
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(7000 + random(51));
  end;

  //click exit door
  MoveMouse(241, 182);
  wait(250 + Random(51));
  ClickMouse(241, 182, 1);
  wait(2500 + Random(51));

  ClickTab('playerControls');

  //click run
  MoveMouse(618, 469);
  wait(250 + Random(51));
  ClickMouse(618, 469, 1);
  wait(750 + Random(51));

  //run north
  MoveMouse(636, 41);
  wait(250 + Random(51));
  ClickMouse(636, 41, 1);
  wait(7000 + Random(51));

  //run north
  MoveMouse(666, 43);
  wait(250 + Random(51));
  ClickMouse(666, 43, 1);
  wait(7000 + Random(51));

  //run east
  MoveMouse(689, 103);
  wait(250 + Random(51));
  ClickMouse(689, 103, 1);
  wait(7000 + Random(51));

end;

procedure QuestGuide;
var
  i:Integer;

begin
  //click entrance door
  MoveMouse(268, 184);
  wait(250 + Random(51));
  ClickMouse(268, 184, 1);
  wait(2000 + Random(51));

  //move south to show entire walkabe area of npc
  MoveMouse(645, 120);
  wait(250 + Random(51));
  ClickMouse(645, 120, 1);
  wait(2000 + Random(51));

  ClickNPC('Quest Guide');

  ClickTab('questTab');

  ClickNPC('Quest Guide');

  for i := 0 to 3 do //repeat 5 times
    clickHereToContinue;

  //Find ladder, click close to
  if FindColorTolerance(X, Y, 8022, 640, 107, 671, 138, 5) then
  begin
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(5000 + Random(51));
  end;

  //click ladder
  MoveMouse(275, 230);
  wait(250 + Random(51));
  ClickMouse(275, 230, 1);
  wait(2500 + Random(51));
end;

procedure MiningInstructor;
var
  i:Integer;
  prospect := BitmapFromString(29, 11, 'meJy1kcENgEAIBOnOBvzafxmnkW' +
        'QlA+gHyT1gSJaDXeuJbT+mngua2ayyZJX/JOv57BHsDnH8v4Tg3oq' +
        'lNCPHIC+jcuQKwLwFBpXnylt098z83QVsMSXbOfUp2xkBv8RxVexV' +
        'QrTg10VOIuu3lw==');

begin
  //walk south
  MoveMouse(616, 157);
  wait(250 + Random(51));
  ClickMouse(616, 157, 1);
  wait(5000 + Random(51));

  //click yellow in minimap to get closer to npc
  if FindColorTolerance(X, Y, 60909, minimapArea, 0) then
  begin
    writeln('Moving closer to NPC');
    MoveMouse(X + 1, Y + 1);
    wait(250 + Random(51));
    ClickMouse(X + 1, Y + 1, 1);
    wait(5000 + Random(51));
  end;

  ClickNPC('Mining Instructor');

  for i := 0 to 1 do //repeat 3 times
    clickHereToContinue;

  chatboxCheck;

  ClickTab('playerControls');

  //up the brightness
  //color finding here is harder
  MoveMouse(711, 305);
  wait(250 + Random(51));
  ClickMouse(711, 305, 1);
  wait(500 + Random(51));

  //right-click tin rock
  if FindColorTolerance(X, Y, 8092806, clientArea, 5) then
  begin
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 0);
    wait(500 + Random(51));
  end;

  //click prospect
  if FindBitmapToleranceIn(prospect, X, Y, clientArea, 5) then
  begin
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(10000 + Random(51));
  end;

  //walk east; closer to detect copper rock
    MoveMouse(680, 115);
    wait(250 + Random(51));
    ClickMouse(680, 115, 1);
    wait(5000 + Random(51));

  //right-click copper rock
  if FindColorTolerance(X, Y, 4216690, clientArea, 5) then
  begin
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 0);
    wait(500 + Random(51));
  end;

  //click prospect
  if FindBitmapToleranceIn(prospect, X, Y, clientArea, 5) then
  begin
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(10000 + Random(51));
  end;

  FreeBitmap(prospect);

  //click yellow in minimap to get closer to npc
  if FindColorTolerance(X, Y, 60909, minimapArea, 0) then
  begin
    writeln('Moving closer to NPC');
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(5000 + Random(51));
  end;

  ClickNPC('Mining Instructor');

  for i := 0 to 2 do //repeat 4 times
    clickHereToContinue;

  //left-click tin rock
  if FindColorTolerance(X, Y, 8092806, clientArea, 5) then
  begin
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(500 + Random(51));
  end;

  tinOreCheck;
  oreMined:= false;

  //walk east; closer to detect copper rock
    MoveMouse(680, 115);
    wait(250 + Random(51));
    ClickMouse(680, 115, 1);
    wait(5000 + Random(51));

  //left-click copper rock
  if FindColorTolerance(X, Y, 4216690, clientArea, 5) then
  begin
    MoveMouse(X, Y);
    wait(250 + Random(51));
    ClickMouse(X, Y, 1);
    wait(500 + Random(51));
  end;

  copperOreCheck;
end;


//main procedure

procedure startBot;
begin
  if FindColorTolerance(X, Y, 14610138, 551, 114, 568, 129, 5) then
  begin
    wait(38 + Random(372));
    logoutPlayer;
  end;

  wait(2000 + Random(51));
  writeln('Starting VidyaScape Tutorial Island Bot');

  repeat
    wait(5000 + Random(51));
    loginPlayer;
  until(loginScreenDetected = true);
  loginScreenDetected = false;

  setCamera;

  //char design pops up on first login
  //click "accept" or later make randomized deisigns

  setAppearance;

  //accept char design interface
  if FindColorTolerance(X, Y, 49152, clientArea, 0) then
  begin
    MoveMouse(X, Y);
    wait(100 + Random(51));
    ClickMouse(X, Y, 1);
    wait(2000 + Random(51));
  end;

  RuneScapeGuide;
  SurvivalExpert;
  MasterChef;
  QuestGuide;
  MiningInstructor;

end






begin
  setupSRL();

  writeln('Username: ' + user);
  writeln('Password: ' + pass);

  startBot;
end.