SCAR Code:
/////////////////////////////////////////////////////////////////////////////////////////
// //
// PowerCutter Script. //
// Made By: //
// IP-Drowner. //
// Script Version: 1.4 //
// Build: 011 //
// SRL Versiob: 4.00 //
/////////////////////////////////////////////////////////////////////////////////////////
{
Information:
If you have paid for this script, then you have been scammed.
This script is Freeware and can be published anywhere without
the author's permission but as long as it is not modified.
Includes SRL, so download SRL for SCAR.
Customized for SCAR DIVI 3.12a+. Uses SRL 4.
Setup Info:
Setup lines 38-49 and lines 57-75 then select the
Runescape screenusing the crosshair and the
script should do the rest.
Other Info:
Any bugs found, please report it immediantely to the
forums you downloaded from.
If the support and need further assistance preparing
and setting up the script, please post at the
forums you downloaded from. If you require help
from the author, please visit
[url]http://srl-forums.com/forum/[/url] and PM IP-Drowner or
post in the thread.
Credits To:
Nobody at the moment.
}
program PowerCutter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Woodcutting.scar}
const
CompassAngle = 'n'; //Which way do you want to Compass to Face?
RunDirection = 'n'; //Which direction do you want to run if finds a fight?
WaitTime = 1000; //Waiting period in between clicks. Please use Milliseconds.
TreeColour = 0; //The colour of your specified tree. Colour must be unique.
TreeColour1 = 0; //If above colour is not found, it will try to find this one.
LogColour = 0; //The colour of the log in your inventory.
Wielding = True; //Are you wielding your axe?
CULoads = 10; //Number of Loads to do before switching players.
X2 = 764; //End of Runescape Screen. Defaults Loaded.
Y2 = 502; //End of Runescape Screen. Defaults Loaded.
TreeTolerance = 2; //Only change value to lower if it has trouble finding the tree.
LogTolerance = 2; //Only change to a lower value if it has trouble finding the logs in your inventory.
procedure DeclarePlayers;
begin
HowManyPlayers := 4; //Set Number of Players here.
NumberOfPlayers(HowManyPlayers); //Don't Touch
CurrentPlayer := 0; //Player to Start with
Players[0].Name := 'Username'; //Your Username
Players[0].Pass := 'Password'; //Your Password
Players[0].Nick := 'erna'; //3 or 4 letters from your username.
Players[0].Active := True; //Will You Be Using This Player?
Players[1].Name := 'Username'; //Your Username
Players[1].Pass := 'Password'; //Your Password
Players[1].Nick := 'erna'; //3 or 4 letters from your username.
Players[1].Active := True; //Will You Be Using This Player?
Players[2].Name := 'Username'; //Your Username
Players[2].Pass := 'Password'; //Your Password
Players[2].Nick := 'erna'; //3 or 4 letters from your username.
Players[2].Active := True; //Will You Be Using This Player?
Players[3].Name := 'Username'; //Your Username
Players[3].Pass := 'Password'; //Your Password
Players[3].Nick := 'erna'; //3 or 4 letters from your username.
Players[3].Active := True; //Will You Be Using This Player?
end;
var
x, y, Chops: Integer;
procedure FindAndChop;
begin
repeat
RandomRClick;
if(FindColorTolerance(x,y,TreeColour,0,0,X2,Y2,TreeTolerance)) or
(FindColorTolerance(x,y,TreeColour1,0,0,X2,Y2,TreeTolerance)) then
begin
if(FindEnt(x, y, False)) then
begin
RunAwayDirection(RunDirection);
Wait(5000 + Random(290))
RunBack;
end else
begin
Writeln('Sorry, the tree colour you specified could not be found.');
LogOut;
end;
Mouse(x,y,5,5,True);
RandomRClick;
Wait(WaitTime + random(696))
Chops:= Chops + 1;
HoverSkill('woodcutting', false);
RandomRClick;
MakeCompass('s');
SayCurrentLevels('woodcutting');
if(InvFull) then
begin
DropInvLogs(Wielding: Boolean; LogColour, Tolerance: String;);
end;
Until(Loads = CULoads)
end;
end;
procedure UnSafeDisguiseScar(disguise: String);
begin
GetApplication.Title:= disguise;
GetSelf.Caption:= disguise;
end;
procedure DisguiseScar(DisguiseName: String);
var
t: TVariantArray;
begin
SetArrayLength(t,1);
t[0] := disguise;
ThreadSafeCall('UnSafeDisguiseScar',t);
end;
{*******************************************************************************
procedure DropInvLogs(Wielding: Boolean; LogColour, Tolerance: String;);
By: IP-Drowner
Description: Will drop all logs in Inventory. May be added into SRL.
*******************************************************************************}
procedure DropInvLogs(Wielding: Boolean; LogColour, Tolerance: String;);
begin
if(FindColorTolerance(x,y,LogColour,576,231,578,233,LogTolerance)) then
begin
if(Wielding = True) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True) else
Writeln('Skipping Inventory Slot Number 1. Wielding axe has');
Writeln(' been specified as false.');
end;
end;
if(FindColorTolerance(x,y,LogColour,621,228,623,231,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,663,229,665,232,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,706,230,710,233,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColor(x,y,LogColour,580,265,583,268,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,624,270,627,274,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,660,260,665,269,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,704,264,709,269,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,575,297,580,303)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,617,298,624,302)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,659,298,664,304,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,702,299,706,303,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,576,335,579,339,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,617,334,623,339,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,659,333,663,339,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColor(x,y,LogColour,701,334,708,339,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,575,371,580,377,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,620,370,625,375,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,659,369,664,374,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,703,372,708,377,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,576,406,582,412,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,615,405,621,410,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,660,407,665,413,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColor(x,y,LogColour,701,406,707,413,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,576,443,581,449,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,619,443,624,448,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColor(x,y,LogColour,660,442,665,449,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
if(FindColorTolerance(x,y,LogColour,704,442,709,451,LogTolerance)) then
begin
Mouse(x,y,5,5,False);
if(IsUpText('Drop')) then
begin
Mouse(x,y,5,5,True);
end;
end;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
FindInventoryRandoms;
FindNonInventoryRandoms;
FindNormalRandoms;
end;
procedure ProgressReport;
begin
Writeln('///////---Progress Report---\\\\\\\');
Writeln('You have chopped ' + IntToStr(Chops) + ' times.');
Writeln('');
Writeln('You have done ' + IntToStr(Loads) + ' loads.');
Writeln('');
Writeln('Script has been running for' + TimeRunning);
Writeln('\\\\\\\---Progress Report---///////');
SRLRandomsReport;
end;
begin
ClearDebug;
SetupSRL;
ActivateClient;
if (not(LoggedIn)) then LoginPlayer;
Wait(2000 + Random(1000));
MakeCompass(CompassAngle);
repeat
AntiRandoms;
if (not LoggedIn) then
begin
NextPlayer(false);
SetupSRL;
end;
FindAndChop;
if (not LoggedIn) then
begin
NextPlayer(false);
SetupSRL;
end;
AntiRandoms;
if (not LoggedIn) then
begin
NextPlayer(false);
SetupSRL;
end;
AntiRandoms;
FindAndChop;
ProgressReport;
if (not LoggedIn) then
begin
NextPlayer(false);
SetupSRL;
end;
AntiRandoms;
if (not LoggedIn) then
begin
NextPlayer(false);
SetupSRL;
end;
Until(IsFKeyDown(8))
end.