Results 1 to 9 of 9

Thread: Function ReportAbuse(PlayersName, Rule);

  1. #1
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Function ReportAbuse(PlayersName, Rule);

    Hey guys,

    While SRL was down I got very bored and started making functions.

    This was one I made for Reporting someone, I dont know what it would be used for lol, but anyways.. I decided to post it all for you's to have a look at or maybe even use o.0

    Well here it is...

    SCAR Code:
    {*******************************************************************************
    Function ReportAbuse(PlayersName: String; Rule: Integer): Boolean;
    By: TurboBk
    Description: Reports a player, returns a Boolean if True.
      PlayersName = Player you want to report.
      Rule = The Rule number that you want to Report for (Rule 1 to 13).
    *******************************************************************************}


    Function ReportAbuse(PlayersName: String; Rule: Integer): Boolean;
    Var x, y, c: Integer;
        TheReason: String;
    Begin
      If (Not(LoggedIn)) Then Exit;
      If FindColorTolerance(x, y, 2302834, 403, 480, 514, 503, 5) Then
      Begin
        If (Rule < 1) Or (Rule > 13) Then
        Begin
          WriteLn('Invalid rule number (1 - 13).');
          Exit;
        End;
        Repeat
          c := c + 1;
          Wait(Random(1000));
          MouseBox(404, 481, 514, 502, 1); // Clicks on Report Abuse
          Wait(1000);
        Until(FindColorTolerance(x, y, 2070783, 212, 33, 302, 51, 5)) Or (c > 3);
        If (c > 3) Then
        Begin
          WriteLn('Error in Reporting.');
          Result := False;
          Exit;
        End Else
        Begin
          Wait(1000 + Random(2000));
          TypeSend(PlayersName);
          Wait(Random(500));
          Case Rule Of
            1: Begin
                 MouseBox(39, 210, 149, 221, 1); // Offensive Language
                 TheReason := 'Offensive Language';
               End;
            2: Begin
                 MouseBox(39, 225, 120, 236, 1); // Item Scamming
                 TheReason := 'Item Scamming';
               End;
            3: Begin
                 MouseBox(39, 241, 148, 252, 1); // Password Scamming
                 TheReason := 'Password Scamming';
               End;
            4: Begin
                 MouseBox(39, 255, 101, 265, 1); // Bug Abuse
                 TheReason := 'Bug Abuse';
               End;
            5: Begin
                 MouseBox(39, 271, 183, 281, 1); // Jagex Staff Impersonation
                 TheReason := 'Jagex Staff Impersonation';
               End;
            6: Begin
                 MouseBox(39, 286, 171, 297, 1); // Account Sharing/Trading
                 TheReason := 'Account Sharing / Trading';
               End;
            7: Begin
                 MouseBox(39, 300, 98, 313, 1); // Macroing
                 TheReason := 'Macroing';
               End;
            8: Begin
                 MouseBox(246, 210, 349, 221, 1); // Multiple Logging In
                 TheReason := 'Multiple Logging In';
               End;
            9: Begin
                 MouseBox(246, 226, 428, 236, 1); // Encouraging Others to Break Rules
                 TheReason := 'Encouraging Others to Break Rules';
               End;
           10: Begin
                 MouseBox(243, 240, 399, 251, 1); // Misuse of Customer Support
                 TheReason := 'Misuse of Customer Support';
               End;
           11: Begin
                 MouseBox(245, 255, 367, 266, 1); // Advertising/Website
                 TheReason := 'Advertising / Website';
               End;
           12: Begin
                 MouseBox(243, 270, 373, 282, 1); // Real World Item Trading
                 TheReason := 'Real World Item Trading';
               End;
           13: Begin
                 MouseBox(243, 286, 395, 295, 1); // Asking for Personal Details
                 TheReason := 'Asking for Personal Details';
               End;
          End;
          Wait(1200 + Random(1000));
          If IsChatBlackTextAnyLine('buse') Then
          Begin
            Result := True;
            WriteLn('Reported '+PlayersName+', for '+TheReason+'.');
          End Else
          Begin
            Result := False;
            WriteLn('Error in Reporting.');
            If FindColorTolerance(x, y, 2070783, 212, 33, 302, 51, 5) Then
            Begin
              Wait(200 + Random(200));
              MouseBox(479, 33, 494, 49, 1); // Closes the Report Abuse box,
            End;                             // if theres an Error.
            Exit;
          End;
        End;
      End Else
      Begin
        WriteLn('Could NOT find Report Abuse button.');
        Result := False;
        Exit;
      End;
    End;

    Thanks,
    TurboBk
    The game has an unexplainable attraction that convinces the player they are having fun, despite the fact that all they are doing is performing repetitive tasks to increase their statistics. "The game is actually a graphical nightmare and its gameplay is simple at best. Yet something, perhaps by subliminal means, forces the player - against his will - to play the game, and to believe that they are having fun".

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

    Default

    Might be good anti-ban! Have it look for player talk of bad topics and report them

  3. #3
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

  4. #4
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm I might add this in my auto responder aka auto reporter

  5. #5
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Haha thanks guys!!

    Im glad you like the look of it lol :P
    Well If you find anything useful for it, let me know
    The game has an unexplainable attraction that convinces the player they are having fun, despite the fact that all they are doing is performing repetitive tasks to increase their statistics. "The game is actually a graphical nightmare and its gameplay is simple at best. Yet something, perhaps by subliminal means, forces the player - against his will - to play the game, and to believe that they are having fun".

  6. #6
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

  7. #7
    Join Date
    Mar 2008
    Location
    The Netherlands
    Posts
    1,395
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Could be useful.. Report a random player, maybe add "random" as an extra option?


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

    Default

    Great job, and good idea for antiban!

    keep it up bro

  9. #9
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Quote Originally Posted by laurenssie0 View Post
    Could be useful.. Report a random player, maybe add "random" as an extra option?
    07-04-2008, 08:36 AM Argh... why are you bumping ?


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. P2P vs F2P -> Rule #7
    By Nose Smasher in forum Banned from RS
    Replies: 19
    Last Post: 01-27-2009, 01:05 AM
  2. New Rule
    By Jackrawl in forum Discussions & Debates
    Replies: 9
    Last Post: 10-25-2007, 02:17 AM

Posting Permissions

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