--- lua5 version (requested by madman), conversion by Dessamator
---changed the tprofiles table a bit, nothing much , :D
--- --- --- --- --- --- --- --- --- --- ---
--- MainStop v 1
--- by Herodes
--- --- --- --- --- --- --- --- --- --- ---
---- Look at the NOTES of this script
--- stops mainchat for selected users or whole profiles
--- remembers state after hub restarts..
--- protects profiles ( set the priorities correctly look at the notes below .. )
--- --- --- --- --- --- --- --- --- --- ---
--- NOTES:
--- Put this file in your scripts folder of Ptokax and then Start and Stop the Hub ...
--- Then go and open the File MainStop-Profiles.dat with Notepad.exe
--- explanation of contents follows ...
--
-- tProfiles = {
-- ["1"] = { --- this is the profile number for which the following settings apply ...
-- [1] = 1, --- [1] = 0 means no chat, no scripts commands, 1 chat, no script commands, 2 both chat and command use allowed
-- [2] = 2, --- [2] = is the priority number .. the lower the better .. ( no negative values pls ... )
-- [3] = "Operator",
-- }, --- end for the settings of profile number : "1"
-- ["0"] = {
-- [1] = 2,
-- [2] = 1,
-- [3] = "Master",
-- },
-- }
--
--- --- --- --- --- --- --- --- --- --- ---
---- !!!!! Look at the NOTES of this script !!!!!!
cmdclist = "!lschat"
cmdcstop = "!chat"
cmdchelp = "!chelp"
cmdcprof = "!cprofile"
FiletoSaveNoChatNicks = "MainStop-Nicks.dat"
FiletoSaveNoChatProfiles = "MainStop-Profiles.dat"
tUsrs = {}
function Main()
local f = io.open(FiletoSaveNoChatProfiles, "r")
if f then
f:close()
LoadFromFile(FiletoSaveNoChatProfiles)
else
tProfiles = {}
local nu = 0
for i, v in GetProfiles() do
nu = nu + 1
if v=="Master" then
tProfiles[(0)] = {2,nu,v}
else
tProfiles[GetProfileIdx(v)] = { 1, nu, v }
end
end
tProfiles[(-1)] = { 1, nu + 1, "Unregs" }
SaveToFile(FiletoSaveNoChatProfiles , tProfiles , "tProfiles")
LoadFromFile(FiletoSaveNoChatProfiles)
end
end
function NewUserConnected(user)
if tUsrs[user.sName] == 1 or tProfiles[(user.iProfile)][1] == 0 then
user:SendData("MainChatBlocker", "You cant use the mainchat for now. ...")
end
end
function ChatArrival(user, data)
if tUsrs[user.sName] == 1 or tProfiles[(user.iProfile)][1] == 0 then
user:SendData("MainChatBlocker", "You cant chat in main...")
return 1
else
if tProfiles[user.iProfile][1] == 2 then
data = string.sub(data, 1, -2)
s,e,cmd,args = string.find(data, "%b<>%s+(%S+)%s*(%S*)")
if cmd == cmdclist then
local msg = "\r\n - The following users are gagged in mainchat\r\n"
for nick, v in tUsrs do
msg = msg.."\t -- "..nick.."\r\n"
end
msg = msg.." - The profile permissions are as follows\r\n"
msg = msg.." - \tProfile Name\tCmds/MainChat\r\n"
local cmds, chat = "yes", "yes"
for i,v in tProfiles do
if v[1] == 0 then
cmds, chat = "no", "no"
elseif v[1] == 1 then
cmds , chat = "no", "yes"
elseif v[1] == 2 then
cmds , chat = "yes", "yes"
end
local prstr = v[3].." ("..i..")"
if string.len(prstr) < 8 then
prstr = prstr.."\t"
end
msg = msg.."\t+ "..prstr.."\t "..cmds.."/"..chat.."\r\n"
end
user:SendData("MainChatBlocker", msg)
return 1
elseif cmd == cmdcstop then
if not(args) or (string.len(args) == 0) then
user:SendData("MainChatBlocker", "Syntax Error! Please Use like : "..cmdcstop.." ")
else
local usr = GetItemByName(args)
if usr then
if tUsrs[(usr.sName)] then
tUsrs[(usr.sName)] = nil
usr:SendData("MainChatBlocker",usr.sName..", you are now able to chat in mainchat.")
user:SendData("MainChatBlocker", usr.sName.." now can chat in main")
else
--if usr then
tUsrs[usr.sName] = 1
usr:SendData("MainChatBlocker", GetProfileName(user.iProfile).." "..user.sName.." has blocked your ability to chat in mainchat.")
user:SendData("MainChatBlocker", usr.sName.." now can't chat in main")
end
else
user:SendData("MainChatBlocker", "Error : "..args.." is not in the hub.")
--end
end
end
SaveToFile(FiletoSaveNoChatNicks , tUsrs , "tUsrs")
return 1
elseif cmd == cmdchelp then
local msg = "\t\t--- MainChatBlocker Commands --- \r\n"
msg = msg.."][\t "..cmdclist.."\t - lists the users that are blocked\r\n"
msg = msg.."][\t "..cmdcstop.." \t - gags the mainchat of nick\r\n"
msg = msg.."][\t "..cmdcprof.." \t - It toggles the permission to chat in main for the specified profile number\r\n"
msg = msg.."][\t "..cmdchelp.."\t - shows this helpful text :P\r\n"
user:SendData(msg)
return 1
elseif cmd == cmdcprof then
if (not args) or (string.len(args) == 0) then
user:SendData("MainChatBlocker", "Syntax Error! Please Use like : "..cmdcprof.." ")
else
if args == "-1" then
if tProfiles[(-1)][1] == 1 then
tProfiles[(-1)][1] = 0
user:SendData("MainChatBlocker", "Normal Users now are unable to chat in mainchat")
SendToAll("MainChatBlocker", "Notice! : Normal Users now are unable to chat in mainchat")
elseif tProfiles[(-1)][1] == 0 then
tProfiles[(-1)][1] = 1
user:SendData("MainChatBlocker", "Normal Users now are able to chat in mainchat")
SendToAll("MainChatBlocker", "Notice: Normal Users now are able to chat in mainchat")
end
else
s,e,pr = string.find(args, "(%d+)")
pr = tonumber(pr)
if GetProfiles()[pr] then
if tProfiles[user.iProfile][2] < tProfiles[pr][2] then --- priority checking ..
if tProfiles[pr][1] == 0 then
tProfiles[pr][1] = 1
user:SendData("MainChatBlocker", GetProfileName(pr).."s now are unable to chat in mainchat")
SendToAll("MainChatBlocker", "Notice: "..GetProfileName(pr).."s now are unable to chat in mainchat")
elseif tProfiles[pr][1] == 1 then
tProfiles[pr][1] = 0
user:SendData("MainChatBlocker", GetProfileName(pr).."s now are able to chat in mainchat")
SendToAll("MainChatBlocker", "Notice: "..GetProfileName(pr).."s now are able to chat in mainchat")
end
else
user:SendData("MainChatBlocker", "Error! : You are not allowed to block the mainchat of "..GetProfileName(pr).."s")
SendToOps("MainChatBlocker", "Mr."..user.sName.." behaves stupidly ...")
end
else
user:SendData("MainChatBlocker", "There is no such profile number")
end
end
SaveToFile(FiletoSaveNoChatProfiles , tProfiles , "tProfiles")
end
return 1
end
end
end
end
function Serialize(tTable, sTableName, sTab)
assert(tTable, "tTable equals nil");
assert(sTableName, "sTableName equals nil");
assert(type(tTable) == "table", "tTable must be a table!");
assert(type(sTableName) == "string", "sTableName must be a string!");
sTab = sTab or "";
sTmp = ""
sTmp = sTmp..sTab..sTableName.." = {\n"
for key, value in tTable do
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
if(type(value) == "table") then
sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
end
sTmp = sTmp..",\n"
end
sTmp = sTmp..sTab.."}"
return sTmp
end
function SaveToFile(file , table , tablename)
local handle = io.open(file,"w+")
handle:write(Serialize(table, tablename))
handle:flush()
handle:close()
end
function LoadFromFile(file)
local handle = io.open(file,"r")
if (handle ~= nil) then
dofile(file)
handle:flush()
handle:close()
end
end
--------------------------------------------------------------------------------------------------- Done !!!
*post edited* added herodes "performance tip"
*post edited* added hawk's "tip"
a small mem/perf tip:
if you are using a function only once then it is better to include it inside the block that it is beeing used as a local.
Example:
function doUnNeeded()
return "ok now"
end
function TheProperMainFunction()
send( doUnNeeded() )
endthis could become function TheProperMainFunction()
local function doUnNeeded()
return "ok now"
end
send( doUnNeeded() )
endI just saw that 'verify' function of yours and it triggered me ;)
QuoteOriginally posted by Herodes
a small mem/perf tip:
if you are using a function only once then it is better to include it inside the block that it is beeing used as a local.
Example:
function doUnNeeded()
return "ok now"
end
function TheProperMainFunction()
send( doUnNeeded() )
endthis could become function TheProperMainFunction()
local function doUnNeeded()
return "ok now"
end
send( doUnNeeded() )
endI just saw that 'verify' function of yours and it triggered me ;)
thnx for the hint ,but are u referring to this script, or to scripts in general, and if ur referring to this script, what function???
QuoteOriginally posted by Dessamator
thnx for the hint ,but are u referring to this script, or to scripts in general, and if ur referring to this script, what function???
refering to this function inside this script
function verify(filename)
local f = io.open(filename, "r")
if f then
f:close()
return true
end
end and also mentioning it as a good general practice in any lua script ;)
hmm, ok ill change the script asap, unless ud like to do it?, its UR script, :D
QuoteOriginally posted by Herodes
QuoteOriginally posted by Dessamator
thnx for the hint ,but are u referring to this script, or to scripts in general, and if ur referring to this script, what function???
refering to this function inside this script function verify(filename)
local f = io.open(filename, "r")
if f then
f:close()
return true
end
end and also mentioning it as a good general practice in any lua script ;)
done!!
you could try it like this and eliminate the function...
function Main()
local f = io.open(filename, "r")
if f then
f:close()
LoadFromFile(FiletoSaveNoChatProfiles)
else
f:close()
tProfiles = {}
local nu = 0
for i, v in GetProfiles() do
nu = nu + 1
tProfiles[GetProfileIdx(v)] = { 1, nu, v }
end
tProfiles[(-1)] = { 1, nu + 1, "Unregs" }
SaveToFile(FiletoSaveNoChatProfiles , tProfiles , "tProfiles")
LoadFromFile(FiletoSaveNoChatProfiles)
end
end
QuoteOriginally posted by ?˜”??•Hawk•??”˜?
you could try it like this and eliminate the function...
function Main()
local f = io.open(filename, "r")
if f then
f:close()
LoadFromFile(FiletoSaveNoChatProfiles)
else
f:close()
tProfiles = {}
local nu = 0
for i, v in GetProfiles() do
nu = nu + 1
tProfiles[GetProfileIdx(v)] = { 1, nu, v }
end
tProfiles[(-1)] = { 1, nu + 1, "Unregs" }
SaveToFile(FiletoSaveNoChatProfiles , tProfiles , "tProfiles")
LoadFromFile(FiletoSaveNoChatProfiles)
end
end
done !!, (post edited)
nice script, or rather would be if it worked for me :) I have a new ptokax with xml files for profiles and such, could that be why it dont work for me?
I get no errors from it in prokax scripteditor, it just refuses to read my commands as commands, looks just as if it was plain text i typed in main...
hmm.. try change the MainStop-Profiles.dat
The profilenumbers are wrong.. noticed before.. just forgot to tell... ;p for example the MasterProfile should have 0 and not 1
Dont know if it still does that with the new version... i was using the first version.. before the tips from herodes and hawk... =)
QuoteOriginally posted by madman
hmm.. try change the MainStop-Profiles.dat
The profilenumbers are wrong.. noticed before.. just forgot to tell... ;p for example the MasterProfile should have 0 and not 1
Dont know if it still does that with the new version... i was using the first version.. before the tips from herodes and hawk... =)
hmm, i had fixed it the profiles are correct, and i added a small feature, now masters have access to the script commands by default !, just copy the script again ana, dont forget to stop the other script and delete the "MainStop-Profiles.dat" .
Good luck