-- BotMgr 1.01
-- by Mutor
--
--Add/Remove botnames to/from user list
-- Option for context menu [you can add more of your own commands]
-- Allow command by profile
-- !dropbot <botname>	--Remove bot from user list
-- !addbot <botname>	--Add bot to user list
--
-- Restart scripts will list bot again... 
aprof = 0	-- Masters are authorized to use these commands
SendMenu = "1"	-- Provide context [right click] menu commands, 0 for no
--


function NewUserConnected(user)
if SendMenu == "1" then
	if user.iProfile == aprof then
		customCMDS(user)
		user:SendData(" *** Notice :: Right click hub tab or user list for Admin commands. ***")
	else
		return
	end
else
end
end

OpConnected = NewUserConnected

--$UserCommand 1 X  Where -> 1=Hub Menu 2=User Menu 3=Hub/User Menu 
function customCMDS(user)
	--user:SendData("$UserCommand 255 7")	--clear the menu first
	user:SendData("$UserCommand 1 3 [Admin]\\Remove Bot $<%[mynick]> !dropbot %[line:BotNick]&#124;|")
	user:SendData("$UserCommand 1 3 [Admin]\\Restore Bot $<%[mynick]> !addbot %[line:BotNick]&#124;|")
end

function DataArrival(user, data)
	if user.iProfile == aprof then
		if strsub(data,1,1)=="<" then
			data=strsub(data,1,strlen(data)-1) 
			s,e,cmd,name = strfind(data,"%b<>%s+(%S+)%s+(%S+)") 
				if cmd=="!dropbot" then 
					frmHub:UnregBot(name)
					SendToAll(name.." has left the hub, and per the court order, checks into rehab.")
					return 1
				elseif cmd=="!addbot" then 
					frmHub:RegBot(name)
					SendToAll("And you will know my name is "..name..", when I lay my vengeance upon thee.")
					return 1 
				end 
		end 
	end
end