Page 26 of 42 FirstFirst ... 16242526272836 ... LastLast
Results 626 to 650 of 1043

Thread: P1nky's PestController

  1. #626
    Join Date
    Dec 2011
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    My bot keeps moving north east corner-.-........... Just set it 2 automatically go 2 center and not to straggle away.......

  2. #627
    Join Date
    Dec 2011
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Working good. Dunno why people are complaining it's better then doing it legit lolz.

  3. #628
    Join Date
    Apr 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Epic script!
    One minor thing - when it gets to the island, it clicks the NPC message (continue) then it spins the camera for like 5 seconds then it goes. You should make it so that it just runs to the middle and attacks.
    You should make it attack portals too.

    Thanks for the script!

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

    Default

    ||===========================||
    || P1nkys PestController ||
    ||===========================||
    || April 11th, 2012 ||
    ||===========================||
    Worked For 5 Hours, 44 Minutes and 48 Seconds
    Games Played 113
    ||===========================||
    Updated to [H]! Make sure to post proggies! More attack spots will be added soon!

    -Cheers

  5. #630
    Join Date
    Dec 2011
    Location
    Netherlands
    Posts
    140
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    After a few games it is getting stuck here at the gates
    url]http://imgur.com/kb81W[/url]
    at the gates

    Version H
    Code:
    |====================================|
    |              ~ SRL ~               |
    |           Randoms Report           |
    |────────────────────────────────────|
    |                                    |
    |                                    |
    |────────────────────────────────────|
    |====================================|
    ||===========================||
    ||   P1nkys PestController   ||
    ||===========================||
    ||    April 12th, 2012    ||
    ||===========================||
     Worked For 17 Minutes and 58 Seconds
     Games Played 7
    ||===========================||
    nice proggy for the start
    I will post a new one tommorow I will leave it running over night

    Skywalk,
    Comeback once again and not planning on leaving

    scripts written: [5]

  6. #631
    Join Date
    Feb 2012
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just tried (H) out it just kept hovering over the plank and then keeps walking to intermediate boat, ill keep playing with it.

  7. #632
    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 qeeked View Post
    Just tried (H) out it just kept hovering over the plank and then keeps walking to intermediate boat, ill keep playing with it.
    I got a fix for this, will paste in a bit.

  8. #633
    Join Date
    Jan 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    On H it logged out in the middle of the seventh game, it also had "warning! you passed wrong values to a finder function ys > ye <30,29)"?

  9. #634
    Join Date
    Apr 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here's a proggy using version F.
    ||===========================||
    || P1nkys PestController ||
    ||===========================||
    || April 12th, 2012 ||
    ||===========================||
    Worked For 3 Hours, 37 Minutes and 7 Seconds
    Games Played 80
    ||===========================||

    Works great! Also another thing.. it gets to the middle and then when an NPC appears, it walks off the middle then waits 5 seconds then goes back up onto the middle.

  10. #635
    Join Date
    Apr 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    great job man! after like 23 games on version H. i got this message though just keeps clicking on the water beyond the boat. other than that great job

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

  11. #636
    Join Date
    Apr 2012
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When i reach 8 games played. The npc will ask me to exchange my commendation on the 3rd dialog when it comes up, the mouse keep moving in a pattern not stop like a triangle pattern.

    Untill i disable SMART and i went into the boat and enable it. It's working again. Could you script it that it will click the small bridge to the boat instead of pressing next till the messege dialog is gone then you click on the bridge. It will make it miss the group that you're in.

    I'm not complaining dude, i love your script it's free plus it's working. Kudos to you.
    Last edited by orca1337; 04-13-2012 at 03:17 AM.

  12. #637
    Join Date
    Feb 2007
    Posts
    287
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Will test this out, I have been using a modified version of F and it was pretty solid until the other day when it broke

    Loving the script though pinky, expect a proggy soon

  13. #638
    Join Date
    Apr 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    been running [F] for a while andi t was working great, then it started to mouse over the plank and just move up and down it, [H] is doing this as well.

    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
    Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.
    just not stop spamming this..
    Last edited by MarcoCampo; 04-13-2012 at 07:02 AM.

  14. #639
    Join Date
    Mar 2012
    Posts
    148
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by orca1337 View Post
    When i reach 8 games played. The npc will ask me to exchange my commendation on the 3rd dialog when it comes up, the mouse keep moving in a pattern not stop like a triangle pattern.

    Untill i disable SMART and i went into the boat and enable it. It's working again. Could you script it that it will click the small bridge to the boat instead of pressing next till the messege dialog is gone then you click on the bridge. It will make it miss the group that you're in.

    I'm not complaining dude, i love your script it's free plus it's working. Kudos to you.
    I think the same thing as you do. You should really let the bot to click on the bridge after finished the game. If not it will miss the group.

  15. #640
    Join Date
    Dec 2011
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    It's started walking south of the platform and standing there every game:0 I don't know why It was working fine yesterday:/

  16. #641
    Join Date
    Feb 2012
    Location
    Bboy Vil
    Posts
    319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its always moves to another boat. I ran it for 12 hours a got 108 commendations.

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

    Default

    FIX:
    Simba Code:
    program PestController;
    {$DEFINE SMART}
    {$i srl\srl.simba}
      {.include SRL/SRL/Skill/Fighting.simba}

      //P1nky's PestController

      //Make sure to have Auto Retiable off.
      //Set Character Outside the Boat.
      const
      SpecialAttacks = True;
      QuickPrayer = True; //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 := 21;

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

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

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

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

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

      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);
      wait(1000);
      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);
        wait(500);
        KeyDown(VK_left);
        wait(Random(50) + 50);
        KeyUp(VK_left);
      end;
      'A','a','adv','advance','Advance' :
      begin
        MakeCompass('W');
        Setangle(0);
       { 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;
    LoginPlayerToLob;
        OpenWorldScreen;
        SelectWorld(53);
        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.

  18. #643
    Join Date
    Apr 2012
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by P1nky View Post
    FIX:
    Simba Code:
    program PestController;
    {$DEFINE SMART}
    {$i srl\srl.simba}
      {.include SRL/SRL/Skill/Fighting.simba}

      //P1nky's PestController

      //Make sure to have Auto Retiable off.
      //Set Character Outside the Boat.
      const
      SpecialAttacks = True;
      QuickPrayer = True; //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 := 21;

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

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

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

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

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

      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);
      wait(1000);
      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);
        wait(500);
        KeyDown(VK_left);
        wait(Random(50) + 50);
        KeyUp(VK_left);
      end;
      'A','a','adv','advance','Advance' :
      begin
        MakeCompass('W');
        Setangle(0);
       { 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;
    LoginPlayerToLob;
        OpenWorldScreen;
        SelectWorld(53);
        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.
    Thanks a lot bro! Awesome script !! Appreciate the quick fix !

    edit: running it now, will post any bugs i find, so far so good !
    edit2: For the first 5 games played, it took about 5-10 minutes to click the plank. after 10 minutes i just clicked it myself. after that it seems to be clicking the plank right away after leaving a game !

    edit 3:

    ||===========================||
    || P1nkys PestController ||
    ||===========================||
    || April 13th, 2012 ||
    ||===========================||
    Worked For 3 Hours, 13 Minutes and 3 Seconds
    Games Played 75
    ||===========================||


    Pretty damn nice considering it spent about 25 minutes on the first 5 games trying to click the plank !
    Last edited by sarmetto; 04-14-2012 at 02:13 AM.

  19. #644
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SRL Compiled in 16 msec
    SMART Initialized.
    Loaded: Server 17, Members: False, Signed: True, Super Detail: False.
    Error: Exception: Access violation at line 142
    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]

    Help????
    Last edited by junsain2012; 04-14-2012 at 06:52 AM.

  20. #645
    Join Date
    Dec 2011
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Still runs south:/

    Edit: sometimes it catches itself and runs to the middle midway into running south
    Last edited by Elitezer0; 04-14-2012 at 03:06 PM.

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

    Default

    Updated to [I]; Let me know how it goes for y'all!

  22. #647
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by P1nky View Post
    Updated to [I]; Let me know how it goes for y'all!
    Nice, can't wait to give it a go, love this script awesome job P1nky
    Current Project: Retired

  23. #648
    Join Date
    Mar 2012
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I'll test I overnight. Watched it do 2 games and only problem is it moves mouse rapidly after winning a game on the void knight lady's face before entering the boat.

  24. #649
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the beta version was pretty good

  25. #650
    Join Date
    Apr 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hello the bot doesn't go to the middle, it goes near the right door next to the ladder for towers.

Page 26 of 42 FirstFirst ... 16242526272836 ... 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
  •