Hmm? What do you mean? I tried my hand at it, but decided it wasn't worth the time it takes people to capitalize their names in the declare players :/.
Hmm? What do you mean? I tried my hand at it, but decided it wasn't worth the time it takes people to capitalize their names in the declare players :/.
Huh? I just meant showing new people how to put in their own stuff.
I run in triangles because circles are for squares.
Oh! That'll be easy. I'm going to wait until I get a decent amount of replies though.
Oh, okay. You should add a 1337 Sp33k onto your script. I'm sure that it'll bring it into RS.![]()
I run in triangles because circles are for squares.
Yea, I'm going to, possibly add a boolean for whether to leetspeak or not, then 1337'erize the replies :P.
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
i wouldn't do l33t speak it's just not normal, i never find myself typing like that and i never see anybody else either, tbh theres not much point.
I'm also using the addmistakes SRL function, so it'll vary itself.
Not sure if it's changed since I last posted:
SCAR Code:{
I'd like to thank many people!
Viral, for pointing me towards, and posting, Nava's InChatArr function.
Wt-Fakawi, for creating the InChatArr function (I believe).
Nava, for posting the InChatArr function where Viral got it, regardless of the original creator.
Camo Kyle, for sitting with me in Lumbridge tower while we tried to figure out why it wasn't working (PSST! InChatMulti was broken!)
Botsrs, for sitting with me in Lumbridge tower and helping me try the fixed version.}
{.include srl/srl/misc/QuickChat.scar}
const
StartPersonality = 'polite';
TimeBetweenResponds = 10000;
var
Respond1, I : array of string;
Personality : string;
N, C, TimeMarkerNow : Integer;
function InChatArr(Text: array of string): Boolean;
var
I, H: integer;
s: string;
begin
H := High(Text);
if (not (GetLastChatText(s))) then
LastChatter(s);
for I := 0 to H do
begin
if (Pos(Lowercase(Text[i]), (Lowercase(s))) > 0) then
begin
Result := true;
Exit;
end;
end;
end;
Procedure SetupAutorespond;
Begin
Personality := StartPersonality;
TimeMarkerNow := TimeBetweenResponds + 1;
End;
procedure Responding;
begin
If Not LoggedIn Then
Exit;
If Not TimeFromMark(TimeMarkerNow) > TimeBetweenResponds Then
Begin
WriteLn('Time from the last mark is NOT higher then the set time to wait between responses!');
Exit;
End;
if not FindBlackChatMessage(Players[currentplayer].name) and InChatArr(['oodcutting', 'oodcut', 'ishing', 'ish', 'ine', 'ining', 'hi', 'hello', 'sup', 'yo', 'lol', 'lmao', 'rofl', 'haha']) then
begin
WriteLn('Here we go!');
I := ['oodcutting', 'oodcut', 'ishing', 'ish', 'ining', 'hi ', 'hello ', 'sup ', 'yo ', 'lol', 'lmao ', 'rofl ', 'haha ', 'rafting', 'raft', ''];
for N := 0 to GetArrayLength(I)-1 do
case InChat(I[N]) of
True:
begin
C := N;
case C of
0..1 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['Tis ', 'Yo, my wc lvl is ', 'My level be ', 'It be ', ''];
'polite': Respond1 := ['Thanks for asking, it is ', 'It is ', ''];
'bored': Respond1 := ['Lolz, it''s ', 'dood! My wc level is ', '', 'Aren''t you smart? It''s obviously 99, duh!', 'Lolcat sayz it be ', 'Lolwut! My level be '];
'angry': Respond1 := ['What''s it matter? If you must know it''s ', 'Bah. ', ''];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))] + IntToStr(GetSkillInfo('woodcutting', True)), 20));
end;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
2..3 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['Tis ', 'Yo, my fishing lvl is ', 'It''s ', '', 'My level be ', 'It be '];
'polite': Respond1 := ['Thanks for asking, it is ', 'It is ', ''];
'bored': Respond1 := ['Lolz, it''s ', 'dood! My fishing level is ', '', 'Aren''t you smart? It''s obviously 99, duh!', 'Lolcat sayz it be ', 'Lolwut! My level be '];
'angry': Respond1 := ['What''s it matter? If you must know it''s ', 'Bah. ', ''];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))] + IntToStr(GetSkillInfo('fishing', True)), 20));
end;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
4..5 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['Tis ', 'Yo, my craft lvl is ', '', 'My level be ', 'It be '];
'polite': Respond1 := ['Thanks for asking, my crafting level is ', 'It is ', ''];
'bored': Respond1 := ['Lolz, it''s ', 'dood! My crafting level is ', '', 'Aren''t you smart? It''s obviously 99, duh!', 'Lolcat sayz it be ', 'Lolwut! My level be '];
'angry': Respond1 := ['Whats it to you? If you must know its ', 'Bah. ', ''];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))] + IntToStr(GetSkillInfo('crafting', True)), 20));
end;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
6..9 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['Yo!', 'Sup?', 'Sup man?', 'Sup dawg', 'Yo dawg', 'What''s happenin?', 'Hola'];
'polite': Respond1 := ['Hello.', 'Good day to you.', 'It''s nice to see you!', 'G''day mate', 'How are you doing today?'];
'bored': Respond1 := ['Ohaider!', 'Hi.', 'Y0z!', 'Lolwut it''s you!', 'Koneecheewah', 'h3110', 'H to the E to the L to the L to the O', 'Well then, H to the I'];
'angry': Respond1 := ['What?', 'Wha''dyawant', 'Leave me alone!', 'Go away!', 'Hi noob', 'Was I talking to you?', 'Stupid noob, leave me alone!'];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))], 20));
end;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
10..13 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['dood, funneh!', 'hehe', 'l0lz'];
'polite': Respond1 := ['That was funny!', 'Please tell another joke, that was very funny!', 'Heh'];
'bored': Respond1 := ['roflc0pt3rz', 'lool', 'roflzzz', 'lmao!'];
'angry': Respond1 := ['What''s so funny, punk?', 'Stop laughing, that was horrible'];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))], 20));
End;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
14..15 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['Tis ', 'Yo, my mining lvl is ', '', 'My level be ', 'It be '];
'polite': Respond1 := ['Thanks for asking', 'It is ', ''];
'bored': Respond1 := ['Lolz, it''s ', 'dood! My mining level is ', '', 'Aren''t you smart? It''s obviously 99, duh!', 'Lolcat sayz it be ', 'Lolwut! My level be '];
'angry': Respond1 := ['Whats it matter? If you must know its ', 'Bah. ', ''];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))] + IntToStr(GetSkillInfo('mining', True)), 20));
end;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
False: Exit;
end;
end;
end;
end;
end;
Is the InChatMulti working? Or did you replace it with something else? It keeps getting better and better lol.
~Camo
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
I'm using Wt-Fakawi's (or Nava's, not sure), InChatArr for it.
Woo lol:
![]()
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
Cool idea man.
I've always thought SCAR needs one of these :P.
I was thinking more like auto respond through quick chat,
whcih would be a lot easier, but w\e![]()
Sean[714] @rscheata.net
Nah, I found it didn't work so well :/. That's why I removed it. Anyways, I'm going to add in all the f2p skills today/tomorrow, when I get a chance. Long. Boring. Lots of typing. Oh joy.
~Sandstorm
P.S. - I still want more replies!
What happens if people go "--WC---LEVELS?" or "*space*space*WC*space*space*space*space*LEVEL S", i'm not sure if you'd be able to do this put theres a "trim" function for strings, could you use that to help?
Enchanted.
Learning: Italian!
Code:<Jason2G's> I just sprayed WD-40 on my dog's nuts. He was sleeping. And now he can't get back to sleep ^_^
I don't think it matters. It searches for the string level, lvl, levl, etc., and if it finds it, it goes onto looking for the rest, wc for example. So even if it's wc LVLs? It'd still find the lvl part of the string, allowing it to continue, then the wc part of the string. I think. Lol.
for caps you'd have to use if InChat(LowerCase('lvls')); not just InChat('lvls');
I'll keep that in mind, thanks.
So I looked over some of your proposed responses and frankly they are a tad strange. No one uses the phrase "Good sir" anymore. However, I will help you develop a shitload of wonderful phrases to chat with if you'd like. The key is slight differences but not to the point where its ridiculous.
Lol. I was just coming up with stuff for examples, and filler xD.
Is it updated? Lol...happy Sand?
~Camo
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
No it isn't updated.
Here's the updated one, it's got the capability to be un-capitalized in declare players, unlike my other versions. <3 delete function.
SCAR Code:{
I'd like to thank many people!
Viral, for pointing me towards, and posting, Nava's InChatArr function.
Wt-Fakawi, for creating the InChatArr function (I believe).
Nava, for posting the InChatArr function where Viral got it, regardless of the original creator.
Camo Kyle, for sitting with me in Lumbridge tower while we tried to figure out why it wasn't working (PSST! InChatMulti was broken!)
Botsrs, for sitting with me in Lumbridge tower and helping me try the fixed version.}
{.include srl/srl/misc/QuickChat.scar}
const
StartPersonality = 'polite';
TimeBetweenResponds = 10000;
var
Respond1, I : array of string;
Personality : string;
N, C, TimeMarkerNow : Integer;
function InChatArr(Text: array of string): Boolean;
var
I, H: integer;
s: string;
begin
H := High(Text);
if (not (GetLastChatText(s))) then
LastChatter(s);
for I := 0 to H do
begin
if (Pos(Lowercase(Text[i]), (Lowercase(s))) > 0) then
begin
Result := true;
Exit;
end;
end;
end;
Procedure SetupAutorespond;
Begin
Personality := StartPersonality;
TimeMarkerNow := TimeBetweenResponds + 1;
End;
procedure Responding;
Var
EditedName : String;
begin
If Not LoggedIn Then
Exit;
If Not TimeFromMark(TimeMarkerNow) > TimeBetweenResponds Then
Begin
WriteLn('Time from the last mark is NOT higher then the set time to wait between responses!');
Exit;
End;
EditedName := Players[currentplayer].name;
Delete(EditedName, 1, 1);
if not FindBlackChatMessage(EditedName) and InChatArr(['oodcutting', 'oodcut', 'ishing', 'ish', 'ine', 'ining', 'hi', 'hello', 'sup', 'yo', 'lol', 'lmao', 'rofl', 'haha']) then
begin
WriteLn('Here we go!');
I := ['oodcutting', 'oodcut', 'ishing', 'ish', 'ining', 'hi ', 'hello ', 'sup ', 'yo ', 'lol', 'lmao ', 'rofl ', 'haha ', 'rafting', 'raft', ''];
for N := 0 to GetArrayLength(I)-1 do
case InChat(lowercase(I[N])) of
True:
begin
C := N;
case C of
0..1 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['Tis ', 'Yo, my wc lvl is ', 'My level be ', 'It be ', ''];
'polite': Respond1 := ['Thanks for asking, it is ', 'It is ', ''];
'bored': Respond1 := ['Lolz, it''s ', 'Dood! My wc level is ', '', 'Aren''t you smart? It''s obviously 99, duh!', 'Lolcat sayz it be ', 'Lolwut! My level be '];
'angry': Respond1 := ['What''s it matter? If you must know it''s ', 'Bah. ', ''];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))] + IntToStr(GetSkillInfo('woodcutting', True)), 20));
end;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
2..3 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['Tis ', 'Yo, my fishing lvl is ', 'It''s ', '', 'My level be ', 'It be '];
'polite': Respond1 := ['Thanks for asking, it is ', 'It is ', ''];
'bored': Respond1 := ['Lolz, it''s ', 'dood! My fishing level is ', '', 'Aren''t you smart? It''s obviously 99, duh!', 'Lolcat sayz it be ', 'Lolwut! My level be '];
'angry': Respond1 := ['What''s it matter? If you must know it''s ', 'Bah. ', ''];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))] + IntToStr(GetSkillInfo('fishing', True)), 20));
end;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
4..5 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['Tis ', 'Yo, my craft lvl is ', '', 'My level be ', 'It be '];
'polite': Respond1 := ['Thanks for asking, my crafting level is ', 'It is ', ''];
'bored': Respond1 := ['Lolz, it''s ', 'dood! My crafting level is ', '', 'Aren''t you smart? It''s obviously 99, duh!', 'Lolcat sayz it be ', 'Lolwut! My level be '];
'angry': Respond1 := ['Whats it to you? If you must know its ', 'Bah. ', ''];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))] + IntToStr(GetSkillInfo('crafting', True)), 20));
end;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
6..9 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['Yo!', 'Sup?', 'Sup man?', 'Sup dawg', 'Yo dawg', 'What''s happenin?', 'Hola'];
'polite': Respond1 := ['Hello.', 'Good day to you.', 'It''s nice to see you!', 'G''day mate', 'How are you doing today?'];
'bored': Respond1 := ['Ohaider!', 'Hi.', 'Y0z!', 'Lolwut it''s you!', 'Koneecheewah', 'h3110', 'H to the E to the L to the L to the O', 'Well then, H to the I'];
'angry': Respond1 := ['What?', 'Wha''dyawant', 'Leave me alone!', 'Go away!', 'Hi noob', 'Was I talking to you?', 'Stupid noob, leave me alone!'];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))], 20));
end;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
10..13 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['dood, funneh!', 'hehe', 'l0lz'];
'polite': Respond1 := ['That was funny!', 'Please tell another joke, that was very funny!', 'Heh'];
'bored': Respond1 := ['roflc0pt3rz', 'lool', 'roflzzz', 'lmao!'];
'angry': Respond1 := ['What''s so funny, punk?', 'Stop laughing, that was horrible'];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))], 20));
End;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
14..15 :
begin
case lowercase(Personality) of
'laid back': Respond1 := ['Tis ', 'Yo, my mining lvl is ', '', 'My level be ', 'It be '];
'polite': Respond1 := ['Thanks for asking', 'It is ', ''];
'bored': Respond1 := ['Lolz, it''s ', 'dood! My mining level is ', '', 'Aren''t you smart? It''s obviously 99, duh!', 'Lolcat sayz it be ', 'Lolwut! My level be '];
'angry': Respond1 := ['Whats it matter? If you must know its ', 'Bah. ', ''];
end;
case Random(4) of
0..2 : TypeSend(AddMistakes(Respond1[Random(GetArrayLength(Respond1))] + IntToStr(GetSkillInfo('mining', True)), 20));
end;
TimeMarkerNow:=0;
Marktime(TimeMarkerNow);
end;
False: Exit;
end;
end;
end;
end;
end;
make the personality automatically change . like depending on the question..
e.g. Ur on an angry personality and someone asks u "whats ur woodcut level =)" then u reply in a calmer tone ..
Dont Steal..
Yea, I haven't implemented that yet either. Gonna do that sometime today, if I get time off from my duel script thing.
Still looking for replies!
~Sandstorm
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
Lol. This isn't the thread for that. And it's only because the only wait I have is a check to see if someone challenged me rofl.
There are currently 1 users browsing this thread. (0 members and 1 guests)