This script is modify the kick to timeban as verli do.
--Kick as in Verli: !kick user reason _ban_ time unit
--Hungarista 2oo6
--1.00 version
sBot = frmHub:GetHubBotName()
function ChatArrival(curUser,data)
data = string.sub(data,1,string.len(data)-1)
if curUser.bOperator then
if string.find(data,"%b<>%s!kick") then
local s,e,nick,reason,stime,sdate = string.find(data,"%b<>%s!kick%s(%S+)%s*(.*)%s*_ban_%s*(%d+)%s*(%S+)")
user = GetItemByName(nick)
if user == nil then curUser:SendData(sBot,"No user on hub "..nick.."") return 1 end
if stime == nil and sdate == nil then
user:SendPM(sBot,"<"..curUser.sName.."> You are being kicked because: "..reason.."_ban_5m")
user:TimeBan(5)
curUser:SendData(sBot,"Kicked user "..user.sName.." IP: "..user.sIP.." .. ;)\r\n"..
"and he is being Banned For: 5mins 0sec")
end
if sdate == "s" then
user:SendPM(sBot,"<"..curUser.sName.."> You are being kicked because: "..reason.."_ban_"..stime..""..sdate.."")
user:Disconnect()
curUser:SendData(sBot,"Kicked user "..user.sName.." IP: "..user.sIP.." .. ;)\r\n"..
"and he is being Banned For: 0mins "..stime.."sec")
elseif sdate == "m" then
user:SendPM(sBot,"<"..curUser.sName.."> You are being kicked because: "..reason.."_ban_"..stime..""..sdate.."")
curUser:SendData(sBot,"Kicked user "..user.sName.." IP: "..user.sIP.." .. ;)\r\n"..
"and he is being Banned For: 0hours "..stime.."min")
user:TimeBan(stime)
elseif sdate == "h" then
user:SendPM(sBot,"<"..curUser.sName.."> You are being kicked because: "..reason.."_ban_"..stime..""..sdate.."")
curUser:SendData(sBot,"Kicked user "..user.sName.." IP: "..user.sIP.." .. ;)\r\n"..
"and he is being Banned For: 0days "..stime.."hour")
user:TimeBan(stime*60)
elseif sdate == "d" then
user:SendPM(sBot,"<"..curUser.sName.."> You are being kicked because: "..reason.."_ban_"..stime..""..sdate.."")
curUser:SendData(sBot,"Kicked user "..user.sName.." IP: "..user.sIP.." .. ;)\r\n"..
"and he is being Banned For: "..stime.."day")
user:TimeBan(stime*60*24)
elseif sdate == "w" then
user:SendPM(sBot,"<"..curUser.sName.."> You are being kicked because: "..reason.."_ban_"..stime..""..sdate.."")
curUser:SendData(sBot,"Kicked user "..user.sName.." IP: "..user.sIP.." .. ;)\r\n"..
"and he is being Banned For: "..stime.."week")
user:TimeBan(stime*60*24*7)
elseif sdate == "M" then
user:SendPM(sBot,"<"..curUser.sName.."> You are being kicked because: "..reason.."_ban_"..stime..""..sdate.."")
curUser:SendData(sBot,"Kicked user "..user.sName.." IP: "..user.sIP.." .. ;)\r\n"..
"and he is being Banned For: "..stime.."Month")
user:TimeBan(stime*60*24*7*4)
elseif sdate == "y" then
user:SendPM(sBot,"<"..curUser.sName.."> You are being kicked because: "..reason.."_ban_"..stime..""..sdate.."")
curUser:SendData(sBot,"Kicked user "..user.sName.." IP: "..user.sIP.." .. ;)\r\n"..
"and he is being Banned For: "..stime.."year")
user:TimeBan(stime*60*24*7*4*12)
else curUser:SendData(sBot,"No parameter "..sdate..". Avaible parameters are:\r\n"..
"s - secundum\r\n"..
"m - minute\r\n"..
"h - hour\r\n"..
"d - day\r\n"..
"w - week\r\n"..
"M - month\r\n"..
"y - year\r\n")
end
return 1
end
else curUser:SendData(sBot,"You are not allowed to use this command!")
return 1
end
end
Very Nice ;)