Fixed up your standards a bit:
{
///////////////////////////\\\\\\\\\\\\\\\\\\\\\
**/ __ __ ____ **\
**/ | \/ | | _ \ **\
**/ | \ / |_ __| |_) |_ _ _ __ ___ ___ **\
**/ | |\/| | '__| _ <| | | | '_ ` _ \/ __| **\
**/ | | | | | | |_) | |_| | | | | | \__ \ **\
**/ |_| |_|_| |____/ \__,_|_| |_| |_|___/ **\
**/
**/ _ _
**/ / | __ _ _ _ | | |.//_ /_)_ _ /__ _
**/ /_.'//_|/_// //_// |/|/////_/|/|/ /_)/_|/ //\/_'/
**/ _/
This Script is the same as my Power Cutter but added banking.
_________ __
/ _____/ _____/ |_ __ ________
\_____ \_/ __ \ __\ | \____ \
/ \ ___/| | | | / |_> >
/_______ /\___ >__| |____/| __/
\/ \/ |__|
1. Fill in DeclarePlayers;
2. Place Player in Draynor bank or at Draynor Willows
3. Equipt Axe - This Will bank you axe( Anti Noob )
4. Fill In Const's
5. Drag Crosshair onto runescape window
6. Press Play and let the script do its Work
Credits:
Sandstorm - Scripting help
Camo Kyle - Fixing Standerds
FindGainedLevel By griff721
}
program PowerCutterByMR_BUM;
{.include srl/srl.scar}
{.include Srl/Srl/Skill/Woodcutting.scar}
var
x,y : integer;
Found : boolean;
Loads, Gained, DesiredLoads, TreeWait: integer;
Antibans, NowLogs : integer;
Log, Bank, BankLoad, LogBank, Rock : integer;
const
RunDirection = 'N'; //Which direction to run if a fight occurs
SrlUsername = 'Mr_Bum'; // Used in sig. Easier for top proggies =)
Version = 'V 1.0'; // Do not touch!
SRLStatsID = '3015';
SRLStatsPW = '45qw7E4LWE';
WillowColor = 2372909;
RockColor = 3945522;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // your runescape account name
Players[0].Pass := ''; // your runescape password
Players[0].Nick := ''; // 3-4 letters of your runscape username
Players[0].Active := True; //In the script or not
Players[0].Integers[0] := 10; // Loads to do.
Players[0].Integers[1] := 4000; // Time between trees
Players[0].Loc := 'tree'; // bank or tree
{
Players[1].Name := ''; // your runescape account
Players[1].Pass := ''; // your runescape password
Players[1].Nick := ''; // 3-4 letters of your runscape username
Players[1].Active := True; //In the script or not
Players[1].Integers[0] := 10; // Loads to do.
Players[1].Integers[1] := 5000; // Time between trees
Players[0].Loc := 'tree'; // Bank or Tree's
{
Players[2].Name := ''; // your runescape account
Players[2].Pass := ''; // your runescape password
Players[2].Nick := ''; // 3-4 letters of your runscape username
Players[2].Active := True; //In the script or not
Players[2].Integers[0] := 10; // Loads to do.
Players[2].Integers[1] := 5000; // Time between trees
Players[0].Loc := 'tree'; // Bank or Tree's
Players[3].Name := ''; // your runescape account
Players[3].Pass := ''; // your runescape password
Players[3].Nick := ''; // 3-4 letters of your runscape username
Players[3].Active := True; //In the script or not
Players[3].Integers[0] := 10; // Loads to do.
Players[3].Integers[1] := 5000; // Time between trees
Players[0].Loc := 'tree'; // Bank or Tree's
Players[4].Name := ''; // your runescape account
Players[4].Pass := ''; // your runescape password
Players[4].Nick := ''; // 3-4 letters of your runscape username
Players[4].Active := True; //In the script or not
Players[4].Integers[0] := 10; // Loads to do.
Players[4].Integers[1] := 5000; // Time between trees
Players[0].Loc := 'tree'; // Bank or Tree's
}
if(HowManyPlayers < 2)then
begin
Writeln( IntToStr ( HowManyPlayers ) + ' Player' )
end;
if(HowManyPlayers > 1)then
begin
Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
end;
end;
procedure LoadDTM;
begin
Log := DTMFromString('78DA63CC61626078CA8002527DF5185280342' +
'310FF0702C662A09A9B0C6880118904D26540350F09A8A902AA79' +
'45404D0150CD3B026A6231DD8CA12603A8E60E0135E940351FF1A' +
'B0100EE000FFC');
Bank := DTMFromString('78DA637CCEC4C0C0C0C8800CDEBC7903A661A' +
'28CF7806A5851D5FCF9C384A9868108353F19F0AA0100E67C0D45' +
'');
end;
procedure SetPlayer;
begin
DesiredLoads := Players[CurrentPlayer].integers[0];
TreeWait := Players[CurrentPlayer].integers[1];
end;
procedure FindFightEx;
begin
if(FindFight)then
begin
RunAway(RunDirection,False,1,8000+Random(3000))
end;
end;
procedure Ent;
begin
if(FindEnt(x,y,true))then
begin
RunAway(RunDirection,False,1,8000+Random(3000))
ReportVars[3] := ReportVars[3] + 1;
end;
If(not FindEnt(x,y,true))then
Exit;
end;
procedure AntiRandoms;
var
d : Integer;
begin
Status('Doing AntiRandoms');
for d := 0 to 4 do
Ent;
FindNormalRandoms;
FindFightEx;
FindNonInventoryRandoms;
wait(1);
end;
procedure Antiban;
begin
if not(LoggedIn)then Exit;
case Random(68) of
0: begin
HoverSkill('Woodcutting', False);
Antibans:=Antibans+1;
end;
1: begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4);
Antibans:=Antibans+1;
end;
2: begin
BoredHuman;
Antibans:=Antibans+1;
end;
3: begin
DoEmote(400 + Random(90));
Antibans:=Antibans+1;
end;
end;
end;
procedure Proggy;
begin
ClearDebug;
Writeln('// ' + SrlUsername);
Writeln('#%#%#%#% Dranynor Willow Banker By Mr_Bum #%#%#%#%#%');
Writeln('#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%');
Writeln('#% Time Running : ' +TimeRunning + '');
Writeln('#% Banked '+ IntToStr(BankLoad) + ' loads');
Writeln('#% Banked '+ IntToStr(LogBank) + ' logs');
Writeln('#% Gained '+ IntToStr(Gained) + ' Woodcutting levels');
Writeln('#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%');
Writeln('#%#%#%#%##%#%#%#%#% POST PROGGIES #%#%#%#%#%#%#%#%#%#%');
SrlRandomsReport;
end;
// FindGainedLevel By griff721
function FindGainedLevel: boolean;
begin
if not LoggedIn then
Exit;
if ClickContinue(False, False) then
begin
if FindNPCChatText('lations', Nothing) then
begin
writeln('We gained a Woodcutting!');
Inc(Gained);
ReportVars[2] := ReportVars[2] + 1;
ClickContinue(True, True);
Result := True;
Exit;
end;
end;
end;
procedure StoreLogs; Forward;
procedure WalkTree; Forward;
procedure WalkToBank;
begin
if(InvFull)then
LoadDTM;
MakeCompass('N');
SetAngle(true);
SetRun(true);
begin
If(FindDTM(Bank,x,y,MMX1,MMY1,MMX2,MMY2))then
begin
Mouse(x, y, 1, 1, True);
Writeln('Cruising TO Bank');
Flag;
end;
if(DTMRotated(Bank, x, y, MMX1, MMY1, MMX2, MMY2))then
begin
Mouse(x, y, 1, 1, True);
Writeln('Cruising TO Bank');
Flag;
end;
end;
FreeDTM(Bank);
FreeDTM(Log);
StoreLogs;
end;
procedure StoreLogs;
var
Time: integer;
begin
MarkTime(Time);
if(not(LoggedIn))then exit;
repeat
if(not(LoggedIn)) then Break;
OpenBankGlass('db',true,true);
until(BankScreen or (TimeFromMark(time) > 120000));
begin
LoadDTM;
NowLogs := CountItems(Log,'DTM',[0])
LogBank := NowLogs + LogBank;
repeat
begin
if(FindDTM(Log,x,y,MIX1,MIY1,MIX2,MIY2))then
begin
MMouse(x,y,1,0);
If(IsUpText('og'))then
begin
Mouse(x,y,0,0,false)
ChooseOption('All')
Inc(BankLoad);
ReportVars[0] := ReportVars[0] + LogBank;
ReportVars[1] := ReportVars[1] + 1;
end;
end;
end;
until(not(FindDTM(Log,x,y,MIX1,MIY1,MIX2,MIY2)))
end;
FreeDTM(Bank);
FreeDTM(Log);
DepositAll;
CloseBank;
WalkTree;
end;
procedure WalkTree;
begin
MakeCompass('N');
SetAngle(true);
SetRun(true);
begin
X:=663;
Y:=107;
if(FindColorSpiral(x,y,RockColor,MMX1,MMY1,MMX2,MMY2))then
begin
Mouse(x,y,0,0,true);
end;
If(not(FindColorSpiral(x,y,RockColor,MMX1,MMY1,MMX2,MMY2)))then
Writeln('Cant Find Rock!');
FreeBitmap(rock);
end;
end;
procedure FindTree;
begin
If not(Loggedin)then Exit;
If(InvFull)then
WalkToBank;
AntiRandoms
FindGainedLevel;
MakeCompass('N');
SetAngle(true);
SetRun(true);
begin
FindGainedLevel;
X := 234;
Y := 172;
if not(FindObjCustom(x,y,['hop', 'own', 'illow', 'Will', 'low'],[WillowColor],3))then Exit;
if(FindObjCustom(x,y,['hop', 'own', 'illow', 'Will', 'low'],[WillowColor],3))then
begin
Writeln('Serching For Tree');
MMouse(x,y,2,0);
if IsUpTextMultiCustom(['hop', 'own', 'illow', 'Will', 'low'])then
begin
Writeln('Found Tree');
Ent;
FindGainedLevel;
Mouse(x,y,0,0,false);
ChooseOption('down');
Writeln('Cutting Tree');
Wait(TreeWait +random(1000));
if (InvFull) then
begin
WalkToBank;
end;
end;
end;
end;
if(Found = False)then
Exit;
end;
procedure Sig;
var
T : integer;
begin
T :=0
ClearDebug;
Writeln(' _____ ');
wait(200);
Writeln(' /`\_/`\ /\ _`\ ');
wait(200);
Writeln('/\ \ _ __ \ \ \_\ \ __ __ ___ ___ ____ ');
wait(200);
Writeln('\ \ \__\ \/\``__\ \ \ _ <`/\ \/\ \ /` __` __`\ /`,__\ ');
wait(200);
Writeln(' \ \ \_/\ \ \ \/ \ \ \_\ \ \ \_\ \/\ \/\ \/\ \/\__, `\ ');
wait(200);
Writeln(' \ \_\\ \_\ \_\ \ \____/\ \____/\ \_\ \_\ \_\/\____/ ');
wait(200);
Writeln(' \/_/ \/_/\/_/ _______\/___/ \/___/ \/_/\/_/\/_/\/___/ ');
wait(200);
Writeln(' Draynor Willow Banker');
wait(1500);
repeat
ClearDebug;
Wait(100);
Writeln(' _____ ');
Writeln(' /`\_/`\ /\ _`\ ');
Writeln('/\ \ _ __ \ \ \_\ \ __ __ ___ ___ ____ ');
Writeln('\ \ \__\ \/\``__\ \ \ _ <`/\ \/\ \ /` __` __`\ /`,__\ ');
Writeln(' \ \ \_/\ \ \ \/ \ \ \_\ \ \ \_\ \/\ \/\ \/\ \/\__, `\ ');
Writeln(' \ \_\\ \_\ \_\ \ \____/\ \____/\ \_\ \_\ \_\/\____/ ');
Writeln(' \/_/ \/_/\/_/ _______\/___/ \/___/ \/_/\/_/\/_/\/___/ ');
Writeln(' Draynor Willow Banker');
Inc(T);
wait(200);
until T = 10;
end;
procedure SetupScript;
begin
SetupSRL;
ScriptID := '1104';
SRLID := SRLStatsID;
SRLPassword := SRLStatsPW;
If ( SRLID = '' ) Or ( SRLPassword = '' )Then
begin
Writeln('You Need SRL Stats.');
SRLId := '3015';
SRLPassword := '45qw7E4LWE';
end;
Sig;
DeclarePlayers;
ActivateClient;
LoginPlayer;
Disguise('Willow Banker - By Mr_Bum');
end;
procedure MainLoop; //Camo Kyle Fixed my standards
begin
SetupScript;
If not Loggedin then LoginPlayer;
If(Players[CurrentPlayer].loc = 'bank')then
begin
StoreLogs;
WalkTree;
repeat
repeat
begin
SetPlayer;
FindTree;
AntiBan;
AntiRandoms;
end;
until (Loads = DesiredLoads) or (not LoggedIn)
Logout;
Proggy;
If Loads = DesiredLoads then
NextPlayer(True);
Proggy;
LoginPlayer;
until (AllPlayersInactive);
Proggy;
Disguise('Banked ' + (IntToStr(LogBank)) + ' Logs');
TerminateScript;
end;
If(Players[CurrentPlayer].loc = 'bank')then
begin
repeat
repeat
begin
SetPlayer;
FindTree;
AntiBan;
AntiRandoms;
end;
until (Loads = DesiredLoads) or (not LoggedIn)
Logout;
Proggy;
If Loads = DesiredLoads then
NextPlayer(True);
Proggy;
LoginPlayer;
until (AllPlayersInactive);
Proggy;
Disguise('Banked ' + (IntToStr(LogBank)) + ' Logs');
TerminateScript;
end;
end;
begin
MainLoop;
end.
