Helpdesk Script

[Troubadour]

i see jiten and mutor are both busy scripting one, so i guess i do not have to come up with yet another try script!
keep it up fellows mates.  ;D
lol

[jiten]

when u type !helpdesk nothing happens at me:S

True. I only allowed commands in PM but, will change that for main too.

Also tested it to. Working only in pm to helpdesk. Have tryed all profiles. Profiles ops, masters, mod and netfounder don't see pm from Helpdesk (*** You have joined the HelpDesk!)

All the operators are automatically added to the member list on script re/start and as it's a HelpDesk (thought that they should always remain there). Anyway, I'll change it so that they can optionally leave and join.

[[HE]Newbie]

Hey guys, thnx for scripting.. Respect! gonna test it out now

Both scripts are very close to my request some little fixxes could make it perfecter then it is now!! if u guys would pm me or something then i try to explain what the little fixxes are but if u cant this scripts OWNED!!!!! i really can tip it for the other guys!

[Mikey]

Ok I ran this script in my hub and got an unexpected error so I made some revisements.  All credits to Mutor. Revised by me.

--[[
HelpDesk 1.0 LUA 5

By Mutor        
Modified By Mikey 

Creates a support chat, open to all that wish to join
- Auto-invites all online operators
- Listens for commands in main and helpdesk pm
- Ops and users may ignore the chat window by command
- Includes context menu [right click]
- Users joining chat are shown a list of participants
- Saves chat user's status to file

]]--

DeskCfg = {
Bot = "[HelpDesk]",             -- Bot name
Desc = "Support Chat Room",     -- Bot description
Mail = "http://mdnetwork.no-ip.org/forums",       -- Bot email address
Users = {},                     -- Chat users table
Exclude = {},                   -- Exclusion table
File = "Helpdesk.dat",          -- File to save user data
Menu = "Put Hub Name Here", -- Menu name pulled from hub, uses hub name for menu
SubMenu ="Helpdesk", -- Custom submenu
}

Main = function()
frmHub:RegBot(DeskCfg.Bot, 1, DeskCfg.Desc, DeskCfg.Mail)
local Login = os.date()
local Ops = table.getn(frmHub:GetOnlineOperators())-1
local Msg1 = "You have been enabled for the Helpdesk. "..
"Aside from yourself there are "..Ops.." other online Op(s) in the Helpdesk."
for i,v in pairs(frmHub:GetOnlineOperators()) do
        DeskCfg.Users[v.sName]={v.iProfile,Login}
end
if loadfile(DeskCfg.File) then
dofile(DeskCfg.File)
else
Save_File(DeskCfg.File,DeskCfg,"DeskCfg")
end
end

OnExit = function()
Save_File(DeskCfg.File,DeskCfg,"DeskCfg")
end

NewUserConnected = function(user)
local bot = DeskCfg.Bot
local Login = os.date()
local Msg1 = "You have been enabled for the Helpdesk Chat. Right click hub tab or user list for commands."
local Msg2 = "Opening chat window to the Helpdesk"
local Msg3 = user.sName.." has entered the Helpdesk"
if user.bOperator then
DeskCfg.Users[user.sName]={user.iProfile,Login}
for i,v in pairs(DeskCfg.Users) do
if i ~= user.sName then
SendToNick(i, "$To: "..i.." From: "..bot.." $"..bot.." "..Msg3.."|")
end
end
user:SendData(bot,Msg1.."\r\n"..Msg2)
user:SendPM(bot,Msg2)
end
DeskCmds(user)
Save_File(DeskCfg.File,DeskCfg,"DeskCfg")
end
OpConnected = NewUserConnected

UserDisconnected = function(user)
if DeskCfg.Users[user.sName] then
local Msg1 = user.sName.." has left the Helpdesk"
for i,v in pairs(DeskCfg.Users) do
if i ~= user.sName then
SendPmToNick(i, DeskCfg.Bot, Msg1)
end
end
DeskCfg.Users[user.sName] = nil
Save_File(DeskCfg.File,DeskCfg,"DeskCfg")
end
end
OpDisconnected = UserDisconnected

ChatArrival = function(user,data)
local s,e,cmd = string.find(data,"^%b<>%s%p(%w+)")
local s,e,msg = string.find(data,"^%b<>%s%p%w+%s(.+)|$")
if cmd then
local Login = os.date()
local Cmds = {
["Helpdesk"] = function(user,data)
Join(user,data,nil,msg)
end,
["exitdesk"] = function(user,data)
Part(user,data,nil)
end,
["afk"] = function(user,data)
Away(user,data,nil)
end
}
if Cmds[cmd] then
return 1, Cmds[cmd](user,data)
end
end
end

ToArrival = function(user,data)
local s,e,to = string.find(data,"^$To:%s(%S+)%s+From:")
local s,e,cmd = string.find(data,"$%b<>%s%p(%w+)")
local s,e,msg = string.find(data,"$%b<>%s(.+)|$")
if to and to == DeskCfg.Bot then
if cmd then
local Cmds = {
["Helpdesk"] = function(user,data)
Join(user,data,1,msg)
end,
["exitdesk"] = function(user,data)
Part(user,data,1)
end,
["afk"] = function(user,data)
Away(user,data,1)
end
}
if Cmds[cmd] then
return 1, Cmds[cmd](user,data)
end
else
if msg and DeskCfg.Users[user.sName] then
for i,v in pairs(DeskCfg.Users) do
if i ~= user.sName and not DeskCfg.Exclude[i] then
SendToNick(i, "$To: "..i.." From: "..DeskCfg.Bot..
" $<"..user.sName.."> "..msg.."|")
end
end
end
end
end
end

Join = function(user,data,pm,msg)
local bot = DeskCfg.Bot
if not DeskCfg.Users[user.sName] then
local query = ""
if msg then
query = " and has asked for help with: "..msg
end
local Login = os.date()
DeskCfg.Users[user.sName] = {user.iProfile,Login}
local Msg0 = "Connected to Helpdesk"
local Msg1 = Msg0.."\r\n\r\n\t"..string.format("%-35s", "Current User(s)")..
"\t"..string.format("%-16s","User Profile").."\t"..
"Logged Into Chat Since:\r\n\t"..string.rep("?",16)..
"\t"..string.rep("?",10).."\t"..string.rep("?",20).."\r\n"
local Msg2 = user.sName.." has entered the Helpdesk,"..query.."."
for i,v in pairs(DeskCfg.Users) do
local Profile = GetProfileName(v[1]) or "Unregistered"
Msg1 = Msg1.."\t"..string.format("%-35s", i).."\t"..
string.format("%-16s",Profile).."\t"..v[2].."\r\n"
if i ~= user.sName then
SendPmToNick(i, bot, Msg2)
end
end
user:SendData(bot,Msg0)
user:SendPM(bot,Msg1.."\r\n")
Save_File(DeskCfg.File,DeskCfg,"DeskCfg")
else
local Msg3 = user.sName.." you're already connected to the Helpdesk."
if pm then
user:SendPM(bot,Msg3)
else
user:SendData(bot,Msg3)
end
end
end

Part = function(user,data,pm)
local bot = DeskCfg.Bot
if DeskCfg.Users[user.sName] then
local Msg1 = user.sName.." has left the Helpdesk"
local Msg2 = user.sName..", you have been removed from chat"
for i,v in pairs(DeskCfg.Users) do
if i ~= user.sName then
SendPmToNick(i, bot, Msg1)
end
end
DeskCfg.Users[user.sName] = nil
if pm then
user:SendPM(bot,Msg2)
else
user:SendData(bot,Msg2)
end
Save_File(DeskCfg.File,DeskCfg,"DeskCfg")
else
local Msg3 = user.sName.." you're not connected to the Helpdesk."
if pm then
user:SendPM(bot,Msg3)
else
user:SendData(bot,Msg3)
end
end
end

Away = function(user,data,pm)
local bot = DeskCfg.Bot
if DeskCfg.Users[user.sName] then
if not DeskCfg.Exclude[user.sName]then
DeskCfg.Exclude[user.sName] = 1
local Msg1 = "You're now ignoring messages from the Helpdesk"
if pm then
user:SendPM(bot,Msg1)
else
user:SendData(bot,Msg1)
end
else
DeskCfg.Exclude[user.sName] = nil
local Msg2 = user.sName.." you're no longer ignoring the Helpdesk."
if pm then
user:SendPM(bot,Msg2)
else
user:SendData(bot,Msg2)
end
end
Save_File(DeskCfg.File,DeskCfg,"DeskCfg")
else
local Msg3 = user.sName.." you're not connected to the Helpdesk."
if pm then
user:SendPM(bot,Msg3)
else
user:SendData(bot,Msg3)
end
end
end


DeskCmds = function(user)
local Menu,SubMenu = DeskCfg.Menu,DeskCfg.SubMenu
user:SendData("$UserCommand 1 3 "..Menu.."\\"..SubMenu.."\\Join Help Chat$<%[mynick]> "..
"+Helpdesk %[line:Question or problem <optional>]&#124;")
user:SendData("$UserCommand 1 3 "..Menu.."\\"..SubMenu.."\\Part Help Chat$<%[mynick]> +exitdesk&#124;")
user:SendData("$UserCommand 1 3 "..Menu.."\\"..SubMenu.."\\Toggle Ignore Help Chat$<%[mynick]> +afk&#124;")

end

Save_Serialize = function(tTable, sTableName, hFile, sTab)
sTab = sTab or "";
hFile:write(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
Save_Serialize(value, sKey, hFile, sTab.."\t")
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value)
hFile:write( sTab.."\t"..sKey.." = "..sValue)
end
hFile:write( ",\n")
end
hFile:write( sTab.."}")
end

Save_File = function(file,table, tablename )
local hFile = io.open (file , "w")
Save_Serialize(table, tablename, hFile)
hFile:close()
end

[Mikey]

The mail domain is a goof on my part thats not what caused the error i got. It wouldnt grab the hub name from the hub so i changed it to where u put the name in yourself. Then i got and unexpected = error. I will rerun your version and paste the exact error I got then u can go from there. Was just trying to help, guess it was a bust. sorry

[jiten]

--[[

	HelpDesk 1.1 by jiten (3/2/2006)

	Changelog:

	- Added: Commands work in Mainchat;
	- Changed: Operators are able to leave and join HelpDesk;
	- Added: Members command;
	- Changed: Operator autologin switch (3/4/2006)

]]--

tDesk = {
	-- Bot Name
	sBot = "[_HeLPDeSK_]",
	-- HelpDesk database
	fHelp = "tHelpDesk.tbl",
	-- Autologin every operator on script re/start
	bAutoLogin = true
}
tMembers = {}

Main = function()
	frmHub:RegBot(tDesk.sBot)
	if loadfile(tDesk.fHelp) then dofile(tDesk.fHelp) end
	if tDesk.bAutoLogin then
		for a,b in pairs(frmHub:GetOperators()) do
			tMembers[b.sNick] = 1
			SaveToFile(tDesk.fHelp,tMembers,"tMembers")
		end
	end
end

ChatArrival = function(user,data)
	local s,e,cmd = string.find(data, "^%b<>%s+%!(%a+)")
	if cmd and tCmds[string.lower(cmd)] then
		return tCmds[cmd](user, data), 1
	end
end

ToArrival = function(user,data)
	local s,e,to,msg = string.find(data, "^$To:%s+(%S+)%s+From:%s+%S+%s+$%b<>%s+(.*)|$")
	if to == tDesk.sBot then
		local s,e,cmd = string.find(msg, "^%!(%a+)")
		if cmd and tCmds[string.lower(cmd)] then
			return tCmds[cmd](user, data), 1
		end
		if tMembers[user.sName] or user.bOperator then
			tMembers[user.sName] = tMembers[user.sName] or 1
			PM(msg, user.sName)
		else
			user:SendPM(tDesk.sBot, "*** You're not a member here. Type !helpdesk to login.")
		end
		return 1
	end
end

tCmds = {
	["leave"] = function(user)
		if tMembers[user.sName] then
			tMembers[user.sName] = nil
			user:SendPM(tDesk.sBot,"*** You have left the HelpDesk!")
			PM(user.sName.." left!",tDesk.sBot)
			SaveToFile(tDesk.fHelp,tMembers,"tMembers")
		end
	end,
	["helpdesk"] = function(user)
		if not tMembers[user.sName] then
			PM(user.sName.." joined!",tDesk.sBot)
			tMembers[user.sName] = 1
			user:SendPM(tDesk.sBot,"*** You have joined the HelpDesk!")
			SaveToFile(tDesk.fHelp,tMembers,"tMembers")
		end
	end,
	["members"] = function(user)
		if tMembers[user.sName] then
			local tMsg = "\r\n\r\n\t"..string.rep("-",40).."\r\n\t? ? Member List:\r\n\t"..string.rep("-",40).."\r\n"
			table.foreach(tMembers, function(v,i)
				tMsg = tMsg.."\t ? "..v.."\r\n"
			end)
			user:SendPM(tDesk.sBot,tMsg)
		end
	end
}

PM = function(msg, from)
	for nick, id in pairs(tMembers) do
		if nick ~= from then
			SendToNick(nick, "$To: "..nick.." From: "..tDesk.sBot.." $<"..from.."> "..msg)
		end
	end
end

Serialize = function(tTable,sTableName,hFile,sTab)
	sTab = sTab or "";
	hFile:write(sTab..sTableName.." = {\n");
	for key,value in tTable do
		if (type(value) ~= "function") then
			local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
			if(type(value) == "table") then
				Serialize(value,sKey,hFile,sTab.."\t");
			else
				local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
				hFile:write(sTab.."\t"..sKey.." = "..sValue);
			end
			hFile:write(",\n");
		end
	end
	hFile:write(sTab.."}");
end

SaveToFile = function(file,table,tablename)
	local hFile = io.open(file,"w+") Serialize(table,tablename,hFile); hFile:close() 
end

[[HE]Newbie]

Woooow This is what i want if u put this Message for the user when he joined as first, then its PERFECT:
If you have any questions or problems write it here, maybe we can help you. If nobody answers then try again later.
!stop: Leave the helpdesk

This script is reall the request i requested:P, i am using it now if i see any bugs, or problems or other things i want or see then i reply!!!!!
Very thnx all scripters!!!!!!!


Please don't quote complete codeblocks! -- // bastya_elvtars

[jiten]

Here you go...

--[[

	HelpDesk 1.1b by jiten (3/2/2006)

	Changelog:

	- Added: Commands work in Mainchat;
	- Changed: Operators are able to leave and join HelpDesk;
	- Added: Members command;
	- Changed: Operator autologin switch (3/4/2006)
	- Changed: Commands can be changed in tDesk
	- Changed: Message on login (3/5/2006)
	- Added: RightClick Commands (3/7/2006)

]]--

tDesk = {
	-- Bot Name
	sBot = "[_HeLPDeSK_]",
	-- HelpDesk database
	fHelp = "tHelpDesk.tbl",
	-- Autologin every operator on script re/start
	bAutoLogin = true,
	-- Commands
	sLeave = "leave", sJoin = "helpdesk", sMembers = "members"
}
tMembers = {}

Main = function()
	frmHub:RegBot(tDesk.sBot)
	if loadfile(tDesk.fHelp) then dofile(tDesk.fHelp) end
	if tDesk.bAutoLogin then
		for a,b in pairs(frmHub:GetOperators()) do
			tMembers[b.sNick] = 1
			SaveToFile(tDesk.fHelp,tMembers,"tMembers")
		end
	end
end

ChatArrival = function(user,data)
	local s,e,cmd = string.find(data, "^%b<>%s+%!(%a+)")
	if cmd and tCmds[string.lower(cmd)] then
		return tCmds[cmd](user, data), 1
	end
end

ToArrival = function(user,data)
	local s,e,to,msg = string.find(data, "^$To:%s+(%S+)%s+From:%s+%S+%s+$%b<>%s+(.*)|$")
	if to == tDesk.sBot then
		local s,e,cmd = string.find(msg, "^%!(%a+)")
		if cmd and tCmds[string.lower(cmd)] then
			return tCmds[cmd](user, data), 1
		end
		if tMembers[user.sName] or user.bOperator then
			tMembers[user.sName] = tMembers[user.sName] or 1
			PM(msg, user.sName)
		else
			user:SendPM(tDesk.sBot, "*** You're not a member here. Type !helpdesk to login.")
		end
		return 1
	end
end

NewUserConnected = function(user)
	if user.bUserCommand then
		user:SendData("$UserCommand 1 3 HelpDesk\\Join$<%[mynick]> !"..tDesk.sJoin.."&#124;")
		user:SendData("$UserCommand 1 3 HelpDesk\\Leave$<%[mynick]> !"..tDesk.sLeave.."&#124;")
		user:SendData("$UserCommand 1 3 HelpDesk\\Member List$<%[mynick]> !"..tDesk.sMembers.."&#124;")
	end
end

OpConnected = NewUserConnected

tCmds = {
	[tDesk.sLeave] = function(user)
		if tMembers[user.sName] then
			tMembers[user.sName] = nil
			user:SendPM(tDesk.sBot,"*** You have left the HelpDesk!")
			PM(user.sName.." left!",tDesk.sBot)
			SaveToFile(tDesk.fHelp,tMembers,"tMembers")
		end
	end,
	[tDesk.sJoin] = function(user)
		if not tMembers[user.sName] then
			PM(user.sName.." joined!",tDesk.sBot)
			tMembers[user.sName] = 1
			user:SendPM(tDesk.sBot,"*** You have joined the HelpDesk!\r\n\tIf you have any questions or problems "..
			"write them here, maybe we can help you. If nobody answers then try again later.\r\n\t"..
			"!"..tDesk.sLeave..": Leave the HelpDesk.")
			SaveToFile(tDesk.fHelp,tMembers,"tMembers")
		end
	end,
	[tDesk.sMembers] = function(user)
		if tMembers[user.sName] then
			local tMsg = "\r\n\r\n\t"..string.rep("-",40).."\r\n\t    Member List:\r\n\t"..string.rep("-",40).."\r\n"
			table.foreach(tMembers, function(v,i)
				tMsg = tMsg.."\t ? "..v.."\r\n"
			end)
			user:SendPM(tDesk.sBot,tMsg)
		end
	end
}

PM = function(msg, from)
	for nick, id in pairs(tMembers) do
		if nick ~= from then
			SendToNick(nick, "$To: "..nick.." From: "..tDesk.sBot.." $<"..from.."> "..msg)
		end
	end
end

Serialize = function(tTable,sTableName,hFile,sTab)
	sTab = sTab or "";
	hFile:write(sTab..sTableName.." = {\n");
	for key,value in tTable do
		if (type(value) ~= "function") then
			local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
			if(type(value) == "table") then
				Serialize(value,sKey,hFile,sTab.."\t");
			else
				local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
				hFile:write(sTab.."\t"..sKey.." = "..sValue);
			end
			hFile:write(",\n");
		end
	end
	hFile:write(sTab.."}");
end

SaveToFile = function(file,table,tablename)
	local hFile = io.open(file,"w+") Serialize(table,tablename,hFile); hFile:close() 
end

[[HE]Newbie]

Woow thanx jiten really thanx, it works perfect, i will report bugs/questions later if i see problems but i think thats unpossible haha nice work both of ya btw!!

[Mikey]

Ok Help me out please. Remember I am still trying to learn LUA 5. I tried to add right click commands to the latest release. I show no errors but the commands don't show up. Help please.

--[[

HelpDesk 1.1a by jiten (3/2/2006)
Modified By Mikey (3/6/2006)

Changelog:

- Added RC Menu

Changelog:

- Added: Commands work in Mainchat;
- Changed: Operators are able to leave and join HelpDesk;
- Added: Members command;
- Changed: Operator autologin switch (3/4/2006)
- Changed: Commands can be changed in tDesk
- Changed: Message on login (3/5/2006)

]]--

tDesk = {
-- Bot Name
sBot = "[_HeLpDeSk_]",
-- HelpDesk database
fHelp = "tHelpDesk.tbl",
-- Autologin every operator on script re/start
bAutoLogin = true,
-- Commands
sLeave = "leave", sJoin = "helpdesk", sMembers = "members"
}
tMembers = {}

Main = function()
frmHub:RegBot(tDesk.sBot)
if loadfile(tDesk.fHelp) then dofile(tDesk.fHelp) end
if tDesk.bAutoLogin then
for a,b in pairs(frmHub:GetOperators()) do
tMembers[b.sNick] = 1
SaveToFile(tDesk.fHelp,tMembers,"tMembers")
end
end
end

ChatArrival = function(user,data)
local s,e,cmd = string.find(data, "^%b<>%s+%!(%a+)")
if cmd and tCmds[string.lower(cmd)] then
return tCmds[cmd](user, data), 1
end
end

ToArrival = function(user,data)
local s,e,to,msg = string.find(data, "^$To:%s+(%S+)%s+From:%s+%S+%s+$%b<>%s+(.*)|$")
if to == tDesk.sBot then
local s,e,cmd = string.find(msg, "^%!(%a+)")
if cmd and tCmds[string.lower(cmd)] then
return tCmds[cmd](user, data), 1
end
if tMembers[user.sName] or user.bOperator then
tMembers[user.sName] = tMembers[user.sName] or 1
PM(msg, user.sName)
else
user:SendPM(tDesk.sBot, "*** You're not a member here. Type !helpdesk to login.")
end
return 1
end
end

tCmds = {
[tDesk.sLeave] = function(user)
if tMembers[user.sName] then
tMembers[user.sName] = nil
user:SendPM(tDesk.sBot,"*** You have left the HelpDesk!")
PM(user.sName.." left!",tDesk.sBot)
SaveToFile(tDesk.fHelp,tMembers,"tMembers")
end
end,
[tDesk.sJoin] = function(user)
if not tMembers[user.sName] then
PM(user.sName.." joined!",tDesk.sBot)
tMembers[user.sName] = 1
user:SendPM(tDesk.sBot,"*** You have joined the HelpDesk!\r\n\tIf you have any questions or problems "..
"write them here, maybe we can help you. If nobody answers then try again later.\r\n\t"..
"!"..tDesk.sLeave..": Leave the HelpDesk.")
SaveToFile(tDesk.fHelp,tMembers,"tMembers")
end
end,
[tDesk.sMembers] = function(user)
if tMembers[user.sName] then
local tMsg = "\r\n\r\n\t"..string.rep("-",40).."\r\n\t    Member List:\r\n\t"..string.rep("-",40).."\r\n"
table.foreach(tMembers, function(v,i)
tMsg = tMsg.."\t ? "..v.."\r\n"
end)
user:SendPM(tDesk.sBot,tMsg)
end
end
}

PM = function(msg, from)
for nick, id in pairs(tMembers) do
if nick ~= from then
SendToNick(nick, "$To: "..nick.." From: "..tDesk.sBot.." $<"..from.."> "..msg)
end
end
end



SendCommands = function(user)
	if UserCommands == 1 then
		if user.bUserCommand then
			user:SendData("$UserCommand 0 3")
	user:SendData("UserCommand 1 0 HelpDesk\Join$%[mynick]!helpdesk&#124;")
	user:SendData("UserCommand 1 0 HelpDesk\Leave$%[mynick]!leave&#124;")
	user:SendData("UserCommand 1 0 HelpDesk\Member List$%[mynick]!members&#124;")		
		end
	end
end


Serialize = function(tTable,sTableName,hFile,sTab)
sTab = sTab or "";
hFile:write(sTab..sTableName.." = {\n");
for key,value in tTable do
if (type(value) ~= "function") then
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
if(type(value) == "table") then
Serialize(value,sKey,hFile,sTab.."\t");
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
hFile:write(sTab.."\t"..sKey.." = "..sValue);
end
hFile:write(",\n");
end
end
hFile:write(sTab.."}");
end

SaveToFile = function(file,table,tablename)
local hFile = io.open(file,"w+") Serialize(table,tablename,hFile); hFile:close()
end

[Mikey]

LOL....sounds like I messed up bad could u debug it so I can see exactly what I did wrong. I learn by seeing the fix. Thanks

[jiten]

LOL....sounds like I messed up bad could u debug it so I can see exactly what I did wrong. I learn by seeing the fix. Thanks

Last script updated with your request.

Regards