Code:
{$DEFINE SMART} // Always have this to load smart
{$I SRL-6/SRL.simba} // To load the SRL include files
{$I SPS/lib/SPS-RS3.Simba} // To load the SPS include files
procedure declarePlayers();
begin
setLength(players, 1);
with players[0] do
begin
loginName := '';
password := '';
isActive := true;
isMember := false;
end
currentPlayer := 0;
end;
////////////////*************SCRIPT*****************\\\\\\\\\\\\\\\\\\\\\\\\\\\
//RunToTrees
procedure runToTrees();
var
pathToTrees: TPointArray;
begin
if not isLoggedIn() then
exit;
pathToTrees := [Point(49, 35), Point(54, 45), Point(68, 61), Point(73, 75), Point(79, 96), Point(85, 114), Point(93, 149), Point(95, 172), Point(95, 189), Point(100, 216), Point(104, 242),Point(125, 252)];
if SPS.walkPath(pathToTrees) then
minimap.waitPlayerMoving()
else
writeLn('We failed to walk to the trees');
end;
//chopTrees
procedure chopTrees();
var
x, y, i, r: integer;
TPA: TPointArray;
ATPA: T2DPointArray;
mineTimer: TTimeMarker;
begin
if not isLoggedIn() then
exit;
minetimer.start();
// if random(50) = 4 then
// MyRandomCompass();
repeat
wait(randomRange(1000, 2600));
findColorsSpiralTolerance(x, y, TPA, 2575198, mainScreen.getBounds(), 6, colorSetting(2, 0.28, 0.54));
if not isLoggedIn() then
exit;
if (Length(TPA) < 1) then
exit;
ATPA := TPA.toATPA(20, 20);
ATPA.filterBetween(0, 6);
ATPA.sortFromMidPoint(mainscreen.playerPoint);
smartImage.debugATPA(ATPA);
// if mainscreen.isPlayerAnimating() then
// repeat
// if random(50) = 4 then
// smallRandomMouse(80 + random(100));
// wait(randomRange(500, 1000));
// writeLn('waiting to finish mining rock');
// until not mainscreen.isplayeranimating();
for i := 0 to high(ATPA) do
begin
if random(9) = 4 then
smallRandomMouse(80 + random(100));
if random(20) = 5 then
sleepAndMoveMouse(randomRange(250, 750));
//if random(100) = 2 then
// MyRandomCompass();
mouse(middleTPA(ATPA[i]), MOUSE_MOVE);
inc(r);
if isMouseOverText(['hop','down','ree'], 100) then
begin
if random(30) = 1 then
begin
wait(randomRange(100, 200));
fastClick(MOUSE_RIGHT);
chooseOption.select(['hop','down','ree']);
smartImage.clear();
break;
end;
if random(100) = 4 then
// begin
// antiban();
// end;
if random(200) = 4 then
smallRandomMouse(10 + random(10));
//
fastClick(MOUSE_LEFT);
//
if random(200) = 4 then
fastClick(MOUSE_LEFT);
wait(1000 + random(500));
//if mainscreen.isPlayerAnimating() then
// begin
// writeLn('Player is Animating');
// if random(100) = 4 then
// begin
// antiban();
// writeLn('Doing antiban While Waiting');
// wait(10 + random(50));
// end;
// end;
if random(50) = 5 then
sleepAndMoveMouse(randomRange(1000, 1400));
//
smartImage.clear();
break;
end;
end;
tabBackpack.waitForShift(2500);
claimSpinTicket();
if (tabBackpack.isItemInSlot(28)) then
begin
wait(100)
//chooseOption.select(['rop','']);
//writeLn('BackPack Is Full. Banking now.');
end;
until tabBackpack.isFull();
minimap.setAngle(MM_DIRECTION_NORTH);
end;
procedure packIsFull();
begin
if tabBackpack.isFull() then
writeln('The backpack is full!');
tabBackpack.dropItems();
end;
// main loop
begin
clearDebug();
smartEnableDrawing := true;
setupSRL();
declarePlayers();
SPS.setup('Clay_miner01',RUNESCAPE_OTHER);
if not isLoggedIn() then
begin
players[currentPlayer].login();
exitTreasure();
minimap.setAngle(MM_DIRECTION_NORTH);
mainScreen.setAngle(MS_ANGLE_HIGH);
end;
// packIsFull();
repeat
repeat
chopTrees();
until tabBackPack.isFull
if tabBackPack.isFull() then
begin
packIsFull();
end;
until false;
end.
Im just trying to work on the chopTrees procedure so i can nail down the most important part, since i havent implemented the other procedures i just drop them using another procedure "packIsFull"
Too many TPA boxes in wood cutting procedure
Reply With Quote
Originally Posted by krogh424
but anyways what do you think of so far?
btw i used cluster instead of split
