09/05/2013, 14:03
Du coup, si j'ai bien compris, le bon script est :
TCL
catch {bind pub - !autovoice channel:avs}
catch {bind join - * chan:vsjoin}
setudef flag avs
proc channel:avs {nick uhost hand chan arg} {
if { ![isop $nick $chan] } { return 0; }
switch -exact -- $arg {
"on" {
channel set $chan +avs
putserv "PRIVMSG $chan :L'auto Voice a été activé, &nick."
}
"off" {
channel set $chan -avs
putserv "PRIVMSG $chan :L'auto Voice a été désactivé, &nick."
}
}
}
proc chan:vsjoin {nick uhost hand chan} {
if {[channel get $chan avs]} {
putquick "MODE $chan +v $nick"
}
}
catch {bind pub - !p channel:pro}
setudef flag pro
proc channel:pro {nick uhost hand chan arg} {
if { ![isop $nick $chan] } { return 0; }
switch -exact -- $arg {
"on" {
channel set $chan +pro
channel set $chan -avs
putserv "PRIVMSG $chan :Le chan est dorénavant protégé, &nick."
putserv "MODE $chan +mD"
}
"off" {
channel set $chan -pro
putserv "PRIVMSG $chan :Le chan n'est dorénavant plus protégé, &nick."
putserv "MODE $chan -mD"
}
}
}