Code:
program scriptTemplate;
var
XPGain, LoadsDone, TimeGone, Logs: Integer;
XPPerHour, LoadsPerHour, LogsPerHour, CurrentXP, OriginalXP: Integer;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
{$I SPS/lib/SPS-RS3.Simba}
//Player Handler/Settings
procedure declarePlayers();
begin
setLength(players, 1);
with players[0] do
begin
loginName := '';
password := '';
isActive := true;
isMember := false;
world := 0;
end
currentPlayer := 0;
end;
procedure reEnterGame();
var
p:TPoint;
begin
lobby.findPlayButton(p);
print('Not Ingame, Clicking Play To Re-Enter.');
mouse(p.rand(randomRange(-50, 50), randomRange(-10, 10)), MOUSE_LEFT);
repeat
wait(500);
until isLoggedIn();
end;
// Proggy stolen from abu
procedure Proggy();
begin
if(lobby.isOpen())then
begin
reEnterGame;
end;
if(not isLoggedIn())then
begin
players[currentPlayer].login(); ;
end;
begin
ClearDebug;
CurrentXP := chatbox.getxPBar();
XPGain := (CurrentXP - OriginalXP); ;
begin
Writeln('******************************************************************');
Writeln('*/////////---------- Googlez Woodcutter @ Well ----------\\\\\\\*');
Writeln('*/////////----------____________________________----------\\\\\\\*');
Writeln('******************************************************************');
Writeln('*/////////We have done: ' + IntToStr(LoadsDone) + ' Loads');
Writeln('*/////////We have gained: ' + IntToStr(XPGain) + ' xp');
Writeln('*/////////We have chopped ' + IntToStr(Logs) + ' Logs');
Writeln('');
end;
end;
end;
procedure walkToTrees();
var
treePath: TPointArray;
begin
if (minimap.getColorPercent(minimap.getBlackBackground(), 0) > 60.0) then
begin
players[currentPlayer].logout();
wait(RandomRange(3000,4000));
players[currentPlayer].login();
wait(RandomRange(3000,4000));
reEnterGame;
end;
treePath := [Point(323, 156), Point(304, 163), Point(280, 188), Point(270, 202), Point(253, 222), Point(239, 237), Point(231, 239)];
if SPS.walkPath(treePath) then
begin
if(lobby.isOpen())then
begin
reEnterGame;
end;
if(not isLoggedIn())then
begin
players[currentPlayer].login(); ;
end;
minimap.waitPlayerMoving();
end
else
begin
if(lobby.isOpen())then
begin
reEnterGame;
end;
if(not isLoggedIn())then
begin
players[currentPlayer].login(); ;
end;
writeLn('Opps, try again.');
walkToTrees();
end;
end;
procedure walkToBank();
var
bankPath: TPointArray;
begin
if (minimap.getColorPercent(minimap.getBlackBackground(), 0) > 60.0) then
begin
players[currentPlayer].logout();
wait(RandomRange(3000,4000));
players[currentPlayer].login();
wait(RandomRange(3000,4000));
reEnterGame;
end;
bankPath := [Point(231, 239), Point(239, 237), Point(253, 222), Point(270, 202), Point(280, 188), Point(304, 163), Point(323, 156)];
if SPS.walkPath(bankPath) then
begin
minimap.waitPlayerMoving();
if(lobby.isOpen())then
begin
reEnterGame;
end;
if(not isLoggedIn())then
begin
players[currentPlayer].login(); ;
end;
if (minimap.getColorPercent(minimap.getBlackBackground(), 0) > 60.0) then
begin
players[currentPlayer].logout();
wait(RandomRange(3000,4000));
players[currentPlayer].login();
wait(RandomRange(3000,4000));
reEnterGame;
end;
end
else
begin
if(lobby.isOpen())then
begin
reEnterGame;
end;
if(not isLoggedIn())then
begin
players[currentPlayer].login(); ;
end;
writeLn('Opps, try again.');
walkToBank();
end;
end;
procedure openBank();
var
b : TBox;
cts,i,h,w: Integer;
tpa,tpa2 : TPointArray;
atpa : T2DPointArray;
begin
if(lobby.isOpen())then
begin
reEnterGame;
end;
if(not isLoggedIn())then
begin
players[currentPlayer].login(); ;
end;
findColorsTolerance(tpa, 9733948, mainscreen.getbounds(), 2, colorSetting(2, 0.13, 0.35));
SplitTPAWrap(tpa, 5, atpa);
SortATPASize(atpa, true);
//minimap.setAngle(180);
if (Length(tpa) < 1) then
begin
Exit;
end
else
begin
smartImage.debugATPA(atpa);
for i := 0 to high(atpa) do
begin
if(lobby.isOpen())then
begin
reEnterGame;
end;
if(not isLoggedIn())then
begin
players[currentPlayer].login(); ;
end;
smartImage.clear();
smartImage.debugATPA(atpa);
mouse(middleTPA(atpa[i]), MOUSE_MOVE);
if isMouseOverText(['Donate Well of Goodwill'], 500) then
fastClick(MOUSE_RIGHT);
chooseOption.select(['Open Bank Well of Goodwill'],MOUSE_LEFT);
smartImage.clear();
wait(RandomRange(3000,4000));
bankScreen.quickDeposit(QUICK_DEPOSIT_INVENTORY);
wait(RandomRange(3000,4000));
bankScreen.close();
Logs = Logs+28;
LoadsDone = LoadsDone+1;
end;
end
end
procedure cutTree();
var
b : TBox;
cts,i,h,w, trys: Integer;
tpa,tpa2 : TPointArray;
atpa : T2DPointArray;
begin
if(tabBackpack.isFull)then
begin
Exit;
end
else
begin
if(lobby.isOpen())then
begin
reEnterGame;
end;
if(not isLoggedIn())then
begin
players[currentPlayer].login(); ;
end;
if (minimap.getColorPercent(minimap.getBlackBackground(), 0) > 60.0) then
begin
players[currentPlayer].logout();
wait(RandomRange(3000,4000));
players[currentPlayer].login();
wait(RandomRange(3000,4000));
reEnterGame;
end;
findColorsTolerance(tpa, 2704728, mainscreen.getbounds(), 4, colorSetting(2, 0.47, 0.50));
SplitTPAWrap(tpa, 5, atpa);
SortATPASize(atpa, true);
//minimap.setAngle(180);
if (Length(tpa) < 1) then
begin
Exit;
end
else
begin
smartImage.debugATPA(atpa);
for i := 0 to high(atpa) do
begin
if i>3 then begin walkToTrees(); end;
smartImage.clear();
smartImage.debugATPA(atpa);
if length(atpa)<(i-1) then break;//failsafe if your tpa doesnt exist doesnt try to acces it
mouse(middleTPA(atpa[i]), MOUSE_MOVE);
if isMouseOverText(['Chop down Tree'], 500) then
begin
fastClick(MOUSE_LEFT);
smartImage.clear();
print('Tree being cut.');
wait(RandomRange(5000,7000));
cutTree();
if(tabBackpack.isFull)then
begin
break();
end;
end
end
end
end;
end
begin
SPS.setup('thaiTrees', RUNESCAPE_OTHER);
smartEnableDrawing := true;
clearDebug();
setupSRL();
declarePlayers();
if not isLoggedIn() then
begin
players[currentPlayer].login(); ;
end;
wait(RandomRange(100,500));
Proggy();
exitTreasure();
repeat
begin
walkToTrees();
cutTree();
walkToBank();
openBank();
end;
until 1=2
end.
SPS MAP -