SCAR Code:
UseSmartRespond := True;
RespPerPlayer := RespPerPlay; // Number of responders per individual player. 0 is infinite.
MinChatTime := MinChatTim; // Amount of time to wait between talking to individual players. (Minutes)
MaxChatTime := MaxChatTim; // Amount of time to wait before dropping a player due to them not talking. (Minutes)
HowManyQuestions := 21;
SetArrayLength(QnR, HowManyQuestions);
QnR[0][0] := ['Wc lvl', 'woodcutting?', 'wc?', 'wc lvls', 'wc lvl', 'Wc Lvs?', 'Wc']; //Questions
QnR[0][1] := ['84 =]', 'My Woodcutting Level is 84.']; //Answers to Previous Questions
QnR[1][0] := ['hi', 'hey', 'hiya', 'hello', 'elo', 'wassup', 'sup']; //Questions
QnR[1][1] := ['hey', 'hello', 'hi', 'hiya', 'ello', 'helo']; //Answers to Previous Questions
QnR[2][0] := ['bye', 'bibi', 'cya', 'm goin', 'm leavin']; //Questions
QnR[2][1] := ['bibi', 'cya', 'bye', 'okay', 'see ya', 'later']; //Answers to Previous Questions
QnR[3][0] := ['**', '', '**', '**', '**', '**', '**', '*', '**']; //Questions
QnR[3][1] := ['?', 'What?', 'Hello?', 'Yh?', 'Yes?', 'Yes...']; //Answers to Previous Questions
QnR[4][0] := ['Can i', 'May i', 'Trade', 'borrow', 'Stop', 'buy']; //Questions
QnR[4][1] := ['I cba', 'Nope', 'Leave Me Alone.', 'No!', 'No...', 'Never!']; //Answers to Previous Questions
QnR[5][0] := ['here', 'to go', 'rich', 'Nice']; //Question
QnR[5][1] := ['Nice']; //Answers to Previous Question
QnR[6][0] := ['aut', 'Noob', 'newb', 'Autoer', 'Macro', 'Macroer', 'Auto', 'stupid', 'he']; //Questions
QnR[6][1] := ['?', 'what?', 'ownd?', 'lmao', 'rofl', 'lol']; //Answers to Previous Questions
QnR[7][0] := ['Aut', 'Noob', 'newb', 'Autoer', 'Macro', 'Macroer', 'many']; //Questions
QnR[7][1] := ['?', 'what?', 'ownd?', 'lmao', 'rofl', 'lol']; //Answers to Previous Questions
QnR[8][0] := ['how much?', 'how much are 100?', 'how', 'I want']; //Questions
QnR[8][1] := ['Yews are 464gp ea']; //Answers to Previous Questions
QnR[9][0] := ['agility']; //Questions When Someone asks your Agil lvl)
QnR[9][1] := [IntToStr(GetSkillLevel('Agility'))]; //Answers to Previous Questions
QnR[10][0] := ['Att', 'Atk', 'att', 'atk']; //Questions(When someone asks your att lvl)
QnR[10][1] := [IntToStr(GetSkillLevel('Attack'))]; //Answers to Previous Questions
QnR[11][0] := ['Str', 'str']; //Questions(When Someone asks your str lvl)
QnR[11][1] := [IntToStr(GetSkillLevel('Strength'))]; //Answers to Previous Questions
QnR[12][0] := ['Def', 'def']; //Questions(When Someone Asks your Def lvl)
QnR[12][1] := [IntToStr(GetSkillLevel('Defence'))]; //Answers to Previous Questions
QnR[13][0] := ['Range', 'range']; //Questions(When Someone asks your Range lvl)
QnR[13][1] := [IntToStr(GetSkillLevel('Range'))]; //Answers to Previous Questions
QnR[14][0] := ['Farm', 'farm']; //Questions(When Someone asks your Farming lvl)
QnR[14][1] := [IntToStr(GetSkillLevel('Farming'))]; //Answers to Previous Questions
QnR[15][0] := ['Min', 'min']; //Questions(When someone asks your Mining Lvl)
QnR[15][1] := [IntToStr(GetSkillLevel('Mining'))]; //Answers to Previous Questions
QnR[16][0] := ['Smi', 'smi']; //Questions(When someone asks your Mining Lvl)
QnR[16][1] := [IntToStr(GetSkillLevel('Smithing'))]; //Answers to Previous Questions
QnR[17][0] := ['fm', 'Fire', 'fire', 'Fm' ]; //Questions(When someone asks your Mining Lvl)
QnR[17][1] := [IntToStr(GetSkillLevel('Firemaking'))]; //Answers to Previous Questions
QnR[18][0] := ['Mage', 'mage', 'Magic', 'magic']; //Questions(When someone asks your Mining Lvl)
QnR[18][1] := [IntToStr(GetSkillLevel('Magic'))]; //Answers to Previous Questions
QnR[19][0] := ['Fletch', 'fletching', 'Fletching', 'fletch']; //Questions(When someone asks your Mining Lvl)
QnR[19][1] := [IntToStr(GetSkillLevel('Fletching'))]; //Answers to Previous Questions
QnR[20][0] := ['...', '?', ' ', '.', '.....................', 'grr', 'bird']; //Questions(When someone asks your Mining Lvl)
QnR[20][1] := ['...', 'rawr', 'kk']; //Answers to Previous Questions
SetupSmartRespond(UseSmartRespond, RespPerPlayer, MinChatTime, MaxChatTime);
end;