SRL Archive - Research & Development Lounge

I was bored so I made this :)

Procedure ReportPlayer(Name : String; WhatRule : Integer);
Begin
  Mouse(455, 491, 20, 9, True);
  Wait(1000 + Random(800));
  If GetColor(265, 134) = 65535 Then
    Begin
     If Random(2) = 1 Then
      MMouse(265, 134, 10, 10)
     Else
      MMouse(MSCX, MSCY, 200, 200);

      TypeSend(Name);
      Wait(800 + Random(200));
      If FindText(x, y, IntToStr(WhatRule), StatChars, MSX1, MSY1, MSX2, MSY2) Then
        Mouse(x + Random(100), y, 2, 4, True);
    end;
end;

Test pl0x!

Fixed some of it :)

Good job. Works perfectly for me :).