21/01/2017, 17:19
tcl
bind mode - *-o* [namespace current]::ReOp
proc ReOp {nick host hand chan args} {
set bot [::Opirix::whoisIriX $chan]
if {($bot ne "") && [channel get $chan SalonOp]} {
putquick "PRIVMSG $bot :op $::Opirix::IriXsal $::botnick"
putlog "l'eggdrop se op : $bot $::Opirix::IriXsal $::botnick"
putserv "PRIVMSG $bot :voice $::Opirix::IriXsal $::botnick"
putlog "l'eggdrop se voice : $bot $::Opirix::IriXsal $::botnick"
putserv "PRIVMSG $bot :deop $::Opirix::IriXsal $nick"
putlog "l'eggdrop déop la personne qui la déop : $::Opirix::IriXsal $nick"
} else {
putlog "\002\00304\[Refuser\]\002\00314 Je ne suis pas activé sur $chan"
return 0
}
}