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
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.
