egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

[SOLVED] Restrictions To See help manu

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help
View previous topic :: View next topic  
Author Message
illusionist
Voice


Joined: 09 Mar 2020
Posts: 25

PostPosted: Tue Jul 14, 2020 8:28 am    Post subject: [SOLVED] Restrictions To See help manu Reply with quote

Hello everyone one i have a short help menu script i want to add some restrictions to see help menu..
Owner commands for n flag user only
Master commands for m flag user only..
Etc
Here is the code
Code:
set jCrX "~"
#★★★★★#
#    HeLp    #
#★★★★★#

#BinDs
bind pub o|o ${jCrX}cmdhelp pub_cmdhelp
bind msg o|o cmdhelp msg_cmdhelp
#End

#Help Process#
proc msg_cmdhelp {nick host hand text} {
global botnick
set htext [lindex $text 0]
if {$htext == "partyline"} {
puthelp "NOTICE $nick :reload, save, backup, chandle +ignore, -ignore, ignorelist, +user, -user, +host, -host, chattr, info, userinfo, userlist, chanlist"
} esleif {$htext == "owner"} {
puthelp "NOTICE $nick :\00302~join, part, cycle, mop, mdeop, v*, dv*, mkick, ${jCrX}+gban, -gban, lock, unlock, mode, up, down, op, deop, voice, devoice, kick, +ban, -ban, bans, rb, invite"
} elseif {$htext == "master"} {
puthelp "NOTICE $nick :\00302~mop, mdeop, v*, dv*, +gban, -gban, lock, unlock, mode, up, down, op, deop, voice, devoice, kick, +ban, -ban, bans, rb, invite"
} elseif {$htext == "op"} {
puthelp "NOTICE $nick :\00302~lock, unlock, mode, up, down, op, deop, voice, devoice, kick, +ban, -ban, bans, rb, invite"
} else {
puthelp "NOTICE $nick :\00307\037***\017\00304\u2620\017 \[\00303\002\u275d\00302\u2c7c\u2090\u0064\u1d64\u0067\u2090\u1d63\u2099\u1d62\00304\037\u262a\037\00302\u1d63\u2091\u2090\u209c\u1d62\u2134\u2099\00303\u275e\017\] \00304\u2620\017\00307\037***"
puthelp "NOTICE $nick :\[\002\00303\u275d\00302\u2c7c\00304\037\u262a\00303\037\u275e\017\] \00302/msg $botnick cmdhelp \002<owner/master/op>"
  }
}

proc pub_cmdhelp {nick host hand chan text} {
global jCrX botnick
set htext [lindex $text 0]
if {$htext == "partyline"} {
puthelp "NOTICE $nick :\00302${jCrX}reload, ${jCrX}save, ${jCrX}backup, ${jCrX}chandle +ignore, ${jCrX}-ignore, ${jCrX}ignorelist, ${jCrX}+user, ${jCrX}-user, ${jCrX}+host, ${jCrX}-host, ${jCrX}chattr, ${jCrX}info, ${jCrX}userinfo, ${jCrX}userlist, ${jCrX}chanlist"
} elseif {$htext == "owner"} {
puthelp "NOTICE $nick :\00302${jCrX}join, ${jCrX}part, ${jCrX}cycle, ${jCrX}mop, ${jCrX}mdeop, ${jCrX}v*, ${jCrX}dv*, ${jCrX}mkick, ${jCrX}+gban, ${jCrX}-gban, ${jCrX}lock, ${jCrX}unlock, ${jCrX}mode, ${jCrX}up, ${jCrX}down, ${jCrX}op, ${jCrX}deop, ${jCrX}voice, ${jCrX}devoice, ${jCrX}kick, ${jCrX}+ban, ${jCrX}-ban, ${jCrX}bans, ${jCrX}rb, ${jCrX}invite"
} elseif {$htext == "master"} {
puthelp "NOTICE $nick :\00302${jCrX}mop, ${jCrX}mdeop, ${jCrX}v*, ${jCrX}dv*, ${jCrX}+gban, ${jCrX}-gban, ${jCrX}lock, ${jCrX}unlock, ${jCrX}mode, ${jCrX}up, ${jCrX}down, ${jCrX}op, ${jCrX}deop, ${jCrX}voice, ${jCrX}devoice, ${jCrX}kick, ${jCrX}+ban, ${jCrX}-ban, ${jCrX}bans, ${jCrX}rb, ${jCrX}invite"
} elseif {$htext == "op"} {
puthelp "NOTICE $nick :\00302${jCrX}lock, ${jCrX}unlock, ${jCrX}mode, ${jCrX}up, ${jCrX}down, ${jCrX}op, ${jCrX}deop, ${jCrX}voice, ${jCrX}devoice, ${jCrX}kick, ${jCrX}+ban, ${jCrX}-ban, ${jCrX}bans, ${jCrX}rb, ${jCrX}invite"
} else {
puthelp "NOTICE $nick :\00307\037***\017\00304\u2620\017 \[\00303\002\u275d\00302\u2c7c\u2090\u0064\u1d64\u0067\u2090\u1d63\u2099\u1d62\00304\037\u262a\037\00302\u1d63\u2091\u2090\u209c\u1d62\u2134\u2099\00303\u275e\017\] \00304\u2620\017\00307\037***"
puthelp "NOTICE $nick :\[\002\00303\u275d\00302\u2c7c\00304\037\u262a\00303\037\u275e\017\] \00302/msg $botnick cmdhelp \002<owner/master/op>"
  }
}
##########End Help###########
   putlog "***Commands & Control, Channel Control. Loaded."

# End of - Commands & Control, Channel Control. (cmd_chan.tcl)

Really appreciated if someone help me in this regard. Thanks


Last edited by illusionist on Wed Jul 15, 2020 10:37 pm; edited 1 time in total
Back to top
View user's profile Send private message
CrazyCat
Revered One


Joined: 13 Jan 2002
Posts: 1032
Location: France

PostPosted: Tue Jul 14, 2020 3:04 pm    Post subject: Reply with quote

Peharps you can try to find by yourself...

Here is a short way to do what you want, I let you try to understand the modifications.
Code:
set jCrX "~"
#★★★★★#
#    HeLp    #
#★★★★★#

#BinDs
bind pub o|o ${jCrX}cmdhelp pub_cmdhelp
bind msg o|o cmdhelp msg_cmdhelp
#End

#Help Process#
proc msg_cmdhelp {nick host hand text} {
   set htext [lindex $text 0]
   if {$htext == "partyline" && [matchattr $hand +p]} {
      puthelp "NOTICE $nick :reload, save, backup, chandle +ignore, -ignore, ignorelist, +user, -user, +host, -host, chattr, info, userinfo, userlist, chanlist"
   } elseif {$htext == "owner" && [matchattr $hand +n]} {
      puthelp "NOTICE $nick :\00302~join, part, cycle, mop, mdeop, v*, dv*, mkick, ${jCrX}+gban, -gban, lock, unlock, mode, up, down, op, deop, voice, devoice, kick, +ban, -ban, bans, rb, invite"
   } elseif {$htext == "master" && [matchattr $hand +mn]} {
      puthelp "NOTICE $nick :\00302~mop, mdeop, v*, dv*, +gban, -gban, lock, unlock, mode, up, down, op, deop, voice, devoice, kick, +ban, -ban, bans, rb, invite"
   } elseif {$htext == "op" && [matchattr $hand +mno]} {
      puthelp "NOTICE $nick :\00302~lock, unlock, mode, up, down, op, deop, voice, devoice, kick, +ban, -ban, bans, rb, invite"
   } else {
      puthelp "NOTICE $nick :\00307\037***\017\00304\u2620\017 \[\00303\002\u275d\00302\u2c7c\u2090\u0064\u1d64\u0067\u2090\u1d63\u2099\u1d62\00304\037\u262a\037\00302\u1d63\u2091\u2090\u209c\u1d62\u2134\u2099\00303\u275e\017\] \00304\u2620\017\00307\037***"
      puthelp "NOTICE $nick :\[\002\00303\u275d\00302\u2c7c\00304\037\u262a\00303\037\u275e\017\] \00302/msg $::botnick cmdhelp \002<owner/master/op>"
   }
}

proc pub_cmdhelp {nick host hand chan text} {
   set htext [lindex $text 0]
   if {$htext == "partyline" && [matchattr $hand +p]} {
      puthelp "NOTICE $nick :\00302${jCrX}reload, ${jCrX}save, ${jCrX}backup, ${jCrX}chandle +ignore, ${jCrX}-ignore, ${jCrX}ignorelist, ${jCrX}+user, ${jCrX}-user, ${jCrX}+host, ${jCrX}-host, ${jCrX}chattr, ${jCrX}info, ${jCrX}userinfo, ${jCrX}userlist, ${jCrX}chanlist"
   } elseif {$htext == "owner" && [matchattr $hand +n]} {
      puthelp "NOTICE $nick :\00302${jCrX}join, ${jCrX}part, ${jCrX}cycle, ${jCrX}mop, ${jCrX}mdeop, ${jCrX}v*, ${jCrX}dv*, ${jCrX}mkick, ${jCrX}+gban, ${jCrX}-gban, ${jCrX}lock, ${jCrX}unlock, ${jCrX}mode, ${jCrX}up, ${jCrX}down, ${jCrX}op, ${jCrX}deop, ${jCrX}voice, ${jCrX}devoice, ${jCrX}kick, ${jCrX}+ban, ${jCrX}-ban, ${jCrX}bans, ${jCrX}rb, ${jCrX}invite"
   } elseif {$htext == "master" && [matchattr $hand +mn]} {
      puthelp "NOTICE $nick :\00302${jCrX}mop, ${jCrX}mdeop, ${jCrX}v*, ${jCrX}dv*, ${jCrX}+gban, ${jCrX}-gban, ${jCrX}lock, ${jCrX}unlock, ${jCrX}mode, ${jCrX}up, ${jCrX}down, ${jCrX}op, ${jCrX}deop, ${jCrX}voice, ${jCrX}devoice, ${jCrX}kick, ${jCrX}+ban, ${jCrX}-ban, ${jCrX}bans, ${jCrX}rb, ${jCrX}invite"
   } elseif {$htext == "op" && [matchattr $hand +mno]} {
      puthelp "NOTICE $nick :\00302${jCrX}lock, ${jCrX}unlock, ${jCrX}mode, ${jCrX}up, ${jCrX}down, ${jCrX}op, ${jCrX}deop, ${jCrX}voice, ${jCrX}devoice, ${jCrX}kick, ${jCrX}+ban, ${jCrX}-ban, ${jCrX}bans, ${jCrX}rb, ${jCrX}invite"
   } else {
      puthelp "NOTICE $nick :\00307\037***\017\00304\u2620\017 \[\00303\002\u275d\00302\u2c7c\u2090\u0064\u1d64\u0067\u2090\u1d63\u2099\u1d62\00304\037\u262a\037\00302\u1d63\u2091\u2090\u209c\u1d62\u2134\u2099\00303\u275e\017\] \00304\u2620\017\00307\037***"
      puthelp "NOTICE $nick :\[\002\00303\u275d\00302\u2c7c\00304\037\u262a\00303\037\u275e\017\] \00302/msg $::botnick cmdhelp \002<owner/master/op>"
   }
}
##########End Help###########
   putlog "***Commands & Control, Channel Control. Loaded."

# End of - Commands & Control, Channel Control. (cmd_chan.tcl)

Tip: matchattr is the key
_________________
https://www.eggdrop.fr - French IRC network
Offer me a coffee - Do not ask me help in PM, we are a community.
Back to top
View user's profile Send private message Visit poster's website
illusionist
Voice


Joined: 09 Mar 2020
Posts: 25

PostPosted: Wed Jul 15, 2020 10:36 pm    Post subject: Reply with quote

ThanKs Dear CraZyCat You have provided better guidance۔۔ with lil change its working fine Thanks
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber