Googlez
2015-03-20 22:15:51
program scriptTemplate;
var
count : 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 := 8;
end
currentPlayer := 0;
end;
procedure pickPotatoe();
var
b : TBox;
cts,i,h,w: Integer;
tpa,tpa2 : TPointArray;
atpa : T2DPointArray;
begin
findColorsTolerance(tpa, 2715207, mainscreen.getbounds(), 3, colorSetting(2, 0.37, 0.55));
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
smartImage.clear();
findColorsTolerance(tpa, 2715207, mainscreen.getbounds(), 3, colorSetting(2, 0.37, 0.55));
SplitTPAWrap(tpa, 5, atpa);
SortATPASize(atpa, true);
smartImage.debugATPA(atpa);
mouse(middleTPA(atpa[i]), MOUSE_MOVE);
if isMouseOverText(['Pick Potato'], 500) then
begin
fastClick(MOUSE_LEFT);
print('Potato Picked');
if( tabBackpack.isFull )then
begin
print('full');
// wait(RandomRange(1500,3000));
//teleportToTowlheadLand();
// wait(RandomRange(1500,3000));
//walkToBank();
// wait(RandomRange(1500,3000));
//depositPotatoes();
end
else
begin
print('not');
pickPotatoe();
end;
end;
end
end
end
begin
smartEnableDrawing := true;
clearDebug();
setupSRL();
declarePlayers();
if not isLoggedIn() then
begin
players[currentPlayer].login();
exitTreasure();
end;
count = 0;
pickPotatoe();
end.It just always returns false or something else. Run this in the potatoe field south of varrock.