beefman
2014-07-03 20:59:17
[ATTACH=CONFIG]23489[/ATTACH]
My bot cannot find the coords/walking to it. It's also not waiting 15 - 30 seconds before it uses the procedure coords();
Could someone help me please??
My bot cannot find the coords/walking to it. It's also not waiting 15 - 30 seconds before it uses the procedure coords();
Could someone help me please??
program scriptTemplate;
{$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;
var
TreeCount: integer; //global variable
CraftCount: integer;
procedure ChopTree();
var
x, y: integer;
begin // colour, tol CTS, hue, sat
if mainscreen.findObject(x, y, 529679, 6, colorSetting(2, 0.65, 9.02), mainscreen.playerPoint, 86, 50, 40, ['down Ever','last','ever'], MOUSE_LEFT) then
begin
writeLn('Yay we clicked a tree');
end;
if tabBackPack.waitForShift(randomRange(3000,6000)) then
writeLn('We got a log');
end;
procedure Shaft_antiBan();
begin
Case Random(6) of
0 : hoverSkill(SKILL_WOODCUTTING);
1 : mouseOffClient(OFF_CLIENT_RANDOM);
2 : randomGameTab(true);
3 : randomRClickItem();
4 : sleepAndMoveMouse(1000 + random(2000));
5 : randomCompass(10, 30, true);
end;
end;
procedure CutShafts();
begin
tabBackpack.Open;
if tabBackpack.isFull() then
begin
tabBackpack.mouseSlot(RandomRange(2 ,5), MOUSE_LEFT);
CraftCount := CraftCount + 1 ;
end;
if (CraftCount = 1) then
begin
wait(randomRange(700,1400));
Mouse(285, 209, 20, 20, MOUSE_LEFT);
wait(randomRange(700,1400));
productionScreen.clickStart();
mouseOffClient(OFF_CLIENT_RANDOM);
Shaft_antiBan();
wait(randomRange(49000,53000));
end;
if (CraftCount > 1) then
begin
wait(randomRange(700,1400));
productionScreen.clickStart();
Shaft_antiBan();
wait(randomRange(49000,53000));
end;
end;
procedure Coords();
begin
if (randomRange(15000,30000)) then
begin
SPS.walkToPos(point(randomRange(206, 157), randomRange(212,174)));
WriteLn('Walking to coords');
end;
end;
// main loop
begin
disableSRLDebug := true;
smartEnableDrawing := true;
setupSRL();
SPS.setup('Map', RUNESCAPE_OTHER);
spsAnyAngle := false;
declarePlayers();
if not isLoggedIn() then
begin
players[currentPlayer].login();
minimap.setAngle(MM_DIRECTION_NORTH);
mainScreen.setAngle(MS_ANGLE_HIGH);
mainScreen.setZoom(true)
end;
repeat
repeat
chopTree();
Coords();
until tabBackpack.isFull();
CutShafts();
until false
end.