SRL Archive - Research & Development Lounge

Hey Guys,

I made a new function that reports players. lul
It may* not be the best, but it works 100% and hey its all about COLORS.

* Hopefully it is :D

It could be useful for anti-ban ;)
- Thanks YoHoJo for moving the thread for me.

* PLEASE TEST PPL!

I'll paste the function here:

{OPTION:
 1. Buying or selling an account - H
 2. Encouraging rule breaking - H
 3. Staff impersonation - H
 4. Macroing or use of bots - H
 5. Scamming - H
 6. Exploiting a bug - H
 7. Seriously offensive language - R
 8. Solicitation - R
 9. Disruptive behaviour - R
 10. Offensive account name - R
 11. Real-life threats - R
 12. Asking for or providing contact information - S
 13. Breaking real-world laws - S
 14. Advertising websites - S }

Function ReportAbuse(PlayersName: String; Option: Integer; Ignore: Boolean): Boolean; // - by TurboBk
Var
  x, y, c: Integer;
Begin
  If Not LoggedIn Then Exit;
  Result := False;
  If FindColorTolerance(x, y, 2039914, 400, 480, 515, 500, 3) Then
  Begin
    MouseBox(405, 481, 513, 486, 1);
    While (Not(FindColorTolerance(x, y, 4106994, 213, 59, 304, 74, 3))) Do
    Begin
      If (c = 10) Then Begin c := 0; Break; End;
      Wait(300 + Random(300));
      Inc(c);
    End;
    If FindColorTolerance(x, y, 4106994, 213, 59, 304, 74, 3) Then
    Begin
      TypeSend(PlayersName);
      Wait(300 + Random(300));
      MouseBox(376, 125, 426, 142, 1);
      Wait(300 + Random(300));
      If FindColorTolerance(x, y, 4106994, 202, 27, 272, 43, 3) Then
      Begin
        Case Option Of // sexii math <3
          1..6: MouseBox(26, ((29 * Option - 29) + 145), 177, ((29 * Option - 29) + 170), 1);
          7..11: MouseBox(185, (29 * Option - 58), 335, (29 * Option - 33), 1);
          12..14:  MouseBox(343, (29 * Option - 203), 494, (29 * Option - 178), 1);
          Else SRL_warn('ReportAbuse', ' ERROR: Invalid Option [1 - 14]', warn_AllVersions);
        End;
        Wait(300 + Random(300));
        While (Not(FindColorTolerance(x, y, 4106994, 285, 110, 335, 120, 3))) Do
        Begin
          If (c = 10) Then Break;
          Wait(200 + Random(250));
          Inc(c);
        End;
        If FindColorTolerance(x, y, 4106994, 285, 110, 335, 120, 3) Then
        Begin
          If Ignore Then
            MouseBox(180, 155, 338, 170, 1)
          Else MouseBox(180, 176, 338, 191, 1);
          Result := True;
        End;
      End;
    End;
  End Else SRL_warn('ReportAbuse', ' ERROR: Could not find ''Report Abuse'' button', warn_AllVersions);
  If FindColorTolerance(x, y, 4106994, 213, 59, 304, 74, 3) Then MouseBox(434, 60, 448, 74, 1);
  If FindColorTolerance(x, y, 4106994, 202, 27, 272, 43, 3) Then If (Random(4) = 3) Then MouseBox(389, 80, 491, 95, 1) Else MouseBox(481, 27, 496, 42, 1);
  If FindColorTolerance(x, y, 4106994, 285, 110, 335, 120, 3) Then If Ignore Then MouseBox(180, 155, 338, 170, 1) Else MouseBox(180, 176, 338, 191, 1);
End;

Which could be used somewhat like..

Function RA_NumberToRule(RuleNumber: Integer): String;
Begin
  Case RuleNumber Of
    1: Result := 'Buying or selling an account';
    2: Result := 'Encouraging rule breaking';
    3: Result := 'Staff impersonation';
    4: Result := 'Macroing or use of bots';
    5: Result := 'Scamming';
    6: Result := 'Exploiting a bug';
    7: Result := 'Seriously offensive language';
    8: Result := 'Solicitation';
    9: Result := 'Disruptive behaviour';
    10: Result := 'Offensive account name';
    11: Result := 'Real-life threats';
    12: Result := 'Asking for or providing contact information';
    13: Result := 'Breaking real-world laws';
    14: Result := 'Advertising websites';
  End;
End;


Var
  Names: Array Of String;
  i, a, b, Rule: Integer;
Begin
  SetupSRL;
  ClearDebug;
  Names := ['Zezima', 'Gertjaars', 'Aasiwat', ' WatsRealLife']; // macr03rzZ!
  Rule := 4; // Which Rule is being broken? LOL <3
  Begin
    For i := 0 To High(Names) Do
    Begin
      If ReportAbuse(Names[i], Rule, True) Then
        WriteLn(TheTime + ' |  Successfully Reported ' + Names[i] + ', for ' + RA_NumberToRule(Rule) + '.')
      Else
      Begin
        WriteLn(TheTime + ' |  Failed Reporting ' + Names[i] + '.');
        Dec(i);
      End;
      a := GetSystemTime;
      b := (60000 + Random(20000));
      Repeat
        If (i >= High(Names)) Then Break;
        If ((GetSystemTime - a) > b) Then Break;
        Wait(5000 + Random(15000));
        If (Random(5) = 3) Then
          MouseBox(MSX1, MSY1, MSX2, MSY2, 3);
      Until((GetSystemTime - a) > b);
    End;
  End;
end.

Pwned some annoying AutoTalkers! (Spamming Hard).
* Hope it's no one from here.. :o

02:32:46 PM |  Reported Tiega Again, for Macroing or use of bots.
02:34:23 PM |  Reported 3njoy L1umby, for Macroing or use of bots.
02:36:03 PM |  Reported Helloimlv99, for Macroing or use of bots.
02:37:44 PM |  Reported Joiin Reborn, for Macroing or use of bots.
02:39:26 PM |  Reported Wiz G Owners, for Macroing or use of bots.
02:40:52 PM |  Reported Skiller Reni, for Macroing or use of bots.
02:47:11 PM |  Reported Bladelador, for Macroing or use of bots.
02:48:44 PM |  Reported W I P Cream, for Macroing or use of bots.
02:50:27 PM |  Reported R I P P 3 D, for Macroing or use of bots.
02:52:08 PM |  Reported Wiz G  Owners, for Macroing or use of bots.
02:53:34 PM |  Reported Scotch81, for Macroing or use of bots.
02:55:05 PM |  Reported Adsfg121, for Macroing or use of bots.
03:00:38 PM |  Reported Brett 3 hits, for Macroing or use of bots.
03:02:06 PM |  Reported Mariofanboy2, for Macroing or use of bots.
03:03:38 PM |  Reported Hero Mrch, for Macroing or use of bots.
03:05:05 PM |  Reported Merch Tht Gp, for Macroing or use of bots.
03:06:39 PM |  Reported We Trade Gp, for Macroing or use of bots.
03:08:18 PM |  Reported mafia smurfz, for Macroing or use of bots.
03:12:42 PM |  Reported Devilfishftw, for Macroing or use of bots.
03:14:06 PM |  Reported 3d69 0 0 0 0, for Macroing or use of bots.
03:15:35 PM |  Reported Baseboyava, for Macroing or use of bots.
03:17:07 PM |  Reported you mean wat, for Macroing or use of bots.
03:18:42 PM |  Reported 22 Seldom, for Macroing or use of bots.
03:20:21 PM |  Reported Mostafa12326, for Macroing or use of bots.

Thanks I hope you like it..
TurboBk. :)

Reporting people is my FAVORITE antiban. Many times before I bot I report a couple level 3 obvious botters around me :). Nice effort making the function.

Thanks man, yeah it is a good antiban.
I'm trying to figure out a way to check if people are spamming or something like that so it gets the players name and reports it.

That would be some nice anti-ban in a script :)
Btw if you have time, would you mind testing it for me?

From: turbobk
Thanks man, yeah it is a good antiban.
I'm trying to figure out a way to check if people are spamming or something like that so it gets the players name and reports it.

That would be some nice anti-ban in a script :)
Btw if you have time, would you mind testing it for me?

Looks great! Only question is why do you at the end put all the code on one line?

  End Else SRL_warn('ReportAbuse', ' ERROR: Could not find ''Report Abuse'' button', warn_AllVersions);
  If FindColorTolerance(x, y, 4106994, 213, 59, 304, 74, 3) Then MouseBox(434, 60, 448, 74, 1);
  If FindColorTolerance(x, y, 4106994, 202, 27, 272, 43, 3) Then If (Random(4) = 3) Then MouseBox(389, 80, 491, 95, 1) Else MouseBox(481, 27, 496, 42, 1);
  If FindColorTolerance(x, y, 4106994, 285, 110, 335, 120, 3) Then If Ignore Then MouseBox(180, 155, 338, 170, 1) Else MouseBox(180, 176, 338, 191, 1);

[QUOTE=Camaro';687394]Looks great! Only question is why do you at the end put all the code on one line?[/QUOTE]

That code there are the failsafes, just in case it lags or something and doesn't click on the options properly, it will close the report screen instead of it just staying open, also it saves a alot of space putting it like that. :)

TEST PLEASE! :o

From: YoHoJo
Reporting people is my FAVORITE antiban. Many times before I bot I report a couple level 3 obvious botters around me :). Nice effort making the function.

Vouch that, I always report people I see botting while I'm botting *disable smart* report *enable smart*

From: turbobk
TEST PLEASE! :o

yep am going to ^.^