SRL Archive - SRL Archives

Well, from what I know, there isn't a function like this in SRL. If there is, well I just wasted about a hour of my time of picking coords :p

program New;
{.include SRL/SRL.scar}


{********************************************************
function ReportPlayer(Who, ForWhat: String): Boolean;
By: JAD
Description: Reports player. Capital letters and spacing don't matter
for what you put in ForWhat, just needs to be proper spelling.

********************************************************}
function ReportPlayer(Who, ForWhat: String): Boolean;
var JADX, JADY: Integer;
    JX1,JY1,JX2,JY2: Integer;
begin
  if(not(LoggedIn))then
  Exit;
  MouseBox(428,477,493,490,1);
  wait(500+random(500));
  SendText((Who))
  wait(500+random(500));
  
  Trim(ForWhat);
  
  case LowerCase(ForWhat) of
  
    'offensivelanguage':
    begin
      JX1:=56;
      JY1:=214;
      JX2:=139;
      JY2:=218;
    end;
                          
    'itemscamming':
    begin
      JX1:=64;
      JY1:=229;
      JX2:=112;
      JY2:=233;
    end;
    
    'passwordscamming':
    begin
      JX1:=70;
      JY1:=244;
      JX2:=125;
      JY2:=247;
    end;
    
    'bugabuse':
    begin
      JX1:=62;
      JY1:=259;
      JX2:=93;
      JY2:=262;
    end;
    
    'jagexstaffimpersonation':
    begin
      JX1:=75;
      JY1:=274;
      JX2:=145;
      JY2:=278;
    end;
    
    'accountsharing/trading':
    begin
      JX1:=57;
      JY1:=288;
      JX2:=116;
      JY2:=193;
    end;
    
    'macroing':
    begin
      JX1:=61;
      JY1:=304;
      JX2:=90;
      JY2:=309;
    end;
    
    'multipleloggingin':
    begin
      JX1:=278;
      JY1:=213;
      JX2:=323;
      JY2:=218;
    end;
    
    'encouragingotherstobreakrules':
    begin
      JX1:=284;
      JY1:=229;
      JX2:=338;
      JY2:=232;
    end;
    
    'misuseofcustomersupport':
    begin
      JX1:=275;
      JY1:=244;
      JX2:=318;
      JY2:=248;
    end;
    
    'advertising/website':
    begin
      JX1:=270;
      JY1:=258;
      JX2:=313;
      JY2:=263;
    end;
    
    'realworlditemtrading':
    begin
      JX1:=273;
      JY1:=274;
      JX2:=326;
      JY2:=278;
    end;
    
    'askingforpersonaldetails':
    begin
      JX1:=273;
      JY1:=289;
      JX2:=328;
      JY2:=293;
    end;
    else
    begin
      Writeln('Invalid ForWhat option..');
      Exit;
    end;
  end;

  MouseBox(JX1,JY1,JX2,JY2,3);
  wait(500+random(500));
  if(FindColor(x,y,255,JX1,JY1,JX2,JY2))then
  begin
    Result := True;
    GetMousePos(JADX,JADY);
    Mouse(JADX,JADY,0,0,true);
    wait(500+random(500));
  end else
  begin
    if(LoggedIn)then
    MouseBox(480,35,493,48,1);
    Writeln('Failed to report..');
    Result := False;
  end;
end;

begin
  SetupSRL;
  ActivateClient;
  ReportPlayer('Zezima','macroing');
end.

Enjoy! :D

Cool this could go into antiban to make it more human like if the script sees cussing or something.

Yea, nice work Jad

[Offtopic] Damn you buckley, impersonating me … wrong font btw. [/offtopic]

Overall a nice function.

Thanks everybody :D

And yeah, people could do something like if(InChat('***'))then ReportPlayer(Whoever,'offensive language');

I think it could be mostly used randomly for maybe looking for a level 3, and then reporting because normally non autos do that time to time when autoing. I'm going to make a little update to it and see what I can do to make it better.

Thanks for all the nice comments guys!

Nice work.

Although doesnt jagex monitor your activity and the one reported?

From: Abyssal
Nice work.

Although doesnt jagex monitor your activity and the one reported?

Thanks! And not 100% sure about that.. Jagex may, but usually they monitor everybody anyway don't they? And if you report people, well, normally macroers don't report people :p

Nice work, i think if we could somehow make it report all lvl 3s and 4s for autoing thatd be great :p

Meh adamb that's already been done :D Nice function JAD although if u incorporated this into a script to report any lvl 3's it sees. what if you were like chopping willows then it would just be reporting the whole time and not macroing :D it would work sweetly for the swearing one tho

*runs a script that reports ppl for cussing*

*1 week later*

"HOLY SHIT!!!!, IM A PMOD!!! Meh… im banned for autoing too."

lol :rolleyes:

From: rkroxpunk
Meh adamb that's already been done :D Nice function JAD although if u incorporated this into a script to report any lvl 3's it sees. what if you were like chopping willows then it would just be reporting the whole time and not macroing :D it would work sweetly for the swearing one tho

Thanks! And yeah, I was just about to add that to it once I got the time :p

Imo, those are far to many coords.

You should only have a formula worked out for the distance between each report inquiry, this could not only make your script more efficiant, but save a lot of space.
If not then only pick a single x and y for each reason for the report and then make it random on the x coord. This would make it random and shorten your code at the same time.

From: Bebemycat2
Imo, those are far to many coords.

You should only have a formula worked out for the distance between each report inquiry, this could not only make your script more efficiant, but save a lot of space.
If not then only pick a single x and y for each reason for the report and then make it random on the x coord. This would make it random and shorten your code at the same time.

IMO? lol, everybdoy says that! I don't get it :p

And I kinda get what you mean, but could you explain in a bit more detail on how to make what your saying work?

This is a good idea, but there is one problem: What if we all become playermods?

nice idea :p