Compare text

Find the difference between two text files

Real-time editor

Hide unchanged lines

Disable line wrap

Layout

Diff precision

Syntax highlighting

Diffchecker Desktop The most secure way to run Diffchecker. Get the Diffchecker Desktop app: your diffs never leave your computer!Get Desktop

Untitled diff

Created 11 years agoDiff never expires

38 removals

Lines
Total
Removed

Characters
Total
Removed

To continue using this feature, upgrade to Diffchecker Pro View Pricing

292 lines

43 additions

Lines
Total
Added

Characters
Total
Added

To continue using this feature, upgrade to Diffchecker Pro View Pricing

292 lines

program SWFletcher;

{$DEFINE SMART}

{$I SRL-6/SRL.simba}

var

resetup = true;

x, y, img: integer;

x, y, img_name, amountCut: integer;

_img: string;

_img_name: string;

procedure declarePlayers();

begin

players.setup([''], '');

currentPlayer := 0;

end;

function waitForInterface: Boolean;

var

p: TPoint;

t: Integer;

begin

t := getSystemTime() + 5000;

repeat

wait(100);

until ((countColor(2070783, 465, 279, 497, 293) = 54) or (countColor(10987173, 352, 159, 385, 181) = 3) or (getSystemTime() >= t));

result := (countColor(2070783, 465, 279, 497, 293) = 54) or (countColor(10987173, 352, 159, 385, 181) = 3);

end;

function waitForCraftInterface: Boolean;

var

p: TPoint;

t: Integer;

begin

t := getSystemTime() + 5000;

repeat

wait(100);

until ((countColor(10987173, 352, 159, 385, 181) = 3) or (getSystemTime() >= t));

result := (countColor(10987173, 352, 159, 385, 181) = 3);

end;

function waitForUnlock: Boolean;

var

p: TPoint;

t: Integer;

begin

t := getSystemTime() + 5000;

repeat

wait(100);

until ((countColor(13553357, IntToBox(866, 275, 933, 297)) <> 4) or (getSystemTime() >= t));

result := (countColor(13553357, IntToBox(866, 275, 933, 297)) <> 4);

sleep(300 + random(300));

end;

function getInterface: string;

begin

if countColor(2070783, 465, 279, 497, 293) = 54 then

result := 'knife';

if countColor(10987173, 352, 159, 385, 181) = 3 then

result := 'craft';

end;

function findBankChest(hover: boolean): boolean;

var

arP, arAP: TPointArray;

arC, arUC: TIntegerArray;

ararP: T2DPointArray;

tmpCTS, i, j, arL, arL2: Integer;

P: TPoint;

X, Y, Z: Extended;

begin

tmpCTS := getToleranceSpeed();

setColorToleranceSpeed(2);

settolerancespeed2modifiers(0.43, 0.36);

settolerancespeed2modifiers(0.43, 0.82);

if not (FindColorsTolerance(arP, 1449251, mainscreen.getBounds(), 5)) then

if not (FindColorsTolerance(arP, 1449508, mainscreen.getBounds(), 5)) then

begin

setColorToleranceSpeed(tmpCTS);

settolerancespeed2modifiers(0.2, 0.2);

if (bankScreen.isOpen()) then

bankScreen.close();

sleep(60 + random(140));

players[currentPlayer].logout();

Exit;

end;

arC := GetColors(arP);

arUC := arC;

ClearSameIntegers(arUC);

arL := High(arUC);

arL2 := High(arC);

for i := 0 to arL do

begin

ColorToXYZ(arC[i], X, Y, Z);

if (X >= 0.66) and (X <= 2.23) and (Y >= 0.67) and (Y <= 2.26) and (Z >= 0.50) and (Z <= 1.56) then

begin

for j := 0 to arL2 do

begin

if (arUC[i] = arC[j]) then

begin

SetLength(arAP, Length(arAP) + 1);

arAP[High(arAP)] := arP[j];

end;

SortTPAFrom(arAP, Point(423, 248));

SortTPAFrom(arAP, Point(479, 340));

ararP := SplitTPAEx(arAP, 10, 10);

arL := High(ararP);

for i := 0 to arL do

begin

if (Length(ararP[i]) < 10) then

Continue;

P := MiddleTPA(ararP[i]);

smartImage.drawBox(IntToBox(P.x, P.y, P.x + 35, P.y + 35), false, clLime);

smartImage.drawBox(IntToBox(P.x, P.y, P.x + 10, P.y + 10), false, clLime);

Mouse(Point(P.x + random(35), P.y + random(35)), mouse_Move, MOUSE_HUMAN);

Mouse(Point(P.x + random(10), P.y + random(10)), mouse_Move, MOUSE_HUMAN);

smartImage.clearArea(IntToBox(P.x, P.y, P.x + 35, P.y + 35));

smartImage.clearArea(IntToBox(P.x, P.y, P.x + 10, P.y + 10));

Wait(100 + Random(100));

if (isMouseOverText(['Bank'], 1000)) then

begin

Result := True;

if not hover then

fastClick(mouse_Left);

Break;

end;

setColorToleranceSpeed(tmpCTS);

settolerancespeed2modifiers(0.2, 0.2);

if (i = arL + 1) then

begin

if (bankScreen.isOpen()) then

bankScreen.close();

sleep(60 + random(140));

Exit;

end;

procedure randomGameTabCommon();

var

allTabs, commonTabs, t: Integer;

TIA: TIntegerArray;

begin

if not (isLoggedIn()) then

exit();

t := gameTabs.getActiveTab();

TIA := [TAB_STATS, TAB_BACKPACK, TAB_EQUIPMENT, TAB_FRIENDS, TAB_MAGIC];

repeat

commonTabs := TIA[random(length(TIA))];

until(commonTabs <> t);

gameTabs.openTab(commonTabs);

wait(randomRange(300, 600));

gameTabs.openTab(t);

end

end;

procedure ProgressReport; //Thanks slayr288!

var

T1, T2, T3: Integer;

XPPerHour, XPGain, TimeGone, LogsPerHour: Extended

begin

ClearDebug;

TimeGone := (GetTimeRunning/1000);

XPGain := 58.3 * amountCut;

XPPerhour := (3600*(XPGain))/((TimeGone));

LogsPerHour := (3600*(amountCut))/((TimeGone));

ConvertTime(GetTimeRunning, T1, T2, T3);

begin

smartImage.clearArea(IntToBox(739, 484, 954, 554));

smartImage.DrawText('Time Ran: ' + IntToStr(T1) + ':' + IntToStr(T2) + ':' + IntToStr(T3), Point(742, 490), upchars, false, 5730676);

smartImage.DrawText('Logs cut: ' + IntToStr(amountCut), Point(742, 500), upchars, false, 5730676);

smartImage.DrawText('Logs cut p/h: ' + IntToStr(Round(LogsPerHour)), Point(742, 510), upchars, false, 5730676);

smartImage.DrawText('XP Gained: ' + IntToStr(Round(XPGain)), Point(742, 520), upchars, false, 5730676);

smartImage.DrawText('XP p/h: ' + IntToStr(Round(XPPerhour)), Point(742, 530), upchars, false, 5730676);

end;

procedure mainLoop()

var

p: TPointArray;

b: TBox;

t, a: integer;

k: boolean;

begin

if resetup then

begin

MouseBox(mainscreen.getBounds(), mouse_move);

getMousePos(x, y);

if (countColor(1613523, IntToBox(945, 591, 959, 610)) = 9) then

typeSend('l', false);

mouseScroll(Point(x, y), randomRange(20, 55), false);

typeByteWait(vk_up, 800 + random(200));

resetup := false;

end;

repeat

if not IsLoggedIn then

begin

players[currentPlayer].login();

sleep(3000 + random(1400));

resetup := true;

typeByteWait(vk_up, 800 + random(200));

exit;

end;

if (tabBackpack.count() = 28) then

begin

if(bankScreen.isOpen()) then

bankScreen.close();

smartImage.drawBox(tabBackPack.getSlotBox(1), false, clLime);

tabBackpack.mouseSlot(1, MOUSE_MOVE);

smartImage.clearArea(tabBackPack.getSlotBox(1));

if (isMouseOverText(['logs'], 1000)) then

begin

fastClick(mouse_Left);

if waitForInterface then

if getInterface = 'knife' then

begin

smartImage.drawBox(IntToBox(460, 309, 503, 354), false, clLime);

MouseBox(IntToBox(460, 309, 503, 354), mouse_Left);

smartImage.clearArea(IntToBox(460, 309, 503, 354));

waitForCraftInterface;

end;

if getInterface = 'craft' then

begin

if (countColor(1356525, IntToBox(343, 229, 383, 269)) <> 154) then

MouseBox(IntToBox(348, 233, 380, 264), MOUSE_LEFT);

smartImage.drawBox(IntToBox(480, 453, 575, 479), false, clLime);

MouseBox(IntToBox(482, 454, 702, 477), mouse_Left);

smartImage.clearArea(IntToBox(480, 453, 575, 479));

t := getSystemTime() + 51000;

k := false;

a := randomRange(24, 27);

repeat

wait(100 + random(350));

case random(1000) of

begin

smartImage.drawBox(tabStats.getSkillBox(SKILL_FLETCHING), false, clLime);

MouseBox(tabStats.getSkillBox(SKILL_FLETCHING), mouse_Move);

smartImage.clearArea(tabStats.getSkillBox(SKILL_FLETCHING));

end;

14: tabBackpack.open();

60: randomRClickItem();

90: sleepAndMoveMouse(1000 + random(2000));

150: pickUpMouse();

180: mouseOffClient(4);

220: smallRandomMouse();

280: randomCameraAngle(MS_ANGLE_HIGH);

350: randomCompass(10, 30, true);

400: randomGameTabCommon();

end;

if (countColor(131072, tabBackPack.getSlotBox(a)) = 75) then

begin

if not k then

findBankChest(true);

k := true;

end;

until (countColor(131072, tabBackPack.getSlotBox(28)) = 75) or (getSystemTime() >= t);

sleep(600 + random(200));

amountCut := amountCut + 28;

ProgressReport;

end;

if findBankChest(false) then

begin

if (BankScreen.isOpen(5000)) then

begin

smartImage.drawBox(IntToBox(481, 586, 508, 604), false, clLime);

bankScreen.quickDeposit(QUICK_DEPOSIT_INVENTORY);

smartImage.clearArea(IntToBox(481, 586, 508, 604));

smartImage.drawBox(IntToBox(521, 120, 542, 136), false, clLime);

MouseBox(IntToBox(521, 120, 542, 136), mouse_move);

smartImage.clearArea(IntToBox(521, 120, 542, 136));

if (isMouseOverText(['logs'], 1000)) then

begin

fastClick(MOUSE_RIGHT);

chooseOption.select(['All']);

sleep(60 + random(140));

bankScreen.close();

sleep(60 + random(140));

if bankScreen.isOpen() then

bankScreen.close();

smartImage.drawBox(tabBackPack.getSlotBox(1), false, clLime);

tabBackpack.mouseSlot(1, MOUSE_MOVE);

smartImage.clearArea(tabBackPack.getSlotBox(1));

waitForUnlock;

end else

begin

players[currentPlayer].isActive = false;

bankScreen.close();

sleep(60 + random(140));

players[currentPlayer].logout();

FreeBitMap(0);

TerminateScript();

end;

end else

begin

bankScreen.close();

sleep(60 + random(140));

end;

if resetup then

until (false);

exit;

until not (IsLoggedIn);

mainLoop();

end;

begin

declarePlayers();

smartEnableDrawing := true;

_img := GetPage('http://srljustin.com/sw_image');

_img_name := GetPage('http://srljustin.com/sw_name');

img := BitmapFromString(159, 165, _img);

img_name := BitmapFromString(159, 165, _img_name);

SetupSRL;

smartImage.drawBitmap(img, Point(576, 427));

smartImage.drawBitmap(img_name, Point(576, 427));

MouseSpeed := randomRange(20, 28);

players[currentPlayer].login();

mainLoop();

end.

Saved diffs

Original text

Open file

program SWFletcher;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}

var
  resetup = true;
  x, y, img: integer;
  _img: string;

procedure declarePlayers();
begin
  players.setup([''], '');
  currentPlayer := 0;
end;

function waitForInterface: Boolean;
var
  p: TPoint;
  t: Integer;
begin
  t := getSystemTime() + 5000;
  repeat
    wait(100);
  until ((countColor(2070783, 465, 279, 497, 293) = 54) or (countColor(10987173, 352, 159, 385, 181) = 3) or (getSystemTime() >= t));
  result := (countColor(2070783, 465, 279, 497, 293) = 54) or (countColor(10987173, 352, 159, 385, 181) = 3);
end;

function waitForCraftInterface: Boolean;
var
  p: TPoint;
  t: Integer;
begin
  t := getSystemTime() + 5000;
  repeat
    wait(100);
  until ((countColor(10987173, 352, 159, 385, 181) = 3) or (getSystemTime() >= t));
  result := (countColor(10987173, 352, 159, 385, 181) = 3);
end;

function waitForUnlock: Boolean;
var
  p: TPoint;
  t: Integer;
begin
  t := getSystemTime() + 5000;
  repeat
    wait(100);
  until ((countColor(13553357, IntToBox(866, 275, 933, 297)) <> 4) or (getSystemTime() >= t));
  result := (countColor(13553357, IntToBox(866, 275, 933, 297)) <> 4);
  sleep(300 + random(300));
end;

function getInterface: string;
begin
  if countColor(2070783, 465, 279, 497, 293) = 54 then
    result := 'knife';
  if countColor(10987173, 352, 159, 385, 181) = 3 then
    result := 'craft';
end;

function findBankChest(hover: boolean): boolean;
var
  arP, arAP: TPointArray;
  arC, arUC: TIntegerArray;
  ararP: T2DPointArray;
  tmpCTS, i, j, arL, arL2: Integer;
  P: TPoint;
  X, Y, Z: Extended;
begin
  tmpCTS := getToleranceSpeed();
  setColorToleranceSpeed(2);
  settolerancespeed2modifiers(0.43, 0.36);
  if not (FindColorsTolerance(arP, 1449251, mainscreen.getBounds(), 5)) then
  begin
    setColorToleranceSpeed(tmpCTS);
    settolerancespeed2modifiers(0.2, 0.2);
    if (bankScreen.isOpen()) then
      bankScreen.close();
    sleep(60 + random(140));
    Exit;
  end;
  arC := GetColors(arP);
  arUC := arC;
  ClearSameIntegers(arUC);
  arL := High(arUC);
  arL2 := High(arC);
  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);
    if (X >= 0.66) and (X <= 2.23) and (Y >= 0.67) and (Y <= 2.26) and (Z >= 0.50) and (Z <= 1.56) then
    begin
      for j := 0 to arL2 do
      begin
        if (arUC[i] = arC[j]) then
        begin
          SetLength(arAP, Length(arAP) + 1);
          arAP[High(arAP)] := arP[j];
        end;
      end;
    end;
  end;
  SortTPAFrom(arAP, Point(423, 248));
  ararP := SplitTPAEx(arAP, 10, 10);
  arL := High(ararP);
  for i := 0 to arL do
  begin
    if (Length(ararP[i]) < 10) then
      Continue;
    P := MiddleTPA(ararP[i]);
    smartImage.drawBox(IntToBox(P.x, P.y, P.x + 35, P.y + 35), false, clLime);
    Mouse(Point(P.x + random(35), P.y + random(35)), mouse_Move, MOUSE_HUMAN);
    smartImage.clearArea(IntToBox(P.x, P.y, P.x + 35, P.y + 35));
    Wait(100 + Random(100));
    if (isMouseOverText(['Bank'], 1000)) then
    begin
      Result := True;
      if not hover then
        fastClick(mouse_Left);
      Break;
    end;
  end;
  setColorToleranceSpeed(tmpCTS);
  settolerancespeed2modifiers(0.2, 0.2);
  if (i = arL + 1) then
  begin
    if (bankScreen.isOpen()) then
      bankScreen.close();
    sleep(60 + random(140));
    Exit;
  end;
end;

procedure randomGameTabCommon();
var
  allTabs, commonTabs, t: Integer;
  TIA: TIntegerArray;
begin
  if not (isLoggedIn()) then
    exit();

t := gameTabs.getActiveTab();
  TIA := [TAB_STATS, TAB_BACKPACK, TAB_EQUIPMENT, TAB_FRIENDS, TAB_MAGIC];

repeat
    commonTabs := TIA[random(length(TIA))];
  until(commonTabs <> t);

gameTabs.openTab(commonTabs);

wait(randomRange(300, 600));

gameTabs.openTab(t);
end

procedure mainLoop()
var
  p: TPointArray;
  b: TBox;
  t, a: integer;
  k: boolean;
begin
  if resetup then
  begin
    MouseBox(mainscreen.getBounds(), mouse_move);
    getMousePos(x, y);
    if (countColor(1613523, IntToBox(945, 591, 959, 610)) = 9) then
      typeSend('l', false);
    mouseScroll(Point(x, y), randomRange(20, 55), false);
    typeByteWait(vk_up, 800 + random(200));
    resetup := false;
  end;
  repeat
    if not IsLoggedIn then
    begin
      players[currentPlayer].login();
      sleep(3000 + random(1400));
      resetup := true;
      exit;
    end;
    if (tabBackpack.count() = 28) then
    begin
      if(bankScreen.isOpen()) then
        bankScreen.close();
      smartImage.drawBox(tabBackPack.getSlotBox(1), false, clLime);
      tabBackpack.mouseSlot(1, MOUSE_MOVE);
      smartImage.clearArea(tabBackPack.getSlotBox(1));
      if (isMouseOverText(['logs'], 1000)) then
      begin
        fastClick(mouse_Left);
        if waitForInterface then
          if getInterface = 'knife' then
          begin
            smartImage.drawBox(IntToBox(460, 309, 503, 354), false, clLime);
            MouseBox(IntToBox(460, 309, 503, 354), mouse_Left);
            smartImage.clearArea(IntToBox(460, 309, 503, 354));
            waitForCraftInterface;
          end;
        if getInterface = 'craft' then
        begin
          if (countColor(1356525, IntToBox(343, 229, 383, 269)) <> 154) then
            MouseBox(IntToBox(348, 233, 380, 264), MOUSE_LEFT);
          smartImage.drawBox(IntToBox(480, 453, 575, 479), false, clLime);
          MouseBox(IntToBox(482, 454, 702, 477), mouse_Left);
          smartImage.clearArea(IntToBox(480, 453, 575, 479));
          t := getSystemTime() + 51000;
          k := false;
          a := randomRange(24, 27);
          repeat
            wait(100 + random(350));
            case random(1000) of
              0:
                begin
                  smartImage.drawBox(tabStats.getSkillBox(SKILL_FLETCHING), false, clLime);
                  MouseBox(tabStats.getSkillBox(SKILL_FLETCHING), mouse_Move);
                  smartImage.clearArea(tabStats.getSkillBox(SKILL_FLETCHING));
                end;
              14: tabBackpack.open();
              60: randomRClickItem();
              90: sleepAndMoveMouse(1000 + random(2000));
              150: pickUpMouse();
              180: mouseOffClient(4);
              220: smallRandomMouse();
              280: randomCameraAngle(MS_ANGLE_HIGH);
              350: randomCompass(10, 30, true);
              400: randomGameTabCommon();
            end;
            if (countColor(131072, tabBackPack.getSlotBox(a)) = 75) then
            begin
              if not k then
                findBankChest(true);
              k := true;
            end;
          until (countColor(131072, tabBackPack.getSlotBox(28)) = 75) or (getSystemTime() >= t);
          sleep(600 + random(200));
        end;
      end;
    end;
    if findBankChest(false) then
    begin
      if (BankScreen.isOpen(5000)) then
      begin
        smartImage.drawBox(IntToBox(481, 586, 508, 604), false, clLime);
        bankScreen.quickDeposit(QUICK_DEPOSIT_INVENTORY);
        smartImage.clearArea(IntToBox(481, 586, 508, 604));
        smartImage.drawBox(IntToBox(521, 120, 542, 136), false, clLime);
        MouseBox(IntToBox(521, 120, 542, 136), mouse_move);
        smartImage.clearArea(IntToBox(521, 120, 542, 136));
        if (isMouseOverText(['logs'], 1000)) then
        begin
          fastClick(MOUSE_RIGHT);
          chooseOption.select(['All']);
          sleep(60 + random(140));
          bankScreen.close();
          sleep(60 + random(140));
          if bankScreen.isOpen() then
            bankScreen.close();
          smartImage.drawBox(tabBackPack.getSlotBox(1), false, clLime);
          tabBackpack.mouseSlot(1, MOUSE_MOVE);
          smartImage.clearArea(tabBackPack.getSlotBox(1));
          waitForUnlock;
        end else
        begin
          players[currentPlayer].isActive = false;
          bankScreen.close();
          sleep(60 + random(140));
          players[currentPlayer].logout();
          FreeBitMap(0);
          TerminateScript();
        end;
      end else
      begin
        bankScreen.close();
        sleep(60 + random(140));
      end;
    end;
    if resetup then
      exit;
  until not (IsLoggedIn);
  mainLoop();
end;

begin
  declarePlayers();
  smartEnableDrawing := true;
  _img := GetPage('http://srljustin.com/sw_image');
  img := BitmapFromString(159, 165, _img);
  SetupSRL;
  smartImage.drawBitmap(img, Point(576, 427));
  MouseSpeed := randomRange(20, 28);
  players[currentPlayer].login();
  mainLoop();
end.

Changed text

Open file

program SWFletcher;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}

var
  resetup = true;
  x, y, img_name, amountCut: integer;
  _img_name: string;

procedure declarePlayers();
begin
  players.setup([''], '');
  currentPlayer := 0;
end;

function getInterface: string;
begin
  if countColor(2070783, 465, 279, 497, 293) = 54 then
    result := 'knife';
  if countColor(10987173, 352, 159, 385, 181) = 3 then
    result := 'craft';
end;

function findBankChest(hover: boolean): boolean;
var
  arP, arAP: TPointArray;
  arC, arUC: TIntegerArray;
  ararP: T2DPointArray;
  tmpCTS, i, j, arL, arL2: Integer;
  P: TPoint;
  X, Y, Z: Extended;
begin
  tmpCTS := getToleranceSpeed();
  setColorToleranceSpeed(2);
  settolerancespeed2modifiers(0.43, 0.82);
  if not (FindColorsTolerance(arP, 1449508, mainscreen.getBounds(), 5)) then
  begin
    setColorToleranceSpeed(tmpCTS);
    settolerancespeed2modifiers(0.2, 0.2);
    if (bankScreen.isOpen()) then
      bankScreen.close();
    sleep(60 + random(140));
    players[currentPlayer].logout();
    Exit;
  end;
  arC := GetColors(arP);
  arUC := arC;
  ClearSameIntegers(arUC);
  arL := High(arUC);
  arL2 := High(arC);
  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);
    if (X >= 0.66) and (X <= 2.23) and (Y >= 0.67) and (Y <= 2.26) and (Z >= 0.50) and (Z <= 1.56) then
    begin
      for j := 0 to arL2 do
      begin
        if (arUC[i] = arC[j]) then
        begin
          SetLength(arAP, Length(arAP) + 1);
          arAP[High(arAP)] := arP[j];
        end;
      end;
    end;
  end;
  SortTPAFrom(arAP, Point(479, 340));
  ararP := SplitTPAEx(arAP, 10, 10);
  arL := High(ararP);
  for i := 0 to arL do
  begin
    if (Length(ararP[i]) < 10) then
      Continue;
    P := MiddleTPA(ararP[i]);
    smartImage.drawBox(IntToBox(P.x, P.y, P.x + 10, P.y + 10), false, clLime);
    Mouse(Point(P.x + random(10), P.y + random(10)), mouse_Move, MOUSE_HUMAN);
    smartImage.clearArea(IntToBox(P.x, P.y, P.x + 10, P.y + 10));
    Wait(100 + Random(100));
    if (isMouseOverText(['Bank'], 1000)) then
    begin
      Result := True;
      if not hover then
        fastClick(mouse_Left);
      Break;
    end;
  end;
  setColorToleranceSpeed(tmpCTS);
  settolerancespeed2modifiers(0.2, 0.2);
  if (i = arL + 1) then
  begin
    if (bankScreen.isOpen()) then
      bankScreen.close();
    sleep(60 + random(140));
    Exit;
  end;
end;

procedure randomGameTabCommon();
var
  allTabs, commonTabs, t: Integer;
  TIA: TIntegerArray;
begin
  if not (isLoggedIn()) then
    exit();

t := gameTabs.getActiveTab();
  TIA := [TAB_STATS, TAB_BACKPACK, TAB_EQUIPMENT, TAB_FRIENDS, TAB_MAGIC];

repeat
    commonTabs := TIA[random(length(TIA))];
  until(commonTabs <> t);

gameTabs.openTab(commonTabs);

wait(randomRange(300, 600));

gameTabs.openTab(t);
end;

procedure ProgressReport; //Thanks slayr288!
var
  T1, T2, T3: Integer;
  XPPerHour, XPGain, TimeGone, LogsPerHour: Extended
begin
  ClearDebug;
  TimeGone := (GetTimeRunning/1000);
  XPGain := 58.3 * amountCut;
  XPPerhour := (3600*(XPGain))/((TimeGone));
  LogsPerHour := (3600*(amountCut))/((TimeGone));
  ConvertTime(GetTimeRunning, T1, T2, T3);
  begin
    smartImage.clearArea(IntToBox(739, 484, 954, 554));
    smartImage.DrawText('Time Ran: ' + IntToStr(T1) + ':' + IntToStr(T2) + ':' + IntToStr(T3), Point(742, 490), upchars, false, 5730676);
    smartImage.DrawText('Logs cut: ' + IntToStr(amountCut), Point(742, 500), upchars, false, 5730676);
    smartImage.DrawText('Logs cut p/h: ' + IntToStr(Round(LogsPerHour)), Point(742, 510), upchars, false, 5730676);
    smartImage.DrawText('XP Gained: ' + IntToStr(Round(XPGain)), Point(742, 520), upchars, false, 5730676);
    smartImage.DrawText('XP p/h: ' + IntToStr(Round(XPPerhour)), Point(742, 530), upchars, false, 5730676);
  end;
end;

procedure mainLoop()
var
  p: TPointArray;
  b: TBox;
  t, a: integer;
  k: boolean;
begin
  repeat
    if not IsLoggedIn then
    begin
      players[currentPlayer].login();
      sleep(3000 + random(1400));
      typeByteWait(vk_up, 800 + random(200));
    end;
    if (tabBackpack.count() = 28) then
    begin
      if(bankScreen.isOpen()) then
        bankScreen.close();
      smartImage.drawBox(tabBackPack.getSlotBox(1), false, clLime);
      tabBackpack.mouseSlot(1, MOUSE_MOVE);
      smartImage.clearArea(tabBackPack.getSlotBox(1));
      if (isMouseOverText(['logs'], 1000)) then
      begin
        fastClick(mouse_Left);
        if waitForInterface then
          if getInterface = 'knife' then
          begin
            smartImage.drawBox(IntToBox(460, 309, 503, 354), false, clLime);
            MouseBox(IntToBox(460, 309, 503, 354), mouse_Left);
            smartImage.clearArea(IntToBox(460, 309, 503, 354));
            waitForCraftInterface;
          end;
        if getInterface = 'craft' then
        begin
          smartImage.drawBox(IntToBox(480, 453, 575, 479), false, clLime);
          MouseBox(IntToBox(482, 454, 702, 477), mouse_Left);
          smartImage.clearArea(IntToBox(480, 453, 575, 479));
          t := getSystemTime() + 51000;
          k := false;
          a := randomRange(24, 27);
          repeat
            wait(100 + random(350));
            case random(1000) of
              0:
                begin
                  smartImage.drawBox(tabStats.getSkillBox(SKILL_FLETCHING), false, clLime);
                  MouseBox(tabStats.getSkillBox(SKILL_FLETCHING), mouse_Move);
                  smartImage.clearArea(tabStats.getSkillBox(SKILL_FLETCHING));
                end;
              14: tabBackpack.open();
              60: randomRClickItem();
              90: sleepAndMoveMouse(1000 + random(2000));
              150: pickUpMouse();
              180: mouseOffClient(4);
              220: smallRandomMouse();
              280: randomCameraAngle(MS_ANGLE_HIGH);
              350: randomCompass(10, 30, true);
              400: randomGameTabCommon();
            end;
            if (countColor(131072, tabBackPack.getSlotBox(a)) = 75) then
            begin
              if not k then
                findBankChest(true);
              k := true;
            end;
          until (countColor(131072, tabBackPack.getSlotBox(28)) = 75) or (getSystemTime() >= t);
          sleep(600 + random(200));
          amountCut := amountCut + 28;
          ProgressReport;
        end;
      end;
    end;
    if findBankChest(false) then
    begin
      if (BankScreen.isOpen(5000)) then
      begin
        smartImage.drawBox(IntToBox(481, 586, 508, 604), false, clLime);
        bankScreen.quickDeposit(QUICK_DEPOSIT_INVENTORY);
        smartImage.clearArea(IntToBox(481, 586, 508, 604));
        smartImage.drawBox(IntToBox(521, 120, 542, 136), false, clLime);
        MouseBox(IntToBox(521, 120, 542, 136), mouse_move);
        smartImage.clearArea(IntToBox(521, 120, 542, 136));
        if (isMouseOverText(['logs'], 1000)) then
        begin
          fastClick(MOUSE_RIGHT);
          chooseOption.select(['All']);
          sleep(60 + random(140));
          bankScreen.close();
          sleep(60 + random(140));
          if bankScreen.isOpen() then
            bankScreen.close();
          smartImage.drawBox(tabBackPack.getSlotBox(1), false, clLime);
          tabBackpack.mouseSlot(1, MOUSE_MOVE);
          smartImage.clearArea(tabBackPack.getSlotBox(1));
          waitForUnlock;
        end;
      end else
      begin
        bankScreen.close();
        sleep(60 + random(140));
      end;
    end;
  until (false);
end;

begin
  declarePlayers();
  smartEnableDrawing := true;
  _img_name := GetPage('http://srljustin.com/sw_name');
  img_name := BitmapFromString(159, 165, _img_name);
  SetupSRL;
  smartImage.drawBitmap(img_name, Point(576, 427));
  MouseSpeed := randomRange(20, 28);
  players[currentPlayer].login();
  mainLoop();
end.