Code:
{==============================================================================]
[ [SRL]4 ]
[ ]
[ ]
[ NAME : Destiful Chopper ]
[ WRITER : The Man ]
[ CATEGORY : Woodcutting ]
[ DESCRIPTION : ]
[ ]
[==============================================================================]
[ Instructions: Please check the forums for details. ]
[==============================================================================}
{=========================Records & Vars DONT TOUCH!===========================}
program simplecutter;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
const
Rockcolour = 379494;
StartPlayer = 0;
var
x, y,RockDTM:integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := StartPlayer;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 consecutive letters of your user
Players[0].Active := True; //use this player
end;
procedure AntiRandom;
begin
FindNormalRandoms;
end;
procedure Proggy;
begin
writeln('Auto cutter and banker');
writeln('Ran For: '+TimeRunning+'!');
end;
Procedure Towillows;
begin
if (not(loggedin)) then exit;
GameTab(4);
RockDTM := DTMFromString('78DA633CCBC4C020CAC8800C224383C1344C9' +
'4F11C508D30AA1A370F0354351730CDF10EB2C3344702558D4F98' +
'09AA9AD340359268EEC95645557312A8461C558DB3AB0EAA9A534' +
'03522A86A1C1CAC485603004BED0DB8');
writeln('to willows');
wait(100);
if (not(loggedin)) then exit;
SetRun(True);
if (FindColorSpiralTolerance(x, y, Rockcolour, 5, 5, MMX2, MMY2, 5)) then
Mouse(x, y, 5, 5, True);
if DTMRotated(RockDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 0, 0, True);
end;
FindnormalRandoms;
wait(100);
end;
function walktobank: Boolean;
var
I, R, G, B, Len, TestColor: Integer;
H, S, L, X, Y, Z: Extended;
P: TPointArray;
begin
Result := False;
FFlag(0);
FindColorsTolerance(P, 13135419, MMX1, MMY1, MMX2, MMY2, 60);
Len := High(P);
for I := 0 to Len do
if RS_OnMinimap(P[I].X, P[I].Y) then
begin
TestColor := GetColor(P[I].X, P[I].Y);
ColorToRGB(TestColor, R, G, B);
if InRange(R - B, -161, -121) then
if InRange(R - G, -71, -31) then
if InRange(G - B, -110, -70) then
begin
ColorToHSL(TestColor, H, S, L);
if InRange(Round(H - L), -5, 25) then
if InRange(Round(S - H), -19, 11) then
if InRange(Round(S - L), -10, 20) then
begin
ColorToXYZ(TestColor, X, Y, Z);
if InRange(Round(X - Y), -5, 9) then
if InRange(Round(Y - Z), -48, -34) then
begin
Mouse(P[I].X, P[I].Y, 6, 6, True);
Result := True;
Exit;
end;
end;
end;
end;
WriteLn('Autocolor did not find the bank');
end;
function Findwillow: Boolean;
var
Colors: TIntegerArray;
X, Y, I, A, M, curCTS: Integer;
TPA: TPointArray;
ATPA: T2DPointArray;
begin
Result := False;
if not LoggedIn then exit;
curCTS := GetColorToleranceSpeed;
Colors := [7919760, 8446096];
for I := 0 to 1 do
begin
ColorToleranceSpeed(3);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Colors[I], MSX1, MSY1, MSX2, MSY2, 5);
if Length(TPA) = 0 then Continue;
ColorToleranceSpeed(1);
ATPA := TPAtoATPAEx(TPA, 10, 10);
M := High(ATPA);
for A := 0 to M do
if MiddleTPAEx(ATPA[A], X, Y) then
begin
MMouse(X, Y, 6, 6);
Wait(100 + Random(50));
if Pos('Willow', RS_GetUpText) > 0 then
begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, True);
Result := True;
ColorToleranceSpeed(curCTS);
Exit;
end;
end;
end;
ColorToleranceSpeed(curCTS);
end;
Procedure Depositwillows;
var InvItems : boolean;
I : integer;
begin
for I := 1 to 28 do
if ExistsItem(i) then
begin
InvItems := true;
break;
end;
if InvItems then
MouseBox(381, 298,410, 318,1);
end;
procedure AntiBanage;
begin
case Random(10) of
0:
begin
HoverSkill('mining', false);
end;
1:
begin
MakeCompass('random');
end;
2:
begin
Wait(1000 + Random(200));
end;
3:
begin
RandomMovement;
end;
4:
begin
RandomRClick;
end;
5:
begin
HoverSkill('random', false);
end;
6:
begin
GameTab(3);
end;
end;
end;
procedure setupScript;
begin
cleardebug;
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
setupsrl;
ScriptID := '1058';
MouseSpeed := RandomRange(13, 18)
declareplayers;
activateclient;
wait(500);
end;
begin
setupScript;
SMARTSetupEx(29, False, True, False);
SetTargetDC(SMARTGetDC);
if (not (LoggedIn)) then
begin
Loginplayer;
setangle(true);
Wait(500 + random(30))
SetChat('on', 1);
SetChat('friends', 2);
SetChat('off', 3);
end;
repeat
if not (loggedIn) then
begin
nextplayer(false);
LoginPlayer;
end;
//end;
begin
logout;
if howManyPlayers = 1 then
wait(random(600000));
nextplayer(true);
LoginPlayer;
end;
until (false);
Procedure MainLoop
begin
SetupPlayer;
end;
end.