Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- proc grabNames {chan} {
- set tmp NAMES
- append tmp { } $chan
- return putserv $tmp
- }
- proc isOP {chan nick} {
- set lnames grabNames{$chan}; #grab our names to search through
- set search *[@&~]; #start of the search string
- append search $nick *; #finish the search string: "*@nickname*"
- if {string match $search $lnames} {
- putserv NOTICE $nick test
- }
- }
- #Format:
- #NAMES #spiritclan
- #:irc.toribash.com 353 voxb @ #spiritclan :voxb @Vox isxiz
- #:irc.toribash.com 366 voxb #spiritclan :End of /NAMES list.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement