SRL Archive - General

Hey i have a question for you guys
Couldn't we if we make a Auto response master script what you can just include kinda like the randoms like a huge script with a bunch of if then statements?
i have seen them include in scripts and they work awesome so… yea…
like if someone would say fletching lvl? or anything like that it would go to skill tab and get number and say it in a phrase of "myn is 40" or something realistic
it would decrease the ban rate tenfold!

Takes a ton of time and is very boring creating all those responses.

But yes, responders do help a lot, assuming that they're not repetitive.

well yes, but with multiple people on this forum we could get it done no time right?

SRL/SRL/Core/AutoTalk.scar pl0x? I think the devs are working on it atm.

Wow, Great idea….I believe if you look in your SRL folders, you might just find a place for 1 ;)…the only problem releasing a public one would be…then you would 30,000 people, all making the same reply…and that would be even more suspicious, then not replying at all ;)….please do a search of auto-responders, there is a great tutorial on here by Fakawi, on how to make one,

Good Luck,

~RAM

From: Hy71194
SRL/SRL/Core/AutoTalk.scar pl0x? I think the devs are working on it atm.

The Devs have their own responder ;) It's just not for the public. You can fill it in with your own responder.

damn devs :( i want a cool responder to! :P

Make it :D

If I was to make one, I would use multi-cases for each word (more than the example beneath), and some more cool stuff.

procedure AnswerALevel;
var
 Lvl: Integer;
 ToSay: String;
begin
  if InChat('Attack lv') then
  begin
    Lvl:= GetSkillLevel('Attack')
  end else Exit;
  case random(2) of
    0: ToSay:= 'my '
  end;
  case random(2) of
    0: ToSay:= ToSay + 'attack level '
  end;
  case random(2) of
    0: ToSay:= ToSay + 'is '
  end;
  TypeSend(ToSay+Lvl)
end;

-Knives

From: King of Knives
Make it :D

If I was to make one, I would use multi-cases for each word (more than the example beneath), and some more cool stuff.

procedure AnswerALevel;
var
 Lvl: Integer;
 ToSay: String;
begin
  if InChat('Attack lv') then
  begin
    Lvl:= GetSkillLevel('Attack')
  end else Exit;
  case random(2) of
    0: ToSay:= 'my '
  end;
  case random(2) of
    0: ToSay:= ToSay + 'attack level '
  end;
  case random(2) of
    0: ToSay:= ToSay + 'is '
  end;
  TypeSend(ToSay+Lvl)
end;

-Knives

what about:

Function SayALevel(skill : string) : boolean;
var lvl:string;
begin;
  if(lvl := GetSkillLvl(skill)) then
    begin;
      TypeSend(lvl);
      Result:= True;
    end;
end;