Comparar texto

Encuentra la diferencia entre dos archivos de texto

Editor live

Ocultar sin cambios

Sin ajuste de línea

Vista

Nivel de detalle

Resaltado de sintaxis

Diffchecker Desktop La forma más segura de usar Diffchecker. ¡Obtén la app de Diffchecker Desktop: tus diffs nunca salen de tu computadora!Obtener Desktop

Untitled diff

Creado hace 11 añosEl diff nunca expira

38 eliminaciones

Líneas
Total
Eliminado

Caracteres
Total
Eliminado

Para continuar usando esta función, actualice a Diffchecker Pro Ver precios

292 líneas

43 adiciones

Líneas
Total
Añadido

Caracteres
Total
Añadido

Para continuar usando esta función, actualice a Diffchecker Pro Ver precios

292 líneas

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.

Diferencias guardadas

Texto original

Abrir archivo

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 modificado

Abrir archivo

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.