04/11/2013, 13:30
Oui c'est ça, voila les modification que j'ai faite: (Petit bug des numero de couleur IRC)
tcl
set logchan "#staff"
bind mode - "% +o" opped
bind mode - "% -o" deopped
bind join - * proc:join
bind part - * proc:part
proc proc:join {nick host hand chan} {
set accueil "#Accueil"
if { $chan == "#Accueil" || [string tolower $chan] == [string tolower $::logchan] } {
if { [isop $::botnick $accueil] } {
if { [onchan $nick $::logchan] } {
pushmode $accueil +v $nick
}
}
}
if { $chan == "#Staff" && $nick == "Otois" } { putserv "PRIVMSG $chan :\[Otois\] http://toutestnet.ze.cx/?page=profil&profil=Dydouch " }
}
proc proc:part {nick host hand chan target} {
set accueil "#Accueil"
if { [isop $::botnick $accueil] && [onchan $nick $accueil] } {
if { [string tolower $chan] == [string tolower $::logchan] } { pushmode $accueil -v $nick }
}
if { [string tolower $chan] == [string tolower "#Ados"] || [string tolower $chan] == [string tolower "#quiz"] || [string tolower $chan] == [string tolower "#testing"] || [string tolower $chan] == [string tolower "#irc"] } {
set op "0"
set users "0"
foreach vchan [chanlist $chan] {
if { [isop $vchan $chan] && $vchan != $::botnick && [whois $vchan] != "Bot" && [whois $vchan] != "Anope" } { incr op
} elseif { ![isop $vchan $chan] && ![ishalfop $vchan $chan] && $vchan != $::botnick } { incr users }
}
if { $op == 0 } { set nb_op "Pas d'op"
} elseif { $op == 1 } { set nb_op "$op 2op" } else { set nb_op "$op 2ops" }
if { $users == 0 } { set nb_users "0 2user"
} elseif { $users == 1 } { set nb_users "$users 2user" } else { set nb_users "$users 2users" }
if { [isop $nick $chan ] } { putserv "PRIVMSG $::logchan :6-2Deop6-12 $nick 10 ([whois $nick]) 12sur3 $chan 12->4 $nb_op 2pour4 $nb_users " }
}
}
proc opped {nick uhost handle chan mode target} {
if { [string tolower $chan] == [string tolower $::logchan] } { return 0; }
if { [string tolower $chan] == [string tolower "#Channels"] } { return 0; }
if { [string tolower $chan] == [string tolower "#Services"] } { return 0; }
if { [string tolower $chan] == [string tolower "#Accueil"] } { return 0; }
if { [string tolower $chan] == [string tolower "#Spam"] } { return 0; }
if { [string tolower $chan] == [string tolower "#Ados"] || [string tolower $chan] == [string tolower "#quiz"] || [string tolower $chan] == [string tolower "#testing"] || [string tolower $chan] == [string tolower "#irc"] } {
if { [isop $::botnick $chan] } {
if { ![onchan $target $::logchan] } {
pushmode $chan -o $target
putserv "PRIVMSG $::logchan :5-4ATTENTION05-3 $nick 12a oper04 $target 12sur6 $chan 2-> 14(Interdit -5)"
}
}
if { ![isvoice $target $::logchan] } {
pushmode $::logchan +v $target
}
set op "0"
set users "0"
set pseudo "test"
foreach vchan [chanlist $chan] {
if { [isop $vchan $chan ] && $vchan != $::botnick && [whois $vchan] != "Bot" && [whois $vchan] != "Anope" } { incr op
} elseif { ![isop $vchan $chan] && $vchan != $::botnick && ![ishalfop $vchan $chan] } { incr users }
}
set ados "#Ados"
if { [mineur $ados] == "0" && [whois $target] != "Bot" && [whois $target] != "Anope" } { putserv "PRIVMSG $::logchan :5-4ATTENTION05-4 [mineur $ados] ops 12sur6 $ados 12contre4 $op ops 12sur6 $chan " }
if { $op == 0 } { set nb_op "Pas d'op"
} elseif { $op == 1 } { set nb_op "$op 2op" } else { set nb_op "$op 2ops" }
if { $users == 0 } { set nb_users "0 2user"
} elseif { $users == 1 } { set nb_users "$users 2user" } else { set nb_users "$users 2users" }
putserv "PRIVMSG $::logchan :6-2Op6-12 $target 10 ([whois $target]) 12sur3 $chan 12->4 $nb_op 2pour4 $nb_users"
}
}
#[whois $ident]
proc deopped {nick uhost handle chan mode target} {
if { [string tolower $chan] == [string tolower $::logchan] } { return 0; }
if { [string tolower $chan] == [string tolower "#Channels"] } { return 0; }
if { [string tolower $chan] == [string tolower "#Services"] } { return 0; }
if { [string tolower $chan] == [string tolower "#Accueil"] } { return 0; }
if { [string tolower $chan] == [string tolower "#Spam"] } { return 0; }
if { [string tolower $chan] == [string tolower "#Ados"] || [string tolower $chan] == [string tolower "#Quiz"] || [string tolower $chan] == [string tolower "#testing"] || [string tolower $chan] == [string tolower "#irc"] } {
set salon ""
if { [isvoice $target $::logchan] } {
set salon "0"
if { [isop $target [string tolower "#Ados"]] } { incr salon }
if { [isop $target [string tolower "#Quiz"]] } { incr salon }
if { [isop $target [string tolower "#testing"]] } { incr salon }
if { [isop $target [string tolower "#irc"]] } { incr salon }
if { $salon == "0" } { pushmode $::logchan -v $target }
}
set pseudo $target
if { $salon == "0" } { pushmode $::logchan -v $pseudo }
set op "0"
set users "0"
foreach vchan [chanlist $chan] {
if { [isop $vchan $chan ] && $vchan != $::botnick && [whois $vchan] != "Bot" && [whois $vchan] != "Anope" } { incr op
} elseif { ![isop $vchan $chan] && ![ishalfop $vchan $chan] && $vchan != $::botnick } { incr users }
}
if { $op == 0 } { set nb_op "Pas d'op"
} elseif { $op == 1 } { set nb_op "$op 2op" } else { set nb_op "$op 2ops" }
if { $users == 0 } { set nb_users "0 2user"
} elseif { $users == 1 } { set nb_users "$users 2user" } else { set nb_users "$users 2users" }
putserv "PRIVMSG $::logchan :6-2Deop6-12 $target 10 ([whois $target]) 12sur3 $chan 12->4 $nb_op 2pour4 $nb_users === $salon"
}
}
proc whois { nick } {
set handle [nick2hand $nick]
if { $handle == "*" } { return "~unknown~"
} else { return $handle }
}
proc mineur { chan } {
set op "0"
foreach vchan [chanlist $chan] {
if { [isop $vchan $chan ] && $vchan != $::botnick && [whois $vchan] != "Bot" && [whois $vchan] != "Anope" } { incr op }
}
return $op
}