Reports a player:
scar Code:
{*******************************************************************************
Procedure ReportPlayer(User : String; ReportType : (Honour, Respect, Security); Reason : Integer);
By: Cazax
Description: Reports a player using the report button.
Player = Desired player
ReportType = Can be Honour, Respect or Security
Reason = from 1 to 6. e.g. 1 in Honour is Buying or selling an account, 4 in Respect
is Offensive account
*******************************************************************************}
Procedure ReportPlayer(Player : String; ReportType : (Honour, Respect, Security); Reason : Integer);
Var
Box : TBox;
V : Variant;
Begin
If Not LoggedIn Then
Exit;
V := ReportType;
MouseBox(405, 481,514, 502, 1);
Wait(500 + Random(500));
TypeSend(Player);
Wait(250 + Random(250));
MouseBox(377, 126, 426, 142, 1);
Wait(350 + Random(350));
Box.X1 := 25 + (158 * V);
Box.Y1 := 144 + (29 * (Reason - 1));
Box.X2 := 178 + (158 * V);
Box.Y2 := 171 + (29 * (Reason - 1));
MouseBox(Box.X1, Box.Y1, Box.X2, Box.Y2, 1);
Wait(350 + Random(350));
MouseBox(179, 176, 340, 192, 1);
End;