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;