SRL Archive - Research & Development Lounge

This procedure will report a player for any rule.

I believe it has exceptional anti-ban.

if(Like = True)then Inc(Rep);

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;

Sample Script:

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;

begin
 SetupSRL;
 ClearDebug;
 RuleReport(7, 'Zezima', True);
end.

Haha, -

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 < 0)or(Rule > 13)then
   begin
    writeln('Invaild Rule');
    Exit;
   end;
  case Rule - 1 of
    0: Mouse(RuleCordsX[0], RuleCordsY[0], 1, 7, True);
    1: Mouse(RuleCordsX[1], RuleCordsY[1], 1, 7, True);
    2: Mouse(RuleCordsX[2], RuleCordsY[2], 1, 7, True);
    3: Mouse(RuleCordsX[3], RuleCordsY[3], 1, 7, True);
    4: Mouse(RuleCordsX[4], RuleCordsY[4], 1, 7, True);
    5: Mouse(RuleCordsX[5], RuleCordsY[5], 1, 7, True);
    6: Mouse(RuleCordsX[6], RuleCordsY[6], 1, 7, True);
    7: Mouse(RuleCordsX[7], RuleCordsY[7], 1, 7, True);
    8: Mouse(RuleCordsX[8], RuleCordsY[8], 1, 7, True);
    9: Mouse(RuleCordsX[9], RuleCordsY[9], 1, 7, True);
    10: Mouse(RuleCordsX[10], RuleCordsY[10], 1, 7, True);
    11: Mouse(RuleCordsX[11], RuleCordsY[11], 1, 7, True);
    12: Mouse(RuleCordsX[12], RuleCordsY[12], 1, 7, True);
   end;
   Wait(1250 + Random(750));
   if(GetColor(411, 77) <> 16777215)then
     writeln('Successfully Reported ' + UserName + '.');
end;

can be changed to

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 < 0)or(Rule > 13)then
   begin
    writeln('Invaild Rule');
    Exit;
   end;
   Mouse(RuleCords[rule-1].x, RuleCords[rule-1].y, 1, 7, True);
   Wait(1250 + Random(750));
   if(GetColor(411, 77) <> 16777215)then
     writeln('Successfully Reported ' + UserName + '.');
end;

:p

Updated script

@ n3ss3s
Also in your script:

   Mouse(RuleCords[rule-1].x, RuleCords[rule-1].y, 1, 7, True);

Shouldn't that be:

Mouse(RuleCordsX[Rule - 1], RuleCordsY[Rule - 1], 2, 7, True);