--[[
CmdReport 1.0 LUA 5.1
By Mutor 03/18/06
Requested by Mikey
Reports command usage to specified nicks
Option to exclude certain nicks from check.
]]--
--Script Configuration
CsCfg = {
Bot = "PtokaX", -- Bot name
Desc = "Command report", -- Bot description
Mail = "help@domain.com", -- Bot email address
ReportTo = { -- Report to these
["Still_Ballin`"] = "main", -- Nicks = Message type
Sh0rTy = "main",
},
Exclude = { -- Exclude these Nicks from check
Mutor = 1, -- Nick = 1,
YourNick = 1,
},
}
Main = function()
frmHub:RegBot(CsCfg.Bot, 1, CsCfg.Desc, CsCfg.Mail)
SendToAll(frmHub:GetPrefixes())
end
ChatArrival = function(user,data)
if not CsCfg.Exclude[user.sName] then
local msgtype = "Main chat"
local s,e,to = string.find(data,"^$To:%s(%S+)%s+From:")
local s,e, pre = string.find(data,"%b<>%s(%p)")
local s,e,cmd = string.find(data,"%b<>%s%p(%S+)")
local s,e,msg = string.find(data,"%b<>%s%p%w+%s(.+)|$")
if not msg then msg = "" end
if to then msgtype = "Private Message" end
if pre and cmd then
for i,v in pairs(frmHub:GetPrefixes()) do
if pre == v then
cmd = pre..cmd
local reply = "The user "..user.sName.." sent the command "..
"in "..msgtype.." -> "..cmd.." "..msg
for i,v in pairs(CsCfg.ReportTo) do
local usr = GetItemByName(i)
if usr then
if v == "pm" then
usr:SendPM(CsCfg.Bot,reply)
else
usr:SendData(CsCfg.Bot,reply)
end
end
end
break
end
end
end
end
end
ToArrival = ChatArrival
http://board.ptokax.ath.cx/index.php?topic=7577.0