Comparer le texte

Trouver la différence entre deux fichiers texte

Éditeur live

Cacher identiques

Sans retour à la ligne

Vue

Niveau de précision

Coloration syntaxique

Diffchecker Desktop La façon la plus sécurisée d'utiliser Diffchecker. Obtenez l'application Diffchecker Desktop : vos diffs ne quittent jamais votre ordinateur !Obtenir Desktop

Untitled diff

Créé il y a 11 ansLe diff n'expire jamais

38 suppressions

Lignes
Total
Supprimé

Caractères
Total
Supprimé

Pour continuer à utiliser cette fonctionnalité, passez à Diffchecker Pro Voir les prix

292 lignes

43 ajouts

Lignes
Total
Ajouté

Caractères
Total
Ajouté

Pour continuer à utiliser cette fonctionnalité, passez à Diffchecker Pro Voir les prix

292 lignes

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.

Différences enregistrées

Texte d'origine

Ouvrir un fichier

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.

Texte modifié

Ouvrir un fichier

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.