Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- bind raw - 005 alltools:raw005
- proc alltools:raw005 {from keyw args} {
- global ircsupport max-modes max-bans nick-len
- set args [lrange [lindex $args 0] 1 end]
- foreach option $args {
- regsub -all "=" $option " " option
- switch [lindex $option 0] {
- MAXCHANNELS { set ircsupport(maxchan) [lindex $option 1] }
- MODES { set max-modes [lindex $option 1] }
- MAXBANS { set max-bans [lindex $option 1] }
- SILENCE { set ircsupport(silence) [lindex $option 1] }
- NICKLEN { set nick-len [lindex $option 1] }
- CPRIVMSG { set ircsupport(cprivmsg) 1 }
- CNOTICE { set ircsupport(cnotice) 1 }
- TOPICLEN { set ircsupport(topiclen) [lindex $option 1] }
- KICKLEN { set ircsupport(kicklen) [lindex $option 1] }
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement