Dub
2009-12-16 10:42:25
I thought to myself; hey let's write a (hopefully) useful procedure that could possibly be implemented in the list of AntiBan stuff. I don't know anything yet about the new functions and stuff there are these days, and this code is (yes I know!) kinda slow. I was hoping for suggestions and/or improvements to make this faster. It's compact, but I need more chat options. Can you guys reply with some FAQS(ingame ones) and possible answers to them? Your contribution is appreciated :).
Redid the whole thing, using Arrays now. Okay so version 2 of it. This is basically just the template, because there's loads of HiChats ( which is just chatter ) to be added. The Level procedure just answers with your own skill level in a particular skill filled in the (); e.g. SkillResponder('Mining');
Redid the whole thing, using Arrays now. Okay so version 2 of it. This is basically just the template, because there's loads of HiChats ( which is just chatter ) to be added. The Level procedure just answers with your own skill level in a particular skill filled in the (); e.g. SkillResponder('Mining');
program responders;
{.include SRL\SRL\Misc\Quickchat.scar}
var
HiChats, HiAnswers: TStringArray
LevelChats: TStringArray;
i: integer;
procedure SkillResponder(ART_Skill:String);
begin
LevelChats:=['What is your Mining level?','Your level?','your level?','Ur level?','ur lvl?',
'your levels?','Your Levels',(ART_Skill + 'level'),(ART_Skill + 'lvl?')];
for I:= 0 to High(LevelChats) do
begin
if (InChat(LevelChats[i]))then
begin
//QCSayLevel(ART_Skill);
wait(1000+random(200));
writeln('Responded to the question!');
Exit;
end;
end;
wait(500+random(20));
end;
procedure BlaResponder;
begin
HiChats:=['hi','hello','sup','yo','bored'];
HiAnswers:=['yo','hi','mornin!','yo!','Yah im bored too..'];
for I:= 0 to High(HiChats) do
begin
if InChat(HiChats[i]) then
TypeSend(HiAnswers[i]);
wait(100+random(200));
end;
end;