SRL Archive - SRL Archives

I really like this one cause it works real well and i think the chances of getting banned will be lowered so I hope you guys like!

Procedure FindQuestion;
Var
Q,W,E,R:integer;
begin
Q:=CreateBitmapMaskFromText('Mining Lvls',ChrChatChars);
If(FindBitMapMaskTolerance(Q,x,y,10,345,210,465,15,70))Then
Begin
SendKeysHumanJ('My Mining Level is'+inttostr(J),100,True);
Wait(100+Random(2));
W:=CreateBitmapMaskFromText('Noob',ChrChatChars);
If(FindBitMapMaskTolerance(W,x,y,10,345,210,465,15,70))Then
Begin
SendKeysHumanJ('Im not a noob you are!',100,True);
Wait(100+Random(2));
E:=CreateBitmapMaskFromText('Auto',ChrChatChars);
If(FindBitMapMaskTolerance(E,x,y,10,345,210,465,15,70))Then
Begin
SendKeysHumanJ('I have never autoed on rs in my life!',100,True);
Wait(100+Random(2));
R:=CreateBitmapMaskFromText('Hey',ChrChatChars);
If(FindBitMapMaskTolerance(R,x,y,10,345,210,465,15,70))Then
Begin
SendKeysHumanJ('what Do you Want?',100,True);
FreeBitMap(Q);
FreeBitMap(W);
FreeBitMap(E);
FreeBitMap(R);
end;
end;
end;
end;
end;

thank you i

The only thing bad is if they keep saying the word over and over.

Make it possible chances of different replies.

case random(5)+1 of
  1: SendKeysHumanJ('I have never autoed on rs in my life!',100,True);
  2: SendKeysHumanJ('ur the autoer!',100,True);
  3: SendKeysHumanJ('what''s auto?',100,True);
  4: SendKeysHumanJ('right.. whatever you say',100,True);
  5: SendKeysHumanJ('Auto-ing is for lazy ppl.',100,True);
end;

No offense to anyone on the last one :p

yea I know I was just saying an idea
but TY

It wont be added, too big of a hassle sorry :(. We'll work on an autoresponder i guess

I dont mind just sharing with other people