Powercutter

Hey, I'm am Ghostman On the Srl forums
Just wanted to post one of my scripts on Sythe.

Here it is;

From the title you should know its a powercutter;
Has Antiban and Antirandoms
Uses Failsafes
Has Axefinder
Now Uses S.M.A.R.T
Powercuts Trees, Dead Trees, Oaks, Willows

There Will be more updates
Enjoy


To Download:http://www.srl-forums.com/forum/first-script-t35902.html?p=437336

This is Powercutter 3.0 S.M.A.R.T

Code:

program Powercutter;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL/SRL.scar}

var
  x,y:integer;
  item:integer;
  time:integer;
  Loads:integer;
  EquipAxe: Boolean;
/////////////////To change color, change the name on line 140, Just the name in the code//
///Use the Const names listed here to change what it is going to cut///////
const
  Normal = 6001801;// Normal Tree
  oak    = 1518376;// Oak Tree
  dead   = 3161415;// for dead tree (Best place to cut is Draynor Manor
  willow = 3561568;// Willow Tree

  WaitPerTree = 2000;
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////


procedure Signature;
begin
  ClearDebug;
  writeln('Ghosts Powercutter Enjoy!');
  writeln('__________________       ');
  writeln('|       | |       |      ');
  writeln('|I See  | | You!  |      ');
  writeln('|_______| |_______|      ');
  writeln('        | |              ');
  writeln('       /   \             ');
  writeln('       |___|             ');
  writeln('  \              /       ');
  writeln('   \____________/        ');
  wait(200 + random(400));
 end;
 

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

  Players[0].Name := 'Username'; // Account name
  Players[0].Pass := 'Password';// user pass
  Players[0].Nick := 'Nick';//3 letters in username, not the first letter
  Players[0].Active := True;
  
  
end;

//Credit to: Sumilion, edited by Rasta Magician, was on the SRL Includes//
function FindAxe: Boolean;// finds the axe you are using//
var
   InvAxe, WieldAxe, Ix, Iy: Integer;
begin
  if not LoggedIn then exit;
  srl_LoadBitmaps([47, 48, 49, 50, 51, 52, 53, 54]);

  GameTab(5);
  for WieldAxe := 0 to 7 do
    if FindBitmapToleranceIn(srl_GetBitmap(54-WieldAxe),Ix, Iy, 566, 285, 606, 327, 10) then
      break;

  GameTab(4)
  for InvAxe := 0 to 7 do
    if FindBitmapToleranceIn(srl_GetBitmap(54-InvAxe), Ix, Iy, MIX1, MIY1, MIX2, MIY2, 10) then
      break;

  if(InvAxe = 8)and(WieldAxe = 8)then
  begin
    Result := False;
    Writeln('No axe was found.');
    srl_FreeBitmaps;
    Exit;
  end;

  EquipAxe := (WieldAxe - InvAxe < 0);

  case Min(WieldAxe, InvAxe) of
    0: WriteLn('Using Dragon axe');
    1: WriteLn('Using Rune axe');
    2: WriteLn('Using Addy axe');
    3: WriteLn('Using Mith axe');
    4: WriteLn('Using Black axe');
    5: WriteLn('Using Steel axe');
    6: WriteLn('Using Iron axe');
    7: WriteLn('Using Bronze axe');
  end;

  Result := True;
  srl_FreeBitmaps;
end;


procedure Progress;
begin
  Cleardebug;
  Writeln('_______Progress Report_________|');
  Writeln('|Worked for  '  + timerunning);
  Writeln('|______________________________|');
  Writeln('|Logs'  + IntToStr(Loads) +      'Dropped');
  Writeln('|______________________________|');
  Writeln('|______Ghosts PowerCutter______|');
  end;


procedure RandomsReport;
var
  i, CurrentInt: Integer;
  CurrentStr, Name: String;
Begin
  ChangeReportWidth(280);
  ClearReport;
  AddToReport('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
  AddToReport('|     SRL ' + IntToStr(SRLVersionNumber) + ' Randoms Report    |');
  AddToReport('|      www.srl-forums.com      |');
  AddToReport('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
  For i := 0 to 43 do
  Begin
    Case i of
    0: begin CurrentInt :=NewBoxes;   Name := '| Boxes Solved     :'; end;
    1: begin CurrentInt := NoNewBoxes;   Name := '| Boxes Missed     :'; end;
   end;
  end;
end;



procedure Chopping;
begin
  if not LoggedIn then
    Exit;
    wait(2000);
begin
    wait(200+random(300));
    if findcolorspiraltolerance(x,y, oak, MSX1, MSY1, MSX2, MSY2,7) then
  begin
     mmouse(x,y,0,0);
     if isuptext('hop') then
    begin
       mouse(x,y,0,0,false);
       chooseoption('hop');
        MarkTime(Time);
        While TimeFromMark(Time)<9000 do
        Wait(60+random(10));
     end;
   end;
  end;
end;
procedure AntiRandoms;
begin
  if (not(LoggedIn))then Exit;
  FindNormalRandoms;
  FindLamp('Woodcutting');// What the lamp will pick to give exp to, change if you want.
  if (FindFight) then
  begin
    wait(500+random(60))
    SetRun(true);
    wait(500+random(600))
    RunAway('N',True,1,15000);
    if NoGameTab xor InBlack then
    begin
      Writeln('Found a random that can not be sloved, Sorry');
      Logout;
      Exit;
    end;
  end;
end;



procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(30) of
  1: RandomRClick;
  2: HoverSkill('Woodcutting', False);
  3: RandomMovement;
  4: BoredHuman;
  5: DoEmote(5 +Random(17));
  6: SleepAndMoveMouse(1235+random(860));
  7: MMouse(random(300), random(250), 10, 10);
  8: begin
      GameTab(1 + Random(12));
      wait(1200+random(1000));
      GameTab(4);
   end;
  end;
end;


procedure Droplog;
begin
  for item:=2 to 28 do
  dropitem(item);
  Loads:=Loads+27;
end;

procedure MainLoop;
 begin
 repeat
   Chopping;
   AntiBan;
   AntiRandoms;
   Progress;
   RandomsReport;
   if invfull then Droplog;
 until false;
end;
begin
  SMARTSetUp('world38', True, False, False); {World prefix, safe mode, unsigned, RS-HD}
   SetTargetDC(SMARTGetDC);
    SetUpSRL;
     Signature;
      DeclarePlayers;
     if Loggedin then Logout;
    loginplayer;
   ActivateClient;
  FindAxe;
 MainLoop;
end.

 

HELP >.> ////////////////To change color, change the name on line 36, Just the name in the code//
///Use the Const names listed here to change what it is going to cut/////// this means what?

 

Ahhh finally some one asked

ok go to line 41 and you see the name of tree like willow or dead and use the const and just type in dead for dead tree or willow for a willow.

I think i have it set on Willow tree but you can change it

Typeo on script is fixed
Line 41:

Code:

if findcolorspiraltolerance(x,y, willow, MSX1, MSY1, MSX2, MSY2,7) then

This is where you change what you wish to powercut

 

Do you have msn if i have any further queries??

 

Yes I do

[email protected]

So if you need anything please message me on msn

 

oops, nvm stupid question

 

There are no stupid questions
Please feel free to ask

 

nah, i just didnt read through the script properly

 

5/5 BeSt fIrSt ScRiPt EvA 5/5

 

Kk no problem

Thanks Scam-me-die
Have fun autoing

 

so does it have auto-coloring?

 

yes it does

Just type the name of the tree
and will find the color of that tree and chop it

 

Hey I'm kinda new to this but Ive got mine compiled and trying to cut "dead" trees I'm standing in the middle of Draynor manor.

It checks all my graphics settings and logs in then out on a loop im getting

"Logged In Player is not in Players array."

How do i fix??

-Cheers

 

do you have the newest srl

which is #20

 

I've the same problem I have the newest SRL the only thing i know is that the error comes from the SRL include

 

hmmmm it works fine for me

try getting it from the srl

 

ok the problem is the program name when you copy is moves more to the right, move it more to all the way to left and it work

 

Updated the powercutter

 

do i erase your little nots out of the script,such as the tip about the lamps putting xp into wc?
and after the ends and two blanks do i put in my username and pass?
thanks

 

no it just tell what it does