Advertisement
Guest User

Untitled

a guest
Jul 28th, 2017
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.56 KB | None | 0 0
  1. proc grabNames {chan} {
  2.     set tmp NAMES
  3.     append tmp { } $chan
  4.     return putserv $tmp
  5. }
  6.  
  7. proc isOP {chan nick} {
  8.     set lnames grabNames{$chan};            #grab our names to search through
  9.     set search *[@&~];                      #start of the search string
  10.     append search $nick *;                  #finish the search string: "*@nickname*"
  11.     if {string match $search $lnames} {
  12.         putserv NOTICE $nick test
  13.     }
  14. }
  15.  
  16.  
  17. #Format:
  18. #NAMES #spiritclan
  19. #:irc.toribash.com 353 voxb @ #spiritclan :voxb @Vox isxiz
  20. #:irc.toribash.com 366 voxb #spiritclan :End of /NAMES list.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement