Help with my power cutter

Now on my fourth day of scripting!

Hi guys! - I fixed the original problem, but this script has come a longggg way since then, Im keeping it up for people to have a look at, offer their suggestions, or even use it for themselves :)

This post has sort of evolved into a scripting log of my Powercutter, so check it out!

The edits regard what I am changing to make the script better.

EDIT: Sorted the script out, looked at some tutorials, began to piece together what will eventually be a reliable, undetectable powercutter, It's a bit messy at the moment!

EDIT: I have now put forms into it and it's all peachy, they dont do anything yet, but give it time :) However, I dont know how to make the const change through using the form... if that makes sense?

EDIT: I have now included SRL, as of it yet it serves no purpose, but im going to start experimenting with it, Also made my name at the top a bit snazzy :)

EDIT: Morning all! Third day of scripting; Progress report added, AntiRandoms added, SRL setup, DropLogs added. Things are picking up, but at the moment i have an error :O

EDIT: As my third day of scripting comes to an end, I'v finnaly managed to sort a script out that has a use lol, pick any tree color and put it into the const value, and it will chop that tree, then when the logs are full it will drop them. Pretty simple but im proud of it :)
Im now going to work on making it more human, logging in and out for example, and actually put those nice pretty forms i spent so much time messing around with to use!

EDIT: Touched on some RadialWalking tuts, it seems a really nifty feature, thumbs up to Yakman for the great aid, I even managed to get my character to walk out of the bank :)
I'v also been advised to tidy my script up, and neatness has always been a major concern of mine, so thats a major priority, I wasn't aware there was a strict order of a script, so I looked it up and am working on it now...

EDIT: Standardized it all, it took ages, looks a little sexier now though :)

EDIT: Afternoon my fellow scripters :) Day four of my scripting life, things are looking up! The script works great, but I need to sort out the AntiRandoms, I ended up In Oracle mountain with some of those annoying boxes the old man gives to you... I also need to sort out the forms, now my major priority :) Thanks for all the support guys!

EDIT: Ok the forms now work for the user and password, yay :) Having a bit of trouble with the old enter color on form though... working on it now :)

EDIT: Big thanks to 3Garett3 for explaining how to make the AntiRandom more effective, and explaining findcolortolerance, both of which have been added :D

EDIT: Remapped the forums so they can be used with SRL login, also tidyed up the forum label names etc...

EDIT: Yay, got my first progress report posted below... It's pointed out how much work my Progress reports need! So I'll work on that now... overall really nice though! 305 maple logs... thats about 12k exp :) Im going to take the clicks out because its not nesscary.

Any help will be much appreciated :) This has taken me hours of editing, checking for mistakes, fixing errors, checking tuts, comparing scripts, tidying up, i really respect you guys for all the effort you put in to beat the game :P

SCAR Code:

[]========================================[]
---------------->Progress report<----------------
  Cut 350 logs
---------------------------------------------
  Did 0 Clicks
[]========================================[]
Successfully executed

SCAR Code:

///////////////////////////
////   Power-Cutter    ////
////                   ////
//// A Shadows~Collide ////
////      Script       ////
///////////////////////////

// This script will cut any tree
// you tell it to, use the color
// clicker to pick a large color
// on the tree, then paste it
// into the const section and hit
// run. Ignore the forms for now!

// Start at the log-in page,
// Dont worry, the log-in
// Procedure will get better!


program PowerCutter;
{.include SRL/SRL.scar}

////////////////////////////////
//         Set-up             //
////////////////////////////////

const
  TreeColor = 14448;

///////////////////////////////
//       End of Set-up       //
///////////////////////////////

var
  TreesCut, Clicks, Chop: Integer;

  frmDesign: TForm;
  Title: TLabel;
  User: TLabel;
  Pass: TLabel;
  CharNick: TLabel;
  EditUser: TEdit;
  EditPass: TEdit;
  EditNick: TEdit;
  StartButton: TButton;



procedure ClickStartButton(sender: TObject);
begin
  ClearDebug;
  Writeln('                                       ');
  Writeln('  --- A Shadows~collide Script ---');
  Writeln('                                       ');
  Writeln('  This is my first script.');
  Writeln('  Hopefully it will chop any tree you set the color too!');
  Writeln('  Please post any feedback or suggestions.');
  Writeln('                                       ');
  Writeln('  --- A Shadows~collide Script ---');
  wait(10 + random(800));




  frmDesign.ModalResult := mrOk;
end;

procedure ProgressReport;
begin
  ClearDebug;
  Writeln('[]========================================[]');
  Writeln('---------------->Progress report<----------------');
  Writeln('  Cut ' + IntToStr(TreesCut) + ' logs ' + '    ');
  Writeln('---------------------------------------------');
  Writeln('  Did ' + IntToStr(Clicks) + ' Clicks' + '        ');
  Writeln('[]========================================[]');
end;

procedure DoAntiRandoms;
begin
  FindTalk;
  FindNormalRandoms;
  if (FindFight = true) then
  begin
    RunAwayDirection('N');
    Wait(10000 + random(2000));
    RunBack;
  end;
end;

procedure MainForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 250;
  frmDesign.Top := 114;
  frmDesign.Width := 417;
  frmDesign.Height := 266;
  frmDesign.Caption := 'A Shadows-Collide Script';
  frmDesign.Color := clMonkeyGreen;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  Title := TLabel.Create(frmDesign);
  Title.Parent := frmDesign;
  Title.Left := 24;
  Title.Top := 10;
  Title.Width := 348;
  Title.Height := 22;
  Title.Caption := 'Shadows-Collide Power-Cutter';
  Title.Color := clBtnFace;
  Title.Font.Color := clWindowText;
  Title.Font.Height := -19;
  Title.Font.Name := 'Rockwell Extra Bold';
  Title.Font.Style := [fsBold];
  Title.ParentColor := False;
  Title.ParentFont := False;
  User := TLabel.Create(frmDesign);
  User.Parent := frmDesign;
  User.Left := 25;
  User.Top := 45;
  User.Width := 61;
  User.Height := 19;
  User.Caption := 'Username';
  User.Font.Color := clWindowText;
  User.Font.Height := -16;
  User.Font.Name := 'Times New Roman';
  User.Font.Style := [];
  User.ParentFont := False;
  Pass := TLabel.Create(frmDesign);
  Pass.Parent := frmDesign;
  Pass.Left := 25;
  Pass.Top := 75;
  Pass.Width := 60;
  Pass.Height := 19;
  Pass.Caption := 'Password';
  Pass.Font.Color := clWindowText;
  Pass.Font.Height := -16;
  Pass.Font.Name := 'Times New Roman';
  Pass.Font.Style := [];
  Pass.ParentFont := False;
  CharNick := TLabel.Create(frmDesign);
  CharNick.Parent := frmDesign;
  CharNick.Left := 25;
  CharNick.Top := 105;
  CharNick.Width := 121;
  CharNick.Height := 19;
  CharNick.Caption := 'Character nickname';
  CharNick.Font.Color := clWindowText;
  CharNick.Font.Height := -16;
  CharNick.Font.Name := 'Times New Roman';
  CharNick.Font.Style := [];
  CharNick.ParentFont := False;
  EditUser := TEdit.Create(frmDesign);
  EditUser.Parent := frmDesign;
  EditUser.Left := 205;
  EditUser.Top := 45;
  EditUser.Width := 121;
  EditUser.Height := 21;
  EditUser.ParentShowHint := False;
  EditUser.ShowHint := True;
  EditUser.TabOrder := 8;
  EditUser.Text := 'Enter Username';
  EditPass := TEdit.Create(frmDesign);
  EditPass.Parent := frmDesign;
  EditPass.Left := 205;
  EditPass.Top := 75;
  EditPass.Width := 121;
  EditPass.Height := 21;
  EditPass.ParentShowHint := False;
  EditPass.ShowHint := True;
  EditPass.TabOrder := 9;
  EditPass.Text := 'Enter Password';
  EditNick := TEdit.Create(frmDesign);
  EditNick.Parent := frmDesign;
  EditNick.Left := 205;
  EditNick.Top := 105;
  EditNick.Width := 121;
  EditNick.Height := 21;
  EditNick.TabOrder := 10;
  EditNick.Text := '3 letters of user, in order';
  StartButton := TButton.Create(frmDesign);
  StartButton.Parent := frmDesign;
  StartButton.Left := 160;
  StartButton.Top := 160;
  StartButton.Width := 75;
  StartButton.Height := 25;
  StartButton.Caption := 'StartButton';
  StartButton.TabOrder := 11;
  StartButton.OnClick := @ClickStartButton;

end;

procedure LoadForm;
var
  V: TvariantArray;
begin
  Setarraylength(V, 0);
  ThreadSafeCall('MainForm', V);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure ShowFormModal2;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure DeclarePlayers;
begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := EditUser.Text;
  Players[0].Pass := EditPass.Text;
  Players[0].Nick := EditNick.Text;
  Players[0].Active := True

end;

procedure CutTheTree;
begin
  repeat;
    wait(1000 + random(500));
    if FindColorSpiralTolerance(x, y, TreeColor, 3, 3, 514, 338, 5) then
    begin
      MMouse(x, y, 5, 8);
      Wait(50 + random(25));
      if (IsUpText('hop')) then
      begin
        Wait(200 + random(100));
        Mouse(x, y, 1, 1, true);
        Wait(500 + random(500));
        DoAntiRandoms;
      end;
    end;
    Wait(3000 + random(500));
    DoAntiRandoms;
    TreesCut := TreesCut + 1;
  until (InvFull);
end;


procedure DropLogs;
begin
  wait(100 + random(50));
  wait(2000 + random(1000));
  dropto(2, 28);
  wait(100 + random(50));

end;

begin
  SetupSRL;
  LoadForm;
  ShowFormModal2;
  DeclarePlayers;
  repeat
    ActivateClient;
    LoginPlayer;
    HighestAngle;
    CutTheTree;
    DropLogs;
    ProgressReport;
  until (False)
end.

Many thanks!

- Shadows-Collide -

It's not finding your bitmap. Try making a smaller bitmap, or just use color finding and IsUpText to check if your on the tree if you can't get the bitmap to work.

Hey, thanks for the reply, because im new I havn't come across those functions yet, could you explain them a little more please, and possibly give some examples? Thanks :)

- Shadows-collide -

also, dont use movemousesmooth and clickmouse, instant bannage. Learn the SRL versions.

Ahhh, what are the SRL versions?

Check out my tut (Links in sig) Things the beginner tuts don't teach you. Read the first chapter on learning those functions. It will definately help you make a good color clicker (like clicking on the tree and checking for up text like I said).

Thank you :) New problem though! Check the orginal post :) Thankss Y3w!

- Shadows-Collide -

I would suggest using tolerance for finding the colors. FindColorSpiralTolerance would work with a tolerance of 5 or so. Maybe a bit less. Umm, Put more standards into everything. It is better than some, but still really flat, i could fix it if you want. It looks pretty good for a first script. Keep it up.

Thanks very much man, I'v kept the edits up so people can see the progress and hard work I'm putting into this bad boy :) I'v started to touch on radialwalk as well now, checking out some tuts, I even got my character to walk out of the bank towards some trees :)

I fixed the script now and it works pretty well, the forms are still useless apart from the start button hehe, what do you mean more standards? As in the neatness of it all?

Many thanks,

Ya, they make it easier to read. Like indents where they should be and stuff. They look better this version though :) Good job, keep it up.

Good script! I like how you added forms( I still can't figure them out). One suggestion is put this in the first script section( you can get more help). For only your third day you are doing well so keep up the hard work.

Sweet, all good responses so far thanks guys :)
Ok I can use RadialWalk now, but not RoadRadialWalk, I cant get it work for some reason lol, I'm going to try and incorperate that next once the forms actually do something, other than start the script!

I left it on for a while and got 1-15 woodcutting before Mysterious old man and his pesky boxes turned up, Chars now on Oracle mountain lol... Nothing my good friend Home teleport wont fix :)

Ill keep it updated.

Ya, but maybe if you added antirandoms into your script, then it would solve the boxes. Its good that it is working right now for you. I really hope you get the forms working, I'm still not great with them.

EDIT: Also, i would still like for you to add tolerance to the tree color. It would help it alot, because then you wouldnt have to pick the color every time.

Where abouts shall I put the antirandoms in?
This is my main loop, I think ive got it in the wrong place...

Begin
SetupSRL;
LoadForm;
ShowFormModal2;
LoadBMPS;
Repeat
CutTheTree;
DropLogs;
DoAntiRandoms;
Until(False)
ProgressReport;
End.

Before cutthetree maybe?

SCAR Code:

procedure CutTheTree;
begin
  repeat;
    wait(1000 + random(500));
    if FindColorSpiral{Tolerance}(x, y, TreeColor, 3, 3, 514, 338{,5}) then
    begin
      MMouse(x, y, 5, 8);
      Wait(50 + random(25));
      if (IsUpText('hop')) then
      begin
        Wait(200 + random(100));
        Mouse(x, y, 1, 1, true);
        Wait(500 + Random(500)); // add a wait so the random will show up
        DoAntiRandoms;       // Right after it clicks on the tree.
      end;
    end;
    Wait(3000 + random(500));
    DoAntiRandoms; // After the wait, just to make sure.
    TreesCut := TreesCut + 1;
  until (InvFull);
end;

There. Look at the commented part. Remove the {} things in the finding color, and it will use tolerance, in case you didnt know. It is better to look for the random right away, instead of after every load.

Hey, sick man :) Thats a much better idea, and I finally understand the tolerance thing lol! Big thumbs up on that comment, something so simple has made the script a million times better :D

Ya, always try to use tolerance, because runescape changes the colors around alot.

EDIT

SCAR Code:

Procedure Login;
Begin
If FindColorSpiral(x, y, 0, 3, 3, 514, 338) then
Mouse(465, 284, 5, 5, true)
Wait(500 +random(25))
TypeSend (Edit1.Text);
TypeSend (Edit2.Text);
wait(500 +random(25))
mouse(295, 322,10,10,true)
wait (3000 +random(100))
mouse(438, 360,10,10,true)
end;

I see you have made your own login procedure. If you want, i can help you with the SRL version.

Yeah man that would be great, iv only been doing this for 4 days and even I can tell that log in proc is absoloute wank. I wanna get some bitmaps in so perhaps i could use it for that? Which reminds me i dont need the BMPS or the procedure anymore, im using text up :)

Ya, IsUpText works really well, better than a bitmap of the text too. :p Do you want to use SRL version of multiplayer and shit? It would be pretty tough to make your own multiplayer, I think.

I dont really wanna use multiplayer, Im trying to make a reliable undetectable script for a good account of mine, this is more for learning purposes too :)
Any ideas? :)

Well, In order for antirandoms to work right, you have to have a player nickname. This can be done in two ways, use SRL loginplayer, or make your own declareplayers, and use CreateBitmap or whatever. Your player array would just look like this:

SCAR Code:

Players[0].Name := ''
Players[0].Pass := ''
Players[0].Nick := ''
Players[0].Active := ''

It goes in a procedure called DeclarePlayers; like this:

SCAR Code:

procedure DeclarePlayers;
begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''
  Players[0].Pass := ''
  Players[0].Nick := ''
  Players[0].Active := True

end;

But with your form, you could do:

SCAR Code:

procedure DeclarePlayers;
begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := Edit1.Text;
  Players[0].Pass := Edit2.Text;  
  Players[0].Nick := Edit3.Text;  // make a new part in the form for a nickname. It is 3 consecutive letters in your rsname.
  Players[0].Active := True

end;

Then, when you want to log in, do this:

SCAR Code:

LoginPlayer;

I hope this helps you

Thanks very much man, I guess its really easy to make it multiplayer if I want to as well, Ill try and add this in now :)

Thanks again, youve been a legend :)

Thanks much. I dont know why, but I really enjoy helping you :p. Not that I have anything against you, I just never had the urge to help somebody out this much with a script.

Haha, I guess its because I really want this to work! Ok so I got the new forms (which took longg!) and procedure in there, and its all good and compiles, but it dosn't write anything in for user and pass, I think i need to configure my form again lol!?

[Runtime Error] : Out Of Range in line 114 in script C:\Program Files\SCAR 3.06\includes\srl\srl\core\Login.scar

I checked it out and it's got something to do with player arrays :O

here is a fixed version. The forms look nice by the way. Look at my comments.

SCAR Code:

///////////////////////////
////   Power-Cutter    ////
////                   ////
//// A Shadows~Collide ////
////      Script       ////
///////////////////////////

// This script will cut any tree
// you tell it to, use the color
// clicker to pick a large color
// on the tree, then paste it
// into the const section and hit
// run. Ignore the forms for now!

// Start at the log-in page,
// Dont worry, the log-in
// Procedure will get better!


program PowerCutter;
{.include SRL/SRL.scar}

////////////////////////////////
//         Set-up             //
////////////////////////////////

const
  TreeColor = 3168336;

///////////////////////////////
//       End of Set-up       //
///////////////////////////////

var
  TreesCut, Clicks, Chop: Integer;

  frmDesign: TForm;
  Title: TLabel;
  User: TLabel;
  Pass: TLabel;
  CharNick: TLabel;
  EditUser: TEdit;
  EditPass: TEdit;
  EditNick: TEdit;
  StartButton: TButton;

  {Username, Password: string; this is not needed}

procedure ClickStartButton(sender: TObject);
begin
  ClearDebug;
  Writeln('                                       ');
  Writeln('  --- A Shadows~collide Script ---');
  Writeln('                                       ');
  Writeln('  This is my first script.');
  Writeln('  Hopefully it will chop any tree you set the color too!');
  Writeln('  Please post any feedback or suggestions.');
  Writeln('                                       ');
  Writeln('  --- A Shadows~collide Script ---');
  wait(10 + random(800));

  //Username := EditUser.Text;       not needed
  //Password := EditPass.Text;       not needed


  frmDesign.ModalResult := mrOk;
end;

procedure ProgressReport;
begin
  ClearDebug;
  Writeln('[]========================================[]');
  Writeln('---------------->Progress report<----------------');
  Writeln('  Cut ' + IntToStr(TreesCut) + ' logs ' + '    ');
  Writeln('---------------------------------------------');
  Writeln('  Did ' + IntToStr(Clicks) + ' Clicks' + '        ');
  Writeln('[]========================================[]');
end;

procedure DoAntiRandoms;
begin
  FindTalk;
  FindNormalRandoms;
  if (FindFight = true) then
  begin
    RunAwayDirection('N');
    Wait(10000 + random(2000));
    RunBack;
  end;
end;

procedure MainForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 250;
  frmDesign.Top := 114;
  frmDesign.Width := 417;
  frmDesign.Height := 266;
  frmDesign.Caption := 'A Shadows-Collide Script';
  frmDesign.Color := clMonkeyGreen;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  Title := TLabel.Create(frmDesign);
  Title.Parent := frmDesign;
  Title.Left := 24;
  Title.Top := 10;
  Title.Width := 348;
  Title.Height := 22;
  Title.Caption := 'Shadows-Collide Power-Cutter';
  Title.Color := clBtnFace;
  Title.Font.Color := clWindowText;
  Title.Font.Height := -19;
  Title.Font.Name := 'Rockwell Extra Bold';
  Title.Font.Style := [fsBold];
  Title.ParentColor := False;
  Title.ParentFont := False;
  User := TLabel.Create(frmDesign);
  User.Parent := frmDesign;
  User.Left := 25;
  User.Top := 45;
  User.Width := 61;
  User.Height := 19;
  User.Caption := 'Username';
  User.Font.Color := clWindowText;
  User.Font.Height := -16;
  User.Font.Name := 'Times New Roman';
  User.Font.Style := [];
  User.ParentFont := False;
  Pass := TLabel.Create(frmDesign);
  Pass.Parent := frmDesign;
  Pass.Left := 25;
  Pass.Top := 75;
  Pass.Width := 60;
  Pass.Height := 19;
  Pass.Caption := 'Password';
  Pass.Font.Color := clWindowText;
  Pass.Font.Height := -16;
  Pass.Font.Name := 'Times New Roman';
  Pass.Font.Style := [];
  Pass.ParentFont := False;
  CharNick := TLabel.Create(frmDesign);
  CharNick.Parent := frmDesign;
  CharNick.Left := 25;
  CharNick.Top := 105;
  CharNick.Width := 121;
  CharNick.Height := 19;
  CharNick.Caption := 'Character nickname';
  CharNick.Font.Color := clWindowText;
  CharNick.Font.Height := -16;
  CharNick.Font.Name := 'Times New Roman';
  CharNick.Font.Style := [];
  CharNick.ParentFont := False;
  EditUser := TEdit.Create(frmDesign);
  EditUser.Parent := frmDesign;
  EditUser.Left := 205;
  EditUser.Top := 45;
  EditUser.Width := 121;
  EditUser.Height := 21;
  EditUser.ParentShowHint := False;
  EditUser.ShowHint := True;
  EditUser.TabOrder := 8;
  EditUser.Text := 'Enter Username';
  EditPass := TEdit.Create(frmDesign);
  EditPass.Parent := frmDesign;
  EditPass.Left := 205;
  EditPass.Top := 75;
  EditPass.Width := 121;
  EditPass.Height := 21;
  EditPass.ParentShowHint := False;
  EditPass.ShowHint := True;
  EditPass.TabOrder := 9;
  EditPass.Text := 'Enter Password';
  EditNick := TEdit.Create(frmDesign);
  EditNick.Parent := frmDesign;
  EditNick.Left := 205;
  EditNick.Top := 105;
  EditNick.Width := 121;
  EditNick.Height := 21;
  EditNick.TabOrder := 10;
  EditNick.Text := '3 letters of user, in order';
  StartButton := TButton.Create(frmDesign);
  StartButton.Parent := frmDesign;
  StartButton.Left := 160;
  StartButton.Top := 160;
  StartButton.Width := 75;
  StartButton.Height := 25;
  StartButton.Caption := 'StartButton';
  StartButton.TabOrder := 11;
  StartButton.OnClick := @ClickStartButton;

end;

procedure LoadForm;
var
  V: TvariantArray;
begin
  Setarraylength(V, 0);
  ThreadSafeCall('MainForm', V);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure ShowFormModal2;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure DeclarePlayers;
begin

  HowManyPlayers := 1;  // you cant use 0 players, silly.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := EditUser.Text;
  Players[0].Pass := EditPass.Text;
  Players[0].Nick := EditNick.Text;
  Players[0].Active := True

end;

procedure CutTheTree;
begin
  repeat;
    wait(1000 + random(500));
    if FindColorSpiralTolerance(x, y, TreeColor, 3, 3, 514, 338, 5) then
    begin
      MMouse(x, y, 5, 8);
      Wait(50 + random(25));
      if (IsUpText('hop')) then
      begin
        Wait(200 + random(100));
        Mouse(x, y, 1, 1, true);
        Wait(500 + random(500));
        DoAntiRandoms;
      end;
    end;
    Wait(3000 + random(500));
    DoAntiRandoms;
    TreesCut := TreesCut + 1;
  until (InvFull);
end;


procedure DropLogs;
begin
  wait(100 + random(50));
  wait(2000 + random(1000));
  dropto(2, 28);
  wait(100 + random(50));

end;

begin
  SetupSRL;
  LoadForm;
  ShowFormModal2;
  DeclarePlayers; // This is needed, you will get a runtime error without it.
  repeat
    ActivateClient;
    LoginPlayer;
    CutTheTree;
    DropLogs;
    ProgressReport;
  until (False)
end.