Login And Register Message

[Davey]

Hi peepz,

I have made a Login and Register Message.
But if I add the function rightclick commands then I don't see it... only if I remove the OpUserconnected = NewUserConnected
Here is the code, maybe somebody can help me :-)

-- Login and Register Message Made by [NL]Davey
-- Updated :: Register Message 1.0 to 1.2
-- Fixed :: Litle Bug
-- Added :: On/Off
-- Added :: LoGiN MeSsaGe showed
-- Added :: Login Only
-- Added :: !registermsg <<-- to do on/off
-- Changed :: Register Message
-- Changed :: Restarting Script, script doesn't show only if RegMsgOnOff = On
-- Removed :: Logout MessaGe

-----------------------------Configauration------------------------------------------------------------------------------------------------------------------

botname = "•MeSsaGe•" -- Bot's name...
htimer = 1 -- Hours between sendings...
RegMsgOnOff = "off" -- Put this to "on" if its gona send on scriprestart & continue....


local msg = "\r\n\r\n"
msg = msg.."	 ¨˜”°º• ¨˜”°º•¨˜”°º• ¨˜”°º•¨˜”°º• ¨˜”°º•¨˜”°º• ¨˜”°º•¨˜”°º••º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨\r\n"
msg = msg.."\r\n"
msg = msg.."	• Privat€ Pµß™, G i a n t s™:\t\tReG YouR FrienDs In This Great HuB\r\n"
msg = msg.."	• Step 1:\t\t\t Reg your Friends with !addreguser [GB]Giants][ or [TB]Giants][ password OP\r\n"
msg = msg.."	• Step 2:\t\t\t If you have registered him then you give him the login information\r\n"
msg = msg.."	• Step 3:\t\t\t Your friend connect to the hub, and will also reg other peepz in here\r\n"
msg = msg.."	• Step 4:\t\t\t Then nothing. Just Have Fun, and be nice\r\n"
msg = msg.."	• SponS€R€Ð By:\t\t\t •Giants Privat€ Pµß™, G i a n t s™ CreW\r\n"	
msg = msg.."	¨˜”°º• ¨˜”°º•¨˜”°º• ¨˜”°º•¨˜”°º• ¨˜”°º•¨˜”°º• ¨˜”°º•¨˜”°º••º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨\r\n"
msg = msg.."\r\n"
msg = msg.."\t\t• Online Users: "..(frmHub:GetUsersCount() or 0).."\r\n"
msg = msg.."\t\t• Peak: "..(frmHub:GetActualUsersPeak() or 0).." and All Time Peak: "..(frmHub:GetMaxUsersPeak() or 0).."\r\n"
msg = msg.."\t\t• Script Info:\t\t   Register Message MaDe by [NL]Davey\t\r\n"
msg = msg.."\r\n"
msg = msg.."	 ¨˜”°º• ¨˜”°º•¨˜”°º• ¨˜”°º•¨˜”°º• ¨˜”°º•¨˜”°º• ¨˜”°º•¨˜”°º••º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨•º°”˜¨\r\n"

--------------------------------------------------------------------------------------------------------------------------------------------------------------
function Main()
        SetTimer(htimer*60*60*1000)
        StartTimer()
	frmHub:RegBot(botname)
        SendToAll("\t\t¨˜”°º•¨˜”°º• Welcome To "..frmHub:GetHubName().." •º°”˜¨•º°”˜¨\t\t\t is kicking because:")
        SendToAll("¨˜”°º•¨˜”°º• ....Loading Script... •º°”˜¨•º°”˜¨")
        SendToAll("¨˜”°º•¨˜”°º• Starting Register MessaGe •º°”˜¨•º°”˜¨")
        SendToAll("¨˜”°º•¨˜”°º• This Script is been maded by [NL]Davey •º°”˜¨•º°”˜¨")
		if RegMsgOnOff == "on" then
			SendToAll(botname,msg)
		end
	end

function OnTimer()
	if RegMsgOnOff == "on" then
		SendToAll(botname,msg)
	end
end

function ChatArrival(user,data)
	if string.find(data,"(!registermsg)") then
		if user.bOperator == 1 then
			if RegMsgOnOff == "off" then
				RegMsgOnOff = "on"
				SendToAll(botname,msg)
				SendPmToOps(RC_Name,"Register message has been turned on by "..user.sName)
			else
				RegMsgOnOff = "off"
				SendPmToOps(RC_Name,"Register message has been turned off by "..user.sName)
			end
			return 1
		end
	end
end


function NewUserConnected(user) 
SendToAll(MyInfoString)
      SendToAll("•••< "..user.sName.." connected to "..frmHub:GetHubName().." at "..os.date("%H:%M:%S").." o'clock. >•••\t\t\t\t\t\t\t\t\t\t\is kicking because:")
      user:SendData("•••< You connected to "..frmHub:GetHubName().." at "..os.date("%H:%M:%S").." o'clock. Welcome!>•••\t\t\t\t\t\t\t\t\t\t\is kicking because:")
         user:SendData("•••< This Hubs Is RunninG Message 1.2 ßy [NL]Davey >•••")
if user.iProfile == 6 then -- Owner
      SendToAll(botname, "¨˜”°º•¨˜”°º•Owner "..user.sName.." arrived.•º°”˜¨•º°”˜¨")
      user:SendData( "¨˜”°º•¨˜”°º•You are the best ! Owner "..user.sName.." •º°”˜¨•º°”˜¨")
elseif user.iProfile == 0 then -- Master
      SendToAll(botname, "¨˜”°º•¨˜”°º•Master "..user.sName.." is back in da hub. Wacht Out ! •º°”˜¨•º°”˜¨")
      user:SendData("¨˜”°º•¨˜”°º•Long time not see you. "..user.sName.." •º°”˜¨•º°”˜¨")
elseif user.iProfile == 5 then -- Netfounder
      SendToAll(botname, "¨˜”°º•¨˜”°º•Netfounder "..user.sName.." arrived with his ladies. Welcome Back •º°”˜¨•º°”˜¨")
      user:SendData("¨˜”°º•¨˜”°º•Welcome back m8!. •º°”˜¨•º°”˜¨")
elseif user.iProfile == 1 then -- Operator
      SendToAll(botname, "¨˜”°º•¨˜”°º•Operator "..user.sName.." arrived. Check your shared files before he/she do it.•º°”˜¨•º°”˜¨ ")
      user:SendData("¨˜”°º•¨˜”°º•Don't forget to check users shared files. •º°”˜¨•º°”˜¨")
elseif user.iProfile == 4 then -- Moderator
      SendToAll(botname, "¨˜”°º•¨˜”°º•Moderator "..user.sName.." arrived in his car. Welcome back•º°”˜¨•º°”˜¨ ")
      user:SendData("¨˜”°º•¨˜”°º•Welcome back m8!. •º°”˜¨•º°”˜¨")
elseif user.iProfile == 2 then -- VIP
      SendToAll(botname, "¨˜”°º•¨˜”°º•VIP "..user.sName.." is coming back for sharing new files!•º°”˜¨•º°”˜¨ ")
      user:SendData("¨˜”°º•¨˜”°º•Hiya, Welcome back "..user.sName.." •º°”˜¨•º°”˜¨")
elseif user.iProfile == 3 then -- Reg
      SendToAll(botname, "¨˜”°º•¨˜”°º•Regged Person "..user.sName.." arrived.•º°”˜¨•º°”˜¨")
      user:SendData("¨˜”°º•¨˜”°º•Ask OP for VIP Status "..user.sName.." •º°”˜¨•º°”˜¨")
end 
end

OpConnected = NewUserConnected

This is the right click command that I have try to use ...

SendCommands = function(user)
	if user.bUserCommand then
		user:SendData("$UserCommand 0 3 |")
		user:SendData(botname,"Right click commands enabled for you. It is been sended to your client!")
		user:SendData("$UserCommand 1 3 "..RC_Name.."\\• Hello "..user.sName.."$<%[mynick]>&#124;|")
		user:SendData("$UserCommand 1 3 "..RC_Name.."\\• Here are the avaible commands for you$<%[mynick]> !help&#124;|")
        user:SendData("$UserCommand 1 3 "..RC_Name.."\\• Register Message On$<%[mynick]> !registermsg &#124;|")
        user:SendData("$UserCommand 1 3 "..RC_Name.."\\• Register Message Off$<%[mynick]> !registermsg &#124;|")
	end
end

function OpConnected(user)
	SendCommands(user)
end

[Davey]

Hi Mutor,

Thnx 4 your  help the scripts works now with the right click command.

You have help me alot :-)