--MainChat Cleaner 1.0 Lua 5.1x [API 2]
--Revised Script with some addition by ?StIfFLEr??
--The Original Script is Taken From Mutor And Crazyguy frm lua 5.1
--Converted to new API by HillyBilly 26 sept 07
--Profile Table Added by speedX to the original script.
--Rightclick according to profile permission added by ?StIfFLEr?? [With the help of Mutors CustomCmds 1.0 LUA 5.1x [API 2]]
--This Script Does not Belong to ?StIfFLEr?? [Me] Its Just a taken Script from board and Revised.Please dont take it personally.
-------------------------------------------------------------------------------------------
--Settings [Do not change if you don't know]
-------------------------------------------------------------------------------------------
-- "Botname" [Add as you wish]
bot = "[Cleaner]"
-- "BotDesc" [Describe]
botDesc = "I Can Clean"
-- "Tag" [Version.DO NOT CHANGE]
botTag = "version.01-23/05/09"
-- "prefix" [#,! Anything you would feel convinient]
prefix = "!"
-- Command You wish to use for cleaning MainChat
cmdClean = "cls"
-- Lines to Added to clean The MainChat
cline = "500"
-- Profile permission as per new ptokax
tProfile = {
[-1] = 0, -- Unregistered Users
[0] = 1, -- Masters
[1] = 1, -- Operators
[2] = 0, -- VIP
[3] = 0, -- Registered
}
------------------------------------------------------------------------------------------
--OnStartup Function
------------------------------------------------------------------------------------------
function OnStartup()
Core.RegBot(bot,botDesc,botTag,true)
end
------------------------------------------------------------------------------------------
--Script Function
------------------------------------------------------------------------------------------
ChatArrival = function(User,Data)
if tProfile[User.iProfile] == 1 then
local _,_,cmd = string.find(Data, "%b<>%s%p(%S+)|")
if cmd and (cmd == cmdClean) then
local str = "\n\n"..string.rep("\t",3).." "..
User.sNick.." is clearing Main Chat..."..
string.rep("\n",cline)..string.rep("\t",3).."Main Chat Has "..
"Been Cleared By: "..User.sNick.." \n\n"
Core.SendToAll(str)
return true
else
return "Clear Main Chat","",""
end
end
end
---------------------------------------------------------------------------------------------
--Right Click As per Profile permissions Given Above.
---------------------------------------------------------------------------------------------
RcCmds = {
{1,"$UserCommand 1 3 Cleaner\\Clean$<%[mynick]> !cls||"},
}
UserConnected = function(user)
local lvl,x = tProfile[user.iProfile],""
if lvl then
for i,v in ipairs(RcCmds) do if lvl >= v[1] then x = x..v[2] end end
if #x > 0 then Core.SendToUser(user,x) end
collectgarbage("collect")
end
end
RegConnected,OpConnected = UserConnected,UserConnected
If i have missed any credits please let me know i have no intension of stealing anyones credits.
I am just learning lua with the help of scripts made my many scriptors trying to understand.
Thanks a lot Mutor,Madman
Your scripts have been truely a way to learn the way of scripting wish to learn even more.
If i have made any mistake please let me know.
OOoops... I need help.
The script has a cmdClean option where in desired command can be used.
But the right click has !cls command.
Can i have a code for a rightclick where in changed desired command for cleaning can be used without editing the right click function?
'''
{1,"$UserCommand 1 3 Cleaner\\Clean$<%[mynick]> "!cls"||"},
''''
I have marked that place.
Right click fixed.
--MainChat Cleaner 1.0 Lua 5.1x [API 2] 23/05/09
--Revised Script with some addition by ?StIfFLEr??
--The Original Script is Taken From Mutor And Crazyguy frm lua 5.1
--Converted to new API by HillyBilly 26 sept 07
--Profile Table Added by speedX to the original script.
--Rightclick according to profile permission added by ?StIfFLEr?? [With the help of Mutors CustomCmds 1.0 LUA 5.1x [API 2]]
--This Script Does not Belong to ?StIfFLEr?? [Me] Its Just a taken Script from board and Revised.Please dont take it personally.
--Changed to MainChat Cleaner 1.0a Lua 5.1x [API 2] 23/05/09
--Right click fixed.Commands and prefix changed in Settings will also be read in Right click.[Learnt The command from one of the old script] by ?StIfFLEr??
-------------------------------------------------------------------------------------------
--Settings [Do not change if you don't know]
-------------------------------------------------------------------------------------------
-- "Botname" [Add as you wish]
bot = "[Cleaner]"
-- "BotDesc" [Describe]
botDesc = "I Can Clean"
-- "Tag" [Version.DO NOT CHANGE]
botTag = "version.01-23/05/09"
-- "prefix" [#,! Anything you would feel convinient]
prefix = "!"
-- Command You wish to use for cleaning MainChat
cmdClean = "cls"
-- Lines to Added to clean The MainChat
cline = "500"
-- Profile permission as per new ptokax
tProfile = {
[-1] = 0, -- Unregistered Users
[0] = 1, -- Masters
[1] = 1, -- Operators
[2] = 0, -- VIP
[3] = 0, -- Registered
}
------------------------------------------------------------------------------------------
--OnStartup Function
------------------------------------------------------------------------------------------
function OnStartup()
Core.RegBot(bot,botDesc,botTag,true)
end
------------------------------------------------------------------------------------------
--Script Function
------------------------------------------------------------------------------------------
ChatArrival = function(User,Data)
if tProfile[User.iProfile] == 1 then
local _,_,cmd = string.find(Data, "%b<>%s%p(%S+)|")
if cmd and (cmd == cmdClean) then
local str = "\n\n"..string.rep("\t",3).." "..
User.sNick.." is clearing Main Chat..."..
string.rep("\n",cline)..string.rep("\t",3).."Main Chat Has "..
"Been Cleared By: "..User.sNick.." \n\n"
Core.SendToAll(str)
return true
else
return "Clear Main Chat","",""
end
end
end
---------------------------------------------------------------------------------------------
--Right Click As per Profile permissions Given Above.
---------------------------------------------------------------------------------------------
RcCmds = {
{1,"$UserCommand 1 3 Cleaner\\Clean$<%[mynick]> "..prefix..""..cmdClean.."||"},
}
UserConnected = function(user)
local lvl,x = tProfile[user.iProfile],""
if lvl then
for i,v in ipairs(RcCmds) do if lvl >= v[1] then x = x..v[2] end end
if #x > 0 then Core.SendToUser(user,x) end
collectgarbage("collect")
end
end
RegConnected,OpConnected = UserConnected,UserConnected
Thanks To mutor and madman's Scripts.
Was for this reason I was given a -ve karma?
Cant the reason be properly posted and then given a -ve mark so that people like me who have started learning lua can understand their mistakes and will not repeat it further.---Whosever it may concern.
lol nice to see u involving in this...
Trying to learn but negavtive marks are comming at a faster rate.....
Dont know they r been comming without reasons.... mad ethe script keeping in mind all the credits then also... ???
Why i have been given negative Karma??