This is my gag script I currently use and need it converted if sum1 can pls?
Although for sum reason the OPs can still use !talk which also needs adjsuting.
--## Stand Alone Gagger 1.1
--## This script should be before the scripts with commands, in the Script List
--## Requested by D-J Valhala
--## Master Protected (asked by QuikThinker)
--## Added a table with Commands that can't be used when gagged (asked by QuikThinker)
--## Made by nErBoS
sBot = "?PHH?"
gagged = {}
gaggedsv = "gagged.dat"
arrGagCmd = {
"!mass",
"!talk",
"!ungag",
}
function Main()
frmHub:RegBot(sBot)
LoadFromFile(gaggedsv)
end
function OnExit()
SaveToFile(gaggedsv , gagged , "gagged")
end
function DataArrival(user, data)
if (strsub(data,1,1) == "<" or strsub(data,1,5) == "$To: " or strsub(data,1,1) == "%*") then
if (gagged[strlower(user.sName)] ~= nil) then
if (user.bOperator) then
data = strsub(data,1,strlen(data)-1)
s,e,uCmd,prefix = strfind(data, "%b<>%s+((%S+)%S+)")
if (CheckForGagCMD(uCmd) == 1) then
user:SendPM(sBot, "You are gagged, you can't use this command.")
return 1
elseif (prefix ~= "!") then
user:SendPM(sBot, "You are gagged.")
return 1
end
elseif (gagged[strlower(user.sName)] ~= nil) then
user:SendPM(sBot, "You are gagged.")
return 1
end
end
end
if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
data = strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data, "%b<>%s+(%S+)")
if (cmd == "!gag" and user.bOperator) then
local s,e,gag = strfind(data, "%b<>%s+%S+%s+(%S+)")
if (gag == nil) then
user:SendPM(sBot, "Syntax Error, !gag , you must write a nick.")
elseif (CheckProfile(user, gag) == 1) then
user:SendPM(sBot, "You don't have permission to gag "..gag..".")
else
if (gagged[strlower(gag)] == nil) then
gagged[strlower(gag)] = 1
user:SendPM(sBot, "The user "..gag.." has been gagged.")
SendToAll(sBot, "The user "..gag.." has been shut the fuck up by "..user.sName..".")
else
user:SendPM(sBot, "The user "..gag.." is already gagged.")
end
end
return 1
elseif (cmd == "!ungag" and user.bOperator) then
local s,e,gag = strfind(data, "%b<>%s+%S+%s+(%S+)")
if (gag == nil) then
user:SendPM(sBot, "Syntax Error, !ungag , you must write a nick.")
else
if (gagged[strlower(gag)] == nil) then
user:SendPM(sBot, "The user "..gag.." isn't gagged.")
else
user:SendPM(sBot, "The user "..gag.." has been ungagged.")
SendToAll(sBot, "The user "..gag.." has been ungagged by "..user.sName..".")
gagged[strlower(gag)] = nil
end
end
return 1
elseif (cmd == "!gaglist" and user.bOperator) then
ShowGagList(user)
return 1
end
end
end
function ShowGagList(user)
local sTmp = "Users that are gagged in this Hub:\r\n\r\n"
local usr,aux
for usr, aux in gagged do
sTmp = sTmp..usr.."\r\n"
end
user:SendPM(sBot, sTmp)
end
function CheckProfile(user, who)
if (user.iProfile ~= 0) then
local usr,aux
for aux, usr in GetUsersByProfile("NetFounder") do
if (strlower(usr) == strlower(who)) then
return 1
end
end
end
return 0
end
function CheckForGagCMD(cmd)
for i=1, getn(arrGagCmd) do
if (arrGagCmd[i] == cmd) then
return 1
end
end
return 0
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 format("[%q]",key) or format("[%d]",key);
if(type(value) == "table") then
Serialize(value, sKey, sTab.."\t");
else
local sValue = (type(value) == "string") and 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)
writeto(file)
write(Serialize(table, tablename))
writeto()
end
function LoadFromFile(file)
if (readfrom(file) ~= nil) then
readfrom(file)
dostring(read("*all"))
readfrom()
end
end
Thanx in advance!
Try this:
--## Stand Alone Gagger 1.1
--## Converted to LUA 5 by jiten
--## This script should be before the scripts with commands, in the Script List
--## Requested by D-J Valhala
--## Master Protected (asked by QuikThinker)
--## Added a table with Commands that can't be used when gagged (asked by QuikThinker)
--## Made by nErBoS
sBot = "?PHH?"
gagged = {}
gaggedsv = "gagged.dat"
arrGagCmd = {
"!mass",
"!talk",
"!ungag",
}
function Main()
frmHub:RegBot(sBot)
LoadFromFile(gaggedsv)
end
function OnExit()
SaveToFile(gaggedsv , gagged , "gagged")
end
function ChatArrival(user, data)
if (string.sub(data,1,1) == "<") then
if (gagged[string.lower(user.sName)] ~= nil) then
if (user.bOperator) then
data = string.sub(data,1,string.len(data)-1)
s,e,uCmd,prefix = string.find(data, "%b<>%s+((%S+)%S+)")
if (CheckForGagCMD(uCmd) == 1) then
user:SendPM(sBot, "You are gagged, you can't use this command.")
return 1
elseif (prefix ~= "!") then
user:SendPM(sBot, "You are gagged.")
return 1
end
elseif (gagged[string.lower(user.sName)] ~= nil) then
user:SendPM(sBot, "You are gagged.")
return 1
end
end
end
if (string.sub(data,1,1) == "<") then
data = string.sub(data,1,string.len(data)-1)
s,e,cmd = string.find(data, "%b<>%s+(%S+)")
if (cmd == "!gag" and user.bOperator) then
local s,e,gag = string.find(data, "%b<>%s+%S+%s+(%S+)")
if (gag == nil) then
user:SendPM(sBot, "Syntax Error, !gag , you must write a nick.")
elseif (CheckProfile(user, gag) == 1) then
user:SendPM(sBot, "You don't have permission to gag "..gag..".")
else
if (gagged[string.lower(gag)] == nil) then
gagged[string.lower(gag)] = 1
user:SendPM(sBot, "The user "..gag.." has been gagged.")
SendToAll(sBot, "The user "..gag.." has been shut the fuck up by "..user.sName..".")
else
user:SendPM(sBot, "The user "..gag.." is already gagged.")
end
end
return 1
elseif (cmd == "!ungag" and user.bOperator) then
local s,e,gag = string.find(data, "%b<>%s+%S+%s+(%S+)")
if (gag == nil) then
user:SendPM(sBot, "Syntax Error, !ungag , you must write a nick.")
else
if (gagged[string.lower(gag)] == nil) then
user:SendPM(sBot, "The user "..gag.." isn't gagged.")
else
user:SendPM(sBot, "The user "..gag.." has been ungagged.")
SendToAll(sBot, "The user "..gag.." has been ungagged by "..user.sName..".")
gagged[string.lower(gag)] = nil
end
end
return 1
elseif (cmd == "!gaglist" and user.bOperator) then
ShowGagList(user)
return 1
end
end
end
function ToArrival(user, data)
if (string.sub(data,1,5) == "$To: " or string.sub(data,1,1) == "%*") then
if (gagged[string.lower(user.sName)] ~= nil) then
if (user.bOperator) then
data = string.sub(data,1,string.len(data)-1)
s,e,uCmd,prefix = string.find(data, "%b<>%s+((%S+)%S+)")
if (CheckForGagCMD(uCmd) == 1) then
user:SendPM(sBot, "You are gagged, you can't use this command.")
return 1
elseif (prefix ~= "!") then
user:SendPM(sBot, "You are gagged.")
return 1
end
elseif (gagged[string.lower(user.sName)] ~= nil) then
user:SendPM(sBot, "You are gagged.")
return 1
end
end
end
if (string.sub(data,1,5+string.len(sBot)) == "$To: "..sBot) then
data = string.sub(data,1,string.len(data)-1)
s,e,cmd = string.find(data, "%b<>%s+(%S+)")
if (cmd == "!gag" and user.bOperator) then
local s,e,gag = string.find(data, "%b<>%s+%S+%s+(%S+)")
if (gag == nil) then
user:SendPM(sBot, "Syntax Error, !gag , you must write a nick.")
elseif (CheckProfile(user, gag) == 1) then
user:SendPM(sBot, "You don't have permission to gag "..gag..".")
else
if (gagged[string.lower(gag)] == nil) then
gagged[string.lower(gag)] = 1
user:SendPM(sBot, "The user "..gag.." has been gagged.")
SendToAll(sBot, "The user "..gag.." has been shut the fuck up by "..user.sName..".")
else
user:SendPM(sBot, "The user "..gag.." is already gagged.")
end
end
return 1
elseif (cmd == "!ungag" and user.bOperator) then
local s,e,gag = string.find(data, "%b<>%s+%S+%s+(%S+)")
if (gag == nil) then
user:SendPM(sBot, "Syntax Error, !ungag , you must write a nick.")
else
if (gagged[string.lower(gag)] == nil) then
user:SendPM(sBot, "The user "..gag.." isn't gagged.")
else
user:SendPM(sBot, "The user "..gag.." has been ungagged.")
SendToAll(sBot, "The user "..gag.." has been ungagged by "..user.sName..".")
gagged[string.lower(gag)] = nil
end
end
return 1
elseif (cmd == "!gaglist" and user.bOperator) then
ShowGagList(user)
return 1
end
end
end
function ShowGagList(user)
local sTmp = "Users that are gagged in this Hub:\r\n\r\n"
local usr,aux
for usr, aux in gagged do
sTmp = sTmp..usr.."\r\n"
end
user:SendPM(sBot, sTmp)
end
function CheckProfile(user, who)
if (user.iProfile ~= 0) then
local usr,aux
for aux, usr in GetUsersByProfile("NetFounder") do
if (string.lower(usr) == string.lower(who)) then
return 1
end
end
end
return 0
end
function CheckForGagCMD(cmd)
for i=1, table.getn(arrGagCmd) do
if (arrGagCmd[i] == cmd) then
return 1
end
end
return 0
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