--++++++++++++++++++++++++++++++++++++++++++++++++++++
--RegShow 1.0 by ??? (Don?t know author, tell me, the i will put in++++
--Convertet to Lua5 by Krysalis+++++++++++++++++++++++++++++
--Little changes by Krysalis (1.1)++++++++++++++++++++++++++++++++
--Shows reguser sortet by Profiles+++++++++++++++++++++++++++
--Shows +reguser in alphabetical Order+++++++++++++++++++++++
--++++++++++++++++++++++++++++++++++++++++++++++++++++
--++++++++++++++++++++++++++++++++++++++++++++++++++++
--Set to everything you want+++++++++++++++++++++++++++++++
--++++++++++++++++++++++++++++++++++++++++++++++++++++
command = "+regusers"
BotName = "??????RegUser?????"
Owner = "Krysalis"
--++++++++++++++++++++++++++++++++++++++++++++++++++++
--Change [Profiles] to your personal PtokaX Profiles+++++++++++++
--++++++++++++++++++++++++++++++++++++++++++++++++++++
PROFILE = {
["Anw?rter"] = "\r\n ???Anw?rter??? ",
["User"] = "\r\n ???User??? ",
["Stammie"] = "\r\n ???User??? ",
["D-User"] = "\r\n ???D?User???",
["Vip"] = "\r\n ???VIP?User???",
["S-Vip"] = "\r\n ???S-VIP?User???",
["Superuser"] = "\r\n ???Super?User??? ",
["PHO"] = "\r\n ???Partner?Hub?Operator??? ",
["Moderator"] = "\r\n ???Moderator???",
["Operator"] = "\r\n ???Operator???",
["S-Operator"] = "\r\n ???S-Operator???",
["Master"] = "\r\n ???Master???"
}
function ChatArrival(curUser,data)
data = string.sub(data,1,string.len(data)-1)
s,e,cmd = string.find(data,"%b<>%s+(%S+)")
cmd = string.lower(cmd)
if (cmd==command) then
Msg = "\r\n"
ShowRegistered(curUser.sName)
curUser:SendData(BotName, Msg)
return 1
end
end
--++++++++++++++++++++++++++++++++++++++++++++++++++++
--Change [Profiles] to your personal PtokaX Profiles+++++++++++++
--++++++++++++++++++++++++++++++++++++++++++++++++++++
function ShowRegistered()
ViewRegs("Master")
ViewRegs("S-Operator")
ViewRegs("Operator")
ViewRegs("Moderator")
ViewRegs("PHO")
ViewRegs("S-Vip")
ViewRegs("Vip")
ViewRegs("Superuser")
ViewRegs("D-User")
ViewRegs("Stammie")
ViewRegs("User")
ViewRegs("Anw?rter")
Msg = Msg.."\r\n\tEnd of List"
end
function ViewRegs(Level)
tabelle = nil
if tonumber(Level) then
if GetProfileName(Level) then
Level = GetProfileName(Level)
tabelle = GetUsersByProfile(Level)
end
else
tabelle = GetUsersByProfile(Level)
end
if type(tabelle) == "table" then
if table.getn(tabelle) == 0 then
Msg = Msg.."\r\n ".."Kein User gereggt mit Profil: "..Level.."\r\n"
else
-- SendToNick(Owner, tempMsg)
Msg = Msg.."\r\n"..PROFILE[Level]
Msg = Msg.."\r\n????????????????????????????????????????"
for i=1,table.getn(tabelle) do
local _,_,ProfileName = string.find(tabelle[i],"(%S+)")
Msg = Msg.."\r\n "..i..". "..ProfileName..""
end
Msg = Msg.."\r\n????????????????????????????????????????"
Msg = Msg.."\r\n "
end
else
Msg = Msg.."\r\n ".."Kein User gereggt mit Profil: "..Level.."\r\n"
end
end [/SIZE]
Seen a request for a while, so give it a try.
Best Regards
you've missed an "end" at the end ;)
yes, missed to copy ,-) Fixed first Post.
Greets