Ghosts powercutter

Here my little powercutter, for now it only powercuts normal trees

Don't have you axe equip

Post progress reports and any bugs you may find


Yes, Its the smart verison of it, if you don't like smart then take out

Code:

Const
 SmartWorld = 152;//World to load
 Members = False;//Members?
 SignedClient = True;//Used signed client?
 HighDetail = False;//Use high detail

and

Code:

 Smart_Server := 152;//World to load?
 Smart_Members := False;//Members?
 Smart_Signed := True;//Signed client?
 Smart_SuperDetail := False;//SMART high detail?

Future Updates:

1) More Failsafes

2) Better cutting procedure

3) Able to cut Willows, Oaks

4) Better ColorFinding

5) Better Dropping procedure

Here the script

Code:

////////////////////////////////////////////////////////////////////////
//////////////Thanks for trying my treecutter///////////////////////////
/////////////Its a work in progress so I'll be adding new stuff it//////
////////////Fill out lines 23-25////////////////////////////////////////
///////////Remember to post report and bug on my thread/////////////////
//////////Enjoy!////////////////////////////////////////////////////////
program GhostsTreeKiller;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}

Var
Loads:integer;

Const
 SmartWorld = 152;//World to load
 Members = False;//Members?
 SignedClient = True;//Used signed client?
 HighDetail = False;//Use high detail?

Procedure DeclarePlayers;
begin
 HowManyPlayers:= 1;
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer:=0;
 Players[0].Name  :='Username';//Username
 Players[0].Pass  :='Password';//Password
 Players[0].Nick  :='ser';//3-4 Letters of your username, no caps or first letter
 Players[0].Active:=True;// Active or Not
end;
/////Don't touch anything past this///////////////
Procedure Antiban;
begin
 if(not(LoggedIn))then
  Exit;
 case random(600) of
  0..10: BoredHuman;
  100..110: HoverSkill('Woodcutting',False);
  200..210: RandomMovement;
  300..310:begin
            Gametab(21+Random(16));
            Wait(1400+Random(1600));
            Gametab(Tab_inv);
           end;
  400..410: PickUpMouse;
  500..510:
   begin
      SetAngle(False);
      Wait(Random(150+Random(400)));
      MakeCompass('E');
      Wait(Random(200+Random(325)));
      MakeCompass('S');
      Wait(Random(400+Random(500)));
      SetAngle(True);
      MakeCompass('N');
    end;
  end;
end;

Procedure FindRandom;
begin
 FindNormalRandoms;
 if FindFight then RunAway('N',True,1,15000);
 LampSkill:='Woodcutting';
end;

Procedure Tag;
begin
 WriteLn('//////////////////////////////////////////////');
 WriteLn('//////////ttttttttttttt///////////////////////');
 WriteLn('/////////ttttttttttttttt//////////////////////');
 WriteLn('/////////ttt  Ghosts ttt//////////////////////');
 WriteLn('/////////ttt  Tree   ttt//////////////////////');
 WriteLn('/////////ttt Killer  ttt//////////////////////');
 WriteLn('/////////ttt         ttt//////////////////////');
 WriteLn('/////////ttttttttttttttt//////////////////////');
 WriteLn('//////////////tttttt//////////////////////////');
 WriteLn('//////////////tttttt//////////////////////////');
 WriteLn('//////////////tttttt//////////////////////////');
 WriteLn('//////////////tttttt//////////////////////////');
 WriteLn('//////////////tttttt//////////////////////////');
 Wait(1000+Random(5000));
 ClearDebug;
 WriteLn('Remember to post your reports Thanks!');
end;

Function Chop: Boolean;
var
x,y, Tries:integer;

begin
 if(not(LoggedIn))then
 Exit;
  SetAngle(True);
  if(FindObj(x,y,'Tree',3232881,30))then
   begin
    Antiban;
    Wait(100+Random(75));
    Mouse(x,y,6,6,False);
    ChooseOption('Chop');
    Wait(2000+Random(1500));
  end;
end;

Procedure Droplog;
var
 i:integer;
begin
 if not(LoggedIn) then
 Exit;
 FindRandom;
 Wait(100+Random(50));
 for i:= 2 to 28 do
  begin
   FindRandom;
   If ExistsItem(i) then
   DropItem(i);
   Loads:=Loads+27;
 end;
end;

Procedure ProgressReport;
begin
 ClearDebug;
 WriteLn('_______Ghosts TreeKiller__________');
 WriteLn('__________________________________');
 WriteLn('Script Ran For: ' + TimeRunning);
 WriteLn('Logs Dropped: ' + IntToStr(Loads));
 WriteLn('__________________________________')
 end;

procedure MainLoop;
begin
Repeat
 FindRandom;
  Chop;
 Antiban;
Until Invfull;
  if Invfull then
   begin
   Droplog;
  ProgressReport;
 end;
end;

begin
 Smart_Server := 152;//World to load?
 Smart_Members := False;//Members?
 Smart_Signed := True;//Signed client?
 Smart_SuperDetail := False;//SMART high detail?
 SetupSRL;
 ClearDebug;
 Tag;
  DeclarePlayers;
  ActivateClient;
 LogInPlayer;
 Repeat
 MainLoop;
 Until(False)
end.

 

does this have a ban rate?

 

reliable?

 

I cant get it working,