Comparar texto

Encontre a diferença entre dois arquivos de texto

Editor live

Recolher inalteradas

Sem quebra de linha

Layout

Nível de detalhe

Realce de sintaxe

Diffchecker Desktop A maneira mais segura de usar o Diffchecker. Obtenha o aplicativo Diffchecker Desktop: seus diffs nunca saem do seu computador!Obter Desktop

Untitled diff

Criado há 11 anosO diff nunca expira

38 remoções

Linhas
Total
Removido

Caracteres
Total
Removido

Para continuar usando este recurso, atualize para Diffchecker Pro Ver preços

292 linhas

43 adições

Linhas
Total
Adicionado

Caracteres
Total
Adicionado

Para continuar usando este recurso, atualize para Diffchecker Pro Ver preços

292 linhas

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.

Diferenças salvas

Texto original

Abrir arquivo

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.

Texto alterado

Abrir arquivo

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.