//       Simba script, go here if u need help http://villavu.com/forum/showthread.php?t=103209                                             //
//  *--        Script by: Ryutoh                 --*  //
//  *--        5/24/2013                         --*  //
//  *--        Barrows Fighter V1                --*  //
//                                                    //

program barrowsfighter;
{$DEFINE SMART}
{$I SRL-OSR/SRL.Simba}
{$i SRL-OSR\SRL\misc\SmartGraphics.simba}

  //Please fill in the configuration below.
  //*I also recommend that you kill the barrows brothers before starting

const      
  //Email or Username
  username = '';

  //Password
  password = '';

  //HP to eat food at
  hpToEat = 60;

  //Teleport out when out of food or if hp drops too low? (Use any teletab)
  teleportOut = 'false'; //(True/False)

  //HP to teleport out at if almost dead?
  hpToTeleAt = 15;

  //Avalible pre-set food types: trout, salmon, tuna, lobster, monkfish, shark.
  foodName = 'shark'; //*Recommend monkfish or sharks.

  //1 top left box, 2 top right, 3 bottom left, 4 bottom right
  trainingmode = 2;

  //Spec weapons avalible: excalibur, dba(dragon battle axe)
  specWeapon = 'excalibur'; //Leave empty if none

  //If you're using spec, fill in main weapon info
  mainWeaponName = 'cimitar'; //Use short part of weapon name
  mainWepColor1 = 858228; //Color info
  mainWepColor2 = 858748;

  //Only right click monsters? Might prevent misclicks of opening doors
  //but averages about 3 - 5k less exp/hour
  rightClickOnly = 'false'; //(True/False)

  //How fast to move the mouse?
  customMouseSpeed = 16; //1-10 slow, 11-20 med, 20+ very fast

  //Use a faster but less accurate method of fighting?
  //Can improve exp rates by about 3 - 5k exp/hour
  //(Works best with fast attacking weapons)
  newFightMethod = 'true'; //(True/False)


//////////////////////////////////////////////////////////////////
var
  X, Y, T, Clicked, teletab, skillwindow, changeSpecTime, blueHitSplat, redHitSplat, dbaDTM, KC, KillsPerHour, TimeGone, lost, totalExp, hitcount, counter, excalDTM : integer;
  detectHitSplat : boolean;
  npcToKill : string;

procedure declarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name        := username;
    Pass        := password;
    Active      := True;
  end;
end;

procedure proggy;
begin
  if not (KC < 1) then
    begin
      SMART_ClearCanvas;
      TimeGone := GetTimeRunning / 1000;
      KillsPerHour := 3600 * KC / TimeGone;

      SMART_DrawText(8, 23, LoginChars, 'Barrows Fighter by Ryutoh', clwhite);
      SMART_DrawText(8, 40, UpChars07, 'Kills per hour around:', clwhite);
      SMART_DrawText(154, 40, UpChars07, '' + IntToStr(KillsPerHour) + ', or ' + IntToStr(KillsPerHour * 180) +' experience/hr', clyellow);

      if (specWeapon = 'excalibur') or (specWeapon = 'dba') then
      begin
        SMART_DrawText(8, 54, UpChars07, 'Spec timer: ', clwhite);
        SMART_DrawText(87, 54, UpChars07, '' + inttostr(TimeFromMark(T) / 1000) + ' / ' + IntToStr(changeSpecTime / 1000) + ' seconds.', clyellow);
      end
    end else
  exit;
end;

procedure findMonster;
begin
    writeln('Monsters lost, looking around.');
    if lost > 10 then
    begin
      sleep(7000 + random(4000));
      logout;
      if (LoggedIn) then
        begin
          RunAway('e', True, 2, 3000);
          sleep(3000 + random(1000))
          logout;
        end;
      writeln('Unable to find monsters after 10 tries, logging out.');
      writeln('Ran for: ' + TimeRunning);
      totalExp := KC * 180;
      writeln('Killcount: ' + IntToStr(KC) + ', thats ' + IntToStr(totalExp) + ' experience!');
      terminatescript;
    end else
    begin
      writeln('No monsters found, spinning.');
      SetAngle(SRL_ANGLE_HIGH);
      makecompass(randomrange(0, 360))
      wait(200 + random(300))
      Inc(lost)
    end;
end;

procedure spec;
begin
if (specWeapon = 'excalibur') or (specWeapon = 'dba') then
  begin
  excalDTM := DTMFromString('mWAAAAHicY2FgYEhlYmDIB+JsIM4B4k9AsUdA/ACIHzOAACMc9zY3MyADLhRZCAYBAKQ4BvM=');
  dbaDTM := DTMFromString('mggAAAHicY2NgYFADYikglgRiHiAWA2IZIE4C4kAgdgPiICAOBmJfBhBgxMAFEjwMXEAWOpbEqhqCIQAAKTMDcw==');
  if (TimeFromMark(T) >= changeSpecTime) then
    begin
    gametab(tab_inv)
    writeln('Time for spec!')
      case (specWeapon) of
        'excalibur':
        if FindDTM(excalDTM, X, Y, MIX1, MIY1, MIX2, MIY2) then
        begin
          MarkTime(T)
          Mouse(X + random(2), Y + random(2), 2, 2, 1);
          wait(500 + random(300))
        end;
        'dba':
        if FindDTM(dbaDTM, X, Y, MIX1, MIY1, MIX2, MIY2) then
        begin
          MarkTime(T)
          Mouse(X + random(2), Y + random(2), 2, 2, 1);
          wait(500 + random(300))
        end;
      end;
      gametab(tab_Combat)
      wait(300)

      if FindColorTolerance(X, Y, 4229183, 700, 417, 712, 427, 20) then
      begin
        wait(100)
        Mouse(647 + random(2), 423 + random(2), 2, 2, 1);
        wait(200 + random(100))
        changeSpecTime := 340000 + random(40000);
      end else
      begin
        writeln('Not ready for spec yet, waiting longer.')
        changeSpecTime := 60000;
      end;

      gametab(tab_inv)
      wait(500)

      if FindObjEx(X, Y, ['ield', mainWeaponName], [mainWepColor1, mainWepColor2], 12, 50, MIX1, MIY1, MIX2, MIY2) then
      begin
        writeln('Wielding main weapon back.')
        Mouse(X + random(2), Y + random(2), 2, 2, 1);
      end else
      begin
        writeln('Something is wrong with main weapon color or name.')
        writeln('Please fix this, or dont use spec.')
        sleep(15000)
        terminatescript;
      end
    end;
  FreeDTM(excalDTM)
  FreeDTM(dbaDTM)
  end
end;

Function attackLeft : boolean;
var
  MonsterTPA, GreenHpTPA : TPointArray;
  MonsterATPA : T2DPointArray;
  MonsterBox : TBox;
  r, i : integer;
begin
  case (npcToKill) of
    'bloodworms':
    begin
      if not FindObjEx(X, Y, ['ttak', 'loodwor'], [1000804, 4103847, 674403, 1206922, 1144980, 1596800], 12, 50, MSX1, MSY1, MSX2, MSY2) then
      begin
        findMonster;
        exit;
      end
    end;

    'rats':  //Not done yet
    begin
    if FindColorsTolerance(MonsterTPA, 7178348, MSX1, MSY1, MSX2, MSY2, 10) then
      begin
        MonsterATPA := SplitTPAEx(MonsterTPA, 10, 10);
        SortATPASize(MonsterATPA, True);
        for i := 0 to high(MonsterATPA) do
        begin
          MonsterBox := GetTPABounds(MonsterATPA[i]);
          if not FindColor(X, Y, 255, MonsterTPA[i].x-12, MonsterTPA[i].y-17, MonsterTPA[i].x+12, MonsterTPA[i].y+17) or not FindColor(X, Y, 65280, MonsterTPA[i].x-12, MonsterTPA[i].y-17, MonsterTPA[i].x+12, MonsterTPA[i].y+17) THEN
              writeln('hp box not found');
          if i = high(MonsterATPA) then
          begin
            writeln('None found');
          end;
        end;
        r := random(length(MonsterTPA));
      end else
      begin
        findMonster;
        exit;
      end
    end;

    'skeletons':
    begin
    end;

  end;
  Clicked := DTMFromString('mWAAAAHicY2FgYNBhZGAwhWIQ+xgDBJ+H4v9oGB0womEQAAC5ewf1');
  writeln('Monster found at: ' + IntToStr(x) + ', ' + IntToStr(y));
  if not IsUpText('oor') then
    begin
      ClickMouse(X, Y, mouse_left);
      wait(50);
      if FindDTM(Clicked, X, Y, MSX1, MSY1, MSX2, MSY2) then
        begin
          makecompass(randomrange(0, 360))
          wait(2500 + random(1050))
          Inc(KC)
          lost := 0;
          FreeDTM(Clicked);
        end else
        begin
          writeln('Miss clicked, attempting to click again.');
          wait(250 + random(50))
          FreeDTM(Clicked);
          attackLeft;
        end;
    end else
    attackLeft;
end;

procedure attackRight;
begin
  case (npcToKill) of
    'bloodworms':
    begin
      if not FindObjEx(X, Y, ['ttak', 'loodwor'], [1000804, 4103847, 674403, 1206922, 1144980, 1596800], 12, 50, MSX1, MSY1, MSX2, MSY2) then
      begin
        findMonster;
        exit;
      end;
    end;

    'rats':
    begin
      if not FindObjEx(X, Y, ['ttak', 'iant', 'rypt', 'at'], [8358276, 6975078, 8358271, 6058844, 7244398, 6190685, 7371120, 9278344, 5136973, 4738632], 3, 50, MSX1, MSY1, MSX2, MSY2) then
      begin
        findMonster;
        exit;
      end;
    end;

    'skeletons':
    begin
    end;
  end;
  ClickMouse(X, Y, mouse_right);
  wait(200+random(100));
  if ChooseOptionMulti(['tta']) then
    begin
      ChooseOptionMulti(['tta']);
      makecompass(randomrange(0, 360))
      wait(2500 + random(1050))
      Inc(KC)
      lost := 0;
    end else
    begin
      writeln('Miss clicked, attempting to click again.');
      attackRight;
    end
end;

procedure attackMonster;
begin
  if not LoggedIn then LoginPlayer;
    if (rightClickOnly = 'true') then
      begin
        attackRight;
      end else
      begin
        case random(5) of
          0..3 : begin attackLeft; end;
          4 : begin attackLeft; end;    //right
        end
      end
end;

procedure antiBan;
begin
  case random(160) of
    0..20: begin hoverskill(skill_strength, false) sleep(random(300)) end;
    21..30: begin hoverskill(skill_hitpoints, false) sleep(random(300))  end;
    31..40: begin hoverskill(skill_attack, false) sleep(random(300)) end;
    41..50: begin hoverskill(skill_defence, false) sleep(random(300)) end;
    51..53: begin hoverskill(skill_range, false) sleep(random(300)) end;
    54..56: begin hoverskill(skill_prayer, false) sleep(random(300)) end;
    57: begin hoverskill(skill_slayer, false) sleep(random(300)) end;
    58: begin hoverskill(skill_woodcutting, false) sleep(random(300)) end;
    59: begin hoverskill(skill_cooking, false) sleep(random(300)) end;
    60: begin hoverskill(skill_fishing, false) sleep(random(300)) end;
    61: begin hoverskill(skill_firemaking, false) sleep(random(300)) end;
    62: begin hoverskill(skill_mining, false) sleep(random(300)) end;
    63..65: begin HoverOnlineFriend; sleep(100 + random(100)) end;
    66:
    begin
      case random(3) of
        1:
        begin
        writeln('Taking short 20 - 50 second break.');
        wait(20000 + random(30000))
        end;
      end
    end;
    //67: begin adjustmousespeed(2, 10, 20) sleep(random(300)) end;
    67..69: begin randomRClick; sleep(random(300)) end;
    70..71: begin hovermovingobject; sleep(random(300)) end;
    72..75: begin  MMouseOffClient('top'); sleep(random(300)) end;
    76..79: begin MMouseOffClient('left'); sleep(random(300)) end;
    80..83: begin MMouseOffClient('right'); sleep(random(300)) end;
    84..87:begin MMouseOffClient('bottom'); sleep(random(300)) end;
    88..89:
    begin
    if FindObjEx(X, Y, ['ttak', 'loodwor'], [1000804, 4103847, 674403, 1206922, 1144980, 1596800], 8, 50, MSX1, MSY1, MSX2, MSY2)  then
      Mouse(X, Y, 5, 5, 0);
      wait(500 + random(500))
      ChooseOptionMulti(['xamine']);
      sleep(random(100))
    end;
    90..100: begin RandomTab(True); makecompass(randomrange(0, 360)) wait(500 + random(300)) end;
    101..110: begin RandomMovement; sleep(random(500)) end;
    111..145: begin makecompass(randomrange(0, 360)) wait(300 + random(100)) end;
    146..147: begin BoredHuman; end;
    148: begin ExamineInv; end;
    149: begin RandomFKeys(True); end;
    150: begin DragRandomInvSlot; end;
    151..160: begin makecompass(randomrange(0, 360)) wait(300 + random(300)) end;
  end
end;

procedure terminate(logoutMessage:string);
begin
  if (logoutMessage = 'food') then
    begin
      writeln('No food found, attempting to logout.');
    end
  else if (logoutMessage = 'teletab') then
    begin
      writeln('Low hp found, attempting to logout.');
    end;
  sleep(7000 + random(4000))
  logout;
  if (LoggedIn) then
  begin
    RunAway('e', True, 2, 3000);
    sleep(3000 + random(1000))
    logout;
  end;
  writeln('Ran for: ' + TimeRunning);
  totalExp := KC * 180;
  writeln('Killcount: ' + IntToStr(KC) + ', thats ' + IntToStr(totalExp) + ' experience!');
  terminatescript;
end;

procedure teleport;
begin
  gametab(tab_inv)
  wait(300 + random (200))
  if gametab(tab_inv) then
    begin
      teletab := DTMFromString('mlwAAAHicY2dgYLBnYmDwA+IAKO0IxGZAbArE14Hyt4D4CRB/AOJPUPopAwgw4sG4ARG6AKj+CEc=');
      if FindDTM(teletab, X, Y, MIX1, MIY1, MIX2, MIY2) then
        begin
          writeln('Teleporting.');
          MouseBox(X, Y, X, Y, mouse_right);
          if ChooseOptionMulti(['rea']) then
            begin
              ChooseOptionMulti(['rea'])
              wait(500)
              FreeDTM(teletab);
            end else
            FreeDTM(teletab);
            teleport;
        end else
        writeln('No teletab found.');
    end
end;

procedure checkHealth;
begin
  if GetSkillInfo('hitpoints', true) <= hpToTeleAt then
    begin
      if (teleportOut = 'true') then
        begin
          teleport;
          terminate('teletab')
        end
    end;
    if GetSkillInfo('hitpoints', true) > hpToEat then
      begin
        case random(6) of
          0:
          begin
            writeln('Random antiban.');
            antiBan;
          end;
        end
      end else
      begin
        gametab(tab_inv)
        wait(300 + random (200))
        if gametab(tab_inv) then
          begin
            case (foodName) of
              'trout':
              if  FindObjEx(X, Y, ['at', 'rout'], [7304076, 8949164, 5593195], 10, 50, MIX1, MIY1, MIX2, MIY2) THEN
              begin
                writeln('Eatting trout.');
                MouseBox(X + 3, Y + 3, X + 3, Y + 3, mouse_left);
                sleep(2000 + random(500))
              end else
              begin
                if (teleportOut = 'true') then
                  begin
                    teleport;
                  end;
                terminate('food');
              end;
              'salmon':
              if  FindObjEx(X, Y, ['at', 'almon'], [1459962, 6912203, 864166], 10, 50, MIX1, MIY1, MIX2, MIY2) THEN
              begin
                writeln('Eatting salmon.');
                MouseBox(X + 3, Y + 3, X + 3, Y + 3, mouse_left);
                sleep(2000 + random(500))
              end else
              begin
                if (teleportOut = 'true') then
                  begin
                    teleport;
                  end;
                terminate('food');
              end;
              'tuna':
              if  FindObjEx(X, Y, ['at', 'una'], [7238282, 8686246, 5527401], 10, 50, MIX1, MIY1, MIX2, MIY2) THEN
              begin
                writeln('Eatting tuna.');
                MouseBox(X + 3, Y + 3, X + 3, Y + 3, mouse_left);
                sleep(2000 + random(500))
              end else
              begin
                if (teleportOut = 'true') then
                  begin
                    teleport;
                  end;
                terminate('food');
              end;
              'lobster':
              if  FindObjEx(X, Y, ['at', 'obster'], [1664960, 1467065, 1200019], 10, 50, MIX1, MIY1, MIX2, MIY2) THEN
              begin
                writeln('Eatting lobster.');
                MouseBox(X + 3, Y + 3, X + 3, Y + 3, mouse_left);
                sleep(2000 + random(500))
              end else
              begin
                if (teleportOut = 'true') then
                  begin
                    teleport;
                  end;
                terminate('food');
              end;
              'monkfish':
              if  FindObjEx(X, Y, ['at', 'onkfish'], [4478822, 2436663, 3293259], 10, 50, MIX1, MIY1, MIX2, MIY2) THEN
              begin
                writeln('Eatting monkfish.');
                MouseBox(X + 3, Y + 3, X + 3, Y + 3, mouse_left);
                sleep(2000 + random(500))
              end else
              begin
                if (teleportOut = 'true') then
                  begin
                    teleport;
                  end;
                terminate('food');
              end;
              'shark':
              if  FindObjEx(X, Y, ['at', 'hark'], [5860483, 7375014, 6584980], 10, 50, MIX1, MIY1, MIX2, MIY2) THEN
              begin
                writeln('Eatting shark.');
                MouseBox(X + 3, Y + 3, X + 3, Y + 3, mouse_left);
                sleep(2000 + random(500))
              end else
              begin
                if (teleportOut = 'true') then
                  begin
                    teleport;
                  end;
                terminate('food');
              end;
            end;
          end;
      end;
end;

procedure isInCombat;
begin
if newFightMethod = ('true') then
  begin
    repeat
    blueHitSplat := DTMFromString('mQwAAAHicY2ZgYOBkZGBgAeL/QPZuID4JxHuAmJm1FI6RASMSBgIA1cUEzA==');
    redHitSplat := DTMFromString('mQwAAAHicY2ZgYPgIxC+A+B0QrwHidUC8C4izGRnhGBkwImEgAAAzRQYp');
    if FindDTM(blueHitSplat, X, Y, 179, 126, 345, 255) or FindDTM(redHitSplat, X, Y, 179, 126, 345, 255) THEN
      begin
        Inc(hitcount)
        Inc(counter)
        //writeln('combat: true '+inttostr(counter)+'');//checking for combat
        detectHitSplat := true;
        wait(200)
        FreeDTM(blueHitSplat)
        FreeDTM(redHitSplat)
      end else
      begin
        Inc(hitcount)
        Dec(counter)
        wait(200)
        //writeln('combat: false '+inttostr(counter)+'');//checking for combat
        FreeDTM(blueHitSplat)
        FreeDTM(redHitSplat)
      end;
    until(hitcount = 4)
    if not (counter <= -1) then
      begin
        proggy;
        checkHealth;
        wait(700 + random(300))
      end else if (counter <= -1) then
      begin
        attackmonster;
      end;
      detectHitSplat := false;
      hitcount := 0;
      counter := 0;
    end else
    if FindColor(X, Y, 255, 213, 117, 305, 185) or FindColor(X, Y, 65280, 213, 117, 305, 185) THEN
    begin
      proggy;
      checkHealth;
      wait(1200 + random(500))
    end else
    begin
      attackmonster;
    end;
end;

procedure failsafes;
begin
skillwindow := DTMFromString('mWAAAAHicY2FgYHjByMDwF4pBbG6gmDwDgn6wowoFowNGNAwCALUWDHM=');
if FindDTM(skillwindow, X, Y, MSX1, MSY1, MSX2, MSY2) then
  begin
    writeln('Skill window found open, attempting to close.');
    MouseBox(X + 3, Y + 3, X + 3, Y + 3, mouse_left);
    FreeDTM(skillwindow)
  end;
FreeDTM(skillwindow)
end;

begin
  declarePlayers;
  SetupSRL();
  ActivateClient;
  writeln('Barrows Fighter by Ryutoh')
  writeln('Currently V1, please report bugs and errors on forum.')
  MarkTime(T)
  changeSpecTime := 1;
  npcToKill := 'bloodworms'; //Still not complete, keep as bloodworms
  repeat
  if (not LoggedIn) then
    begin
      writeln('Logging player in.');
      LogInPlayer;
      setangle(0)
      setrun(true)
      setfightmode(trainingmode)
      gametab(tab_stats)
      writeln('Starting.');
      MouseSpeed := customMouseSpeed;
    end;
    if (LoggedIn) then
    begin
      failsafes;
      spec;
      isInCombat;
    end;
  until(false)
end.