SRL Archive - RS3 Outdated / Broken Scripts

Im memb and id like a auto responder that will work when i chop so i dont have to do anything else then click and id like the auto responder in a whole script… thx -Yanix

ehm..

look in the flag chat and in the text .scar in the srl include you will find somthing about it

No nothing…

dude somthing with if findchattext('hi') then typesynd somthing like that.

I pmed you, add me n let's talk :)

i made one:

it's looking in the last 2 line's for text to respond to. if you use it don't forget to credit me ^^

Function AutoRespondByRick (FindText, SayRandomText1, SayRandomText2, SayRandomText3 : string):Boolean;
var
  textx, texty: Integer;
  TextSayd  : String;
  TextFound : String;
begin
  if (not (IsTextInAreaEx(8, 428, 291, 461, textx, texty, FindText, 12, smallchars, False, True, 0, 1, 16711680))) then 
  begin
    exit;
  end else 
  begin
    Result := True;
    Case Random (3) of
      0: begin
           Typesend(SayRandomText1);
           TextSayd := SayRandomText1
         end;
      1: begin
           Typesend(SayRandomText2);
           TextSayd := SayRandomText2
         end;
      2: begin
           Typesend(SayRandomText3);
           TextSayd := SayRandomText3
         end;
    end;
    TextFound := FindText
    WriteLn('- - - Auto Respond By MasterKill - - -');
    WriteLn('- MrX: ' + TextFound);
    WriteLn('- ' + Players[CurrentPlayer].Name + ': '+ TextSayd);
    WriteLn('');
  end;
end;

use like this:

Procedure AutoRespond;
begin
  AutoRespondByRick('Hi','yoo','yo','ewa');
  AutoRespondByRick('Noob','stfu','look at yourself','u r');
  AutoRespondByRick('Haha','lol','rofl','not funny');
  AutoRespondByRick('Total','look it up','look in hi-scores','not telling');
end;

AutoRespondByRick('look for text', 'random say 1', 'random say 2', 'random say 3');

EDIT:

REMEMBER: if the ('LookForText' = the same as 'random say x') then it will respond to him self!

if (InChat('att lvl?') or
      InChat('att level?') or
      InChat('attack level?') or
      InChat('attack lvl?')) then
      begin
      TypeSend(IntToStr(GetSkillLevel('Attack')))
      RespondAmount := RespondAmount + 1;

this?

From: MasterKill
i made one:

it's looking in the last 2 line's for text to respond to. if you use it don't forget to credit me ^^

Function AutoRespondByRick (FindText, SayRandomText1, SayRandomText2, SayRandomText3 : string):Boolean;
var
  textx, texty: Integer;
  TextSayd  : String;
  TextFound : String;
begin
  if (not (IsTextInAreaEx(8, 428, 291, 461, textx, texty, FindText, 12, smallchars, False, True, 0, 1, 16711680))) then 
  begin
    exit;
  end else 
  begin
    Result := True;
    Case Random (3) of
      0: begin
           Typesend(SayRandomText1);
           TextSayd := SayRandomText1
         end;
      1: begin
           Typesend(SayRandomText2);
           TextSayd := SayRandomText2
         end;
      2: begin
           Typesend(SayRandomText3);
           TextSayd := SayRandomText3
         end;
    end;
    TextFound := FindText
    WriteLn('- - - Auto Respond By MasterKill - - -');
    WriteLn('- MrX: ' + TextFound);
    WriteLn('- ' + Players[CurrentPlayer].Name + ': '+ TextSayd);
    WriteLn('');
  end;
end;

use like this:

Procedure AutoRespond;
begin
  AutoRespondByRick('Hi','yoo','yo','ewa');
  AutoRespondByRick('Noob','stfu','look at yourself','u r');
  AutoRespondByRick('Haha','lol','rofl','not funny');
  AutoRespondByRick('Total','look it up','look in hi-scores','not telling');
end;

AutoRespondByRick('look for text', 'random say 1', 'random say 2', 'random say 3');

EDIT:

REMEMBER: if the ('LookForText' = the same as 'random say x') then it will respond to him self!

cant do it better man he wont use it :p

thx all i had some problems with the script request forums so star fixed it and im gona use them all thx