Poll: Did it work?

Results 1 to 9 of 9

Thread: Multi-Reporter

  1. #1
    Join Date
    Mar 2008
    Location
    Indiana
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Multi-Reporter

    After seeing the 'Zezima Reporter' i decided to make my own script.
    It reports a list of names, which you can customize.
    Setup is from 32 to 57.

    Please post proggys.

    Need help making it multi-player.


    Note this script will run for at least 5 mins for
    the SRLRandomsReport.

    Current Version: v8.5

    SCAR Code:
    Program MultiReporterV8.5;
    {.include SRL/SRL.scar}
    {##################################
    ######### Made by Smithsps ########
    ###################################
    ####### Im not responsible ########
    ######## for you getting  #########
    ############# banned ##############
    ###################################
    ##### The script will run for #####
    ######### at least 5 mins #########
    ###################################}


    // Thanks n3ss3s for your tut on fenced proggys.
    // Thanks Hy for you help on SRL stats.

    const
      TTR = 2; //Times to report each account.
      AOA = 1; //Amount of accounts you want to report.
      RBA = 20; //How many reports do you want before antiban?
      UDLampSkill = 'attack';//Lol, just incase you get a genie.
      HowManyAccounts = 1; //Amount of accounts you plan on using to report.
    {########################################}
      YourSrlID = '****';
      YourSrlPass = '****';

    var
      PlayerToReport : array of string;
      CurPlayer, TimesReported, Anti : integer;
     
    procedure PlayersToReport;
    begin
      SetArrayLength(PlayerToReport, AOA);
      PlayerToReport[0] := 'Zezima'; //1st player to report
      PlayerToReport[1] := 'Gertjaars'; //2nd player
      PlayerToReport[2] := 'Villandra'; //3rd player
      PlayerToReport[3] := 'Cygopat'; //4rd player
      PlayerToReport[4] := 'Aaron11144'; //5rd player
      PlayerToReport[5] := 'Season'; //6rd player
      PlayerToReport[6] := 'Madlou0'; //7rd player
      PlayerToReport[7] := 'Gonga Jew'; //8rd player
      PlayerToReport[8] := 'Aasiwat'; //9rd player
      PlayerToReport[9] := 'Ran Bayer2'; //10th player
      //If you want more players just add more of the above.
    end;

    Procedure DeclarePlayers;
    begin
      NumberOfPlayers(HowManyAccounts);   // Sets the Players Array Length;
      CurrentPlayer:= 0;
    //##########################################
      Players[0].Name :='gonagetbaned'; //It is a real account
      Players[0].Pass :='***';  //not the passowrd though...
      Players[0].Nick :='ona';
      Players[0].Active:= True;
    end;

    Procedure FindRandoms;
    begin
      LampSkill := UDLampSkill;
      FindNormalRandoms;
      if FindFight then RunAway('S', True, 2, 10000);
    end;

    Function GetTimeRunningConvert(Choice: integer): integer;
    begin
      case Choice of
        1: Result := GetTimeRunning / 1000; // Secounds
        2: Result := GetTimeRunning / 1000 / 60; // Minutes
        3 : Result := GetTimeRunning / 1000 / 60 / 60; // Hours
      end;
    end;

    procedure RuleReport(Rule: integer; UserToReport: string);
    var
      RuleCordsX, RuleCordsY: array of integer;
      FailSafe : integer;
      UserName : string;
    begin
      SetArrayLength(RuleCordsX, 13);
      SetArrayLength(RuleCordsY, 13);
      RuleCordsX := [57, 55, 61, 68, 61, 63, 80, 285, 273, 265, 269, 274, 277];
      RuleCordsY := [214, 230, 245, 262, 275, 291, 307, 216, 231, 241, 262, 290, 277];
      if(Loggedin = False)then Exit;
      UserName := UserToReport;
      repeat
        Mouse(RandomRange(412, 501), RandomRange(484, 498), 1, 1, True);
        Wait(1250 + Random(750));
        Inc(FailSafe);
        if(FailSafe > RandomRange(3, 5))then Break;
      until(GetColor(411, 77) = 16777215);
      if(FailSafe > RandomRange(3, 5))then Exit;
      Mouse(263, 136, 5, 5, True);
      TypeSend(UserToReport);
      if(Rule < 1)or(Rule > 13)then
       begin
        writeln('Invaild Rule');
        Exit;
       end;
      Mouse(RuleCordsX[Rule - 1], RuleCordsY[Rule - 1], 2, 7, True);
       end;
       Wait(1250 + Random(750));
       if(GetColor(411, 77) <> 16777215)then
         writeln('Successfully Reported ' + UserName + '.');
    end;

    Procedure Report;
    begin
      if(AOA = CurPlayer)then CurPlayer := 0;
      RuleReport(RandomRange(1, 2), PlayerToReport[CurPlayer]);
      Anti := Anti + 1;
      Inc(ReportVars[0]);
      Inc(TimesReported);
    end;

    procedure ProggressReport;
    begin
      ClearDebug;
      writeln('##-------- Progress Report --------##');
      writeln(Padr('##- Reported : ' + IntToStr(TimesReported), 34)+ '-##');
      writeln(Padr('##- Time Running : ' + IntToStr(GetTimeRunningConvert(2)) + ' minutes.', 34)+ '-##');
      writeln('##---------------------------------##');
    end; // Thanks n3ss3s for your tut on this.



    Function RandomSkill(Skills: Boolean): string;
    //Returns a Random Free Skill if True, a Random Member Skill if False
    begin
      if(Skills)then
        case Random(14) of
          0: Result := 'attack';
          1: Result := 'defence';
          2: Result := 'strength';
          3: Result := 'hitpoints';
          4: Result := 'mining';
          5: Result := 'smithing';
          6: Result := 'woodcutting';
          7: Result := 'firemaking';
          8: Result := 'magic';
          9: Result := 'fishing';
          10: Result := 'ranged';
          11: Result := 'prayer';
          12: Result := 'runecrafting';
          13: Result := 'cooking';
          14: Result := 'crafting';
        end;
      if Not(Skills)then
        case Random(24) of
          0: Result := 'attack';
          1: Result := 'defence';
          2: Result := 'strength';
          3: Result := 'hitpoints';
          4: Result := 'mining';
          5: Result := 'smithing';
          6: Result := 'woodcutting';
          7: Result := 'firemaking';
          8: Result := 'magic';
          9: Result := 'fishing';
          10: Result := 'ranged';
          11: Result := 'prayer';
          12: Result := 'runecrafting';
          13: Result := 'cooking';
          14: Result := 'fletching';
          15: Result := 'hunter';
          16: Result := 'summoning';
          17: Result := 'construction';
          18: Result := 'herblore';
          19: Result := 'agility';
          20: Result := 'thieving';
          21: Result := 'slayer';
          22: Result := 'farming';
          23: Result := 'crafting';
      end;
    end;

    Procedure AntiBan;
    begin
      case random(7) of
        0: HoverSkill(RandomSkill(True), false);
        1: begin
          MouseBox(54, 309, 436, 200, 3);
          MMouse(54, 178, 50, 50);
          MMouse(436, 104, 50, 50);
          MMouse(271, 309, 50, 50);
          MMouse(226, 200, 50, 50);
          PickUpMouse;
        end;
        2:begin
            MakeCompass('S');
            MakeCompass('N');
            MakeCompass('E');
            MakeCompass('W');
            MakeCompass('N');
          end;
        3: RandomRClick;
        4: HoverSkill(RandomSkill(True), false);
        5: RandomMovement;
        6: AlmostLogout;
      end;
      Anti := 0;
    end;

    procedure Sig;
    begin
      ClearDebug;
      writeln(' ____ ____ ____ ____ ____ ____ ____ ____ ');
      writeln('||S |||m |||i |||t |||h |||s |||p |||s ||');
      writeln('||__|||__|||__|||__|||__|||__|||__|||__||');
      writeln('|/__\|/__\|/__\|/__\|/__\|/__\|/__\|/__\|');
      wait(1000);
    end;

    Procedure Setup;
    begin
      SetupSrl;
      ScriptID := '730';
      SRLId := YourSrlID;
      SRLPassword := YourSrlPass;
      DeclarePlayers;
      PlayersToReport;
      ActivateClient;
      Sig;
      SetAngle(True);
      ReportVars[0] := 0;
      TimesReported := 0;
      CurPlayer := 0;
      if Loggedin then Logout;
      if (SRLId = '') or (SRLPassword = '') then
       begin
        ClearDebug;
        writeln('Get a life and get a Srl ID!');
        TerminateScript;
       end;
    end;


    begin
      Setup;
      LoginPlayer;
      repeat
        if (LoggedIn = False) then Break;
        if (Anti = RBA) then AntiBan;
        FindRandoms;
        wait(1000);
        Report;
        Inc(CurPlayer);
      until(TimesReported = AOA * TTR);
      Logout;
      if (GetTimeRunningConvert(2) < 4) then
         begin
          repeat
            ClearDebug;
            writeln('Waiting for 5 min mark.');
            wait(500);
            ClearDebug;
            writeln('Waiting for 5 min mark..');
            wait(500);
            ClearDebug;
            writeln('Waiting for 5 min mark...');
            wait(500);
            ClearDebug;
            writeln('Waiting for 5 min mark....');
            wait(500);
          until (GetTimeRunningConvert(2) > 4);
         end;
      ProggressReport;
      SRLRandomsReport;
    end.

    Current Version: v8.5

  2. #2
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol.? O_o I'm not sure what to say about this.. lol I'm not gonna use it but it looks good

  3. #3
    Join Date
    Mar 2008
    Location
    Indiana
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You can report from tut island...
    You better change your sig...

    Will test any script if you want

  4. #4
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by smithsps View Post
    You can report from tut island...
    You better change your sig...
    do you want me to test it? O_o

    EDIT:
    SCAR Code:
    ##-------- Progress Report --------##
    ##- Reported : 50                 -##
    ##- Time Running : 6 minutes.     -##
    ##---------------------------------##

    haha nice.. im gonna get banned.. lol

    the acc name is 13 I 4 T C H (BIATCH) lol.. 2 reasons to ban me ^^ nice script

  5. #5
    Join Date
    Mar 2008
    Location
    Indiana
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thx for the proggy chances that you won't get banned though.

    I have reported about 550 accounts with one of my accounts
    'GonaGetBaned' still not banned.

    There are currently 0 black marks out of 10 on this account

  6. #6
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol nice ^^ why are people saying it didn't work?

  7. #7
    Join Date
    Mar 2008
    Location
    Indiana
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCRIPT UPDATED:

    Mainly I refined the report process.
    And changed it around a little.

    Decided to post script for all the leachers.

    I NEED PROGGYS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  8. #8
    Join Date
    Oct 2007
    Location
    brooklyn, new york
    Posts
    258
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script but I do not believe that this can slow Jagex down regarding banning us autoers because the report abuse section and the section that checks for bots is seperate. At most that this will do is slow do the report abuse section, but I mean, what good will that do to us?

  9. #9
    Join Date
    Mar 2008
    Location
    Indiana
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Right now its just there to be there...

    At most that this will do is slow do the report abuse section
    Less ban hammer on us

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Zezima-Reporter!
    By Jason2gs in forum RS3 Outdated / Broken Scripts
    Replies: 106
    Last Post: 03-29-2009, 05:59 PM
  2. Multi-User, Multi-Log, Multi-Bow Pro Fletcher
    By Foss in forum First Scripts
    Replies: 13
    Last Post: 07-16-2008, 08:54 AM
  3. Reporter Bots
    By kim in forum Discussions & Debates
    Replies: 10
    Last Post: 05-19-2008, 12:10 AM
  4. Auto Reporter
    By in_jeopardy in forum OSR Help
    Replies: 2
    Last Post: 04-17-2007, 12:03 AM
  5. Tut Island Reporter
    By smithspsbob in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 04-03-2007, 11:14 PM

Posting Permissions

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