Code:
program Powercutt0rpl0x;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
var
TreeCol,cut,justtalked,chatmsg,x,y,Rested,Worked,Loads : integer;
Proggystr: String;
const
YourSRLStatsID = ''; // Not currently working however put yours in if you wish
YourSRLStatsPass = ''; // Password for the SRL stats
SmartWorld = 11; //world you want smart to load
TreeType = 'normal'; //set tree type. vaild arguemants are ~normal, willow, yew~
Loadstodo = 10; // Amout of logs to powercut/drop.
ScriptName = 'Powercutt0rpl0x';
Version = '1.2';
procedure DeclarePlayers;
begin
HowManyPlayers := 2; //change according to how many players needed
CurrentPlayer := 0; //player to start with
NumberOfPlayers(HowManyPlayers); //dont touche
Players[0].Name := ''; //user name
Players[0].Pass := ''; //pass
Players[0].Nick := ''; //3-4 letters of user
Players[0].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal'];
Players[0].Active := True; //true=active false=not active
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[0].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal'];
Players[1].Active := True;
end;
procedure Sig;
begin
ClearDebug;
Writeln('_____ ___ ___ _____ ^^^ ');
Wait(200);
Writeln('| \/ \ / \ \ (O.o)|}');
wait(200);
Writeln('| `| \ | \/ | \ \ \ _ | _|');
Wait(200);
Writeln('| < < \ \ \ \|/ |');
wait(200);
Writeln('| | / \ \ \ \ |');
Wait(200);
Writeln('|__ /|__^__ \__^____\_____\ -');
Wait(200);
Writeln(' |/ |/ |/ |/ _/ \_');
Wait(200);
Writeln(' Brad734 ');
Wait(200)
end;
procedure proggy;
begin
ClearDebug;
Writeln('====== '+Padr(ScriptName+' '+Version, 27)+' ======');
Writeln('==================================================');
Writeln(' [ By Brad734 ]');
Writeln('' + Padr('Current Player: ' + Players[CurrentPlayer].Nick, 40) + '');
Writeln('logs cut n Dropped:' + IntToStr(Cut));
Writeln('Worked for '+TimeRunning);
Writeln('==================================================');
end;
procedure VerCheck;
var
Versionn, Ver : string;
begin
Ver:= '1.2'; //DO NOT CHANGE THIS!!
Versionn:= GetPage('http://powercutt0rpl0x.webs.com/Version.txt');
if Versionn <> Ver then
begin
ClearDebug;
WriteLn('------------------------------------------------------------');
WriteLn('Your version is not the latest. Get the latest version from:');
WriteLn('Villavu.com');
WriteLn('------------------------------------------------------------');
TerminateScript;
end else
WriteLn('The script is up to date.');
Wait(3500);
ClearDebug;
end;
procedure NewsFlash;
var
News : string;
begin
News:= GetPage('http://powercutt0rpl0x.webs.com/News.txt');
WriteLn(News);
Wait(5000);
ClearDebug;
end;
Procedure AntiRandoms;
begin
FindNormalRandoms;
If(FindFight) then
begin
RunAway('N', True,1,15000);
Disguise('Found random... RUNNING!');
Wait(5000+random(5000));
end;
FindLamp('woodcutting');
end;
Procedure AntiBan;
begin
case(Random(100)) of
1: HoverSkill('woodcutting', false);
2: BoredHuman;
3: MMouse(Random(750), Random(750), Random(100), Random(100));
4: PickupMouse;
5: Gametab(random(12));
6: begin
case(random(5)) of
0: makecompass('N');
1: makecompass('S');
2: makecompass('E');
3: makecompass('W');
end;
end;
7: Pickupmouse;
8: wait(5000+random(10000));
9: RandomRClick;
10: RandomMovement;
end;
end;
procedure Treecolor;
begin
case lowercase(TreeType) of
'normal': TreeCol := 2186319 or 4488562 or 3893086;
'willow': TreeCol := 3098941 or 2312763 or 4157534;
'yew': TreeCol := 1988171 or 2183239 or 2975578;
end;
end;
Procedure WaitWhileChop;
Var mrk : Integer;
Begin
if not LoggedIn then Exit;
MarkTime(mrk);
Repeat
antirandoms;
FindEnt(x, y, True);
Case Random(4) Of
0 : GameTab(1 + Random(12));
end;
Wait(900 + Random(100));
GameTab(4);
SleepAndMoveMouse(4000 + Random(3000));
FindEnt(x, y, True);
antirandoms;
Until(Not IsUpText('own')) Or (TimeFromMark(mrk) > 13000 + Random(3000));
end;
procedure CutTree;
var
X, Y: Integer;
begin
antirandoms;
Disguise('cutting tree');
if FindColorSpiral(X, Y, Treecol, MSX1, MSY1, MSX2, MSY2) then
begin
mmouse( x, y, 4, 4 );
wait(80+random(60));
if isuptext('op') then
begin
GetMousePos(X, Y);
Wait(50+random(75));
Mouse(X, Y, 0, 0, True);
waitwhilechop;
wait(2 + random(3));
antirandoms;
end;
end;
end;
procedure beginplayer;
begin
SetRun(True);
MakeCompass('N');
end;
procedure mainloop;
begin
ClearDebug;
Disguise('Calculator');
Vercheck;
NewsFlash;
sig;
Writeln('Waiting For SMART to Start...');
SMARTSetupEx(SmartWorld, False, True, False);
Wait(2000);
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
SetupSRL;
SRLID := YourSRLSTATSID;
SRLPassword:= YOURSRLSTATSPASS;
DeclarePlayers;
ActivateClient;
Loginplayer;
beginplayer;
Treecolor;
repeat
repeat
Cuttree;
until Invfull;
if invfull then
begin
//dropall goes here. dont forget. Havent added yet. DONT FLAME!
cut := cut + 27;
proggy;
end;
until False;
end;
begin
mainloop;
end.