SRL Archive - RS3 Outdated / Broken Scripts

{===================================================================]
[            BobboHobbo's  Edgeville Yew Cutter + Banker            ]
[                                                                   ]
[           NAME        : BH - Edgeville Yew Cutter + Banker        ]
[           WRITER      : BobboHobbo                                ]
[           CATEGORY    : WoodCutting                               ]
[           DESCRIPTION : Cuts and banks yews as Edgeville          ]
[           AUTOCOLOR   : Yes                                       ]
[           SRL Used    : 4.0                                       ]
[           SCAR VERSION: SCAR DIVI 3.12                            ]
[                                                                   ]
[                   More Scripts can be found at                    ]
[                        [url]www.SRL-Forums.com[/url]                         ]
[===================================================================]
[                           Instructions.                           ]
[===================================================================]
[ 1. USE Runescape with Low Detail, Very Bright.                    ]
[ 2. Set your Screen to 32 bit TRUE color.                          ]
[ 3. Setup lines below                                              ]
[ 4. Have your axe in you INVENTORY and spare axes in bank          ]
[ 5. Start in the Southest bank slot in Edgeville Bank              ]
[ 6. Drag the Cross Hair into Runescape and press PLAY!             ]
[===================================================================]
[ Credits to :                                                      ]
[    Sulimon - For the Layout thing above.                          ]
[    Starblaster100 - For the UpdateCord Procedure (Modded by me)   ]
[    Rotflmfwao - For his CountItemDTM Procedure.                   ]
[===================================================================}
program BHEYC;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
const
  ///////////////////////
  // -> SET THESE CONSTS
  ///////////////////////
  NormalMouseSpeed = 9; // Mouse speed.
  SRLStatsID = ''; // SRL Stats ID Number.
  SRLStatsPW = ''; // SRL Stats Password.
  Maxtime = 100000; // Max time per player? (In MILISECONDS)*DOESNT WORK GOOD*
  WaitTime = 10000; // Time after logging out to log back in. (keep at 0 if you dont want this)
var
  x, y: Integer;
  brokenaxedtm, Chopped, Ents, Banked: integer;
  Bank, AxeH, Axe, Yew, Yew1, Logmask, Bankedd: Integer;
  TotalScriptTime,Timer: LongInt;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Integers[1] := 1; //Loads
  Players[0].Active := True;
  Players[0].Pin   := ;

{  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Integers[1] := 1; //Loads
  Players[1].Active := True;
  Players[1].Pin   := 0000;

  Players[2].Name := 'Username';
  Players[2].Pass := 'Password';
  Players[2].Nick := 'Nickname';
  Players[2].Integers[1] := 3; //Loads
  Players[2].Active := True;
  Players[2].Pin   := 0000;

  Players[3].Name := 'Username';
  Players[3].Pass := 'Password';
  Players[3].Nick := 'Nickname';
  Players[3].Integers[1] := 3; //Loads
  Players[3].Active := True;
  Players[3].Pin   := 0000;

}

  //ADD MORE PLAYERS IF YOU WANT.



  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

procedure LoadDtms;
begin
  BrokenAxedtm := BitmapFromString(6, 12, 'z78DA3330200CDC700003' +
    'A2F552A206972CF12EA1AE6B315562EAA2DCCDB80000FF8D5941');
  Bank := DTMFromString('78DA63CC656260886640017FFE30816946289' +
    'F11A42608BF1A00D5010584');
  AxeH := DTMFromString('78DA63B463626078CA8002FAB20519FE03694' +
    '620FE0F048CD640351F18D000231209A42D816A5E115003B2EB36' +
    '0135CE4035D709A8F102AAB941408D0F50CD1D026ABC816A1E105' +
    '0E304547317BF1A000F77106A');
  Yew := DTMFromString('78DA63CC63626078C2800282EC3819FE03694' +
    '620FE0F048CB140354F19D000231209A493816AEE105003B2EB36' +
    '0135E540358F08A82901AA794B404D2E50CD7B026A52816A3E105' +
    '0130754F306BF1A0097FF1192');
  Yew1 := DTMFromString('78DA63CC63626078C2800282EC3819FE03694' +
    '620FE0F048CB140354F19D000231209A493816AEE105003B2EB36' +
    '0135E540358F08A82901AA794B404D2E50CD7B026A52816A3E105' +
    '0130754F306BF1A0097FF1192');
  LogMask := BitmapFromString(19, 14, 'z78DA3330A00E704302067407' +
    'F4B777D4C6A16EE3F0F09D1B5E400B9369E7F2E114D7230100008' +
    'F6836A8');
end;

function CountItemDTM(DTM: Integer): Integer; // From rotflmfwao
var
  i, x, y: Integer;
  TB: Tbox;
begin
  GameTab(4);
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
      if FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
        Inc(Chopped); //EDITED This bit <----


  end;
end;

function CountItemDTM1(DTM: Integer): Integer; // From rotflmfwao
var
  i, x, y: Integer;
  TB: Tbox;
begin
  GameTab(4);
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
      if FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
        Inc(Result);

  end;
end;


//////////////////////////////////////////////////////////
//      >> Symbol Stuff - DONT TOUCH AT ALL!
//////////////////////////////////////////////////////////
//FInds symbol in top part of MM

function GetSymbolColorTopHalfMM(var rx, ry: Integer; Name: string): Integer;
begin
  Result := GetSymbolColorIn(rx, ry, LowerCase(Name), 570, 5, 718, 69);
end;
//FInds symbol in bottom part of MM

function GetSymbolColorBottomHalfMM(var rx, ry: Integer; Name: string): Integer;
begin
  Result := GetSymbolColorIn(rx, ry, LowerCase(Name), 570, 82, 718, 154);
end;
//FInds symbol in bottom part of MM

function FindSymbolB(var rx, ry: Integer; Name: string): Boolean;
begin
  Result := (GetSymbolColorBottomHalfMM(rx, ry, LowerCase(Name)) > 0);
end;
//FInds symbol in top part of MM

function FindSymbolT(var rx, ry: Integer; Name: string): Boolean;
begin
  Result := (GetSymbolColorTopHalfMM(rx, ry, LowerCase(Name)) > 0);
end;

procedure Chop1;
begin
  repeat
    if invfull or not (LoggedIn) then
    begin
      Break;
      Exit;
    end else
     ftwait(1);
     wait(50);
    begin
      case random(150) of
        0: GameTab(4 + Random(12));
        1: Wait2(1000,true);
        2: PickupMouse;
        3: GameTab(1 + Random(12));
        4: GameTab(1 + Random(12));
        5: RandomRClick;
      end;
    end;
  until (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4));
  if (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
  begin
    if FindObjCustom(x, y, ['Yew', 'ew Tree'], [4945777], 5) then
    begin
      Mouse(x, y, 0, 0, false);
      wait(100);
      ChooseOption('Chop');
    end;
  end;
end;

procedure EntFinder;
begin
  if FindEnt(x, y, true) then
  begin
    Chop1;
  end else
    ftwait(1);
  Exit;
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
  end;
end;


///////////////////////////////////////////////////////////////////////////

procedure RunBackBH;
begin
  if not (LoggedIn) then Exit;
  if FindSymbol(x, y, 'tree') then
  begin
    mouse(x, y, 1, 1, true);
    flag;
    Chop1;
  end;
end;

procedure FindRandoms;
var
  WaitTree1: LongInt;
begin
  if (not (LoggedIn)) then
  begin
    Exit;
  end;
  FindFastRandoms;
  FindNormalRandoms;
  EntFinder;
  if (FindFight) then
  begin
    RunTo('S', True)
      Flag;
    MarkTime(WaitTree1)
      repeat
      FindRandoms;
    until TimeFromMark(WaitTree1) > 2000 + Random(3000)
      RunBackBH;
  end;
end;

procedure FindRandoms1;
var
  WaitTree1: LongInt;
begin
  if (not (LoggedIn)) then
  begin
    Exit;
  end;
  FindFastRandoms;
  //FindNormalRandoms;
  EntFinder;
  if (FindFight) then
  begin
    RunTo('S', True)
      Flag;
    MarkTime(WaitTree1)
      repeat
      FindRandoms;
    until TimeFromMark(WaitTree1) > 2000 + Random(3000)
      RunBackBH;
  end;
end;
//////////////////////////////////////////////////////////
//      >> Walking to Yew - Please Dont touch if not needed
//////////////////////////////////////////////////////////

procedure Think;
begin
  if FindSymbol(x, y, 'tree') then
  begin
    Mouse(x, y - 15, 6, 6, true);
    Flag;
  end else
    if not FindSymbol(x, y, 'tree') then
    begin
      Mouse(673, 43, 2, 2, true);
      Flag;
      if FindSymbolT(x, y, 'tree') then
      begin
        mouse(x, y + 9, 3, 3, true);
        FindRandoms1;
        Flag;
      end;
    end;
end;

procedure Think2;
begin
  if RadialWalk(FindDirtRoadColor, 332, 375, 53, 0, 0) then
  begin
    if FindSymbolT(x, y, 'tree') then
    begin
      Mouse(x, y + 15, 1, 1, true);
      Flag;
    end else
      Think;
  end;
end;

procedure WalkToYew;
begin
  case random(2) of
    0: Think2;
    1: Think;
  end;
    Chop1;
    Disguise('Total Banks [' + IntToStr(Banked) + ']');
end;

procedure BankDTM;
begin
  if not (LoggedIn) then Exit;
  if DTMRotated(Bank, x, y, MMx1, MMy1, MMX2, MMY2) then
  begin
    Mouse(x, y, 1, 1, true)
      Flag;
    Exit;
  end else
    if FindSymbol(x, y, 'bank') then
    begin
      Mouse(x, y, 1, 1, true)
        Flag;
      Exit;
    end;
end;
function OpenBankQuietBH(WhichBank: string): Boolean;
var
  TheCounter, dx, dy, tol, Mark2, Mark3: Integer;
  acc, accthres: Extended;
begin
  case WhichBank of
    'feb', 'fwb': TheCounter := BitmapFromString(1, 10, '6C583296897A948779948779736' +
        'C63A59E968C7F6F9686749B8A7685663E');
    // varrock west
    'vwb': TheCounter:= BitmapFromString(10, 1, 'A0997F504A49504A49504A495E4' +
       'F215E4F215E4F215E4F212C250EA0997F');
    // varrock east
    'veb': TheCounter := BitmapFromString(1, 10, '5E4D1589826D88806D88806D867' +
       'F6C9996907C7664847D648C836891876B');
    // draynor and this works too for alkharid
    'akb', 'db', 'eb': TheCounter:= BitmapFromString(12, 1, '584209735C29735C29735C29605' +
       '85558504D60504D58504D58504D58504D58504D605855');
  end;

  MarkTime(Mark3);
  tol := 1;
  accthres := 0.6;
  repeat
    if IsUpTextMulti('ank', 'Bo', 'ot') then
    begin
      GetMousePos(dx, dy);
      Mouse(dx, dy, 0, 0, False);
      if ChooseOption('uickly') then
      begin
        MarkTime(Mark2);
        repeat
          Wait(10);
          if TimeFromMark(Mark2) > 20000 then
          begin
            WriteLn('couldnt find the bank. Exiting');
            FreeBitmap(TheCounter);
            Exit;
          end;
        until BankScreen or (PinScreen);
        Result := True;
        FreeBitmap(TheCounter);
        Exit;
      end;
    end;

    FindDeformedBitmapToleranceIn(TheCounter, dx, dy, MSX1 + 50, MSY1 + 50, MSX2
      - 50, MSY2 - 50, tol, 4, True, acc);
    if (acc >= accthres) then
    begin
      MMouse(dx, dy, 0, 0);
      if IsUpTextMulti('ank', 'Bo', 'ot') then
      begin
        GetMousePos(dx, dy);
        Mouse(dx, dy, 0, 0, False);
        if ChooseOption('uickly') then
        begin
          MarkTime(Mark2);
          repeat
            Wait(10);
            if TimeFromMark(Mark2) > 20000 then
            begin
              WriteLn('couldnt find the bank. Exiting');
              FreeBitmap(TheCounter);
              Exit;
            end;
          until BankScreen or (PinScreen);
        end;
        Result := True;
        FreeBitmap(TheCounter);
        Exit;
      end;
    end;
    Wait(100);
    tol := tol + 4;
    if tol >= 20 then
    begin
      tol := 1;
      accthres := accthres - 0.1;
      if accthres < 0.2 then
      begin
        WriteLn('couldnt find the bank. Exiting');
        FreeBitmap(TheCounter);
        Exit;
      end;
    end;
  until TimeFromMark(Mark3) > 60000;
  FreeBitmap(TheCounter);
end;
function OpenBank13: Boolean;
begin
  if not (LoggedIn) then Exit;
  Makecompass('S');
  OpenBankQuietBH('eb');
    If(PinScreen)Then
    Begin
      InPin(IntToStr(Players[CurrentPlayer].Pin));
      Wait(500+Random(250));
    End else
  if BankScreen then
  begin
    wait(200);
    LoadDTMs;
    FixBank;
    if (FindBitmapMaskTolerance(BrokenAxedtm, x, y, MIX1, MIY1, MIX2, MIY2, 5, 5)) then
    begin
      Mouse(x, y, 1, 1, true);
      wait(1000 + random(100));
      if FindDTM(AxeH, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
        Mouse(x, y, 1, 1, true);
        CloseBank;
        Axe := Axe + 1;
        ReportVars[2] := 1;
        Players[CurrentPlayer].Loc := 'Got new Axe!';

        Exit;
      end else
        if not (FindDTM(AxeH, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Players[CurrentPlayer].Loc := 'You have no spare axes!';
          Nextplayer(false);
          Writeln('No spare broken axes in bank CHANGING PLAYERS');
        end else
          if not BankScreen then
          begin
            Result := False;
            writeln('Player couldnt find the bank');
            Players[CurrentPlayer].Loc := 'Couldnt find the bank, Trying to get back from broken axe';
            Players[CurrentPlayer].Active := False;
            Logout;
            Exit;
          end;
    end;
  end;
end;

procedure WalkToBank;
begin
  if not (LoggedIn) then Exit;
  if FindSymbolB(x, y, 'tree') then
  begin
    mouse(x, y - 10, 3, 3, true);
    setrun(true);
  end;
  if (FindColorTolerance(x, y, FindVarrockRoadColor, MmX1, MmY1, MmX2, MmY2, 2)) then
  begin
    Mouse(x, y, 1, 1, true);
    wait(7500 + random(100));
    flag;
    BankDTM;

  end;
end;

function AxeBroken: boolean;
begin
  if not (LoggedIn) then Exit;
  GameTab(4);
  if (InChat('No you just did not')) or
    (FindBitmapMaskTolerance(BrokenAxedtm, x, y, MIX1, MIY1, MIX2, MIY2, 5, 5)) then
  begin
    Writeln('Dang thing smashed my axe!');
    Result := True;
  end else
    Result := False;
end;

procedure HandleBrokenAxe;
begin
  WalkToBank;
  ftwait(1);
  OpenBank13;
  WalkToYew;
end;


procedure changetree;
begin
Disguise('Total Banks [' + IntToStr(Banked) + ']');
  if not (LoggedIn) then Exit;
  writeln('at top');
  if FindSymbolT(x, y, 'tree') then
  begin
    mouse(x, y + 9, 3, 3, true);
    FindRandoms1;
    Flag;
    chop1;
    Exit;
  end else
    writeln('at bottom tree');
  if FindSymbolB(x, y, 'tree') then
  begin
    mouse(x, y - 9, 3, 3, true);
    Flag;
    Chop1;
  end;
end;

function Check: boolean;
var
  WaitTree: LongInt;
begin
  if not (LoggedIn) then Exit;
  if (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
  begin
    result := true;
    EntFinder;
    exit;
  end else
    result := false;
  if Result = false then
  begin
    ChangeTree;
    MarkTime(WaitTree)
      repeat
      if (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
      begin
        Break;
        Exit;
        FindRandoms;
      end else
        FindRandoms;
      Wait(100);
    until TimeFromMark(WaitTree) > 8000 + Random(3000);
  end;
end;


procedure AntiBan1;
begin
  case random(13) of
    0: GameTab(4 + Random(12));
    1: GameTab(2 + Random(12));
    2: Wait2(1000,true);
    3: GameTab(2 + Random(12));
    4: GameTab(2 + Random(12));
    5: GameTab(2 + Random(12));
  end;
end;

procedure AntiBan;
var
  B: Integer;
begin
  if not (LoggedIn) then Exit;
  if (AxeBroken = True) then
    HandleBrokenAxe;
  MouseSpeed := 6 + random(8);
  repeat
    MMouse(x - 312 + random(1100), y + random(400), 2, 2);
    Wait(1500 + random(1000));
    EntFinder;
    FindRandoms;
    b := B + 1;
    Disguise('Done [' + IntToStr(Banked) + '/' + IntToStr(Players[CurrentPlayer].Integers[1]) + '] Loads');
  until (b >= 3 + random(6))or Invfull or not (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 2));
  if not (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
    MouseSpeed := NormalMouseSpeed;
  if (b >= 3) then
  begin
    MouseSpeed := NormalMouseSpeed;
    Antiban1;
    EntFinder;
  end else
    MouseSpeed := NormalMouseSpeed;
  Exit;
end;

function UpdateCoords(var cx, cy: Integer; ax, ay, TheColor, Tol: Integer): Boolean;
var
  Counter: integer;
begin
  if not (LoggedIn) then Exit;
  //GetMousePos(ax, ay);
  if (ax < 20) then ax := 20; if (ay < 20) then ay := 20;
  while (FlagPresent) and (FindColorSpiralTolerance(cx, cy, TheColor, ax - 20, ay - 20, ax + 20, ay + 20, Tol)) do
  begin
    ax := cx; ay := cy;
    Wait(10);
    FindRandoms;
    Check;
    EntFinder;
    if invfull then
      Exit;
    Check;
    EntFinder;
    if (AxeBroken = True) then
      HandleBrokenAxe;
  end;
  if (ax < 10) then ax := 10; if (ay < 10) then ay := 10;
  while (FindColorSpiralTolerance(cx, cy, TheColor, ax - 10, ay - 10, ax + 10, ay + 10, Tol)) and (Counter < 100) do
  begin
    ax := cx; ay := cy;
    Counter := Counter + 1;
    Wait(10);
    FindRandoms;
    EntFinder;
    Antiban;
    if invfull then
      Exit;
    Check;
    if (AxeBroken = True) then
      HandleBrokenAxe;
  end;
  Result := FindColorSpiralTolerance(cx, cy, TheColor, ax - 10, ay - 10, ax + 10, ay + 10, Tol);
  if (not Result) then
  else
    EntFinder;
  FindRandoms;
  EntFinder;
  if invfull then
    Exit;
  Check;
  AntiBan;
  EntFinder;
  if (AxeBroken = True) then
    HandleBrokenAxe;
end;

procedure Chopping;
begin
  if invfull then
    Exit;
  Players[CurrentPlayer].Loc := 'At tree, cutting.';
  repeat
    if not (LoggedIn) then Exit;
    if invfull then Exit;
    EntFinder;
    Check;
    ftwait(1);
    Entfinder;

    AntiBan;
    Check;
    if (AxeBroken = True) then
    begin
      Break;
      HandleBrokenAxe;
    end;
  until (Invfull) or not (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 2));
end;

function OpenBank12: Boolean;
begin
  if OpenBankQuietBH('eb') then
  begin
  If(PinScreen)Then
    Begin
      InPin(IntToStr(Players[CurrentPlayer].Pin));
      Wait(500+Random(250));
    End else
      If(BankScreen)Then
    Begin
  wait(200);
  FixBank;
  CountItemDTM(Yew);
  ReportVars[1] := CountItemDTM1(Yew);
  Deposit(2, 28, 2);
  CloseBank;
  Players[CurrentPlayer].Loc := 'Bank, Just banked.';
  Banked := Banked + 1;
  Bankedd := Bankedd + 1;
  Wait(1);
  ReportVars[0] := 1;

  SendSRLReport;
  Disguise('Done [' + IntToStr(Banked) + '/' + IntToStr(Players[CurrentPlayer].Integers[1]) + '] Loads');

  Exit;
  end else
  if not BankScreen then
  begin
    Result := False;
    Writeln('Player couldnt find the bank');
    Players[CurrentPlayer].Active := False;
    Logout;
    end;
  end;
end;

procedure Setup;
begin
  Players[CurrentPlayer].Loc := 'In setup';
  Makecompass('S');
  HighestAngle;
  SetRun(false);
end;

procedure PlayerStats; // From Fawki!

var Active: string;
var i: Integer;
begin
  if Players[CurrentPlayer].Active = True then
    Active := 'True'
  else
    Active := 'False';
  WriteLn('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
  Writeln('  Name         : ' + Players[CurrentPlayer].Name);
  Writeln('  Player       : ' + inttostr(CurrentPlayer));
  Writeln('  Active       : ' + Active);
  Writeln('  Location     : ' + Players[CurrentPlayer].loc);
  WriteLn('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');

  for I := 0 to HowManyPlayers - 1 do
  begin
    if Players[i].Active = True then Active := 'True' else Active := 'False';
    WriteLn(' ' + Inttostr(I) + ' : ' + Players[i].Name + ' := ' + Active);
  end
    WriteLn('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
end;

//----------------------------------------------------------------------------//

procedure ProgressReport;
begin
  begin
    ClearDebug;
    SRLRandomsReport;
    WriteLn('<============== Progress Report ===============>');
    Writeln('Script Worked for ' + TimeRunning);
    Writeln('Banked ' + IntToStr(Banked) + ' load[s].');
    Writeln('Chopped ' + IntToStr(Chopped) + ' Log[s].');
    Writeln('Ents Broke the Axe ' + IntToStr(Axe) + ' Time[s].');
    writeln('Avoided Ents ' + IntToStr(Ents) + ' Time[s].');
    writeln('Banked ' + IntToStr(Axe) + ' Broken axes and got a new one.');
    Disguise('Done [' + IntToStr(Banked) + '/' + IntToStr(Players[CurrentPlayer].Integers[1]) + '] Loads');

    PlayerStats;

  end;
end;

begin
  SetupSRL;
  ScriptID := '382';
  SRLID := SRLStatsID;
  SRLPassword := SRLStatsPW;
  activateclient;
  wait(1000);
  declareplayers;
  if (not (loggedIn)) then
  begin
    LoginPlayer;
  end;
  LoadDTMs;
  repeat
   Repeat
    MarkTime(TotalScriptTime);
    repeat
      Setup;
      walktoyew;
      repeat
        chopping;
        ProgressReport;
        EntFinder;
        check;
      until (invfull) or (not (loggedIn));
      if Invfull then
        walktobank;
      Openbank12;
      ProgressReport;
     if (not (loggedIn)) then
     Nextplayer(false);
     Until (TimeFromMark(TotalScriptTime) > Maxtime);
     if(TimeFromMark(TotalScriptTime) > Maxtime) then
    Disguise('Times up! Changing Players');
    Players[CurrentPlayer].Loc := 'Bank? Times up.';
    Logout;
    MarkTime(Timer);
    Repeat
    Disguise('Waiting for timer.. ');
    Until (TimeFromMark(Timer) > WaitTime);
    if (TimeFromMark(Timer) > WaitTime)then
    NextPlayer(true);
    Bankedd :=0;

    until (Banked >= Players[CurrentPlayer].Integers[1]) or (not (loggedIn));
    if (Banked >= Players[CurrentPlayer].Integers[1]) then
    begin
      writeln('Loads done, changing player');
      Disguise('Loads Done, Changing Player');
      Players[CurrentPlayer].Loc := 'Bank? Loads done.';
      Logout;
          MarkTime(Timer);
    Repeat
    Disguise('Waiting for timer.. ');
    Until (TimeFromMark(Timer) > WaitTime);
    if (TimeFromMark(Timer) > WaitTime)then
    NextPlayer(true);
    Bankedd :=0;
      end;

    if (not (loggedIn)) then
    begin
      Nextplayer(false);
      Bankedd := 0;
    end;
    ProgressReport;
  until (false);
end.