need some help

[Noclip]

if someone could help me with this bot ....
i cant figure out how i can make it to stop responce to question mark....i removed the only line that had it ...but didint help  :D


sVer       = "0.21";

sName      = "Oracle"
sAskPhrase = "!oracle";

iInterval  = 8 * 1000;
--iInterval  = nil; -- uncomment this if you don't want to use this feature

aAnswers = {
             "No.",
             "Yes.",
             "NOOOOOOOOOOOOOOOOOOO!",
             "Definitely.",
             "All signs point to yes.",
             "Yeah :)",
             "HELL NO!",
             "No way my friend!",
             "Never ever.",
             "As certain as death!",
             "Not here. In my coffee break.",
             "No...now go and blame your mother in law!",
             "Don't count on it.",
             "Still wearing womans dresses?.",
             "Without a doubt!",
             "My reply is no.",
             "You may rely on it.",
             "I can't predict now, need some food first!",
             "My sources say no...",
             "Yes, most likely.",
             "Pffffffew...Who is the one with the smelly feets here?....",
             "Concentrate and ask again.",
             "You look like a girl you know that?.",
             "This is very doubtful.",
             "Stop bothering me....",
             "Ewwwww  did you brushed your teeth yet?",
             "Better not tell you know ;-)",
             "Couldn't read from brain. (A)bort, (R)etry, (I)gnore?_",
             "I calculated the probability to 50 percent.",
             "I know but I won't tell you :-)",
             "Pay me and I'm gonna tell you.",
             "Ask your mummy, she knows better than a stupid billard ball!",
             "Are you kidding?",
             "What? Sorry I haven't paid attention, ask again...",
             "Huh?",
             "Blah blahhh blahh...",
             "Boooooooooooooring",
             "You must be kidding!",
             "HAHA, they say i am stupid but look at you.",
             "Are you serious?",
             "You must be a real goof then...",
             "Dont you have some social life dude? ",
             "Haha, I like you...funny guy, you are :-)",
             "Geeeeee...what a stupid question.",
             "Stop doing drugs :-P",
             "Go ask [SU]Buick, He pretends to be smarter then i am  (NOT).",
             "How could you think of such things?",
             "How should I know?",
             "And they say there are no stupid questions...",
             "Get a life and leave me alone!",
             "BLOOD SHALL COME UPON YOU!",
             "Go to bed and ask tomorow, GOODNITE",
             "Get some money first.",
             "Ask RabidWombat, he'll know for sure :-)", -- honor to whom honor is due! :-)
             "W-e  a-r-e  B-o-r-g,  y-o-u  w-i-l-l  b-e  a-s-s-i-m-i-l-a-t-e-d,  R-e-s-i-s-t-a-n-c-e  i-s  f-u-t-i-l-e ! Err...I mean...No.",
           };

sLastNick = nil;

function Main()
  randomseed(clock());

  bot = { sBotName  = sName,
          sBotVer   = sVer,
          sBotEmail = "webmaster@dc-united.net",
          sBotSpeed = "Sol",                   -- "Speed of Light" =)
          sBotTag   = "<++ V:"..sVer..",P:Dutch,T:"..getn(aAnswers)..">",
          sBotDescr = "Here to tease you all",
          iBotShare = 0 };

  frmHub:RegBot(bot.sBotName);
  UpdateBotInfo();

  SetTimer(iInterval);
end

function NewUserConnected(curUser)
  curUser:SendData(sBotInfo);
end

function OpConnected(curUser)
  curUser:SendData(sBotInfo);
end

function DataArrival(curUser, sData)
  local _, _, cmd, args = strfind(sData, "^%b<>%s+(%S+)%s*([^%|]*)%|$");

  if (cmd == nil) then
    return 0; end;

  cmd = strlower(cmd);

  if (cmd == sAskPhrase) then
    SendToAll(sData);

    -- quick-check whether it COULD be a question somehow

   

  if (iInterval) then
    if (strfind(args, "%s+")) then
      bQuestion = 1;
      StartTimer();
    else
      bQuestion = nil;
      StopTimer();
    end
  end

  return 0;
end

function OnTimer()
  if (bQuestion) then
    SendToAll(bot.sBotName, GetRandomSentence());
  end
  StopTimer();
end

function GetRandomSentence()
 local iRnd = random(getn(aAnswers));
 return aAnswers[iRnd];
end

function UpdateBotInfo()
  sBotInfo = "$MyINFO $ALL "..bot.sBotName.." "..bot.sBotDescr..bot.sBotTag.."$ $"..bot.sBotSpeed..strchar(1).."$"..bot.sBotEmail.."$"..bot.iBotShare.."$" ;

[plop]

is this the whole script ??
got the idea that there is something missing.

plop

[TiMeTrAVelleR]

Compleet one

-- [8-Ball] - v0.21
--
-- Written by bonki 2003
--
-- ABOUT:
--   A very simple magic 8-ball implementation.
--
-- AVAILABLE COMMANDS:
--  !8-ball
--
--  If iInterval is set it even answers if somebody asks a question in main chat
--  and nobody answers after iInterval milliseconds.
--
-- CHANGELOG:
--   v0.21: Bugfix: Auto-answer is now not sent when users PM eachother
--   v0.2:  Added:  Auto-answer in main chat, see "available commands" for further details.
--          Added:  Neat-looking tag :)
--   v0.11: Bugfix: can't remember :P
--   v0.1:  Initial Version

sVer       = "0.21";

sName      = "8-Ball"
sAskPhrase = "!8-ball";

iInterval  = 8 * 1000;
--iInterval  = nil; -- uncomment this if you don't want to use this feature

aAnswers = {
             "No.",
             "Yes.",
             "NOOOOOOOOOOOOOOOOOOO!",
             "Definitely.",
             "All signs point to yes.",
             "Yeah :)",
             "HELL NO!",
             "No way my friend!",
             "Never ever.",
             "As certain as death!",
             "No...now go and blame bonki!",
             "Don't count on it.",
             "Without a doubt!",
             "My reply is no.",
             "You may rely on it.",
             "I can't predict now, need some food first!",
             "My sources say no...",
             "Yes, most likely.",
             "Concentrate and ask again.",
             "This is very doubtful.",
             "Better not tell you know ;-)",
             "Couldn't read from brain. (A)bort, (R)etry, (I)gnore?_",
             "I calculated the probability to 50 percent.",
             "I know but I won't tell you :-)",
             "Pay me and I'm gonna tell you.",
             "Ask your mummy, she knows better than a stupid billard ball!",
             "Are you kidding?",
             "What? Sorry I haven't paid attention, ask again...",
             "Huh?",
             "Blah blahhh blahh...",
             "You must be kidding!",
             "Are you serious?",
             "Haha, I like you...funny guy, you are :-)",
             "Geeeeee...what a stupid question.",
             "Stop doing drugs :-P",
             "How could you think of such things?",
             "How should I know?",
             "And they say there are no stupid questions...",
             "Get a life and leave me alone!",
             "BLOOD SHALL COME UPON YOU!",
             "TRUE NORWEGIAN BLACK METAL!!!", -- sue me!!!
             "Get some money first.",
             "Ask RabidWombat, he'll know for sure :-)", -- honor to whom honor is due! :-)
             "W-e  a-r-e  B-o-r-g,  y-o-u  w-i-l-l  b-e  a-s-s-i-m-i-l-a-t-e-d,  R-e-s-i-s-t-a-n-c-e  i-s  f-u-t-i-l-e ! Err...I mean...No.",
           };

sLastNick = nil;

function Main()
  randomseed(clock());

  bot = { sBotName  = sName,
          sBotVer   = sVer,
          sBotEmail = "bonki@no-spam.net",
          sBotSpeed = "Sol",                   -- "Speed of Light" =)
          sBotTag   = "<++ V:"..sVer..",P:bonki,T:"..getn(aAnswers)..">",
          sBotDescr = "Magic 8-Ball-Bot v"..sVer.." written by bonki 2003",
          iBotShare = 0 };

  frmHub:RegBot(bot.sBotName);
  UpdateBotInfo();

  SetTimer(iInterval);
end

function NewUserConnected(curUser)
  curUser:SendData(sBotInfo);
end

function OpConnected(curUser)
  curUser:SendData(sBotInfo);
end

function DataArrival(curUser, sData)
  local _, _, cmd, args = strfind(sData, "^%b<>%s+(%S+)%s*([^%|]*)%|$");

  if (cmd == nil) then
    return 0; end;

  cmd = strlower(cmd);

  if (cmd == sAskPhrase) then
    SendToAll(sData);

    -- quick-check whether it COULD be a question somehow

    if (strfind(strsub(args, -3), "%?") and strfind(args, "%s+")) then
      SendToAll(bot.sBotName, GetRandomSentence());
    else
      SendToAll(bot.sBotName, "I'm a magic 8-ball you fool. Ask me a question or leave me alone!");
    end

    return 1;
  end

  if (iInterval) then
    if (strfind(strsub(args, -3), "%?") and strfind(args, "%s+")) then
      bQuestion = 1;
      StartTimer();
    else
      bQuestion = nil;
      StopTimer();
    end
  end

  return 0;
end

function OnTimer()
  if (bQuestion) then
    SendToAll(bot.sBotName, GetRandomSentence());
  end
  StopTimer();
end

function GetRandomSentence()
 local iRnd = random(getn(aAnswers));
 return aAnswers[iRnd];
end

function UpdateBotInfo()
  sBotInfo = "$MyINFO $ALL "..bot.sBotName.." "..bot.sBotDescr..bot.sBotTag.."$ $"..bot.sBotSpeed..strchar(1).."$"..bot.sBotEmail.."$"..bot.iBotShare.."$" ;
end