Page 23 of 42 FirstFirst ... 13212223242533 ... LastLast
Results 551 to 575 of 1043

Thread: P1nky's PestController

  1. #551
    Join Date
    Mar 2012
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by elvenom View Post
    Kirbyn BETAB is working flawlessly if you put "procedure FindRandoms;
    begin
    if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
    // FindNormalRandoms;
    wait(Random(100) + 20);
    exit;
    end; "
    In where you get the woodcutting error
    I didn't have that error but used this anyway.. so far its been running 2 hours flawless... im almost done with pc now though.. going to range/armoured zombies soon. thank's for the tip bud.

  2. #552
    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 Zota View Post
    Yes.

    You're going to need to edit the script a tiny bit (VERY simple. Copy paste job)
    Follow this guide EXACTLY and you'll have no problems.

    1. Open his script in SIMBA.
    2. Press CTRL+F
    3. Type: loginplayer;
    4. Highlight loginplayer; (including the semi-colon)
    5. Delete it. (Now you should have an empty line
    6. Paste this piece of code into that gap:
    Simba Code:
    LoginPlayerToLob;
        OpenWorldScreen;
        SelectWorld(53);
        LoginPlayer;

    Exactly like that. Job done. Save the file (CTRL+S) and run it.

    Cheers,
    Luke
    Lol, forgot about Selectworld! thanks, will add in next update! (I had to make one myself for choosing quick world when found in login screen lol, but this will work just fine).

  3. #553
    Join Date
    Dec 2011
    Location
    Kosovo
    Posts
    831
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    (23,935 views, 551 replies)
    I think well done with it. BTW got all versions saved on my pc
    Goals:
    Understanding TPAs
    Making Proggy for fighting
    Getting on SRL members
    Get 500 posts

  4. #554
    Join Date
    Dec 2011
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The update for [G] doesn't work to great just stands around near the Magic shop.

    The original [G] works great for me, been using for a few weeks on and off great script and thank you very much.

  5. #555
    Join Date
    Mar 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When i run it it goes to the southwest tower thingy. Can you fix this? I just sits there and moves camera around and clicks on my character?

  6. #556
    Join Date
    Nov 2010
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    P1nky, any updates coming soon? all versions are pretty buggy nowaday. Can't run it for more than an hour without it loggingout.

    Main problems:
    finishes a game, stands at plank then just logs out.
    Getting lost.
    Walking away from middle and not attacking.

    Cheers,
    Luke

  7. #557
    Join Date
    Dec 2011
    Location
    Berlin
    Posts
    795
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Hey, first off i got interested in your scripts. They seems to be very nice. Is it okey for you, when i look into your scripts and learn from them? So putting procedures etc together. See how the lines are working. Don“t worry i am not leeching. Not playing Runescape anymore, I am just interested in Scripting.
    I think it is always better to ask.

    -Imanoobbot

    I will try to answer all Runescape related questions!

  8. #558
    Join Date
    Dec 2011
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    it worked 6 hours and played 121 games but points was only 74 -.-

  9. #559
    Join Date
    Nov 2010
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by wayiyi View Post
    it worked 6 hours and played 121 games but points was only 74 -.-
    Which version of the script are you using? Post the script here. I've never had problems with losing games..

    Luke

  10. #560
    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 wayiyi View Post
    it worked 6 hours and played 121 games but points was only 74 -.-
    Post your stats, mainly it's due to you not getting the 500+ exp per game.

  11. #561
    Join Date
    Apr 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    working great!! you made my day!! ( got hacked yesterday by epicbot but only minor loses 25m) and now i have got back my voids!!!

  12. #562
    Join Date
    Nov 2010
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I really don't understand how it's working for 50% but bugging out for the other 50% of users.

    Luke

  13. #563
    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 Zota View Post
    I really don't understand how it's working for 50% but bugging out for the other 50% of users.

    Luke
    Your graphic settings is it set to like the lowest?

  14. #564
    Join Date
    Nov 2010
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Of course, as always.

    It's not the graphics settings.

    Here are the problems:

    When leaving Pestcontrol game, it might still be clicking a mob. This means when it arrives at the dock, it missclicks and walks away from gangplank.
    Fix: Make it check that it's position is correct - otherwise walk back to plank.

    When in pest control game it sometimes walks away from center and doesn't walk back.
    Fix: same style as above.

    Sometimes doesn't get enough points. I'm 84 str so it isn't that. Attacking and colour just needs to be sped up somehow.

    Cheers,
    Luke

  15. #565
    Join Date
    Feb 2012
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Zota View Post
    Of course, as always.

    It's not the graphics settings.

    Here are the problems:

    When leaving Pestcontrol game, it might still be clicking a mob. This means when it arrives at the dock, it missclicks and walks away from gangplank.
    Fix: Make it check that it's position is correct - otherwise walk back to plank.

    When in pest control game it sometimes walks away from center and doesn't walk back.
    Fix: same style as above.

    Sometimes doesn't get enough points. I'm 84 str so it isn't that. Attacking and colour just needs to be sped up somehow.

    Cheers,
    Luke
    I think there are ALOT of people using this bot, maybe that' why you don't get 500 because you could stand there with like 8 people :S

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

    Default

    Temp Fix:
    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 = 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 := 3;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := 125670;
      dtmMainPoint.Tolerance := 21;

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

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

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

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

      dtmSubPoints[4].x := 622;
      dtmSubPoints[4].y := 165;
      dtmSubPoints[4].AreaSize := 3;
      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);
      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('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;
        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.

  17. #567
    Join Date
    Dec 2011
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hi P1nky,

    been trying to contact you through PM, but no response so far.
    Can you check your inbox, please?

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

    Default

    Proggie Test:
    Simba Code:
    ||===========================||
    ||   P1nkys PestController   ||
    ||===========================||
    ||    April 1st, 2012    ||
    ||===========================||
     Worked For 5 Hours, 45 Minutes and 2 Seconds
     Games Played 116
    ||===========================||

    Quote Originally Posted by Onemind View Post
    Hi P1nky,

    been trying to contact you through PM, but no response so far.
    Can you check your inbox, please?
    I don't respond to most PMs due to my inbox keeps on getting filled, please post the question.

    -Thanks

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

    Default

    Script is amazing thankyou so much!!! was able to get 500 points flawlessly yesterday! Today with F and others it runs to below tower and stands there clicking. I can take a vid of it and show
    Last edited by melee; 04-02-2012 at 09:38 PM.

  20. #570
    Join Date
    Jun 2007
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Running it now. Will post proggy later. Thanks P1nky


    http://i1207.photobucket.com/albums/...1880351716.gif
    Quote Originally Posted by R0b0t1 View Post
    We cheat better than most players can play.

  21. #571
    Join Date
    Mar 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    script is kinda broken atm, always goes into the right corner near the guard tower instead of the middle plateau. and no its not because im doing anything wrong, like auto retalitate on or anything, the script will just go to the tower straight from the beginning :s

  22. #572
    Join Date
    Jun 2007
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by bobo188 View Post
    script is kinda broken atm, always goes into the right corner near the guard tower instead of the middle plateau. and no its not because im doing anything wrong, like auto retalitate on or anything, the script will just go to the tower straight from the beginning :s


    its working just fine, brotein.


    http://i1207.photobucket.com/albums/...1880351716.gif
    Quote Originally Posted by R0b0t1 View Post
    We cheat better than most players can play.

  23. #573
    Join Date
    Apr 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This just got me Elite Void and all helms! Thanks!

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

    Default

    [F] is the one giving problems?
    within 2-3 days I have received 1000 points with [F]?

  25. #575
    Join Date
    Mar 2007
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default



    Still running currently. Nice script P1nky, really love it.

Page 23 of 42 FirstFirst ... 13212223242533 ... 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
  •