From: Obscurity
The Pest Control bot is in my application. :-P. It follows the crowds of people around, attacking what ever it comes across in the process. It's great for the "scan & react" botting method that you'll see described by Clarity and myself soon. It's easy enough to design…
If you see a gangplank and no Pest Control flag, cross the gangplank.
If you see the Pest Control flag, wait - you're in the boat.
If you see the Squire's chat head, start the game by walking south.
Follow the crowds around, attacking everything.
As for the tutorial - it's great so far and nearly done. However, as I mentioned in SRL chat, I got busy the past two nights. A family member was recently arrested for stabbing a 7 month pregnant woman to death and "disposing" of her by burning her house down.
I might have enough time tonight.
@ObscurityDamn so my past hour is wasted, mind sharing the script with me? I was going to run it over night..
Here's my noobish script so far and I need to sleep.
program enigmaticPestControlReker;
{$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 := 'username';
password := 'password';
isActive := true;
isMember := true;
end
currentPlayer := 0;
end;
procedure findPlank();
var
x, y ,u: integer;
begin
if not isLoggedIn() then
exit;
minimap.setAngle(MM_DIRECTION_SOUTH);
mainScreen.setAngle(MS_ANGLE_HIGH);
mainscreen.findObject(x, y, 3298158, 3, colorSetting(2, 0.08, 1.91), mainscreen.playerPoint, 6, 10, 9, ['ross', 'angplank'], MOUSE_LEFT);
wait(randomRange(2000, 3000));
end;
procedure collectLogs();
var
pathToLogs: TPointArray;
x, y ,u: integer;
begin
if not IsLoggedIn() then
exit;
minimap.setAngle(MM_DIRECTION_SOUTH);
mainScreen.setAngle(MS_ANGLE_HIGH);
pathToLogs := [Point(159, 171), Point(156, 157), Point(138, 149)]
if SPS.walkPath(pathToLogs) then
minimap.waitPlayerMoving()
else
writeLn('Damn no logs for you, sadly..')
if
mainscreen.findObject(x, y, 1713710, 9, colorSetting(2, 0.22, 0.71), mainscreen.playerPoint, 13, 18, 17, ['og', 'stockpile'], MOUSE_RIGHT) then
writeLn('We found the logs, omg!');
chooseOption.select(['ake 10']);
wait(randomRange(2000, 3000));
end;
procedure runEast();
var
pathToBarrE: TPointArray;
begin
if not isLoggedIn() then
exit;
minimap.setAngle(MM_DIRECTION_SOUTH);
mainScreen.setAngle(MS_ANGLE_HIGH);
pathToBarrE := [Point(138, 149), Point(105, 106), Point(84, 77)]
if SPS.walkPath(pathToBarrE) then
minimap.waitPlayerMoving()
else
writeLn('Damn I could not go to that darn barricade..')
end;
procedure findBarrE();
var
x, y, u: integer;
begin
minimap.setAngle(MM_DIRECTION_SOUTH);
mainScreen.setAngle(MS_ANGLE_HIGH);
if
mainscreen.findObject(x, y, 4153454, 4, colorSetting(2, 0.14, 1.55), mainscreen.playerPoint, 5, 5, 4, ['epair', 'arricade'], MOUSE_RIGHT) then
repeat
writeLn('Repairing barricade sergeant awesome');
chooseOption.select(['epair', 'arricade']);
wait(randomRange(1000, 3000));
until false;
end;
procedure findWaitingFlag();
var
x, y ,u: integer;
begin
if
mainscreen.findObject(x, y, 4153454, 4, colorSetting(2, 0.14, 1.55), mainscreen.playerPoint, 1, 10, 8, ['layers', 'eady'])then
repeat
writeLn('Still waiting for game to start, hype');
wait(randomRange(3000, 13000));
until false;
end;
// main loop
begin
clearDebug(); // Clear the debug box
smartEnableDrawing := true; // So we can draw on SMART
setupSRL(); // Load the SRL include files
declarePlayers(); // Set up your username/pass
if not isLoggedIn() then // If player isn't logged in then
begin
players[currentPlayer].login(); // Log them in
exitTreasure(); // Exit treasure hunter
minimap.setAngle(MM_DIRECTION_SOUTH); // Make compass north and angle high
mainScreen.setAngle(MS_ANGLE_HIGH);
end;
repeat
findPlank();
findWaitingFlag();
collectLogs();
runEast();
findBarrE();
until false;
end.