P1nky's PestController

Printable View

Show 40 post(s) from this thread on one page

02-28-2012, 07:00 AM
P1nky

Quote:

Originally Posted by raptorstewie

:/ um, it says "SRL Compiled in 0 msec
SMART Initialized.
Loaded: Server 17, Members: False, Signed: True, Super Detail: False. help anyone?

Wait couple mins.

Quote:

Originally Posted by InH

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 27th, 2012 ||
||===========================||
Worked For 6 Minutes and 6 Seconds
Games Played 3
||===========================||

Now it sometimes gets stuck on how many points I have after game. =/

Elaborate please.
02-28-2012, 07:04 AM
one1988

hey p1nky using this to get me full Void now :)
02-28-2012, 07:49 PM
InH

Quote:

Originally Posted by P1nky

Wait couple mins.

Elaborate please.

when I have enough for a void piece that msg pops up and it gets stuck.
02-28-2012, 09:20 PM
P1nky

Quote:

Originally Posted by InH

when I have enough for a void piece that msg pops up and it gets stuck.

What message
02-28-2012, 09:49 PM
bobowns

Dunno what happened to the script but it stopped working after an hour now it just saved a screenshot to my desktop that says it died but its just stuck in the boat..i think jagex changed the colors or something cuz i tried 2 different scripts and none of em works for more than an hour
02-28-2012, 09:51 PM
InH

Quote:

Originally Posted by P1nky

What message

erm like saying you have 900 points or w/e u got.

@other nah make sure u use like 70% cpu usage from bar on right
02-28-2012, 10:03 PM
tomdingo95

i start it, it runs off the boat but goes and stands somewhere random not on the platform, it stands north north east, please fix it really annoying running for 6 hours and 3 games won..
02-28-2012, 10:19 PM
InH

Quote:

Originally Posted by tomdingo95

i start it, it runs off the boat but goes and stands somewhere random not on the platform, it stands north north east, please fix it really annoying running for 6 hours and 3 games won..

Yeah, its not clicking on planks anymore, its clicking on water or running out on the island.
02-29-2012, 12:01 AM
Firec4pe

Needs Faster Clicking since pests are dead before bot reacts
02-29-2012, 03:02 AM
Firec4pe

Running 'Almost' Fine after 3 Hours, 40 points[3hr], Reason because of Picture below, constantly just sits there spam clicking this tree stump.

http://i44.tinypic.com/2h6a8vd.png
02-29-2012, 04:05 AM
Last Legend

This script seems very attached to water and blue colors in general now, possibly off because of the game update, but I'm unsure.
Anubis

Just did a fast fix (fixed colors, better chance getting 500 now :) ), please test let me know:

Simba Code:

program PestControllerBETA;
{$DEFINE SMART}
{$i srl\srl.simba}
  {.include SRL/SRL/Skill/Fighting.simba}

  //P1nky's PestController
  //BETA Version

  //Make sure to have Auto Retiable off.
  //Set Character Outside the Boat.
  const
  SpecialAttacks = False;
  QuickPrayer = False; //Make sure to have Quick Prayer Set!
  Faster500 = True; //Having trouble getting your '500'? Well this will help you get over it!
  SRLStats_Username = '';  // Your SRL Stats Username (Optional) Register here: [url]http://stats.villavu.com/[/url]
  SRLStats_Password = '';// Your SRL Stats Password (Optional) Register here: [url]http://stats.villavu.com/[/url]

procedure DeclarePlayerz;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Your Runescape username
  Players[0].Pass := ''; //Your Runescape password
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
 end;

var
Reward, games, win, lost, Rp, Pp, Yp, yellow, white, LeftGate, DTMSPOT2, DTMSPOT3, DTMSPOT, x, y, counter: integer;

procedure FindRandoms;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
  NextPlayer(True);
  FindNormalRandoms;
  wait(Random(100) + 20);
  FindLamp('Woodcutting');
end;

function Step1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 933;
  dtmMainPoint.y := 115;
  dtmMainPoint.AreaSize := 3;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1452869;
  dtmMainPoint.Tolerance := 20;
  dtmSubPoints[0].x := 933;
  dtmSubPoints[0].y := 115;
  dtmSubPoints[0].AreaSize := 3;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1452869;
  dtmSubPoints[0].Tolerance := 20;
  dtmSubPoints[1].x := 933;
  dtmSubPoints[1].y := 121;
  dtmSubPoints[1].AreaSize := 3;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 4357778;
  dtmSubPoints[1].Tolerance := 20;
  dtmSubPoints[2].x := 923;
  dtmSubPoints[2].y := 114;
  dtmSubPoints[2].AreaSize := 3;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2844546;
  dtmSubPoints[2].Tolerance := 20;
  dtmSubPoints[3].x := 931;
  dtmSubPoints[3].y := 104;
  dtmSubPoints[3].AreaSize := 3;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2513523;
  dtmSubPoints[3].Tolerance := 20;
  dtmSubPoints[4].x := 941;
  dtmSubPoints[4].y := 114;
  dtmSubPoints[4].AreaSize := 3;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 5218735;
  dtmSubPoints[4].Tolerance := 20;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step2: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 901;
  dtmMainPoint.y := 138;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 25;
  dtmSubPoints[0].x := 901;
  dtmSubPoints[0].y := 138;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 25;
  dtmSubPoints[1].x := 902;
  dtmSubPoints[1].y := 133;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2714760;
  dtmSubPoints[1].Tolerance := 25;
  dtmSubPoints[2].x := 907;
  dtmSubPoints[2].y := 139;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2714760;
  dtmSubPoints[2].Tolerance := 25;
  dtmSubPoints[3].x := 901;
  dtmSubPoints[3].y := 145;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2714760;
  dtmSubPoints[3].Tolerance := 25;
  dtmSubPoints[4].x := 896;
  dtmSubPoints[4].y := 137;
  dtmSubPoints[4].AreaSize := 1;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 2714760;
  dtmSubPoints[4].Tolerance := 25;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step3: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 741;
  dtmMainPoint.y := 175;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 863541;
  dtmMainPoint.Tolerance := 15;
  dtmSubPoints[0].x := 741;
  dtmSubPoints[0].y := 175;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 863541;
  dtmSubPoints[0].Tolerance := 15;
  dtmSubPoints[1].x := 739;
  dtmSubPoints[1].y := 173;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 16249839;
  dtmSubPoints[1].Tolerance := 15;
  dtmSubPoints[2].x := 744;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2976616;
  dtmSubPoints[2].Tolerance := 15;
  dtmSubPoints[3].x := 737;
  dtmSubPoints[3].y := 169;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2841950;
  dtmSubPoints[3].Tolerance := 15;
  dtmSubPoints[4].x := 734;
  dtmSubPoints[4].y := 173;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 16249839;
  dtmSubPoints[4].Tolerance := 15;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

procedure ReportScreen(TP: TStringArray; Placement: TPoint; Colour: integer);
var
  mx, my, Pic, I, B, H, TPH, Numb: Integer;
  TTP: TPointArray;
  Canvas: TCanvas;
begin
  SmartSetDebug(True);
  GetClientDimensions(mx, my);
  Pic := BitmapFromString(mx, my, '');
  TPH := High(TP);
  for I := 0 to TPH do
  begin
    TTP := LoadTextTPA(TP[i], SmallChars, H);
    for B := 0 to High(TTP) do
    begin
      Numb := ((I + 1) * 13);
      FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, 8388736);
      FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
    end;
  end;
  Canvas := TCANVAS.Create;
  Canvas.Handle := SmartGetDebugDC;
  DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
  FreeBitmap(Pic);
end;

procedure ReportSmart;
begin
  ReportScreen(['P1nkys PestController', '', 'Worked For ' + TimeRunning, '', 'Games Played ' + IntToStr(Games)], Point(350, 223), 255);
end;

procedure SPOT1;
begin
  Status('Spot 1');
  SetRun(True);
  MakeCompass('S');
  DTMSPOT := Step1;
  if DTMRotated(DTMSPOT, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(Random(1000) + 500);
end;

procedure SPOT2;
begin
  Status('Spot 2');
  MakeCompass('S');
  DTMSPOT2 := Step2;
  if DTMRotated(DTMSPOT2, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(1300);
end;

function AwayFromVoid: boolean;
var
  C: Integer;
begin
  C := 42342;
  if not (C > 4) then
  begin
    result := false;
    exit;
    TerminateScript;
  end
  else
    result := true;
  Spot1;
end;

function Clan: boolean;
var
  X, Y: Integer;
begin
  Result := (FindColor(X, Y, 3226804, 460, 30, 461, 29));
end;

function RewardBox: Boolean;
begin
  if (Clan) then
  begin
    Mouse(475, 29, 1, 1, True);
  end;
  if FindColorTolerance(x, y, 986895, 134, 96, 435, 334, 1) then
  begin
    Result := True;
    Mouse(392, 60, 0, 0, true);
    Reward := Reward + 1;
  end
  else
    Result := False;
end;

procedure WinOrLose;
begin
  Status('Checking if Win Game Or Lose');
  RewardBox;
  MakeCompass('S');
  ReportSmart;
  if FindNPCChatText('Congratulations!', True) then
  begin
    win := win + 1;
    stats_IncVariable('PC Points Earned', 2);
    exit;
  end
  else if FindNPCChatText('noticed', True) or FindNPCChatText('lost.', True) then
  begin
    lost := lost + 1;
    exit;
  end
  else
  begin
    exit;
  end;
end;

function InBoat: Boolean;
begin
  result := (getColor(19, 30) = 13421772) and (getColor(19, 51) = 3265113);
end;

function NPC: Boolean;
begin
  FindRandoms;
  if FindNPCChatText('ritual', True) or FindNPCChatText('Congratulations!', True) or FindNPCChatText('knights', True) or FindNPCChatText('lost.', True) or FindText(x, y, 'attle', UpChars, MCX1, MCY1, MCX2, MCY2) or FindText(x, y, 'defend the Void Knight', UpChars, MCX1, MCY1, MCX2, MCY2) then
  begin
    Result := True;
    Writeln('NPC Message Detected!');
    if (FindColorSpiralTolerance(x, y, 540186, 136, 379, 415, 470, 25)) then
      Status('NPC Message');
    MMouse(x, y, 0, 0);
    wait(Random(200) + 20);
    Mouse(x, y, 0, 0, true);
    WinOrLose;
  end
  else
    Result := False;
end;

procedure RandomButton;
begin
  if not (Faster500) then
    case Random(3) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(600) + 500);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(600) + 500);
          KeyUp(VK_Right);
        end;
      2:
        begin
          KeyDown(VK_Up);
          wait(Random(200) + 500);
          KeyUp(VK_Up);
        end;
    end;
  if (Faster500) then
    case Random(5) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(200) + 20);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(200) + 20);
          KeyUp(VK_Right);
        end;
      2:
        begin
          wait(Random(100) + 20);
        end;
      3:
        begin
          wait(Random(100) + 20);
        end;
      4:
        begin
          wait(Random(100) + 20);
        end;
    end;
end;

procedure Report;
var
  Answer, WC: Integer;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  cleardebug;
  SRLRandomsReport;
  Writeln('||===========================||');
  Writeln('||   P1nkys PestController   ||');
  Writeln('||===========================||');
  Writeln('||    ' + TheDate(Date_Formal) + '    ||');
  Writeln('||===========================||');
  Writeln(' Worked For ' + TimeRunning);
  Writeln(' Games Played ' + IntToStr(Games));
  Writeln('||===========================||');
  ReportSmart;
  Stats_Commit;
end;

procedure AntiBan;
var
  NoBan: Integer;
begin
  Noban := Random(18);
  case Move of
    0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
    1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
    2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
    3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    5: RandomRclick;
    6: RandomButton;
    10: setangle(1)
  end;
end;

function InGame: Boolean;
begin
  result := (getColor(370, 74) = 16711935) and (getColor(404, 70) = 16737894);
end;

procedure BoatWait;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  repeat
    Status('Waiting In Boat');
    ReportSmart;
    RandomButton;
    FindRandoms;
    Report;
    wait(Random(100) + 20);
  until (NPC) or (Ingame);
  Games := Games + 1;
  exit;
end;

function FindBoard(x, y: Integer): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(1, 3);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4942983, MSX1, MSY1, MSX2, MSY2, 3);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 2, 2);
  for I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 1, 1);
    if (IsUpTextMultiCustom(['Gangplank'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;

procedure Plank;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  Status('Searching For Plank');
  WinOrLose;
  MakeCompass('S');
  FindRandoms;
  begin
    KeyDown(VK_Down);
    wait(Random(650) + 500);
    KeyUp(VK_Down);
  end;
  repeat
    RewardBox;
    ReportSmart;
    if not RewardBox then
      if FindBoard(x, y) then
        Status('Looking for Plank');
    wait(200 + random(232));
    if Isuptext('angplank') then
      ClickMouse2(true);
  until (FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('reach that') or (InBoat)) Setangle(0);
  FindRandoms;
  Report;
  NPC;
  exit;
end;

function Range: Boolean;
begin
  if (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
    Result := True;
    Writeln('TRUE');
  end
  else
    Result := False;
  Writeln('False');
end;

var
  qp: integer;

procedure QPrayer;
begin
  if QuickPrayer then
    QP := DTMFromString('mbQAAAHicY2VgYFBmZGBQAmItKC0JxGuA4kuBeB0QbwXi9UB88+1dhrVbNoAxiB1h38yADTBiwWAAAKBQDp8=');
  if FindDTM(QP, x, y, 701, 52, 733, 79) then
  begin
    MMouse(x, y, 0, 0);
    Mouse(x, y, 0, 0, true);
  end
  else
    exit;
end;

procedure SpecAttack;
begin
  if SpecialAttacks then
  begin
    Writeln('Toggling Special');
    Status('Special Attack ON');
    MouseBox(528, 179, 545, 195, 1);
    begin
      if (FindColorSpiralTolerance(x, y, 3566664, 545, 208, 738, 430, 25)) then
        Status('Special');
      MMouse(x, y, 0, 0);
      wait(Random(100) + 20);
      Mouse(x, y, 0, 0, true);
    end;
  end;
end;

function EFindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tol: Integer): Boolean;
begin
  Result := FindObjEx(cx, cy, Text, Color, Tol, 50, 33, 134, 542, 465);
end;

procedure FightPests;
var
  Z, R, CTS: Integer;
begin
  Status('Fighting Pests');
  if not (EFindObjCustom(x, y, ['hifter', 'Shifte', 'Shifter', 'hift'], [2108184, 5051472, 3228504, 4942983], 3)) then
  begin
    if (counter > 1000) then
    begin
      Report;
      counter := 0;
    end;
    R := Random(4);
    case R of
      0: RandomButton;
      1: wait(Random(25) + 20);
      2: wait(Random(25) + 20);
      3: wait(Random(25) + 20);
    end;
    Exit;
  end
  else
    Mmouse(x, y, 0, 0);
  wait(Random(100) + 20);
  if isuptext('ttac') then
  begin
    if not Faster500 then
    begin
      Mouse(x, y, 0, 0, False);
      ChooseOption('ttack');
    end
    else
    begin
      Mouse(x, y, 0, 0, true);
      wait(random(500) + 100);
    end;
    if Faster500 then
    begin
      wait(Random(100) + 20);
      Report;
    end
    else
      wait(2000);
    Report;
  end;
end;

function Portal(Name: string): Boolean;
begin
  case Name of
    'red':
      if (FindBlackChatMessage('south-western')) then
      begin
        Result := True;
        Writeln('Red Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
    'yellow':
      if (FindBlackChatMessage('south-eastern')) then
      begin
        Result := True;
        Writeln('Yellow Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
  end;
end;


procedure FreeDTMS;
begin
  FreeDTM(step1);
  FreeDTM(step2);
  FreeDTM(step3);
end;

begin
  Disguise('P1nky PestController');
  ClearDebug;
  ClearReport;
  Smart_Server := 17;
  Smart_Members := false;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  begin
    if (SRLStats_Username = '') then
      SetupSRLStats(654, 'Anonymous', 'anon1337')
    else
      SetupSRLStats(654, SRLStats_Username, SRLStats_Password);
    SetUpSRL;
    declareplayerz;
    ActivateClient;
    counter := 0;
    ClearDebug;
    LoginPlayer;
    Inc(counter);
    repeat
      begin
        FreeDTMS;
        NPC;
        Report;
        Plank;
        BoatWait;
        begin
          Spot1;
          Spot2;
          begin
            SpecAttack;
            QPrayer;
          end;
          repeat
            FightPests
          until not (Ingame);
        end;
      end;
    until (false);
  end;
end.

Will make official release tomorrow after few more tweaks!

02-29-2012, 01:20 PM
InH

new one works good but spam clicks void(Not void guy anymore just full void armour)
02-29-2012, 01:43 PM
CreaShun

The script terminates when the player dies. Any fixes for that?

Awesome script btw:)
02-29-2012, 05:48 PM
rebeltjeh

Quote:

Originally Posted by CreaShun

The script terminates when the player dies. Any fixes for that?

Awesome script btw:)

Yes, dont die :D
02-29-2012, 07:44 PM
Ashihtaka

I will test the new script when I get home, but does that mean that jagex DID change the colours?
02-29-2012, 08:55 PM
InH

Amg... just what I wanted to come home too..

Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 29th, 2012 ||
||===========================||
Worked For 6 Hours, 3 Minutes and 55 Seconds
Games Played 5
||===========================||

With your beta update. BTW.

(Oh nvm, i forgot to change some of the code, it went in the wrong lander thing)
03-01-2012, 11:45 AM
bnorman93

The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
03-01-2012, 11:46 AM
bnorman93

said something about fkey function highlighted when i tried to run the script
03-01-2012, 02:55 PM
werder

Quote:

Originally Posted by P1nky

Proggies:

PHP Code:

||===========================|| || P1nkys PestController || ||===========================|| || February 14th, 2012 || ||===========================|| Worked For 11 Hours, 57 Minutes and 43 Seconds Games Played 250 ||===========================|| ||===========================|| || P1nkys PestController || ||===========================|| || February 9th, 2012 || ||===========================|| Worked For 9 Hours, 18 Minutes and 43 Seconds Games Played 159 ||===========================|| ||===========================|| || P1nkys PestController || ||===========================|| || February 1st, 2012 || ||===========================|| Worked For 6 Hours, 8 Minutes and 37 Seconds Games Played 112 Won 71 Games Lose 6 Games ||===========================|| ||===========================|| ||===========================|| Got 194 points NextPlayer(False)

PHP Code:

[simba] ||===========================|| || P1nkys PestController || ||===========================|| || February 4th, 2012 || ||===========================|| Worked For 6 Hours, 12 Seconds Games Played 107 Won 90 Games Lose 8 Games ||===========================|| ||===========================|| ||===========================|| ||===========================|| || P1nkys PestController || ||===========================|| || February 4th, 2012 || ||===========================|| Worked For 6 Hours, 31 Seconds Games Played 124 Won 159 Games Lose 10 Games Reward 44 ||===========================|| ||===========================|| ||===========================||

[/QUOTE]

nice, does everybody has same as me? "client token error" after like 3-6hrs?
it seems like you can run for 11 hrs a row
03-01-2012, 10:21 PM
InH

Quote:

Originally Posted by werder

[simba]
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 4th, 2012 ||
||===========================||
Worked For 6 Hours, 12 Seconds
Games Played 107
Won 90 Games
Lose 8 Games
||===========================||
||===========================||
||===========================||

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 4th, 2012 ||
||===========================||
Worked For 6 Hours, 31 Seconds
Games Played 124
Won 159 Games
Lose 10 Games
Reward 44
||===========================||
||===========================||
||===========================||[/PHP]

nice, does everybody has same as me? "client token error" after like 3-6hrs?
it seems like you can run for 11 hrs a row[/QUOTE]
they added/had breaks taken.. If you have your account logout and sit in lobby for a while it kind've bypasses this I believe.
03-01-2012, 10:51 PM
Holako

I am 100 cb and it doesnt want to get in vetern boat
it goes to intermediate when i am standing next to the vetern one
any help?

Quote:

Originally Posted by Holako

I am 100 cb and it doesnt want to get in vetern boat
it goes to intermediate when i am standing next to the vetern one
any help?

Remove VK_Down in the "Plank" part of the script.

Just removed it quick, hope you don't mind P1nky.

Simba Code:

program PestControllerBETA;
{$DEFINE SMART}
{$i srl\srl.simba}
  {.include SRL/SRL/Skill/Fighting.simba}

  //P1nky's PestController
  //BETA Version

  //Make sure to have Auto Retiable off.
  //Set Character Outside the Boat.
  const
  SpecialAttacks = False;
  QuickPrayer = False; //Make sure to have Quick Prayer Set!
  Faster500 = True; //Having trouble getting your '500'? Well this will help you get over it!
  SRLStats_Username = '';  // Your SRL Stats Username (Optional) Register here: [url]http://stats.villavu.com/[/url]
  SRLStats_Password = '';// Your SRL Stats Password (Optional) Register here: [url]http://stats.villavu.com/[/url]

procedure DeclarePlayerz;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Your Runescape username
  Players[0].Pass := ''; //Your Runescape password
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
 end;

var
Reward, games, win, lost, Rp, Pp, Yp, yellow, white, LeftGate, DTMSPOT2, DTMSPOT3, DTMSPOT, x, y, counter: integer;

procedure FindRandoms;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
  NextPlayer(True);
  FindNormalRandoms;
  wait(Random(100) + 20);
  FindLamp('Woodcutting');
end;

function Step1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 933;
  dtmMainPoint.y := 115;
  dtmMainPoint.AreaSize := 3;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1452869;
  dtmMainPoint.Tolerance := 20;
  dtmSubPoints[0].x := 933;
  dtmSubPoints[0].y := 115;
  dtmSubPoints[0].AreaSize := 3;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1452869;
  dtmSubPoints[0].Tolerance := 20;
  dtmSubPoints[1].x := 933;
  dtmSubPoints[1].y := 121;
  dtmSubPoints[1].AreaSize := 3;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 4357778;
  dtmSubPoints[1].Tolerance := 20;
  dtmSubPoints[2].x := 923;
  dtmSubPoints[2].y := 114;
  dtmSubPoints[2].AreaSize := 3;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2844546;
  dtmSubPoints[2].Tolerance := 20;
  dtmSubPoints[3].x := 931;
  dtmSubPoints[3].y := 104;
  dtmSubPoints[3].AreaSize := 3;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2513523;
  dtmSubPoints[3].Tolerance := 20;
  dtmSubPoints[4].x := 941;
  dtmSubPoints[4].y := 114;
  dtmSubPoints[4].AreaSize := 3;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 5218735;
  dtmSubPoints[4].Tolerance := 20;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step2: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 901;
  dtmMainPoint.y := 138;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 25;
  dtmSubPoints[0].x := 901;
  dtmSubPoints[0].y := 138;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 25;
  dtmSubPoints[1].x := 902;
  dtmSubPoints[1].y := 133;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2714760;
  dtmSubPoints[1].Tolerance := 25;
  dtmSubPoints[2].x := 907;
  dtmSubPoints[2].y := 139;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2714760;
  dtmSubPoints[2].Tolerance := 25;
  dtmSubPoints[3].x := 901;
  dtmSubPoints[3].y := 145;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2714760;
  dtmSubPoints[3].Tolerance := 25;
  dtmSubPoints[4].x := 896;
  dtmSubPoints[4].y := 137;
  dtmSubPoints[4].AreaSize := 1;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 2714760;
  dtmSubPoints[4].Tolerance := 25;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step3: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 741;
  dtmMainPoint.y := 175;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 863541;
  dtmMainPoint.Tolerance := 15;
  dtmSubPoints[0].x := 741;
  dtmSubPoints[0].y := 175;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 863541;
  dtmSubPoints[0].Tolerance := 15;
  dtmSubPoints[1].x := 739;
  dtmSubPoints[1].y := 173;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 16249839;
  dtmSubPoints[1].Tolerance := 15;
  dtmSubPoints[2].x := 744;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2976616;
  dtmSubPoints[2].Tolerance := 15;
  dtmSubPoints[3].x := 737;
  dtmSubPoints[3].y := 169;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2841950;
  dtmSubPoints[3].Tolerance := 15;
  dtmSubPoints[4].x := 734;
  dtmSubPoints[4].y := 173;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 16249839;
  dtmSubPoints[4].Tolerance := 15;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

procedure ReportScreen(TP: TStringArray; Placement: TPoint; Colour: integer);
var
  mx, my, Pic, I, B, H, TPH, Numb: Integer;
  TTP: TPointArray;
  Canvas: TCanvas;
begin
  SmartSetDebug(True);
  GetClientDimensions(mx, my);
  Pic := BitmapFromString(mx, my, '');
  TPH := High(TP);
  for I := 0 to TPH do
  begin
    TTP := LoadTextTPA(TP[i], SmallChars, H);
    for B := 0 to High(TTP) do
    begin
      Numb := ((I + 1) * 13);
      FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, 8388736);
      FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
    end;
  end;
  Canvas := TCANVAS.Create;
  Canvas.Handle := SmartGetDebugDC;
  DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
  FreeBitmap(Pic);
end;

procedure ReportSmart;
begin
  ReportScreen(['P1nkys PestController', '', 'Worked For ' + TimeRunning, '', 'Games Played ' + IntToStr(Games)], Point(350, 223), 255);
end;

procedure SPOT1;
begin
  Status('Spot 1');
  SetRun(True);
  MakeCompass('S');
  DTMSPOT := Step1;
  if DTMRotated(DTMSPOT, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(Random(1000) + 500);
end;

procedure SPOT2;
begin
  Status('Spot 2');
  MakeCompass('S');
  DTMSPOT2 := Step2;
  if DTMRotated(DTMSPOT2, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(1300);
end;

function AwayFromVoid: boolean;
var
  C: Integer;
begin
  C := 42342;
  if not (C > 4) then
  begin
    result := false;
    exit;
    TerminateScript;
  end
  else
    result := true;
  Spot1;
end;

function Clan: boolean;
var
  X, Y: Integer;
begin
  Result := (FindColor(X, Y, 3226804, 460, 30, 461, 29));
end;

function RewardBox: Boolean;
begin
  if (Clan) then
  begin
    Mouse(475, 29, 1, 1, True);
  end;
  if FindColorTolerance(x, y, 986895, 134, 96, 435, 334, 1) then
  begin
    Result := True;
    Mouse(392, 60, 0, 0, true);
    Reward := Reward + 1;
  end
  else
    Result := False;
end;

procedure WinOrLose;
begin
  Status('Checking if Win Game Or Lose');
  RewardBox;
  MakeCompass('S');
  ReportSmart;
  if FindNPCChatText('Congratulations!', True) then
  begin
    win := win + 1;
    stats_IncVariable('PC Points Earned', 2);
    exit;
  end
  else if FindNPCChatText('noticed', True) or FindNPCChatText('lost.', True) then
  begin
    lost := lost + 1;
    exit;
  end
  else
  begin
    exit;
  end;
end;

function InBoat: Boolean;
begin
  result := (getColor(19, 30) = 13421772) and (getColor(19, 51) = 3265113);
end;

function NPC: Boolean;
begin
  FindRandoms;
  if FindNPCChatText('ritual', True) or FindNPCChatText('Congratulations!', True) or FindNPCChatText('knights', True) or FindNPCChatText('lost.', True) or FindText(x, y, 'attle', UpChars, MCX1, MCY1, MCX2, MCY2) or FindText(x, y, 'defend the Void Knight', UpChars, MCX1, MCY1, MCX2, MCY2) then
  begin
    Result := True;
    Writeln('NPC Message Detected!');
    if (FindColorSpiralTolerance(x, y, 540186, 136, 379, 415, 470, 25)) then
      Status('NPC Message');
    MMouse(x, y, 0, 0);
    wait(Random(200) + 20);
    Mouse(x, y, 0, 0, true);
    WinOrLose;
  end
  else
    Result := False;
end;

procedure RandomButton;
begin
  if not (Faster500) then
    case Random(3) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(600) + 500);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(600) + 500);
          KeyUp(VK_Right);
        end;
      2:
        begin
          KeyDown(VK_Up);
          wait(Random(200) + 500);
          KeyUp(VK_Up);
        end;
    end;
  if (Faster500) then
    case Random(5) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(200) + 20);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(200) + 20);
          KeyUp(VK_Right);
        end;
      2:
        begin
          wait(Random(100) + 20);
        end;
      3:
        begin
          wait(Random(100) + 20);
        end;
      4:
        begin
          wait(Random(100) + 20);
        end;
    end;
end;

procedure Report;
var
  Answer, WC: Integer;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  cleardebug;
  SRLRandomsReport;
  Writeln('||===========================||');
  Writeln('||   P1nkys PestController   ||');
  Writeln('||===========================||');
  Writeln('||    ' + TheDate(Date_Formal) + '    ||');
  Writeln('||===========================||');
  Writeln(' Worked For ' + TimeRunning);
  Writeln(' Games Played ' + IntToStr(Games));
  Writeln('||===========================||');
  ReportSmart;
  Stats_Commit;
end;

procedure AntiBan;
var
  NoBan: Integer;
begin
  Noban := Random(18);
  case Move of
    0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
    1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
    2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
    3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    5: RandomRclick;
    6: RandomButton;
    10: setangle(1)
  end;
end;

function InGame: Boolean;
begin
  result := (getColor(370, 74) = 16711935) and (getColor(404, 70) = 16737894);
end;

procedure BoatWait;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  repeat
    Status('Waiting In Boat');
    ReportSmart;
    RandomButton;
    FindRandoms;
    Report;
    wait(Random(100) + 20);
  until (NPC) or (Ingame);
  Games := Games + 1;
  exit;
end;

function FindBoard(x, y: Integer): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(1, 3);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4942983, MSX1, MSY1, MSX2, MSY2, 3);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 2, 2);
  for I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 1, 1);
    if (IsUpTextMultiCustom(['Gangplank'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;

procedure Plank;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  Status('Searching For Plank');
  WinOrLose;
  MakeCompass('S');
  FindRandoms;
  begin
    wait(Random(650) + 500);
  end;
  repeat
    RewardBox;
    ReportSmart;
    if not RewardBox then
      if FindBoard(x, y) then
        Status('Looking for Plank');
    wait(200 + random(232));
    if Isuptext('angplank') then
      ClickMouse2(true);
  until (FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('reach that') or (InBoat)) Setangle(0);
  FindRandoms;
  Report;
  NPC;
  exit;
end;

function Range: Boolean;
begin
  if (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
    Result := True;
    Writeln('TRUE');
  end
  else
    Result := False;
  Writeln('False');
end;

var
  qp: integer;

procedure QPrayer;
begin
  if QuickPrayer then
    QP := DTMFromString('mbQAAAHicY2VgYFBmZGBQAmItKC0JxGuA4kuBeB0QbwXi9UB88+1dhrVbNoAxiB1h38yADTBiwWAAAKBQDp8=');
  if FindDTM(QP, x, y, 701, 52, 733, 79) then
  begin
    MMouse(x, y, 0, 0);
    Mouse(x, y, 0, 0, true);
  end
  else
    exit;
end;

procedure SpecAttack;
begin
  if SpecialAttacks then
  begin
    Writeln('Toggling Special');
    Status('Special Attack ON');
    MouseBox(528, 179, 545, 195, 1);
    begin
      if (FindColorSpiralTolerance(x, y, 3566664, 545, 208, 738, 430, 25)) then
        Status('Special');
      MMouse(x, y, 0, 0);
      wait(Random(100) + 20);
      Mouse(x, y, 0, 0, true);
    end;
  end;
end;

function EFindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tol: Integer): Boolean;
begin
  Result := FindObjEx(cx, cy, Text, Color, Tol, 50, 33, 134, 542, 465);
end;

procedure FightPests;
var
  Z, R, CTS: Integer;
begin
  Status('Fighting Pests');
  if not (EFindObjCustom(x, y, ['hifter', 'Shifte', 'Shifter', 'hift'], [2108184, 5051472, 3228504, 4942983], 3)) then
  begin
    if (counter > 1000) then
    begin
      Report;
      counter := 0;
    end;
    R := Random(4);
    case R of
      0: RandomButton;
      1: wait(Random(25) + 20);
      2: wait(Random(25) + 20);
      3: wait(Random(25) + 20);
    end;
    Exit;
  end
  else
    Mmouse(x, y, 0, 0);
  wait(Random(100) + 20);
  if isuptext('ttac') then
  begin
    if not Faster500 then
    begin
      Mouse(x, y, 0, 0, False);
      ChooseOption('ttack');
    end
    else
    begin
      Mouse(x, y, 0, 0, true);
      wait(random(500) + 100);
    end;
    if Faster500 then
    begin
      wait(Random(100) + 20);
      Report;
    end
    else
      wait(2000);
    Report;
  end;
end;

function Portal(Name: string): Boolean;
begin
  case Name of
    'red':
      if (FindBlackChatMessage('south-western')) then
      begin
        Result := True;
        Writeln('Red Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
    'yellow':
      if (FindBlackChatMessage('south-eastern')) then
      begin
        Result := True;
        Writeln('Yellow Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
  end;
end;


procedure FreeDTMS;
begin
  FreeDTM(step1);
  FreeDTM(step2);
  FreeDTM(step3);
end;

begin
  Disguise('P1nky PestController');
  ClearDebug;
  ClearReport;
  Smart_Server := 17;
  Smart_Members := false;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  begin
    if (SRLStats_Username = '') then
      SetupSRLStats(654, 'Anonymous', 'anon1337')
    else
      SetupSRLStats(654, SRLStats_Username, SRLStats_Password);
    SetUpSRL;
    declareplayerz;
    ActivateClient;
    counter := 0;
    ClearDebug;
    LoginPlayer;
    Inc(counter);
    repeat
      begin
        FreeDTMS;
        NPC;
        Report;
        Plank;
        BoatWait;
        begin
          Spot1;
          Spot2;
          begin
            SpecAttack;
            QPrayer;
          end;
          repeat
            FightPests
          until not (Ingame);
        end;
      end;
    until (false);
  end;
end.

Quote:

Originally Posted by InH

Remove VK_Down in the "Plank" part of the script.

Just removed it quick, hope you don't mind P1nky.

Simba Code:

program PestControllerBETA;
{$DEFINE SMART}
{$i srl\srl.simba}
  {.include SRL/SRL/Skill/Fighting.simba}

  //P1nky's PestController
  //BETA Version

  //Make sure to have Auto Retiable off.
  //Set Character Outside the Boat.
  const
  SpecialAttacks = False;
  QuickPrayer = False; //Make sure to have Quick Prayer Set!
  Faster500 = True; //Having trouble getting your '500'? Well this will help you get over it!
  SRLStats_Username = '';  // Your SRL Stats Username (Optional) Register here: [url]http://stats.villavu.com/[/url]
  SRLStats_Password = '';// Your SRL Stats Password (Optional) Register here: [url]http://stats.villavu.com/[/url]

procedure DeclarePlayerz;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Your Runescape username
  Players[0].Pass := ''; //Your Runescape password
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
 end;

var
Reward, games, win, lost, Rp, Pp, Yp, yellow, white, LeftGate, DTMSPOT2, DTMSPOT3, DTMSPOT, x, y, counter: integer;

procedure FindRandoms;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
  NextPlayer(True);
  FindNormalRandoms;
  wait(Random(100) + 20);
  FindLamp('Woodcutting');
end;

function Step1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 933;
  dtmMainPoint.y := 115;
  dtmMainPoint.AreaSize := 3;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1452869;
  dtmMainPoint.Tolerance := 20;
  dtmSubPoints[0].x := 933;
  dtmSubPoints[0].y := 115;
  dtmSubPoints[0].AreaSize := 3;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1452869;
  dtmSubPoints[0].Tolerance := 20;
  dtmSubPoints[1].x := 933;
  dtmSubPoints[1].y := 121;
  dtmSubPoints[1].AreaSize := 3;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 4357778;
  dtmSubPoints[1].Tolerance := 20;
  dtmSubPoints[2].x := 923;
  dtmSubPoints[2].y := 114;
  dtmSubPoints[2].AreaSize := 3;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2844546;
  dtmSubPoints[2].Tolerance := 20;
  dtmSubPoints[3].x := 931;
  dtmSubPoints[3].y := 104;
  dtmSubPoints[3].AreaSize := 3;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2513523;
  dtmSubPoints[3].Tolerance := 20;
  dtmSubPoints[4].x := 941;
  dtmSubPoints[4].y := 114;
  dtmSubPoints[4].AreaSize := 3;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 5218735;
  dtmSubPoints[4].Tolerance := 20;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step2: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 901;
  dtmMainPoint.y := 138;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 25;
  dtmSubPoints[0].x := 901;
  dtmSubPoints[0].y := 138;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 25;
  dtmSubPoints[1].x := 902;
  dtmSubPoints[1].y := 133;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2714760;
  dtmSubPoints[1].Tolerance := 25;
  dtmSubPoints[2].x := 907;
  dtmSubPoints[2].y := 139;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2714760;
  dtmSubPoints[2].Tolerance := 25;
  dtmSubPoints[3].x := 901;
  dtmSubPoints[3].y := 145;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2714760;
  dtmSubPoints[3].Tolerance := 25;
  dtmSubPoints[4].x := 896;
  dtmSubPoints[4].y := 137;
  dtmSubPoints[4].AreaSize := 1;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 2714760;
  dtmSubPoints[4].Tolerance := 25;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step3: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 741;
  dtmMainPoint.y := 175;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 863541;
  dtmMainPoint.Tolerance := 15;
  dtmSubPoints[0].x := 741;
  dtmSubPoints[0].y := 175;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 863541;
  dtmSubPoints[0].Tolerance := 15;
  dtmSubPoints[1].x := 739;
  dtmSubPoints[1].y := 173;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 16249839;
  dtmSubPoints[1].Tolerance := 15;
  dtmSubPoints[2].x := 744;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2976616;
  dtmSubPoints[2].Tolerance := 15;
  dtmSubPoints[3].x := 737;
  dtmSubPoints[3].y := 169;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2841950;
  dtmSubPoints[3].Tolerance := 15;
  dtmSubPoints[4].x := 734;
  dtmSubPoints[4].y := 173;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 16249839;
  dtmSubPoints[4].Tolerance := 15;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

procedure ReportScreen(TP: TStringArray; Placement: TPoint; Colour: integer);
var
  mx, my, Pic, I, B, H, TPH, Numb: Integer;
  TTP: TPointArray;
  Canvas: TCanvas;
begin
  SmartSetDebug(True);
  GetClientDimensions(mx, my);
  Pic := BitmapFromString(mx, my, '');
  TPH := High(TP);
  for I := 0 to TPH do
  begin
    TTP := LoadTextTPA(TP[i], SmallChars, H);
    for B := 0 to High(TTP) do
    begin
      Numb := ((I + 1) * 13);
      FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, 8388736);
      FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
    end;
  end;
  Canvas := TCANVAS.Create;
  Canvas.Handle := SmartGetDebugDC;
  DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
  FreeBitmap(Pic);
end;

procedure ReportSmart;
begin
  ReportScreen(['P1nkys PestController', '', 'Worked For ' + TimeRunning, '', 'Games Played ' + IntToStr(Games)], Point(350, 223), 255);
end;

procedure SPOT1;
begin
  Status('Spot 1');
  SetRun(True);
  MakeCompass('S');
  DTMSPOT := Step1;
  if DTMRotated(DTMSPOT, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(Random(1000) + 500);
end;

procedure SPOT2;
begin
  Status('Spot 2');
  MakeCompass('S');
  DTMSPOT2 := Step2;
  if DTMRotated(DTMSPOT2, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(1300);
end;

function AwayFromVoid: boolean;
var
  C: Integer;
begin
  C := 42342;
  if not (C > 4) then
  begin
    result := false;
    exit;
    TerminateScript;
  end
  else
    result := true;
  Spot1;
end;

function Clan: boolean;
var
  X, Y: Integer;
begin
  Result := (FindColor(X, Y, 3226804, 460, 30, 461, 29));
end;

function RewardBox: Boolean;
begin
  if (Clan) then
  begin
    Mouse(475, 29, 1, 1, True);
  end;
  if FindColorTolerance(x, y, 986895, 134, 96, 435, 334, 1) then
  begin
    Result := True;
    Mouse(392, 60, 0, 0, true);
    Reward := Reward + 1;
  end
  else
    Result := False;
end;

procedure WinOrLose;
begin
  Status('Checking if Win Game Or Lose');
  RewardBox;
  MakeCompass('S');
  ReportSmart;
  if FindNPCChatText('Congratulations!', True) then
  begin
    win := win + 1;
    stats_IncVariable('PC Points Earned', 2);
    exit;
  end
  else if FindNPCChatText('noticed', True) or FindNPCChatText('lost.', True) then
  begin
    lost := lost + 1;
    exit;
  end
  else
  begin
    exit;
  end;
end;

function InBoat: Boolean;
begin
  result := (getColor(19, 30) = 13421772) and (getColor(19, 51) = 3265113);
end;

function NPC: Boolean;
begin
  FindRandoms;
  if FindNPCChatText('ritual', True) or FindNPCChatText('Congratulations!', True) or FindNPCChatText('knights', True) or FindNPCChatText('lost.', True) or FindText(x, y, 'attle', UpChars, MCX1, MCY1, MCX2, MCY2) or FindText(x, y, 'defend the Void Knight', UpChars, MCX1, MCY1, MCX2, MCY2) then
  begin
    Result := True;
    Writeln('NPC Message Detected!');
    if (FindColorSpiralTolerance(x, y, 540186, 136, 379, 415, 470, 25)) then
      Status('NPC Message');
    MMouse(x, y, 0, 0);
    wait(Random(200) + 20);
    Mouse(x, y, 0, 0, true);
    WinOrLose;
  end
  else
    Result := False;
end;

procedure RandomButton;
begin
  if not (Faster500) then
    case Random(3) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(600) + 500);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(600) + 500);
          KeyUp(VK_Right);
        end;
      2:
        begin
          KeyDown(VK_Up);
          wait(Random(200) + 500);
          KeyUp(VK_Up);
        end;
    end;
  if (Faster500) then
    case Random(5) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(200) + 20);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(200) + 20);
          KeyUp(VK_Right);
        end;
      2:
        begin
          wait(Random(100) + 20);
        end;
      3:
        begin
          wait(Random(100) + 20);
        end;
      4:
        begin
          wait(Random(100) + 20);
        end;
    end;
end;

procedure Report;
var
  Answer, WC: Integer;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  cleardebug;
  SRLRandomsReport;
  Writeln('||===========================||');
  Writeln('||   P1nkys PestController   ||');
  Writeln('||===========================||');
  Writeln('||    ' + TheDate(Date_Formal) + '    ||');
  Writeln('||===========================||');
  Writeln(' Worked For ' + TimeRunning);
  Writeln(' Games Played ' + IntToStr(Games));
  Writeln('||===========================||');
  ReportSmart;
  Stats_Commit;
end;

procedure AntiBan;
var
  NoBan: Integer;
begin
  Noban := Random(18);
  case Move of
    0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
    1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
    2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
    3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    5: RandomRclick;
    6: RandomButton;
    10: setangle(1)
  end;
end;

function InGame: Boolean;
begin
  result := (getColor(370, 74) = 16711935) and (getColor(404, 70) = 16737894);
end;

procedure BoatWait;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  repeat
    Status('Waiting In Boat');
    ReportSmart;
    RandomButton;
    FindRandoms;
    Report;
    wait(Random(100) + 20);
  until (NPC) or (Ingame);
  Games := Games + 1;
  exit;
end;

function FindBoard(x, y: Integer): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(1, 3);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4942983, MSX1, MSY1, MSX2, MSY2, 3);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 2, 2);
  for I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 1, 1);
    if (IsUpTextMultiCustom(['Gangplank'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;

procedure Plank;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  Status('Searching For Plank');
  WinOrLose;
  MakeCompass('S');
  FindRandoms;
  begin
    wait(Random(650) + 500);
  end;
  repeat
    RewardBox;
    ReportSmart;
    if not RewardBox then
      if FindBoard(x, y) then
        Status('Looking for Plank');
    wait(200 + random(232));
    if Isuptext('angplank') then
      ClickMouse2(true);
  until (FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('reach that') or (InBoat)) Setangle(0);
  FindRandoms;
  Report;
  NPC;
  exit;
end;

function Range: Boolean;
begin
  if (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
    Result := True;
    Writeln('TRUE');
  end
  else
    Result := False;
  Writeln('False');
end;

var
  qp: integer;

procedure QPrayer;
begin
  if QuickPrayer then
    QP := DTMFromString('mbQAAAHicY2VgYFBmZGBQAmItKC0JxGuA4kuBeB0QbwXi9UB88+1dhrVbNoAxiB1h38yADTBiwWAAAKBQDp8=');
  if FindDTM(QP, x, y, 701, 52, 733, 79) then
  begin
    MMouse(x, y, 0, 0);
    Mouse(x, y, 0, 0, true);
  end
  else
    exit;
end;

procedure SpecAttack;
begin
  if SpecialAttacks then
  begin
    Writeln('Toggling Special');
    Status('Special Attack ON');
    MouseBox(528, 179, 545, 195, 1);
    begin
      if (FindColorSpiralTolerance(x, y, 3566664, 545, 208, 738, 430, 25)) then
        Status('Special');
      MMouse(x, y, 0, 0);
      wait(Random(100) + 20);
      Mouse(x, y, 0, 0, true);
    end;
  end;
end;

function EFindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tol: Integer): Boolean;
begin
  Result := FindObjEx(cx, cy, Text, Color, Tol, 50, 33, 134, 542, 465);
end;

procedure FightPests;
var
  Z, R, CTS: Integer;
begin
  Status('Fighting Pests');
  if not (EFindObjCustom(x, y, ['hifter', 'Shifte', 'Shifter', 'hift'], [2108184, 5051472, 3228504, 4942983], 3)) then
  begin
    if (counter > 1000) then
    begin
      Report;
      counter := 0;
    end;
    R := Random(4);
    case R of
      0: RandomButton;
      1: wait(Random(25) + 20);
      2: wait(Random(25) + 20);
      3: wait(Random(25) + 20);
    end;
    Exit;
  end
  else
    Mmouse(x, y, 0, 0);
  wait(Random(100) + 20);
  if isuptext('ttac') then
  begin
    if not Faster500 then
    begin
      Mouse(x, y, 0, 0, False);
      ChooseOption('ttack');
    end
    else
    begin
      Mouse(x, y, 0, 0, true);
      wait(random(500) + 100);
    end;
    if Faster500 then
    begin
      wait(Random(100) + 20);
      Report;
    end
    else
      wait(2000);
    Report;
  end;
end;

function Portal(Name: string): Boolean;
begin
  case Name of
    'red':
      if (FindBlackChatMessage('south-western')) then
      begin
        Result := True;
        Writeln('Red Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
    'yellow':
      if (FindBlackChatMessage('south-eastern')) then
      begin
        Result := True;
        Writeln('Yellow Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
  end;
end;


procedure FreeDTMS;
begin
  FreeDTM(step1);
  FreeDTM(step2);
  FreeDTM(step3);
end;

begin
  Disguise('P1nky PestController');
  ClearDebug;
  ClearReport;
  Smart_Server := 17;
  Smart_Members := false;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  begin
    if (SRLStats_Username = '') then
      SetupSRLStats(654, 'Anonymous', 'anon1337')
    else
      SetupSRLStats(654, SRLStats_Username, SRLStats_Password);
    SetUpSRL;
    declareplayerz;
    ActivateClient;
    counter := 0;
    ClearDebug;
    LoginPlayer;
    Inc(counter);
    repeat
      begin
        FreeDTMS;
        NPC;
        Report;
        Plank;
        BoatWait;
        begin
          Spot1;
          Spot2;
          begin
            SpecAttack;
            QPrayer;
          end;
          repeat
            FightPests
          until not (Ingame);
        end;
      end;
    until (false);
  end;
end.

Totally find, so y'all want a option for novice/intermediate/veteran?

I'll get that updated on next update!

Quote:

Originally Posted by InH

Remove VK_Down in the "Plank" part of the script.

Just removed it quick, hope you don't mind P1nky.

Simba Code:

program PestControllerBETA;
{$DEFINE SMART}
{$i srl\srl.simba}
  {.include SRL/SRL/Skill/Fighting.simba}

  //P1nky's PestController
  //BETA Version

  //Make sure to have Auto Retiable off.
  //Set Character Outside the Boat.
  const
  SpecialAttacks = False;
  QuickPrayer = False; //Make sure to have Quick Prayer Set!
  Faster500 = True; //Having trouble getting your '500'? Well this will help you get over it!
  SRLStats_Username = '';  // Your SRL Stats Username (Optional) Register here: [url]http://stats.villavu.com/[/url]
  SRLStats_Password = '';// Your SRL Stats Password (Optional) Register here: [url]http://stats.villavu.com/[/url]

procedure DeclarePlayerz;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Your Runescape username
  Players[0].Pass := ''; //Your Runescape password
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
 end;

var
Reward, games, win, lost, Rp, Pp, Yp, yellow, white, LeftGate, DTMSPOT2, DTMSPOT3, DTMSPOT, x, y, counter: integer;

procedure FindRandoms;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
  NextPlayer(True);
  FindNormalRandoms;
  wait(Random(100) + 20);
  FindLamp('Woodcutting');
end;

function Step1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 933;
  dtmMainPoint.y := 115;
  dtmMainPoint.AreaSize := 3;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1452869;
  dtmMainPoint.Tolerance := 20;
  dtmSubPoints[0].x := 933;
  dtmSubPoints[0].y := 115;
  dtmSubPoints[0].AreaSize := 3;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1452869;
  dtmSubPoints[0].Tolerance := 20;
  dtmSubPoints[1].x := 933;
  dtmSubPoints[1].y := 121;
  dtmSubPoints[1].AreaSize := 3;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 4357778;
  dtmSubPoints[1].Tolerance := 20;
  dtmSubPoints[2].x := 923;
  dtmSubPoints[2].y := 114;
  dtmSubPoints[2].AreaSize := 3;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2844546;
  dtmSubPoints[2].Tolerance := 20;
  dtmSubPoints[3].x := 931;
  dtmSubPoints[3].y := 104;
  dtmSubPoints[3].AreaSize := 3;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2513523;
  dtmSubPoints[3].Tolerance := 20;
  dtmSubPoints[4].x := 941;
  dtmSubPoints[4].y := 114;
  dtmSubPoints[4].AreaSize := 3;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 5218735;
  dtmSubPoints[4].Tolerance := 20;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step2: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 901;
  dtmMainPoint.y := 138;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 25;
  dtmSubPoints[0].x := 901;
  dtmSubPoints[0].y := 138;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 25;
  dtmSubPoints[1].x := 902;
  dtmSubPoints[1].y := 133;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2714760;
  dtmSubPoints[1].Tolerance := 25;
  dtmSubPoints[2].x := 907;
  dtmSubPoints[2].y := 139;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2714760;
  dtmSubPoints[2].Tolerance := 25;
  dtmSubPoints[3].x := 901;
  dtmSubPoints[3].y := 145;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2714760;
  dtmSubPoints[3].Tolerance := 25;
  dtmSubPoints[4].x := 896;
  dtmSubPoints[4].y := 137;
  dtmSubPoints[4].AreaSize := 1;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 2714760;
  dtmSubPoints[4].Tolerance := 25;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step3: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 741;
  dtmMainPoint.y := 175;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 863541;
  dtmMainPoint.Tolerance := 15;
  dtmSubPoints[0].x := 741;
  dtmSubPoints[0].y := 175;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 863541;
  dtmSubPoints[0].Tolerance := 15;
  dtmSubPoints[1].x := 739;
  dtmSubPoints[1].y := 173;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 16249839;
  dtmSubPoints[1].Tolerance := 15;
  dtmSubPoints[2].x := 744;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2976616;
  dtmSubPoints[2].Tolerance := 15;
  dtmSubPoints[3].x := 737;
  dtmSubPoints[3].y := 169;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2841950;
  dtmSubPoints[3].Tolerance := 15;
  dtmSubPoints[4].x := 734;
  dtmSubPoints[4].y := 173;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 16249839;
  dtmSubPoints[4].Tolerance := 15;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

procedure ReportScreen(TP: TStringArray; Placement: TPoint; Colour: integer);
var
  mx, my, Pic, I, B, H, TPH, Numb: Integer;
  TTP: TPointArray;
  Canvas: TCanvas;
begin
  SmartSetDebug(True);
  GetClientDimensions(mx, my);
  Pic := BitmapFromString(mx, my, '');
  TPH := High(TP);
  for I := 0 to TPH do
  begin
    TTP := LoadTextTPA(TP[i], SmallChars, H);
    for B := 0 to High(TTP) do
    begin
      Numb := ((I + 1) * 13);
      FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, 8388736);
      FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
    end;
  end;
  Canvas := TCANVAS.Create;
  Canvas.Handle := SmartGetDebugDC;
  DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
  FreeBitmap(Pic);
end;

procedure ReportSmart;
begin
  ReportScreen(['P1nkys PestController', '', 'Worked For ' + TimeRunning, '', 'Games Played ' + IntToStr(Games)], Point(350, 223), 255);
end;

procedure SPOT1;
begin
  Status('Spot 1');
  SetRun(True);
  MakeCompass('S');
  DTMSPOT := Step1;
  if DTMRotated(DTMSPOT, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(Random(1000) + 500);
end;

procedure SPOT2;
begin
  Status('Spot 2');
  MakeCompass('S');
  DTMSPOT2 := Step2;
  if DTMRotated(DTMSPOT2, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(1300);
end;

function AwayFromVoid: boolean;
var
  C: Integer;
begin
  C := 42342;
  if not (C > 4) then
  begin
    result := false;
    exit;
    TerminateScript;
  end
  else
    result := true;
  Spot1;
end;

function Clan: boolean;
var
  X, Y: Integer;
begin
  Result := (FindColor(X, Y, 3226804, 460, 30, 461, 29));
end;

function RewardBox: Boolean;
begin
  if (Clan) then
  begin
    Mouse(475, 29, 1, 1, True);
  end;
  if FindColorTolerance(x, y, 986895, 134, 96, 435, 334, 1) then
  begin
    Result := True;
    Mouse(392, 60, 0, 0, true);
    Reward := Reward + 1;
  end
  else
    Result := False;
end;

procedure WinOrLose;
begin
  Status('Checking if Win Game Or Lose');
  RewardBox;
  MakeCompass('S');
  ReportSmart;
  if FindNPCChatText('Congratulations!', True) then
  begin
    win := win + 1;
    stats_IncVariable('PC Points Earned', 2);
    exit;
  end
  else if FindNPCChatText('noticed', True) or FindNPCChatText('lost.', True) then
  begin
    lost := lost + 1;
    exit;
  end
  else
  begin
    exit;
  end;
end;

function InBoat: Boolean;
begin
  result := (getColor(19, 30) = 13421772) and (getColor(19, 51) = 3265113);
end;

function NPC: Boolean;
begin
  FindRandoms;
  if FindNPCChatText('ritual', True) or FindNPCChatText('Congratulations!', True) or FindNPCChatText('knights', True) or FindNPCChatText('lost.', True) or FindText(x, y, 'attle', UpChars, MCX1, MCY1, MCX2, MCY2) or FindText(x, y, 'defend the Void Knight', UpChars, MCX1, MCY1, MCX2, MCY2) then
  begin
    Result := True;
    Writeln('NPC Message Detected!');
    if (FindColorSpiralTolerance(x, y, 540186, 136, 379, 415, 470, 25)) then
      Status('NPC Message');
    MMouse(x, y, 0, 0);
    wait(Random(200) + 20);
    Mouse(x, y, 0, 0, true);
    WinOrLose;
  end
  else
    Result := False;
end;

procedure RandomButton;
begin
  if not (Faster500) then
    case Random(3) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(600) + 500);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(600) + 500);
          KeyUp(VK_Right);
        end;
      2:
        begin
          KeyDown(VK_Up);
          wait(Random(200) + 500);
          KeyUp(VK_Up);
        end;
    end;
  if (Faster500) then
    case Random(5) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(200) + 20);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(200) + 20);
          KeyUp(VK_Right);
        end;
      2:
        begin
          wait(Random(100) + 20);
        end;
      3:
        begin
          wait(Random(100) + 20);
        end;
      4:
        begin
          wait(Random(100) + 20);
        end;
    end;
end;

procedure Report;
var
  Answer, WC: Integer;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  cleardebug;
  SRLRandomsReport;
  Writeln('||===========================||');
  Writeln('||   P1nkys PestController   ||');
  Writeln('||===========================||');
  Writeln('||    ' + TheDate(Date_Formal) + '    ||');
  Writeln('||===========================||');
  Writeln(' Worked For ' + TimeRunning);
  Writeln(' Games Played ' + IntToStr(Games));
  Writeln('||===========================||');
  ReportSmart;
  Stats_Commit;
end;

procedure AntiBan;
var
  NoBan: Integer;
begin
  Noban := Random(18);
  case Move of
    0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
    1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
    2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
    3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    5: RandomRclick;
    6: RandomButton;
    10: setangle(1)
  end;
end;

function InGame: Boolean;
begin
  result := (getColor(370, 74) = 16711935) and (getColor(404, 70) = 16737894);
end;

procedure BoatWait;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  repeat
    Status('Waiting In Boat');
    ReportSmart;
    RandomButton;
    FindRandoms;
    Report;
    wait(Random(100) + 20);
  until (NPC) or (Ingame);
  Games := Games + 1;
  exit;
end;

function FindBoard(x, y: Integer): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(1, 3);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4942983, MSX1, MSY1, MSX2, MSY2, 3);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 2, 2);
  for I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 1, 1);
    if (IsUpTextMultiCustom(['Gangplank'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;

procedure Plank;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  Status('Searching For Plank');
  WinOrLose;
  MakeCompass('S');
  FindRandoms;
  begin
    wait(Random(650) + 500);
  end;
  repeat
    RewardBox;
    ReportSmart;
    if not RewardBox then
      if FindBoard(x, y) then
        Status('Looking for Plank');
    wait(200 + random(232));
    if Isuptext('angplank') then
      ClickMouse2(true);
  until (FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('reach that') or (InBoat)) Setangle(0);
  FindRandoms;
  Report;
  NPC;
  exit;
end;

function Range: Boolean;
begin
  if (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
    Result := True;
    Writeln('TRUE');
  end
  else
    Result := False;
  Writeln('False');
end;

var
  qp: integer;

procedure QPrayer;
begin
  if QuickPrayer then
    QP := DTMFromString('mbQAAAHicY2VgYFBmZGBQAmItKC0JxGuA4kuBeB0QbwXi9UB88+1dhrVbNoAxiB1h38yADTBiwWAAAKBQDp8=');
  if FindDTM(QP, x, y, 701, 52, 733, 79) then
  begin
    MMouse(x, y, 0, 0);
    Mouse(x, y, 0, 0, true);
  end
  else
    exit;
end;

procedure SpecAttack;
begin
  if SpecialAttacks then
  begin
    Writeln('Toggling Special');
    Status('Special Attack ON');
    MouseBox(528, 179, 545, 195, 1);
    begin
      if (FindColorSpiralTolerance(x, y, 3566664, 545, 208, 738, 430, 25)) then
        Status('Special');
      MMouse(x, y, 0, 0);
      wait(Random(100) + 20);
      Mouse(x, y, 0, 0, true);
    end;
  end;
end;

function EFindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tol: Integer): Boolean;
begin
  Result := FindObjEx(cx, cy, Text, Color, Tol, 50, 33, 134, 542, 465);
end;

procedure FightPests;
var
  Z, R, CTS: Integer;
begin
  Status('Fighting Pests');
  if not (EFindObjCustom(x, y, ['hifter', 'Shifte', 'Shifter', 'hift'], [2108184, 5051472, 3228504, 4942983], 3)) then
  begin
    if (counter > 1000) then
    begin
      Report;
      counter := 0;
    end;
    R := Random(4);
    case R of
      0: RandomButton;
      1: wait(Random(25) + 20);
      2: wait(Random(25) + 20);
      3: wait(Random(25) + 20);
    end;
    Exit;
  end
  else
    Mmouse(x, y, 0, 0);
  wait(Random(100) + 20);
  if isuptext('ttac') then
  begin
    if not Faster500 then
    begin
      Mouse(x, y, 0, 0, False);
      ChooseOption('ttack');
    end
    else
    begin
      Mouse(x, y, 0, 0, true);
      wait(random(500) + 100);
    end;
    if Faster500 then
    begin
      wait(Random(100) + 20);
      Report;
    end
    else
      wait(2000);
    Report;
  end;
end;

function Portal(Name: string): Boolean;
begin
  case Name of
    'red':
      if (FindBlackChatMessage('south-western')) then
      begin
        Result := True;
        Writeln('Red Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
    'yellow':
      if (FindBlackChatMessage('south-eastern')) then
      begin
        Result := True;
        Writeln('Yellow Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
  end;
end;


procedure FreeDTMS;
begin
  FreeDTM(step1);
  FreeDTM(step2);
  FreeDTM(step3);
end;

begin
  Disguise('P1nky PestController');
  ClearDebug;
  ClearReport;
  Smart_Server := 17;
  Smart_Members := false;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  begin
    if (SRLStats_Username = '') then
      SetupSRLStats(654, 'Anonymous', 'anon1337')
    else
      SetupSRLStats(654, SRLStats_Username, SRLStats_Password);
    SetUpSRL;
    declareplayerz;
    ActivateClient;
    counter := 0;
    ClearDebug;
    LoginPlayer;
    Inc(counter);
    repeat
      begin
        FreeDTMS;
        NPC;
        Report;
        Plank;
        BoatWait;
        begin
          Spot1;
          Spot2;
          begin
            SpecAttack;
            QPrayer;
          end;
          repeat
            FightPests
          until not (Ingame);
        end;
      end;
    until (false);
  end;
end.

thanks you very much
worked! :)

03-01-2012, 11:28 PM
Holako

Quote:

Originally Posted by P1nky

Totally find, so y'all want a option for novice/intermediate/veteran?

I'll get that updated on next update!

yes plz :)
03-02-2012, 08:35 AM
P1nky

Uploaded [F].

-Fixed finding pest/plank.
-A lot of tweaks.

Cheers.
03-02-2012, 08:41 AM
Kajutsky

Quote:

Originally Posted by P1nky

Uploaded [F].

-Fixed finding pest/plank.
-A lot of tweaks.

Cheers.

By any chance is the bot able to attack all pests and/or portals?
03-02-2012, 08:45 AM
P1nky

Quote:

Originally Posted by dgpro

By any chance is the bot able to attack all pests and/or portals?

I'll work on that after I finish up my SoulWar bot.
03-02-2012, 03:10 PM
Holako

not finding the vetern boat in version f
03-02-2012, 03:13 PM
superbuster4

so does this run well now?
03-02-2012, 10:22 PM
Ashihtaka

Quote:

Originally Posted by superbuster4

so does this run well now?

Run it and see. It works well for me, except sometimes gets stuck
03-02-2012, 10:26 PM
Ashihtaka

P1nky, is there any way you can stop the pointer from clicking the tree stump near the centre of the field?
Some colour must be too similar to it.

Also, I keep getting this message:

Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
03-02-2012, 10:44 PM
InH

Quote:

Originally Posted by ashihtaka

P1nky, is there any way you can stop the pointer from clicking the tree stump near the centre of the field?
Some colour must be too similar to it.

Also, I keep getting this message:

Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.

Ignore that message, and for the tree stump.. Use the new one he posted with updated colors.

Meh, went to that middle one again(not with new update this was like 1-2 days ago)
||===========================||
|| P1nkys PestController ||
||===========================||
|| March 2nd, 2012 ||
||===========================||
Worked For 9 Hours, 53 Minutes and 29 Seconds
Games Played 74
||===========================||
03-03-2012, 12:11 AM
bnorman93

function IsFKeyDown(FKey : integer) : boolean;
begin
if not InRange(FKey,1,12) then
raiseexception(erCustomError,'FKey not in range 1..12');
result := IsKeyDown(VK_F1 + FKey - 1);
end;

function GetColors(Coords : TPointArray) : TIntegerArray;
begin
GetColorsWrap(Coords,Result);
end;

procedure ColorToRGB(Color : TColor; var R,G,B : integer);
begin
R := Color and $ff;
G := Color shr 8 and $ff;
B := Color shr 16 and $ff;
end;

function Degrees(Radians: Extended): Extended;
03-03-2012, 02:11 AM
Ashihtaka

@InH, I always use the most updated version, but sometimes it still happens.

This is an excellent script if you babysit every hour or so though, good proggy so far:

||===========================||
|| P1nkys PestController ||
||===========================||
|| March 2nd, 2012 ||
||===========================||
Worked For 3 Hours, 20 Minutes and 6 Seconds
Games Played 64
||===========================||
03-03-2012, 04:07 AM
Ashihtaka

Updated proggy, worked very well today, so long that I manually closed it after 100 games

||===========================||
|| P1nkys PestController ||
||===========================||
|| March 2nd, 2012 ||
||===========================||
Worked For 5 Hours, 15 Minutes and 2 Seconds
Games Played 100
||===========================||
03-03-2012, 07:09 AM
Shawn1993

Hello, i see there are multiple kinds of these script like [F] [D] and beta, which one is best to use? Also does it work 100%, and do i need to update anything for it to function?
03-03-2012, 02:39 PM
superbuster4

big issue goes to the other fence.
03-03-2012, 03:15 PM
samj123

This keeps running to the middle and thats it

Show 40 post(s) from this thread on one page