-- Kenny Script by ??????Hawk??????
-- 31-03-04
--// Change small by 6Marilyn6Manson6 28/04/2006
------------------------------------------------------
BotName = "[ITA]Kenny-Mute" --frmHub:GetHubBotName(),
Version = "0.1"
Prefix = "!" --! + # ? -
Kennylizednicks = {}
Mutes = {}
mins = 1000 * 60 * 1
------------------------------------------------------
CanDo = {
[-1] = 0, -- Users
[0] = 1, -- Masters
[1] = 0, -- OPs
[2] = 0, -- VIPs
[3] = 0, -- REGs
[4] = 1, -- MODs
[5] = 1, -- Founders
}
------------------------------------------------------
kennytext = {
"*umfl* *uuffum*",
"*lluu* *mlmlff* *umfl* *lfumfl* *umfl*",
"*lmmf* *uullu* *mmmm*",
"*ommlu* *uullu* *lmmf* *ommlu* *mflf*",
"*olomum* *lmmf* *mhhhmmlm*",
"*Mhhl* *mujm* *umfl*",
}
------------------------------------------------------
function OnTimer()
Kennylizednicks = {}
Mutes = {}
SendToOps(BotName, "All Kennys have gone ! ! !")
SendToOps(BotName, "All Mutes have gone ! ! !")
StopTimer()
end
------------------------------------------------------
function Main()
if BotName ~= frmHub:GetHubBotName() then
frmHub:RegBot(BotName, 1, "Kenny-Mute "..Version.."", "")
end
end
------------------------------------------------------
function ChatArrival(user, data)
data=string.sub(data,1,string.len(data)-1)
s,e,cmd = string.find(data,"%b<>%s+(%S+)")
if CanDo[user.iProfile] == 1 then
if (cmd==Prefix.."kenny") then
StopTimer()
SetTimer(mins)
StartTimer()
kennylize(user, data)
return 1
elseif (cmd==Prefix.."unkenny") then
Unkennylize(user, data)
return 1
elseif (cmd==Prefix.."showkenny") then
ShowKennys(user)
return 1
elseif (cmd==Prefix.."unkennyall") then
Kennylizednicks = {}
SendToOps(BotName, "All Kennys have gone ! ! !")
return 1
elseif (cmd==Prefix.."mute") then
StopTimer()
SetTimer(mins)
StartTimer()
DoMutes(user, data)
return 1
elseif (cmd==Prefix.."unmute") then
UnDoMutes(user, data)
return 1
elseif (cmd==Prefix.."showmutes") then
ShowMutes(user)
return 1
elseif (cmd==Prefix.."clearmutes") then
Mutes = {}
SendToOps(BotName, "All Mutes have gone ! ! !")
return 1
end
end
if Kennylizednicks[user.sName] == 1 then
text=kennytext[math.random(1, table.getn(kennytext))]
SendToAll(user.sName, text)
return 1
elseif Mutes[user.sName] == 1 then
user:SendData(BotName,"You are muted. Your message has been blocked ! ! !")
return 1
end
end
------------------------------------------------------
function ToArrival(user,data)
if Kennylizednicks[user.sName] == 1 then
s,e,g,h,j = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")
j = kennytext[math.random(1, table.getn(kennytext))]
SendPmToNick(g,h,j)
user:SendPM(BotName," You have been kenylized this was sent instead. ' "..j.." '")
return 1
elseif Mutes[user.sName] == 1 then
user:SendPM(BotName,"You are muted. Your message has been blocked ! ! !")
return 1
end
end
------------------------------------------------------
function DoMutes(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local Muted = GetItemByName(usr)
if Muted == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Mutes[Muted.sName] == nil then
Mutes[Muted.sName] = 1
SendToAll(BotName,Muted.sName.." Has been Muted ! ! !")
end
end
end
------------------------------------------------------
function UnDoMutes(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local Muted = GetItemByName(usr)
if Muted == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Mutes[Muted.sName] == 1 then
Mutes[Muted.sName] = nil;
SendToAll(BotName, Muted.sName.." Has Been Un-Muted ..")
end
end
end
------------------------------------------------------
function ShowMutes(user)
local names = ""
for index, value in Mutes do
local line = index
names = names.." "..line.."\r\n"
end
user:SendPM(BotName,"\r\n\r\nMuted users..\r\n\r\n"..names)
end
------------------------------------------------------
function kennylize(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local kennyd = GetItemByName(usr)
if kennyd == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Kennylizednicks[kennyd.sName] == nil then
Kennylizednicks[kennyd.sName] = 1
SendToAll(BotName,kennyd.sName.." Has been turned in to a Kenny Clone ! ! !")
end
end
end
------------------------------------------------------
function Unkennylize(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local kennyd = GetItemByName(usr)
if kennyd == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Kennylizednicks[kennyd.sName] == 1 then
Kennylizednicks[kennyd.sName] = nil;
SendToAll(BotName, kennyd.sName.." Has Returned ..")
end
end
end
------------------------------------------------------
function ShowKennys(user)
local names = ""
for index, value in Kennylizednicks do
local line = index
names = names.." "..line.."\r\n"
end
user:SendPM(BotName,"\r\n\r\nKennylised users..\r\n\r\n"..names)
end
------------------------------------------------------
--// 6Marilyn6Manson6
------------------------------------------------------
--// 6Marilyn6Manson6-- Kenny Script by ??????Hawk??????
-- 31-03-04
--// Change small by 6Marilyn6Manson6 28/04/2006
--// Moded by Markitos 28/04/2006
-- Added tables to commands
-- Added Right Click
-- Added OnError function
--
------------------------------------------------------
BotName = "[ITA]Kenny-Mute" --frmHub:GetHubBotName(),
Version = "0.1"
Kennylizednicks = {}
Mutes = {}
mins = 1000 * 60 * 1
RC = "Kenny"
ErrLogFile = frmHub:GetPtokaXLocation().."scripts\\KennyErrLog.txt"
------------------------------------------------------
CanDo = {
[-1] = 0, -- Users
[0] = 1, -- Masters
[1] = 0, -- OPs
[2] = 0, -- VIPs
[3] = 0, -- REGs
[4] = 1, -- MODs
[5] = 1, -- Founders
}
------------------------------------------------------
kennytext = {
"*umfl* *uuffum*",
"*lluu* *mlmlff* *umfl* *lfumfl* *umfl*",
"*lmmf* *uullu* *mmmm*",
"*ommlu* *uullu* *lmmf* *ommlu* *mflf*",
"*olomum* *lmmf* *mhhhmmlm*",
"*Mhhl* *mujm* *umfl*",
}
------------------------------------------------------
function OnTimer()
Kennylizednicks = {}
Mutes = {}
SendToOps(BotName, "All Kennys have gone !!!")
SendToOps(BotName, "All Mutes have gone !!!")
StopTimer()
end
------------------------------------------------------
function Main()
if BotName ~= frmHub:GetHubBotName() then
frmHub:RegBot(BotName, 1, "Kenny-Mute "..Version.."", "")
end
end
------------------------------------------------------
OpConnected = function(user)
if CanDo[user.iProfile] == 1 then
if user.bUserCommand then
user:SendData("$UserCommand 0 3")
user:SendData("$UserCommand 1 3 "..RC.."\\Kenny User$<%[mynick]> !kenny %[nick]||")
user:SendData("$UserCommand 1 3 "..RC.."\\Unkenny User$<%[mynick]> !unkenny %[nick]||")
user:SendData("$UserCommand 1 3 "..RC.."\\Mute User$<%[mynick]> !mute %[nick]||")
user:SendData("$UserCommand 1 3 "..RC.."\\Unmute User$<%[mynick]> !unmute %[nick]||")
user:SendData("$UserCommand 1 3 "..RC.."\\Show Kenny$<%[mynick]> !showkenny %[nick]||")
user:SendData("$UserCommand 1 3 "..RC.."\\Show Mutes$<%[mynick]> !showmutes %[nick]||")
user:SendData("$UserCommand 1 3 "..RC.."\\Unkenny All$<%[mynick]> !unkennyall %[nick]||")
user:SendData("$UserCommand 1 3 "..RC.."\\Clear Mutes$<%[mynick]> !clearmutes %[nick]||")
end
end
end
---------------------------------------------------
function ChatArrival(user, data)
local data=string.sub(data,1,string.len(data)-1)
local s,e,cmd = string.find(data,"%b<>%s%p(%w+)")
if CanDo[user.iProfile] == 1 and cmd then
local tCmds = {
["kenny"] = function()
StopTimer()
SetTimer(mins)
StartTimer()
kennylize(user, data)
end,
["unkenny"] = function()
Unkennylize(user, data)
end,
["showkenny"] = function()
ShowKennys(user)
end,
["unkennyall"] = function()
Kennylizednicks = {}
SendToOps(BotName, "All Kennys have gone ! ! !")
end,
["mute"] = function()
StopTimer()
SetTimer(mins)
StartTimer()
DoMutes(user, data)
end,
["unmute"] = function()
UnDoMutes(user, data)
end,
["showmutes"] = function()
ShowMutes(user)
end,
["clearmutes"] = function()
Mutes = {}
SendToOps(BotName, "All Mutes have gone ! ! !")
end,
}
if tCmds[string.lower(cmd)] then
return tCmds[cmd](user,data),1
end
end
if Kennylizednicks[user.sName] == 1 then
text=kennytext[math.random(1, table.getn(kennytext))]
return SendToAll(user.sName, text),1
elseif Mutes[user.sName] == 1 then
return user:SendData(BotName,"You are muted. Your message has been blocked ! ! !"),1
end
end
------------------------------------------------------
function ToArrival(user,data)
if Kennylizednicks[user.sName] == 1 then
s,e,g,h,j = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")
j = kennytext[math.random(1, table.getn(kennytext))]
SendPmToNick(g,h,j)
return user:SendPM(BotName," You have been kenylized this was sent instead. ' "..j.." '"),1
elseif Mutes[user.sName] == 1 then
return user:SendPM(BotName,"You are muted. Your message has been blocked ! ! !"),1
end
end
------------------------------------------------------
function DoMutes(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local Muted = GetItemByName(usr)
if Muted == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Mutes[Muted.sName] == nil then
Mutes[Muted.sName] = 1
SendToAll(BotName,Muted.sName.." Has been Muted ! ! !")
end
end
end
------------------------------------------------------
function UnDoMutes(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local Muted = GetItemByName(usr)
if Muted == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Mutes[Muted.sName] == 1 then
Mutes[Muted.sName] = nil;
SendToAll(BotName, Muted.sName.." Has Been Un-Muted ..")
end
end
end
------------------------------------------------------
function ShowMutes(user)
local names = ""
for index, value in pairs(Mutes) do
local line = index
names = names.." "..line.."\r\n"
end
user:SendData(BotName,"\t\r\n\Muted users..\r\n\t"..names)
end
------------------------------------------------------
function kennylize(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local kennyd = GetItemByName(usr)
if kennyd == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Kennylizednicks[kennyd.sName] == nil then
Kennylizednicks[kennyd.sName] = 1
SendToAll(BotName,kennyd.sName.." Has been turned in to a Kenny Clone ! ! !")
end
end
end
------------------------------------------------------
function Unkennylize(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local kennyd = GetItemByName(usr)
if kennyd == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Kennylizednicks[kennyd.sName] == 1 then
Kennylizednicks[kennyd.sName] = nil;
SendToAll(BotName, kennyd.sName.." Has Returned ..")
end
end
end
------------------------------------------------------
function ShowKennys(user)
local names = ""
for index, value in pairs(Kennylizednicks) do
local line = index
names = names.." "..line.."\r\n"
end
user:SendData(BotName,"\r\n\Kennylised users..\r\n"..names)
end
------------------------------------------------------
OnError = function(ErrorMsg)
if ErrorMsg then
SendPmToOps(BotName, "Kenny.v"..Version.." Error: "..ErrorMsg)
local file,err = io.open(ErrLogFile, "a+")
if err then
file = io.open(ErrLogFile, "w+")
end
file:write("Kenny.v"..Version.." - Error: "..os.date().." - "..ErrorMsg.."\n")
file:close()
end
end
----------------------------------------------------
--// 6Marilyn6Manson6
More ideas just ask...
New update ;D
------------------------------------------------------
--// 6Marilyn6Manson6-- Kenny Script by ??????Hawk??????
-- 31-03-04
--// Change small by 6Marilyn6Manson6 28/04/2006
--// Moded by Markitos 28/04/2006
-- Added tables to commands
-- Added Right Click
-- Added OnError function
-- Optimized code.... (10/05/06)
------------------------------------------------------
BotName = "[ITA]Kenny-Mute" --frmHub:GetHubBotName(),
Version = "0.1"
Kennylizednicks = {}
Mutes = {}
mins = 1000 * 60 * 1
RC = "Kenny"
ErrLogFile = frmHub:GetPtokaXLocation().."scripts\\KennyErrLog.txt"
------------------------------------------------------
kennytext = {
"*umfl* *uuffum*",
"*lluu* *mlmlff* *umfl* *lfumfl* *umfl*",
"*lmmf* *uullu* *mmmm*",
"*ommlu* *uullu* *lmmf* *ommlu* *mflf*",
"*olomum* *lmmf* *mhhhmmlm*",
"*Mhhl* *mujm* *umfl*",
}
------------------------------------------------------
function OnTimer()
Kennylizednicks = {}
Mutes = {}
SendToOps(BotName, "All Kennys have gone !!!")
SendToOps(BotName, "All Mutes have gone !!!")
StopTimer()
end
------------------------------------------------------
function Main()
if BotName ~= frmHub:GetHubBotName() then
frmHub:RegBot(BotName, 1, "Kenny-Mute "..Version.."", "")
end
end
--------------------------------------------------------
ChatArrival = function(user, data)
local s,e,cmd = string.find(data,"%b<>%s%p(%w+)")
if cmd then
if tCommands[cmd] then
return tCommands[cmd].tFunc(user, data), 1
end
end
if Kennylizednicks[user.sName] == 1 then
text=kennytext[math.random(1, table.getn(kennytext))]
return SendToAll(user.sName, text),1
elseif Mutes[user.sName] == 1 then
return user:SendData(BotName,"You are muted. Your message has been blocked ! ! !"),1
end
end
OpConnected = function(user)
if user.bUserCommand then
user:SendData("$UserCommand 0 3")
for i,v in pairs(tCommands) do
local sRC = string.gsub(v.tRC,"{}",i)
user:SendData("$UserCommand 1 3 "..RC.."\\"..sRC.."|")
end
end
end
------------------------------------------------------------------------
tCommands = {
kenny = {
tFunc = function(user,data)
StopTimer()
SetTimer(mins)
StartTimer()
kennylize(user, data)
end,
tRC = "Kenny User$<%[mynick]> !{}"
},
unkenny = {
tFunc = function(user)
Unkennylize(user, data)
end,
tRC = "Unkenny User$<%[mynick]> !{}"
},
showkenny = {
tFunc = function(user)
ShowKennys(user)
end,
tRC = "Show Kenny$<%[mynick]> !{}"
},
unkennyall = {
tFunc = function(user)
Kennylizednicks = {}
SendToOps(BotName, "All Kennys have gone ! ! !")
end,
tRC = "Unkenny All$<%[mynick]> !{}"
},
mute = {
tFunc = function(user)
StopTimer()
SetTimer(mins)
StartTimer()
DoMutes(user, data)
end,
tRC = "Mute User$<%[mynick]> !{}"
},
unmute = {
tFunc = function(user)
UnDoMutes(user, data)
end,
tRC = "Unmute User$<%[mynick]> !{}"
},
showmutes = {
tFunc = function(user)
ShowMutes(user)
end,
tRC = "Show Mutes$<%[mynick]> !{}"
},
clearmutes = {
tFunc = function(user)
Mutes = {}
SendToOps(BotName, "All Mutes have gone ! ! !")
end,
tRC = "Clear Mutes$<%[mynick]> !{}"
},
}
------------------------------------------------------
function ToArrival(user,data)
if Kennylizednicks[user.sName] == 1 then
s,e,g,h,j = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")
j = kennytext[math.random(1, table.getn(kennytext))]
SendPmToNick(g,h,j)
return user:SendPM(BotName," You have been kenylized this was sent instead. ' "..j.." '"),1
elseif Mutes[user.sName] == 1 then
return user:SendPM(BotName,"You are muted. Your message has been blocked ! ! !"),1
end
end
------------------------------------------------------
function DoMutes(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local Muted = GetItemByName(usr)
if Muted == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Mutes[Muted.sName] == nil then
Mutes[Muted.sName] = 1
SendToAll(BotName,Muted.sName.." Has been Muted ! ! !")
end
end
end
------------------------------------------------------
function UnDoMutes(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local Muted = GetItemByName(usr)
if Muted == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Mutes[Muted.sName] == 1 then
Mutes[Muted.sName] = nil;
SendToAll(BotName, Muted.sName.." Has Been Un-Muted ..")
end
end
end
------------------------------------------------------
function ShowMutes(user)
local names = ""
for index, value in pairs(Mutes) do
local line = index
names = names.." "..line.."\r\n"
end
user:SendData(BotName,"\t\r\n\Muted users..\r\n\t"..names)
end
------------------------------------------------------
function kennylize(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local kennyd = GetItemByName(usr)
if kennyd == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Kennylizednicks[kennyd.sName] == nil then
Kennylizednicks[kennyd.sName] = 1
SendToAll(BotName,kennyd.sName.." Has been turned in to a Kenny Clone ! ! !")
end
end
end
------------------------------------------------------
function Unkennylize(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local kennyd = GetItemByName(usr)
if kennyd == nil then
user:SendData(BotName,"The User is not in the hub ! ! !")
else
if Kennylizednicks[kennyd.sName] == 1 then
Kennylizednicks[kennyd.sName] = nil;
SendToAll(BotName, kennyd.sName.." Has Returned ..")
end
end
end
------------------------------------------------------
function ShowKennys(user)
local names = ""
for index, value in pairs(Kennylizednicks) do
local line = index
names = names.." "..line.."\r\n"
end
user:SendData(BotName,"\r\n\Kennylised users..\r\n"..names)
end
------------------------------------------------------
OnError = function(ErrorMsg)
if ErrorMsg then
SendPmToOps(BotName, "Kenny.v"..Version.." Error: "..ErrorMsg)
local file,err = io.open(ErrLogFile, "a+")
if err then
file = io.open(ErrLogFile, "w+")
end
file:write("Kenny.v"..Version.." - Error: "..os.date().." - "..ErrorMsg.."\n")
file:close()
end
end
----------------------------------------------------
--// 6Marilyn6Manson6