sBotName = "SayBot";

sSayPhrase = "!say";

tNicks = {
           ["n"] = "nicebot",
           ["b"] = "badbot",
	   ["s"] = "Shahnawaz",
	   ["d"] = "Devil%works",
         };

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 == strlower(sSayPhrase)) then
    if (curUser.bOperator) then
      _, _, sBot, sSentence = strfind(args, "%-(%S+)%s+(.*)");
      if (sBot and sSentence) then
        if (tNicks[sBot]) then
          SendToAll(tNicks[sBot], sSentence);
        else
          curUser:SendData(sBotName, "Bot "..sBot.." doesn't exist!");
        end
      else
        curUser:SendData(sBotName, "Syntax: "..sSayPhrase.." -bot <sentence>");
      end
    else
      SendToAll(sData);
    end
    return 1;
  end

  return 0;
end -- bonki