Page 17 of 42 FirstFirst ... 7151617181927 ... LastLast
Results 401 to 425 of 1043

Thread: P1nky's PestController

  1. #401
    Join Date
    Dec 2011
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    okay will pm it in a second

  2. #402
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Quote Originally Posted by Holako View Post
    okay will pm it in a second
    Thank You, and I got a account now to update this script, so please do not PM Me unless it's important. Expect a update by tonight or so.

    -Cheers

  3. #403
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    *UPDATED TO [G]
    • Added a Novice/Intermediate/Advance.
    • Fixed colors.
    • Should work flawless.


    Thank You, and please guys I need p2p accounts...Donations will be perfect.

  4. #404
    Join Date
    Feb 2012
    Location
    Toronto Ontario, Canada
    Posts
    331
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey P1nky, just realized your sw script is 85% done.
    I love your pc script, so was wondering will this be public?
    118/120 Dungeoneering

  5. #405
    Join Date
    Dec 2011
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    p1nky script is not doing well .. it doesnt protect knight and it doesnt even attack it just click west of the east tower and stay there

  6. #406
    Join Date
    Dec 2011
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    nvm i closed simba then opened again and it works fine now :P soz

  7. #407
    Join Date
    Mar 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wow thanks man !!!! finaly a pest control bot what i looking for thanks

  8. #408
    Join Date
    Jan 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    these are appearing when i try and run your latest release and when it does get into game it doesnt click the chat message or move at all it just stands on boat

  9. #409
    Join Date
    Feb 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by l3thaltank View Post
    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    these are appearing when i try and run your latest release and when it does get into game it doesnt click the chat message or move at all it just stands on boat
    Same here.

  10. #410
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Quote Originally Posted by l3thaltank View Post
    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    these are appearing when i try and run your latest release and when it does get into game it doesnt click the chat message or move at all it just stands on boat
    ignore this:
    Simba Code:
    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.

    Cap'n n Arnav is a random, a problem probably occurred?

  11. #411
    Join Date
    Jan 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well the problem with the cap'n arnav is that it does it over and over and over again and never does anything else after that and script stops after first boat (it just sits on boat and never gets out of the initial chat window)

  12. #412
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Quote Originally Posted by l3thaltank View Post
    well the problem with the cap'n arnav is that it does it over and over and over again and never does anything else after that and script stops after first boat (it just sits on boat and never gets out of the initial chat window)
    Can you do me a favor and post a screenshot?

  13. #413
    Join Date
    Feb 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow this script is awsome! i totally love it!

  14. #414
    Join Date
    Feb 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The cap. arnav thing is frustrating, i'll try and play around with the script and see if i can fix it.

    Edit: Coh3n and a few others may be able to make a quick fix to the capnarnav script. or.. Maybe captain arnav is the new pest control boat captain . I personally just removed it from antirandoms, it's not likely you'll get that random anyways. Maybe i can make myself a capnarnav version for this script if i have time

    BTW, very nice work p1nky, can't wait for your sw script.
    Last edited by phrenism; 03-09-2012 at 10:11 AM.

  15. #415
    Join Date
    Jun 2008
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    allright, i am having exactly the same problem. I run the script. Character goes to boat, and this thing starts:
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    ...
    I have tryed updating simba, srl, sps, but nothing seems to help.
    Also i tought that it might have been a one time only problem, so i restarted simba - no effect, still same problem. Then i restarted my computer - problem was still there. Then I re-installed simba and JRE. Problem was still there.

    Hope that it helped for you to figure out what is the problem, because i have no clue :S. Also i noticed that one time, when that msg appeared the mouse pointer was "shaking" over one "voids of destruction" clann player, who was wearing a clanncape. But i noticed it only once, so i dont think that is the problem.

  16. #416
    Join Date
    Sep 2009
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I dont think the Arnav problem is a problem with this script, but actually it is with the Arnav script itself.... I hope this gets fixed soon
    ~-~ Quit Rs 4 Klit Rs ~-~

  17. #417
    Join Date
    Feb 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah klit, the output:
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM

    is from caparnav.simba in antirandoms includes. No idea why it's being triggered on the PC starting area and boat, though. Whoever figures it out deserves a cookie

  18. #418
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Quote Originally Posted by prostaker View Post
    allright, i am having exactly the same problem. I run the script. Character goes to boat, and this thing starts:
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    ...
    I have tryed updating simba, srl, sps, but nothing seems to help.
    Also i tought that it might have been a one time only problem, so i restarted simba - no effect, still same problem. Then i restarted my computer - problem was still there. Then I re-installed simba and JRE. Problem was still there.

    Hope that it helped for you to figure out what is the problem, because i have no clue :S. Also i noticed that one time, when that msg appeared the mouse pointer was "shaking" over one "voids of destruction" clann player, who was wearing a clanncape. But i noticed it only once, so i dont think that is the problem.
    Quote Originally Posted by phrenism View Post
    The cap. arnav thing is frustrating, i'll try and play around with the script and see if i can fix it.

    Edit: Coh3n and a few others may be able to make a quick fix to the capnarnav script. or.. Maybe captain arnav is the new pest control boat captain . I personally just removed it from antirandoms, it's not likely you'll get that random anyways. Maybe i can make myself a capnarnav version for this script if i have time

    BTW, very nice work p1nky, can't wait for your sw script.
    Quote Originally Posted by l3thaltank View Post
    well the problem with the cap'n arnav is that it does it over and over and over again and never does anything else after that and script stops after first boat (it just sits on boat and never gets out of the initial chat window)
    Quote Originally Posted by l3thaltank View Post
    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
    CA_TalkToArnav: Didn't click Arnav DTM
    CA_TalkToArnav: Talking to Cap'n Arnav
    these are appearing when i try and run your latest release and when it does get into game it doesnt click the chat message or move at all it just stands on boat
    Quote Originally Posted by phrenism View Post
    Yeah klit, the out:
    CA_TalkToArnav: Talking to Cap'n Arnav
    CA_TalkToArnav: Didn't click Arnav DTM

    is from caparnav.simba in antirandoms includes. No idea why it's being triggered on the PC starting area and boat, though. Whoever figures it out deserves a cookie
    Quote Originally Posted by klit rs View Post
    I dont think the Arnav problem is a problem with this script, but actually it is with the Arnav script itself.... I hope this gets fixed soon
    I posted on the thread, hope to see a answer.

    FIX (but using this fix will NOT solve any randoms.)
    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]
      WhatBoat = 'N';{
      Intermediate
      Advance
      Novice         }






    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);
      exit;
    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 := 629;
      dtmMainPoint.y := 164;
      dtmMainPoint.AreaSize := 1;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := 125670;
      dtmMainPoint.Tolerance := 18;

      dtmSubPoints[0].x := 629;
      dtmSubPoints[0].y := 164;
      dtmSubPoints[0].AreaSize := 1;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := 125670;
      dtmSubPoints[0].Tolerance := 18;

      dtmSubPoints[1].x := 627;
      dtmSubPoints[1].y := 156;
      dtmSubPoints[1].AreaSize := 1;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := 3042439;
      dtmSubPoints[1].Tolerance := 18;

      dtmSubPoints[2].x := 635;
      dtmSubPoints[2].y := 165;
      dtmSubPoints[2].AreaSize := 1;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := 3042439;
      dtmSubPoints[2].Tolerance := 18;

      dtmSubPoints[3].x := 630;
      dtmSubPoints[3].y := 171;
      dtmSubPoints[3].AreaSize := 1;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := 3042439;
      dtmSubPoints[3].Tolerance := 18;

      dtmSubPoints[4].x := 622;
      dtmSubPoints[4].y := 165;
      dtmSubPoints[4].AreaSize := 1;
      dtmSubPoints[4].AreaShape := 0;
      dtmSubPoints[4].Color := 3042439;
      dtmSubPoints[4].Tolerance := 18;

      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;
      FindRandoms;
      case WhatBoat of
      'N','n','novice','Novice','I','inter','i','Intermediate','intermediate' :
      begin
        MakeCompass('S');
        KeyDown(VK_Down);
        wait(Random(650) + 500);
        KeyUp(VK_Down);
      end;
      'A','a','adv','advance','Advance' :
      begin
        MakeCompass('N');
        KeyDown(VK_Down);
        wait(Random(650) + 500);
        KeyUp(VK_Down);
      end;
    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,3162776], 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 FreeMem;
    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
            FreeMem;
            NPC;
            Report;
            Plank;
            BoatWait;
            begin
              Spot1;
              Spot2;
              begin
                SpecAttack;
                QPrayer;
              end;
              repeat
                FightPests
              until not (Ingame);
            end;
          end;
        until (false);
      end;
    end.

  19. #419
    Join Date
    Dec 2011
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sxc , thanks brah.

  20. #420
    Join Date
    Nov 2011
    Location
    In your bed ;)
    Posts
    123
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by P1nky View Post
    I posted on the thread, hope to see a answer.

    FIX (but using this fix will NOT solve any randoms.)
    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]
      WhatBoat = 'N';{
      Intermediate
      Advance
      Novice         }






    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);
      exit;
    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 := 629;
      dtmMainPoint.y := 164;
      dtmMainPoint.AreaSize := 1;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := 125670;
      dtmMainPoint.Tolerance := 18;

      dtmSubPoints[0].x := 629;
      dtmSubPoints[0].y := 164;
      dtmSubPoints[0].AreaSize := 1;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := 125670;
      dtmSubPoints[0].Tolerance := 18;

      dtmSubPoints[1].x := 627;
      dtmSubPoints[1].y := 156;
      dtmSubPoints[1].AreaSize := 1;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := 3042439;
      dtmSubPoints[1].Tolerance := 18;

      dtmSubPoints[2].x := 635;
      dtmSubPoints[2].y := 165;
      dtmSubPoints[2].AreaSize := 1;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := 3042439;
      dtmSubPoints[2].Tolerance := 18;

      dtmSubPoints[3].x := 630;
      dtmSubPoints[3].y := 171;
      dtmSubPoints[3].AreaSize := 1;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := 3042439;
      dtmSubPoints[3].Tolerance := 18;

      dtmSubPoints[4].x := 622;
      dtmSubPoints[4].y := 165;
      dtmSubPoints[4].AreaSize := 1;
      dtmSubPoints[4].AreaShape := 0;
      dtmSubPoints[4].Color := 3042439;
      dtmSubPoints[4].Tolerance := 18;

      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;
      FindRandoms;
      case WhatBoat of
      'N','n','novice','Novice','I','inter','i','Intermediate','intermediate' :
      begin
        MakeCompass('S');
        KeyDown(VK_Down);
        wait(Random(650) + 500);
        KeyUp(VK_Down);
      end;
      'A','a','adv','advance','Advance' :
      begin
        MakeCompass('N');
        KeyDown(VK_Down);
        wait(Random(650) + 500);
        KeyUp(VK_Down);
      end;
    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,3162776], 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 FreeMem;
    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
            FreeMem;
            NPC;
            Report;
            Plank;
            BoatWait;
            begin
              Spot1;
              Spot2;
              begin
                SpecAttack;
                QPrayer;
              end;
              repeat
                FightPests
              until not (Ingame);
            end;
          end;
        until (false);
      end;
    end.
    somehow i can't copy and paste that
    IM A SCUM!

  21. #421
    Join Date
    Feb 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It keeps going north east by the center and twitches camera

  22. #422
    Join Date
    Jan 2012
    Location
    Texas.
    Posts
    771
    Mentioned
    4 Post(s)
    Quoted
    122 Post(s)

    Default

    Quote Originally Posted by P1nky View Post
    I posted on the thread, hope to see a answer.

    FIX (but using this fix will NOT solve any randoms.)
    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]
      WhatBoat = 'N';{
      Intermediate
      Advance
      Novice         }






    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);
      exit;
    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 := 629;
      dtmMainPoint.y := 164;
      dtmMainPoint.AreaSize := 1;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := 125670;
      dtmMainPoint.Tolerance := 18;

      dtmSubPoints[0].x := 629;
      dtmSubPoints[0].y := 164;
      dtmSubPoints[0].AreaSize := 1;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := 125670;
      dtmSubPoints[0].Tolerance := 18;

      dtmSubPoints[1].x := 627;
      dtmSubPoints[1].y := 156;
      dtmSubPoints[1].AreaSize := 1;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := 3042439;
      dtmSubPoints[1].Tolerance := 18;

      dtmSubPoints[2].x := 635;
      dtmSubPoints[2].y := 165;
      dtmSubPoints[2].AreaSize := 1;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := 3042439;
      dtmSubPoints[2].Tolerance := 18;

      dtmSubPoints[3].x := 630;
      dtmSubPoints[3].y := 171;
      dtmSubPoints[3].AreaSize := 1;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := 3042439;
      dtmSubPoints[3].Tolerance := 18;

      dtmSubPoints[4].x := 622;
      dtmSubPoints[4].y := 165;
      dtmSubPoints[4].AreaSize := 1;
      dtmSubPoints[4].AreaShape := 0;
      dtmSubPoints[4].Color := 3042439;
      dtmSubPoints[4].Tolerance := 18;

      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;
      FindRandoms;
      case WhatBoat of
      'N','n','novice','Novice','I','inter','i','Intermediate','intermediate' :
      begin
        MakeCompass('S');
        KeyDown(VK_Down);
        wait(Random(650) + 500);
        KeyUp(VK_Down);
      end;
      'A','a','adv','advance','Advance' :
      begin
        MakeCompass('N');
        KeyDown(VK_Down);
        wait(Random(650) + 500);
        KeyUp(VK_Down);
      end;
    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,3162776], 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 FreeMem;
    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
            FreeMem;
            NPC;
            Report;
            Plank;
            BoatWait;
            begin
              Spot1;
              Spot2;
              begin
                SpecAttack;
                QPrayer;
              end;
              repeat
                FightPests
              until not (Ingame);
            end;
          end;
        until (false);
      end;
    end.
    THANK YOU! Works amazing now. Been watching it for a good 25minutes, no failures yet.

    <3

  23. #423
    Join Date
    Dec 2011
    Posts
    106
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    ran for 1 hour good and is still running, but when i watched it for a while i noticed that it clicks random things and moves mouse around a little too much
    edit:
    got stuck here


    also has a lot of trouble on getting on the boat
    Last edited by lotery33; 03-10-2012 at 11:14 PM.

  24. #424
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    P1nky you only need to check for randoms outside of the boat. You could make it to check for randoms only if it fails to enter the boat.
    Quote Originally Posted by DeSnob View Post
    ETA's don't exist in SRL like they did in other communities. Want a faster update? Help out with updating, otherwise just gotta wait it out.

  25. #425
    Join Date
    Dec 2011
    Posts
    106
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    another bug: inside the game, it starts to hover over a tree stump and not do anything

Page 17 of 42 FirstFirst ... 7151617181927 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •