Advertisement
outsider

005 support in eggdrop

Jan 30th, 2017
324
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 1.01 KB | None | 0 0
  1. bind raw - 005 alltools:raw005
  2. proc alltools:raw005 {from keyw args} {
  3.         global ircsupport max-modes max-bans nick-len
  4.         set args [lrange [lindex $args 0] 1 end]
  5.         foreach option $args {
  6.                 regsub -all "=" $option " " option
  7.                 switch [lindex $option 0] {
  8.                         MAXCHANNELS { set ircsupport(maxchan) [lindex $option 1] }
  9.                               MODES { set max-modes [lindex $option 1] }
  10.                             MAXBANS { set max-bans [lindex $option 1] }
  11.                             SILENCE { set ircsupport(silence) [lindex $option 1] }
  12.                             NICKLEN { set nick-len [lindex $option 1] }
  13.                            CPRIVMSG { set ircsupport(cprivmsg) 1 }
  14.                             CNOTICE { set ircsupport(cnotice) 1 }
  15.                            TOPICLEN { set ircsupport(topiclen) [lindex $option 1] }
  16.                             KICKLEN { set ircsupport(kicklen) [lindex $option 1] }
  17.                  }
  18.         }
  19. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement