Text only | Text with Images

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: Madman on 07 September, 2004, 00:19:54

Title: zRightClicker mod
Post by: Madman on 07 September, 2004, 00:19:54
This is from zRghtClicker the orginal...
It Is who to send the menu to....
Code Select
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
Code Select
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
Code Select
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
Code Select
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..
Code Select
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.... =)
Title:
Post by: bastya_elvtars on 07 September, 2004, 00:23:59
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.
Title:
Post by: Madman on 07 September, 2004, 07:50:09
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 (http://destruction.myftp.org/filer/dc/zRightClicker3.lua)
Title:
Post by: bastya_elvtars on 07 September, 2004, 08:57:36
Showing you some ectracts from my really n00b code:
Code Select
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

Code Select
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
Title:
Post by: Millsy on 07 September, 2004, 18:48:36
hi this is the mod i use

Code Select
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
Title:
Post by: Madman on 08 September, 2004, 01:22:27
Actually no.. This still dont explain why users dont get a menu... But thanx anyway...
Title:
Post by: Madman on 10 September, 2004, 07:19:44
I allready have... but sure..
here it is

http://destruction.myftp.org/filer/DC/zRightClicker3.lua
Text only | Text with Images