Redirect ?! - Max users?
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

Redirect ?! - Max users?

Started by CaSaNoVa, 30 September, 2005, 14:39:26

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

CaSaNoVa

30 September, 2005, 14:39:26
I'm searching a bot that has:

command to set redirect address , and redirect mode ( full hub,new connect users):

set max users.

Who can help me?:(

6Marilyn6Manson6

#1
30 September, 2005, 15:18:03
Hi guys :P

-- Redirect Bot by bastya_elvtars (the rock n' roll doctor)
-- written for 6Marilyn6Manson6
-- usual: cmds can be main or in PM
-- set if u want the bot in userlist or not
-- cmds can be customised
-- only MASTER profile can use it
-- based on channelbot 0.9h by Nathanos
-- Converted in LUA 5 by 6Marilyn6Manson6 at 06/05/2005
-- Modified by 6Marilyn6Manson6 at 30/09/2005

CanDo = {
[0] = 1,	-- Master
[1] = 0,	-- Operator
}

cmd1="!chred" -- changing default redir addy
cmd2="!setredirectall" -- setting redirect all newly coming users (on/off)
cmd3="!setredirectfull" -- setting redirect all when hub full (on/off)

Bot="??????????????5????" -- no need 2 explain

BotInUserList=1 -- set to 1 if u wanna see bot in userlist

function Main()
	if BotInUserList==1 then
		frmHub:RegBot(Bot)
	end
end

-- dont edit below

function ChRed(user, data,env)
	if CanDo[user.iProfile] == 1 then
		local _,_,newaddy=string.find(data,"%b<>%s+%S+%s+(%S+)")
		if newaddy then
			frmHub:SetRedirectAddress(newaddy) 
			SendToOps(Bot, user.sName.." ha modificato l'indirizzo di redirect: "..newaddy.." |")
			user:SendData(parseenv(user,env,Bot).."hai modificato l'indirizzo di redirect: "..newaddy.." |")
		else
			user:SendData(parseenv(user,env,Bot).. "Specifica l'indirizzo di redirect grazie. |")
		end
	else
		user:SendData(parseenv(user,env,Bot).."Comando non consentito. |")
	end
end 

function SetRedirectAll(user, data,env)
if CanDo[user.iProfile] == 1 then
	local _,_,arg=string.find(data,"%b<>%s+%S+%s+(%S+)")
	if arg ~= nil then
		if (arg=="on") then 
			frmHub:SetRedirectFull(0)
			frmHub:SetRedirectAll(1) 
			SendToOps(Bot, user.sName.." cambiata la modalit? di redirect per i nuovi connessi: "..arg.." |")
			user:SendData(parseenv(user,env,Bot).."hai modificato la modalit? di redirect per i nuovi connessi: "..arg.." |")
			elseif (arg=="off") then 
				frmHub:SetRedirectAll(0) 
				SendToOps(Bot, user.sName.." cambiata la modalit? di redirect per i nuovi connessi: "..arg.." |")
				user:SendData(parseenv(user,env,Bot).."hai modificato la modalit? di redirect per i nuovi connessi: "..arg.." |")
			else
				user:SendData(parseenv(user,env,Bot).."Puoi scegliere tra on ed off.Non puoi mettere "..arg.." |")
			end
		else
			user:SendData(parseenv(user,env,Bot).. "Comando errato.Controlla bene la sintassi. |")
		end
	else
		user:SendData(parseenv(user,env,Bot).."Comando non consentito. |")
	end
end 

function SetRedirectFull(user, data,env)
	if CanDo[user.iProfile] == 1 then
		local _,_,arg=string.find(data,"%b<>%s+%S+%s+(%S+)")
		if arg ~= nil then
			if (arg=="on") then 
				frmHub:SetRedirectAll(0)
				frmHub:SetRedirectFull(1) 
				SendToOps(Bot, user.sName.." ha modificato la modalit? di redirect per hub pieno. |")
				user:SendData(parseenv(user,env,Bot).." attivata la modalit? di redirect per hub pieno.|")
			elseif (arg=="off") then
				frmHub:SetRedirectFull(0) 
				SendToOps(Bot, user.sName.." ha modificato la modalit? di redirect per hub pieno. |")
				user:SendData(parseenv(user,env,Bot).." disattivata la modalit? di redirect per hub pieno.|")
			else
				user:SendData(parseenv(user,env,Bot).."Puoi scegliere tra on ed off.Non puoi mettere "..arg.." |")
			end 
		else
			user:SendData(parseenv(user,env,Bot).. "Comando errato.Controlla bene la sintassi |")
		end
	else
		user:SendData(parseenv(user,env,Bot).."Comando non consentito. |")
	end
end 


function ChatArrival(user,data)
	returndata=0
	if string.sub(data, 1, 1) == "<" then 
		data=string.sub(data,1,string.len(data)-1)
		local _,_,cmd = string.find(data,"%b<>%s+(%S+)")
		if cmd then
			returndata=parsecmds(user,data,string.lower(cmd),"MAIN")
		end
	elseif string.sub(data, 1, 4) == "$To:" then
		data=string.sub(data,1,string.len(data)-1)
			local _,_,whoTo = string.find(data,"$To:%s+(%S+)")
		if (whoTo == Bot) then
			local _,_,cmd = string.find(data,"$To:%s+%S+%s+From:%s+%S+%s+$%b<>%s+(%S+)")
			cmd=string.lower(cmd)
			returndata=parsecmds(user,data,cmd,"PM")
		end
	end return returndata
end

function parsecmds(user,data,cmd,env)
	if cmd==cmd1 then
		ChRed(user,data,env) returndata=1
	elseif cmd==cmd2 then
		SetRedirectAll(user,data,env) returndata=1
	elseif cmd==cmd3 then
		SetRedirectFull(user,data,env) returndata=1
	end
	return returndata
end

function parseenv(user,env,bot)
	if env=="PM" then
		return "$To: "..user.sName.." From: "..bot.." $<"..bot.."> "
	elseif env=="MAIN" then
		return "<"..bot.."> "
	end
end

and

iMaxLogins = frmHub:GetMaxLogins()
iLevelHubOwner = 0

function ChatArrival(user, data)
   if user.iProfile == iLevelHubOwner then
	local s,e,sCom, iVal = string.find(data, "%b<>%s+(%S+)%s*(%S*).*|")
	if sCom then
	   if sCom == "!setmaxlogin" then
		if iVal == "" then
		   iVal = iMaxLogins
		else
		   iVal = tonumber(iVal)
		end
		frmHub:SetMaxLogins(iVal)
		user:SendData(frmHub:GetHubBot(), "Max Logins changed to: "..iVal)
		return 1
	   elseif sCom == "!getmaxlogin" then
		user:SendData(frmHub:GetHubBot(), "Max Logins is set to: "..frmHub:GetMaxLogins())
		return 1
	   end
	end
   end
end

c ya :)

Cêñoßy†ê

#2
30 September, 2005, 15:33:39
Another option  :D

Havent tested it tho..hope it works  :] 

--//Script to set tempban/ban and normal redirect address
--// set redirects (tempban/ban/full/all) on/off
--// set max user limit
--// all has rightclick commands
--//Reguested by CaSaNoVa

tCommands = {}
tPrefixes = {}
tFunctions = {}
tSettings = {
	["BotName"] = frmHub:GetHubBotName(),	--Takes main bots name
--	["BotName"] = "Redirector",		--Undo this line to have own botname
	["Rclick"] = "Redirector",		--Type rightclick menus name here
	[0] = 1,				--Allow master use commands 1/yes 0/no
	[1] = 1,				--Allow operator use commands 1/yes 0/no								
	[4] = 1,				--Allow moderator use commands 1/yes 0/no
	[5] = 1					--Allow netfounder use commands 1/yes 0/no
}

Main = function ()
	for a,b in pairs(frmHub:GetPrefixes()) do tPrefixes[b] = 1 
	end
end

ToArrival = function(user, data)
	local data = string.sub(data, 1, (string.len(data)-1))
	local s,e,to,from,msg = string.find(data,"%$To:%s+(%S+)%s+From:%s+(%S+)%s+%$%b<>%s+(.+)")
	if to == tSettings.BotName then
	user.SendMessage = user.SendPM return tFunctions.GetCommands(user, data)
	end
end

ChatArrival = function(user, data)
	local data = string.sub(data, 1, (string.len(data)-1))
	user.SendMessage = user.SendData return tFunctions.GetCommands(user, data)
end

OpConnected = function(user)
 	tFunctions.SendCommands(user)
end

tFunctions.GetCommands = function(user, data)
	local s,e,prefix,cmd = string.find(data, "%b<>%s+(%p)(%S+)")
	if cmd and tCommands[cmd] then
		return tCommands[cmd](user, data) 
	end
end

tFunctions.SendCommands = function(user)
		if user.bUserCommand then
			user:SendData("$UserCommand 0 3")
			if tSettings[user.iProfile] == 1 then
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set tempban redirection on/off$<%[mynick]> !settempbanredirect %[line:on/off]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set tempban redirect address$<%[mynick]> !tempbanredirect %[line:New Address]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set ban redirection on/off$<%[mynick]> !setbanredirect %[line:on/off]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set ban redirect address$<%[mynick]> !banredirect %[line:on/off]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set redirection when hub full on/off$<%[mynick]> !setredirectfull %[line:on/off]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set redirection all new connections on/off$<%[mynick]> !setredirectall %[line:on/off]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Change Redirect address$<%[mynick]> !redirect %[line:New redirect addy]|") 
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Change max user limit$<%[mynick]> !setmaxusers %[line:Number 0-5000]|")

		end
	end
end

tCommands["settempbanredirect"] = function(user,data)
	local s,e,cmd,func = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if tSettings[user.iProfile] == 1 then
	if func== "on" then
		user:SendData(tSettings.BotName,"Temp ban redirection turned on")
		frmHub:SetTempBanRedirect(1)
	elseif func== "off" then
		user:SendData(tSettings.BotName,"Temp ban redirection turned off")
		frmHub:SetTempBanRedirect(0)
	elseif func== nil then
		user:SendData(tSettings.BotName, "Right command is  !settempbanredirect on/off !!!")
	end
else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["tempbanredirect"] = function(user, data)
	local s,e,cmd,addy = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if tSettings[user.iProfile] == 1 then
	if addy then
		user:SendData(tSettings.BotName,"Temp Ban Redirect address changed to: "..addy)
		frmHub:SetTempBanRedirAddr(addy)
	else
		user:SendData(tSettings.BotName, "Hub redirect address is: "..(frmHub:GetTempBanRedirAddr() or "Not Set"))
end
	else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["setbanredirect"] = function(user,data)
	local s,e,cmd,func = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if tSettings[user.iProfile] == 1 then
	if func== "on" then
		user:SendData(tSettings.BotName,"Ban redirection turned on")
		frmHub:SetBanRedirect(1)
	elseif func== "off" then
		user:SendData(tSettings.BotName,"Ban ban redirection turned off")
		frmHub:SetBanRedirect(0)
	elseif func== nil then
		user:SendData(tSettings.BotName, "Right command is  !setbanredirect on/off !!!")
	end
else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["banredirect"] = function(user, data)
	local s,e,cmd,addy = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if tSettings[user.iProfile] == 1 then
	if addy then
		user:SendData(tSettings.BotName,"Ban Redirect address changed to: "..addy)
		frmHub:SetBanRedirAddr(addy)
	else
		user:SendData(tSettings.BotName, "Hub redirect address is: "..(frmHub:GetBanRedirAddr() or "Not Set"))
end
	else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["setredirectfull"] = function(user,data)
	local s,e,cmd,func = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if tSettings[user.iProfile] == 1 then
	if func== "on" then
		user:SendData(tSettings.BotName,"Redirect when hub full turned on")
		frmHub:SetRedirectFull(1)
	elseif func== "off" then
		user:SendData(tSettings.BotName,"Redirect when hub full turned off")
		frmHub:SetRedirectFull(0)
	elseif func== nil then
		user:SendData(tSettings.BotName, "Right command is  !setredirectfull on/off !!!")
	end
else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["setredirectall"] = function(user,data)
	local s,e,cmd,func = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if tSettings[user.iProfile] == 1 then
	if func== "on" then
		user:SendData(tSettings.BotName,"Redirect all new users turned on")
		frmHub:SetRedirectAll(1)
	elseif func== "off" then
		user:SendData(tSettings.BotName,"Redirect all new users turned off")
		frmHub:SetRedirectAll(0)
	elseif func== nil then
		user:SendData(tSettings.BotName, "Right command is  !setredirectall on/off !!!")
	end
else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end


tCommands["redirect"] = function(user, data)
	local s,e,cmd,addy = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if tSettings[user.iProfile] == 1 then
	if addy then
		user:SendData(tSettings.BotName,"Redirect address changed to: "..addy)
		frmHub:SetRedirectAddress(addy)
	else
		user:SendData(tSettings.BotName, "Hub redirect address is: "..(frmHub:GetRedirectAddress() or "Not Set"))
end
	else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["setmaxusers"] = function(user, data)
	local s,e,cmd,users = string.find(data, "%b<>%s+(%S+)%s+(%d+)")
	if tSettings[user.iProfile] == 1 then
	if users then
		user:SendData(tSettings.BotName,"Max user limit changed to: "..users)
		frmHub:SetMaxUsers(users)
	else
		user:SendData(tSettings.BotName, "Right command is !setmaxusers  !!!")
end
	else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end
Powered By Leviathan™ 2nd Generation v. 1.9

6Marilyn6Manson6

#3
30 September, 2005, 15:37:10
Very nice work CYB very very good :)

Cêñoßy†ê

#4
30 September, 2005, 15:39:03
QuoteOriginally posted by 6Marilyn6Manson6
Very nice work CYB very very good :)

Thx ...ripped most from leviathan :P
Powered By Leviathan™ 2nd Generation v. 1.9

CaSaNoVa

#5
30 September, 2005, 15:52:23
Tkx for all :)

6Marilyn6Manson6

#6
30 September, 2005, 17:01:10
QuoteOriginally posted by Cy?e??o?
QuoteOriginally posted by 6Marilyn6Manson6
Very nice work CYB very very good :)

Thx ...ripped most from leviathan :P

Yes I know :P

6Marilyn6Manson6

#7
30 September, 2005, 17:01:54
QuoteOriginally posted by CaSaNoVa
Tkx for all :)
Welcome :)

CaSaNoVa

#8
01 October, 2005, 00:56:29
[00:54:03] You silly mortal... u can't make me obey you... with that profile!!!

And i'm master...

6Marilyn6Manson6

#9
01 October, 2005, 00:58:47
QuoteOriginally posted by CaSaNoVa
[00:54:03] You silly mortal... u can't make me obey you... with that profile!!!

And i'm master...

[0] = 1,				--Allow master use commands 1/yes 0/no

are you sure this is egual?

CaSaNoVa

#10
01 October, 2005, 13:20:49
It's just to 1.

6Marilyn6Manson6

#11
01 October, 2005, 14:29:48
Try this:

--//Script to set tempban/ban and normal redirect address
--// set redirects (tempban/ban/full/all) on/off
--// set max user limit
--// all has rightclick commands
--//Reguested by CaSaNoVa
--// Fixed small bugs with profile by 6Marilyn6Manson6

CanDo = {
[0] = 1,	-- Master
[1] = 0,	-- Operator
[4] = 1,	-- Moderator
[5] = 1		-- NetFounder
}

tCommands = {}
tPrefixes = {}
tFunctions = {}
tSettings = {
	["BotName"] = frmHub:GetHubBotName(),	--Takes main bots name
	["Rclick"] = "Redirector",		--Type rightclick menus name here	
}

Main = function ()
	for a,b in pairs(frmHub:GetPrefixes()) do tPrefixes[b] = 1 
	end
end

ToArrival = function(user, data)
	local data = string.sub(data, 1, (string.len(data)-1))
	local s,e,to,from,msg = string.find(data,"%$To:%s+(%S+)%s+From:%s+(%S+)%s+%$%b<>%s+(.+)")
	if to == tSettings.BotName then
	user.SendMessage = user.SendPM return tFunctions.GetCommands(user, data)
	end
end

ChatArrival = function(user, data)
	local data = string.sub(data, 1, (string.len(data)-1))
	user.SendMessage = user.SendData return tFunctions.GetCommands(user, data)
end

OpConnected = function(user)
 	tFunctions.SendCommands(user)
end

tFunctions.GetCommands = function(user, data)
	local s,e,prefix,cmd = string.find(data, "%b<>%s+(%p)(%S+)")
	if cmd and tCommands[cmd] then
		return tCommands[cmd](user, data) 
	end
end

tFunctions.SendCommands = function(user)
		if user.bUserCommand then
			user:SendData("$UserCommand 0 3")
			if CanDo[user.iProfile] == 1 then
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set tempban redirection on/off$<%[mynick]> !settempbanredirect %[line:on/off]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set tempban redirect address$<%[mynick]> !tempbanredirect %[line:New Address]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set ban redirection on/off$<%[mynick]> !setbanredirect %[line:on/off]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set ban redirect address$<%[mynick]> !banredirect %[line:on/off]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set redirection when hub full on/off$<%[mynick]> !setredirectfull %[line:on/off]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Set redirection all new connections on/off$<%[mynick]> !setredirectall %[line:on/off]|")
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Redirection\\Change Redirect address$<%[mynick]> !redirect %[line:New redirect addy]|") 
				user:SendData("$UserCommand 1 3 "..tSettings.Rclick.."\\Change max user limit$<%[mynick]> !setmaxusers %[line:Number 0-5000]|")

		end
	end
end

tCommands["settempbanredirect"] = function(user,data)
	local s,e,cmd,func = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if CanDo[user.iProfile] == 1 then
	if func== "on" then
		user:SendData(tSettings.BotName,"Temp ban redirection turned on")
		frmHub:SetTempBanRedirect(1)
	elseif func== "off" then
		user:SendData(tSettings.BotName,"Temp ban redirection turned off")
		frmHub:SetTempBanRedirect(0)
	elseif func== nil then
		user:SendData(tSettings.BotName, "Right command is  !settempbanredirect on/off !!!")
	end
else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["tempbanredirect"] = function(user, data)
	local s,e,cmd,addy = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if CanDo[user.iProfile] == 1 then
	if addy then
		user:SendData(tSettings.BotName,"Temp Ban Redirect address changed to: "..addy)
		frmHub:SetTempBanRedirAddr(addy)
	else
		user:SendData(tSettings.BotName, "Hub redirect address is: "..(frmHub:GetTempBanRedirAddr() or "Not Set"))
end
	else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["setbanredirect"] = function(user,data)
	local s,e,cmd,func = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if CanDo[user.iProfile] == 1 then
	if func== "on" then
		user:SendData(tSettings.BotName,"Ban redirection turned on")
		frmHub:SetBanRedirect(1)
	elseif func== "off" then
		user:SendData(tSettings.BotName,"Ban ban redirection turned off")
		frmHub:SetBanRedirect(0)
	elseif func== nil then
		user:SendData(tSettings.BotName, "Right command is  !setbanredirect on/off !!!")
	end
else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["banredirect"] = function(user, data)
	local s,e,cmd,addy = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if CanDo[user.iProfile] == 1 then
	if addy then
		user:SendData(tSettings.BotName,"Ban Redirect address changed to: "..addy)
		frmHub:SetBanRedirAddr(addy)
	else
		user:SendData(tSettings.BotName, "Hub redirect address is: "..(frmHub:GetBanRedirAddr() or "Not Set"))
end
	else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["setredirectfull"] = function(user,data)
	local s,e,cmd,func = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if CanDo[user.iProfile] == 1 then
	if func== "on" then
		user:SendData(tSettings.BotName,"Redirect when hub full turned on")
		frmHub:SetRedirectFull(1)
	elseif func== "off" then
		user:SendData(tSettings.BotName,"Redirect when hub full turned off")
		frmHub:SetRedirectFull(0)
	elseif func== nil then
		user:SendData(tSettings.BotName, "Right command is  !setredirectfull on/off !!!")
	end
else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["setredirectall"] = function(user,data)
	local s,e,cmd,func = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if CanDo[user.iProfile] == 1 then
	if func== "on" then
		user:SendData(tSettings.BotName,"Redirect all new users turned on")
		frmHub:SetRedirectAll(1)
	elseif func== "off" then
		user:SendData(tSettings.BotName,"Redirect all new users turned off")
		frmHub:SetRedirectAll(0)
	elseif func== nil then
		user:SendData(tSettings.BotName, "Right command is  !setredirectall on/off !!!")
	end
else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end


tCommands["redirect"] = function(user, data)
	local s,e,cmd,addy = string.find( data, "%b<>%s+(%S+)%s+(%S+)" )
	if CanDo[user.iProfile] == 1 then
	if addy then
		user:SendData(tSettings.BotName,"Redirect address changed to: "..addy)
		frmHub:SetRedirectAddress(addy)
	else
		user:SendData(tSettings.BotName, "Hub redirect address is: "..(frmHub:GetRedirectAddress() or "Not Set"))
end
	else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

tCommands["setmaxusers"] = function(user, data)
	local s,e,cmd,users = string.find(data, "%b<>%s+(%S+)%s+(%d+)")
	if CanDo[user.iProfile] == 1 then
	if users then
		user:SendData(tSettings.BotName,"Max user limit changed to: "..users)
		frmHub:SetMaxUsers(users)
	else
		user:SendData(tSettings.BotName, "Right command is !setmaxusers  !!!")
end
	else
		user:SendData(tSettings.BotName, "You silly mortal... u can't make me obey you... with that profile!!!")
	end
	return 1
end

post problem or bug... c ya
Print
Go Up Pages1
User actions
SMF spam blocked by CleanTalk