zRightClicker mod

[Madman]

This is from zRghtClicker the orginal...
It Is who to send the menu to....

function OpConnected(user)
	if (SendTo[user.iProfile]==1) then
		GetRightClickComs(user)
		customCMDs(user)
		user:SendData("<-=Destruction=-> Enhanced Right Click Support for [RoboCop] is available!")
	end
end

This Is My Mod

function OpConnected(user)
	if table[user.sName] then
		if (SendTo[user.iProfile]==1) then
			GetOpRightClickComs(user)
			--customCMDs(user)
			if (user.iProfile == 0) then
				GetMasterRightClickComs(user)
		user:SendData("<-=Destruction=-> Enhanced Right Click Support For Your Own Good Is Available!")
				if Madman[user.sName] then
					GetMadmanRightClickComs(user)
				elseif Sunnis[user.sName] then
					GetSunnisRightClickComs(user)
				elseif Didde[user.sName] then
					GetDiddeRightClickComs(user)
				end
			end
		end
	end
end

Now I want To Add that User Should get a menu ass well
So i Add this

function NewUserConnected(user)
	if (SendTo[user.iProfile]==1) then
		GetNewUserRightClickComs(user)
		--customCMDs(user)
		user:SendData("<-=Destruction=-> Enhanced Right Click Support For Your Own Good Is Available!")
	end
end

But The User Dont get the menu....
But if i make a copy of the orginal and change

function OpConnected(user)
	if (SendTo[user.iProfile]==1) then
		GetRightClickComs(user)
		customCMDs(user)
		user:SendData("<-=Destruction=-> Enhanced Right Click Support for [RoboCop] is available!")
	end
end

To..

function NewUserConnected(user)
	if (SendTo[user.iProfile]==1) then
		GetRightClickComs(user)
		customCMDs(user)
		user:SendData("<-=Destruction=-> Enhanced Right Click Support for [RoboCop] is available!")
	end
end

The user get the menu.. But then i need to run two zrightclicker.. one 4 ops and one for user...

It this is not good enough i can post a link to my mod.... =)

[bastya_elvtars]

HI!

I wrote a rightclicker in my early age of scripting. It is customisable by users, no lua knowledge needed. On request i will post it here, it is for artificial insanety, but: i said its fairly customisable.

[Madman]

Yes, that is what i did Added the second function NewUserConnected... And Made a own menu for users, just beacuse i want to able to customize it really eazy....

But The users dont get the menu.. that's the weird part.. beacuse, me, sunnis and didde, also got own menus... and we get them, but the users dont get theres.....

The menues is build like this...
Op  gets a op menu
If User is master
he gets The op menu and a master menu..
and if user is named and got profile madman, sunnis or didde...He will get the madman, sunnis or didde menu also... So i get 3 menus OP + Master + Madman...

And beacuse of the first table, the user has to be in that table, to even get a menu

So I thought it would be just to add a user menu, and the function NewUserConnected and The function for sending/sorting the menu...

And i have users On in the SendTo menu, so i dont se any reason why, they dont get the menu...

zRightClicker3

[bastya_elvtars]

Showing you some ectracts from my really n00b code:

usercmds={[""]="", -- user/reg/vip commands start here
	["3 Rules\\Rules"]="!rules", -- usage: [" ]="  "
							-- or [" ]="  "
							 -- parameters can be endless and are defined by the command
							-- see the notes for more info
	["3 Rules\\HUB info + rules on hub/slot/limiter"]="!hubinfo",
	["3 Help\\Help"]="!help",
	["3 Help\\FAQ"]="!faq",
	["3 Help\\Show Your IP"]="!myip",
	["3 Help\\HUB Lists"]="!hublist",
	["3 Help\\Show date and time"]="!date",
	["3 Help\\DC++ info"]="!dcppinfo",
	["3 Help\\User last seen online..."]="!seen %[line:Enter nick]",
	["3 HUB info\\Info on network"]="!network",
	["3 HUB info\\Show hub's website"]="!website",
	["3 HUB info\\Show hub name"]="!showhubname",
	["3 HUB info\\Show hub's description"]="!showhubdesc",
	["3 HUB info\\Show all users' free slots"]="!freeslots",
	["3 HUB info\\Show the HUB Founder"]="!founder",
	["3 HUB info\\Show the HUB Owner"]="!owner",
	["3 HUB info\\About The BOT"]="!ver",
	["3 HUB info\\Show HUB Uptime"]="!uptime",
	["3 HUB info\\Show HUB Stats"]="!stats",
	["3 Rules\\Show minshare"]="!share",
	["3 Rules\\Show min. limit allowed"]="!limiter",
	["3 Rules\\Show min/max slots"]="!slots",
	["3 Rules\\Show max hubs allowed"]="!maxhubs",
	["3 Guestbook\\Add an entry..."]="!addguestbook %[line:Write entry here:]",
	["3 Guestbook\\Read guestbook"]="!showguestbook",
	["3 Show Users\\Show REG users"]="!showusers",
	["3 Show Users\\Show VIPs"]="!showvips",
	["3 Show Users\\Show OPs"]="!showops",
	["3 Show Users\\Show SUPEROPs"]="!showsuperops",
	["3 Kick/Ban Stats\\Show kickstats"]="!showkicks",
	["3 Kick/Ban Stats\\Show banstats"]="!showbans",
	["3 Away\\Away from keyboard (afk)..."]="!afk %[line:Enter a reason:]",
	["3 Away\\Back to keyboard"]="!back",
	["3 Away\\Show user's away message"]="!showaway %[nick]",
	["3 Away\\Show all users' away messages"]="!showaway",
	["3 Chat\\Show last 50 lines of main"]="!wassup",
	["3 Chat\\Text in 3rd person (emote)..."]="!me %[line:Text:]",
	["3 Releases\\Show all releases"]="!releases",
	["3 Releases\\Show new releases"]="!releases new",
	["3 Releases\\Show releases by type"]="!releases %[line:Type (movie, music, warez, game):]",
	["3 News\\Read news"]="!news",
	["3 News\\Add news"]="!addnews",
	["3 Requests\\Read requests"]="!requests",
	["3 Requests\\Add a request"]="!addrequest %[line:Request:]",
	["3 Offline Messaging\\Post to offline user..."]="!postmsg %[line:Nick:] %[line:Message:]",
	["3 Offline Messaging\\Show inbox state"]="!readmsg",
	["3 Offline Messaging\\Delete a message..."]="!delmsg %[line:Enter number of message:]"
} -- end of user/reg/vip commands

function NewUserConnected(user) 
	sendSeparator(user)
	user:SendData("$UserCommand 1 3 *** "..frmHub:GetHubName().." (PtokaX)***$<%[mynick]> !rules|")
	user:SendData("$UserCommand 1 3 "..headertext.."$<%[mynick]> !help|")
	sendSeparator(user)
		for a,b in usercmds do
			user:SendData( "$UserCommand 1 "..a.."$<%[mynick]> "..b.."|" ) 
		end
end

function sendSeparator(nick)
	nick:SendData("$UserCommand 255 7")
	nick:SendData"$UserCommand 0 3"
end

[Millsy]

hi this is the mod i use

function OpConnected(user)
	if (SendTo[user.iProfile]==1) then
	user:SendData("$UserCommand 255 |") 			-- Clear Old CMDs On Reconnect
	user:SendData("$UserCommand 0 3 |") 				-- Separator
		GetRightClickComs(user)
		customCMDs(user)
		user:SendData(" Enhanced Right Click Menu In User List.")
end
	if (user.iProfile == 0) and (SendTo[user.iProfile]==1) then
		masterCMDs(user)
	end
	if (user.iProfile == 1) and (SendTo[user.iProfile]==1) then
		opCMDs(user)
	end
	if (user.iProfile == 2) and (SendTo[user.iProfile]==1) then
		vipCMDs(user)
	end
	if (user.iProfile == 4) and (SendTo[user.iProfile]==1) then
		modCMDs(user)
	end
	if (user.iProfile == 5) and (SendTo[user.iProfile]==1) then
		netCMDs(user)
	end
end

function NewUserConnected(user)
	if (SendTo[user.iProfile]==1) then
	user:SendData("$UserCommand 255 |") 			-- Clear Old CMDs On Reconnect
	user:SendData("$UserCommand 0 3 |") 				-- Separator
		GetRightClickComs(user)
		customCMDs(user)
		user:SendData(" Enhanced Right Click Menu In User List.")
	end
	if (user.iProfile == 3) and (SendTo[user.iProfile]==1) then
		regCMDs(user)
	end
	if (user.iProfile == -1) and (SendTo[user.iProfile]==1) then
		unregCMDs(user)
	end
end

function GetRightClickComs(user) 
	TCopy={}
	for cmd,_ in LevelCheck do
	if LevelCheck[cmd][user.iProfile] == 1 then
	for value,command in RightClick do
	if cmd == value then
	tinsert(TCopy,{value,command})
	end end end end

	sort(TCopy,function(a,b) return (a[1] < b[1]) end)
	for t = 1, getn(TCopy) do
	if TCopy[t] then user:SendData(TCopy[t][2])
	end end TCopy={} collectgarbage() flush()
end

-----------------------------------------------
	-- Custom CMDs
-----------------------------------------------
function customCMDs(user)													-- All Users Will See These
	user:SendData("$UserCommand 255 |") 												-- Clear Old CMDs On Reconnect
	user:SendData("$UserCommand 1 3 Movie Pirates\\The Birthday List$<%[mynick]> +birthdays ||")						-- Birthday List
	user:SendData("$UserCommand 1 3 Movie Pirates\\DC++ With A Firewall$<%[mynick]> +active ||")						-- DC++ With A Firewall
	user:SendData("$UserCommand 1 3 Movie Pirates\\Other Hub Lists$<%[mynick]> +hublist ||")							-- Other Hub Lists
end

function masterCMDs(user)													-- Masters Will See These
	user:SendData("$UserCommand 255 |") 												-- Clear Old CMDs On Reconnect
	user:SendData("$UserCommand 1 3 Masters\\Master Help$<%[mynick]> +mhelp ||")								-- Master Help
	user:SendData("$UserCommand 1 3 Masters\\Del Birthday From The List$<%[mynick]> +delbirthday %[line:Nick Of Birthday To Delete]||")		-- Delete Birthday
	user:SendData("$UserCommand 0 3 |") 													-- Separator
	user:SendData("$UserCommand 1 3 Masters\\Hub Ad Massage$$To: Hub-Security From: %[mynick] $<%[mynick]> +ad||")			-- Hub Ad Massage
	user:SendData("$UserCommand 1 3 Masters\\Hub Disclaimer$$To: Hub-Security From: %[mynick] $<%[mynick]> +disc||")			-- Hub Disclaimer
	user:SendData("$UserCommand 1 3 Masters\\Type /fav To Add This Hub...$$To: Hub-Security From: %[mynick] $<%[mynick]> +fav||")		-- Type /fav To Add This Hub...
end
function opCMDs(user)													-- Operatorss Will See These
	user:SendData("$UserCommand 255 |") 												-- Clear Old CMDs On Reconnect
	--user:SendData("$UserCommand 1 3 Test$<%[mynick]> +test ||")									-- Test
end
function vipCMDs(user)													-- Vips Will See These
	user:SendData("$UserCommand 255 |") 												-- Clear Old CMDs On Reconnect
	--user:SendData("$UserCommand 1 3 Test$<%[mynick]> +test ||")									-- Test
end
function regCMDs(user)													-- Reg Will See These
	user:SendData("$UserCommand 255 |") 												-- Clear Old CMDs On Reconnect
	--user:SendData("$UserCommand 1 3 Test$<%[mynick]> +test ||")									-- Test
end
function unregCMDs(user)													-- UnReg Will See These
	user:SendData("$UserCommand 255 |") 												-- Clear Old CMDs On Reconnect
	--user:SendData("$UserCommand 1 3 Test$<%[mynick]> +test ||")									-- Test
end
function modCMDs(user)													-- Moderators Will See These
	user:SendData("$UserCommand 255 |") 												-- Clear Old CMDs On Reconnect
	--user:SendData("$UserCommand 1 3 Test$<%[mynick]> +test ||")									-- Test
end
function netCMDs(user)													-- NetFounders Will See These
	user:SendData("$UserCommand 255 |") 												-- Clear Old CMDs On Reconnect
	user:SendData("$UserCommand 1 3 Masters\\Master Help$<%[mynick]> +mhelp ||")								-- Master Help
	user:SendData("$UserCommand 1 3 Masters\\Del Birthday From The List$<%[mynick]> +delbirthday %[line:Nick Of Birthday To Delete]||")		-- Delete Birthday
	user:SendData("$UserCommand 0 3 |") 													-- Separator
	user:SendData("$UserCommand 1 3 Masters\\Hub Ad Massage$$To: Hub-Security From: %[mynick] $<%[mynick]> +ad||")			-- Hub Ad Massage
	user:SendData("$UserCommand 1 3 Masters\\Hub Disclaimer$$To: Hub-Security From: %[mynick] $<%[mynick]> +disc||")			-- Hub Disclaimer
	user:SendData("$UserCommand 1 3 Masters\\Type /fav To Add This Hub...$$To: Hub-Security From: %[mynick] $<%[mynick]> +fav||")		-- Type /fav To Add This Hub...
end

hope it helps

Later,
Millsy

[Madman]

Actually no.. This still dont explain why users dont get a menu... But thanx anyway...

[Madman]

I allready have... but sure..
here it is

http://destruction.myftp.org/filer/DC/zRightClicker3.lua