Googlez
03-21-2015, 06:38 PM
https://villavu.com/forum/attachment.php?attachmentid=25381&d=1426962189
Status Of Script : Very Good, Little To No Script Breaking Bugs
What It Does
The script is very basic. All it does is run from the well to the nearby woods, south of the grand exchange. It then cuts the trees down until the inventory is full, and goes to the well to bank them. It keeps track of progress and has a couple of fail safes.
How To Set It Up
Start at the well with your camera pointed all the way down and zoomed all the way out. To set it up you need to edit the player settings on lines 16-20 of the script so it matches your account info and the world you want to use this script on, also need to put the sps map in simbafolder/includes/sps/img/runescape_other . Next you put in place the standard SMART Client settings. Then you need to make the chatbox small as possible and put the xp counter on the top right of it. As shown in this picture :
http://i.imgur.com/3idtkvr.png
Download
SCRIPT -
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.getBlackBackgroun d(), 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.getBlackBackgroun d(), 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.getBlackBackgroun d(), 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.getBlackBackgroun d(), 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 - 25383
Proggies So Far!
None.
Status Of Script : Very Good, Little To No Script Breaking Bugs
What It Does
The script is very basic. All it does is run from the well to the nearby woods, south of the grand exchange. It then cuts the trees down until the inventory is full, and goes to the well to bank them. It keeps track of progress and has a couple of fail safes.
How To Set It Up
Start at the well with your camera pointed all the way down and zoomed all the way out. To set it up you need to edit the player settings on lines 16-20 of the script so it matches your account info and the world you want to use this script on, also need to put the sps map in simbafolder/includes/sps/img/runescape_other . Next you put in place the standard SMART Client settings. Then you need to make the chatbox small as possible and put the xp counter on the top right of it. As shown in this picture :
http://i.imgur.com/3idtkvr.png
Download
SCRIPT -
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.getBlackBackgroun d(), 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.getBlackBackgroun d(), 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.getBlackBackgroun d(), 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.getBlackBackgroun d(), 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 - 25383
Proggies So Far!
None.