##################################################################
############# Déclarations des variables Globales ################
##################################################################

bind EVNT - init-server proc:initialisation
proc proc:initialisation { type } {
global type_chan
global backroom
global niubot_chan
global niubot_backroom



###############################
########## Channel 1 ##########
###############################

set chan1 "#Trip"
set type_chan(${chan1}) "chan"
set backroom(${chan1}) "#Op-Trip"
set niubot_chan(${chan1}) "Niubot33"
set niubot_backroom(${chan1}) "Niubot61"



###############################
########## Channel 2 ##########
###############################

set chan2 "#Op-Trip"
set type_chan(${chan2}) "back"
set backroom(${chan2}) ""
set niubot_chan(${chan2}) "Niubot61"
set niubot_backroom(${chan2}) ""



###############################
######## Pass Niubot ##########
###############################

global niubot_pass
set niubot_pass ""


###########################################
##### Construction des variables user #####
###########################################


foreach user [userlist] {
global auth
set auth(${user}) "invalide"
}
}



###########################################
###### Auto-op + auto-invite BackRoom #####
###########################################

bind JOIN - * proc:autobotop
proc proc:autobotop { nick uhost hand chan } {
global backroom niubot_chan niubot_backroom niubot_pass
if [isbotnick $nick] {
puthelp "PRIVMSG $niubot_chan(${chan}) :op $niubot_pass"
if ("$backroom(${chan})"!="") {
puthelp "PRIVMSG $niubot_backroom(${chan}) :invite $niubot_pass $backroom(${chan})"
}
}
}


###########################################
###### Auto-invite op's sur BackRoom ######
###########################################

set log "#Op-Trip"
bind JOIN - * proc:invite_op_backroom
proc proc:invite_op_backroom { nick uhost hand chan } {
global auth backroom log
if ("$backroom(${chan})"!="") {
if [matchattr $hand |o $chan]  {
if ("$auth(${hand})"=="$uhost")&&(![onchan $nick $backroom(${chan})]) {
putquick "INVITE $nick $backroom(${chan})"
putquick "NOTICE $nick :Vous venez d'être invité sur la BackRoom ( $backroom(${chan}) ). Veuillez la rejoindre."
}
}
}
}



###########################################
################ Auth Users ###############
###########################################

set log "#Op-Trip"
bind MSG - auth proc:auth
proc proc:auth { nick uhost hand text } {
global auth backroom botnick log
if [validuser [finduser $nick!*@*]] {
if ("[getuser $hand PASS]"!="") {
if ("[lindex $text 0]"!="") {
if [passwdok $hand [lindex $text 0]] {
if ("$auth(${hand})"!="$uhost") {
set auth(${hand}) $uhost
putquick "NOTICE $nick :Vous venez d'être authentifié sous cet host : $uhost ! Votre authentification sera valide tant que cet host restera inchangé."
putserv "PRIVMSG $log :\0033\[\0034Authentification\0033\] \0032Par $nick \0031Réussi !"
putserv "PRIVMSG $log :\0033\[\0034Invite-Auth\0033\] \0031Invitation pour $nick Authentification effectuer !"
foreach chan [channels] {
if ("$backroom(${chan})"!="") {
if [matchattr $hand |o $chan] {
if ![onchan $nick $backroom(${chan})] {
putquick "INVITE $nick $backroom(${chan})"
putquick "NOTICE $nick :Vous venez d'être invité sur la BackRoom de $chan ( $backroom(${chan}) ). Veuillez la rejoindre."
}
}
}
}
} else {
putquick "NOTICE $nick :Vous êtes déjà authentifié !"
putserv "PRIVMSG $log :\0033\[\0034Authentification\0033\] \0032Par $nick \0031Déjà autentifié !"
}
} else {
putquick "NOTICE $nick :Le mot de passe est incorrect !"
putserv "PRIVMSG $log :\0033\[\0034Authentification\0033\] \0032Par $nick \0031Mot de pass incorrect !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Authentification\0033\] \0032Par $nick \0031Mauvaise syntaxe pour se autentifié !"
}
} else {
putquick "NOTICE $nick :Vous n'avez de mot de passe ! Veuillez le définir ( /msg $botnick newpass <pass> )."
putserv "PRIVMSG $nick :\0033\[\0034Authentification\0033\] \0032Par $nick \0031Na pas de pass !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Authentification\0033\] \0032Par $nick \0031Na aucun accés !"
}
}


###########################################
################# NewPass #################
###########################################

set log "#Op-Trip"
bind MSG - newpass proc:newpass
proc proc:newpass { nick uhost hand text } {
global botnick log
if [validuser [finduser $nick!*@*]] {
if ("[getuser $hand PASS]"=="") {
if ("$text"=="") {
putquick "NOTICE $nick :Commande erronée ! Veuillez respecter la syntaxe suivante : /msg $botnick newpass <pass> !"
putserv "PRIVMSG $log :\0033\[\0034Newpass\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
} else {
setuser $hand PASS [lindex $text 0]
putquick "NOTICE $nick :Mot de passe défini : [lindex $text 0] !"
}
} else {
if ([passwdok $hand [lindex $text 0]]) {
if ([llength $text]>1) {
setuser $hand PASS [lindex $text 1]
putquick "NOTICE $nick :Nouveau mot de passe défini : [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Newpass\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Commande erronée ! Veuillez respecter la syntaxe suivante : /msg $botnick newpass <ancien-pass> <nouveau-pass> !"
putserv "PRIVMSG $log :\0033\[\0034Newpass\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Ancien mot de passe incorrect ! Veuillez respecter la syntaxe suivante : /msg $botnick newpass <ancien-pass> <nouveau-pass> !"
putserv "PRIVMSG $log :\0033\[\0034Newpass\0033\] \0032Par $nick \0031Ancien pass incorrect !"
}
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Newpass\0033\] \0032Par $nick \0031Na aucun accés !"
}
}




###########################################
################## Access #################
###########################################

set log "#Op-Trip"
bind MSG - access proc:access
proc proc:access { nick uhost hand text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [string match #* [lindex $text 0]] {
if [validchan [lindex $text 0]] {
if [matchattr $hand |o [lindex $text 0]] {


set allowners ""
set allmasters ""
set allops ""
foreach user [userlist] {
if [matchattr $user |n [lindex $text 0]] {
lappend allowners $user
}
if [matchattr $user |m [lindex $text 0]] {
lappend allmasters $user
}
if [matchattr $user |o [lindex $text 0]] {
lappend allops $user
}
}


set ops ""
foreach op $allops {
if ("[lsearch $allmasters $op]"=="-1") {
lappend ops $op
}
}

set masters ""
foreach master $allmasters {
if ("[lsearch $allowners $master]"=="-1") {
lappend masters $master
}
}

set owners ""
foreach owner $allowners {
lappend owners $owner
}


putquick "PRIVMSG $nick :\002\[\0031Liste des access sur \0034[lindex $text 0] \002\]"
foreach owner $owners {
set unick [lindex [split [join [getuser $owner HOSTS]] !] 0]
if ("$auth(${owner})"!="invalide") {
set isauth YES
} else {
set isauth NO
}
if [handonchan $owner [lindex $text 0]] {
set isonchan YES
} else {
set isonchan NO
}
puthelp "PRIVMSG $nick :\002\[ Owner \] \0031: \0034\[\0031 $unick \0034\] \0031- AUTH : \0034$isauth \0031- OnChan : \0034$isonchan"
}


foreach master $masters {
set unick [lindex [split [join [getuser $master HOSTS]] !] 0]
if ("$auth(${master})"!="invalide") {
set isauth YES
} else {
set isauth NO
}
if [handonchan $master [lindex $text 0]] {
set isonchan YES
} else {
set isonchan NO
}
puthelp "PRIVMSG $nick :\002\[ Master \] \0031: \0034\[\0031\002 $unick \0034\] \0031- AUTH : \002\0034$isauth \0031- OnChan : \0034$isonchan"
}

foreach op $ops {
set unick [lindex [split [join [getuser $op HOSTS]] !] 0]
if ("$auth(${op})"!="invalide") {
set isauth YES
} else {
set isauth NO
}
if [handonchan $op [lindex $text 0]] {
set isonchan YES
} else {
set isonchan NO
}
puthelp "PRIVMSG $nick :\002\0032\[ Opérateur \] \0031: \0034\[\0031\002 $unick \0034\] \0031- AUTH : \0034$isauth \0031- OnChan : \0034$isonchan"
}

puthelp "PRIVMSG $nick :\002\0032\[\0031Fin de la liste d'access \0032\]"
putserv "PRIVMSG $log :\0033\[\0034Accés\0033\] \0032Par $nick \0031Autorisé !"

} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Opérateur sur [lindex $text 0] requis) !"
putserv "PRIVMSG $log :\0033\[\0034Accés\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Ce salon n'est pas enregistré !"
putserv "PRIVMSG $log :\0033\[\0034Accés\0033\] \0032Par $nick \0031Salon demander non enregistré !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick access <#channel> )"
putserv "PRIVMSG $log :\0033\[\0034Accés\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Accés\0033\] \0032Par $nick \0031N'est pas Autentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Accés\0033\] \0032Par $nick \0031Na aucun accés !"
}
}



##################################################################
############## Addop, Addmaster, delop, delmaster ################
##################################################################


set log "#Op-Trip"
bind MSG - addop proc:addop
proc proc:addop { nick uhost hand text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [string match #* [lindex $text 1]]  {
if [validchan [lindex $text 1]] {
if [matchattr $hand |m [lindex $text 1]] {
if ![matchattr [finduser [lindex $text 0]!*@*] |n [lindex $text 1]] {
if ![matchattr [finduser [lindex $text 0]!*@*] |m [lindex $text 1]] {
if ![matchattr [finduser [lindex $text 0]!*@*] |o [lindex $text 1]] {
set vhand [string range [lindex $text 0] 0 8]
adduser $vhand [lindex $text 0]!*@*
setuser $vhand HOSTS [lindex $text 0]|*!*@*
chattr  $vhand -h|+o [lindex $text 1]
putquick "NOTICE $nick :[lindex $text 0] a bien été ajouté(e) en tant qu'opérateur sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Addop/Addmaster\0033\] \0032Par $nick \0031Réussi !"
set auth(${vhand}) "invalide"
} else {
putquick "NOTICE $nick :Ce pseudo figure déjà dans l'Access-List Opérateurs sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Addop/Addmaster\0033\] \0032Par $nick \0031Déjà dans la liste des Opérateur !"
}
} else {
putquick "NOTICE $nick :Ce pseudo figure dans l'Access-List Masters sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Addop/Addmaster\0033\] \0032Par $nick \0031Pseudo dans la liste Master ne peut être Op !"
}
} else {
putquick "NOTICE $nick :Ce pseudo figure dans l'Access-List Owners sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Addop/Addmaster\0033\] \0032Par $nick \0031Pseudo dans la liste Owners ne peut être Op !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Master sur [lindex $text 1] requis) !"
putserv "PRIVMSG $log :\0033\[\0034Addop/Addmaster\0033\] \0032Par $nick \0031Refusé Master inconnu !"
}
} else {
putquick "NOTICE $nick :Ce salon n'est pas enregistré !"
putserv "PRIVMSG $log :\0033\[\0034Addop/Addmaster\0033\] \0032Par $nick \0031Salon demander non enregistré !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick addop <pseudo> <#channel> )"
putserv "PRIVMSG $log :\0033\[\0034Addop/Addmaster\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Addop/Addmaster\0033\] \0032Par $nick \0031N'est pas authentifié !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Addop/Addmaster\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

set log "#Op-Trip"
bind MSG - delop proc:delop
proc proc:delop { nick uhost hand text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [string match #* [lindex $text 1]]  {
if [validchan [lindex $text 1]] {
if [matchattr $hand |m [lindex $text 1]] {
if ![matchattr [finduser [lindex $text 0]!*@*] |n [lindex $text 1]] {
if ![matchattr [finduser [lindex $text 0]!*@*] |m [lindex $text 1]] {
if [matchattr [finduser [lindex $text 0]!*@*] |o [lindex $text 1]] {
set vhand [string range [lindex $text 0] 0 8]
adduser $vhand [lindex $text 0]!*@*
setuser $vhand HOSTS [lindex $text 0]|*!*@*
chattr  $vhand -h|-o [lindex $text 1]
putquick "NOTICE $nick :[lindex $text 0] a bien été supprimé(e) de l'Access-List Opérateurs sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Delop\0033\] \0032Par $nick \0031Réussi !"
set auth(${vhand}) "invalide"
} else {
putquick "NOTICE $nick :Ce pseudo ne figure pas dans l'Access-List Opérateurs sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Delop\0033\] \0032Par $nick \0031Le pseudo N'est pas dans la liste d'accés !"
}
} else {
putquick "NOTICE $nick :Ce pseudo figure dans l'Access-List Masters sur [lindex $text 1] ! Veuillez utiliser la commande <delmaster> !"
putserv "PRIVMSG $log :\0033\[\0034Delop\0033\] \0032Par $nick \003Le pseudo N'est pas un Opérateur mais master !"
}
} else {
putquick "NOTICE $nick :Ce pseudo figure dans l'Access-List Owners sur [lindex $text 1] ! Vous ne pouvez pas le supprimer !"
putserv "PRIVMSG $log :\0033\[\0034Delop\0033\] \0032Par $nick \0031Erreur pseudo dans les master !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Master sur [lindex $text 1] requis) !"
putserv "PRIVMSG $log :\0033\[\0034Delop\0033\] \0032Par $nick \0031Level insuffisant !"
}
} else {
putquick "NOTICE $nick :Ce salon n'est pas enregistré !"
putserv "PRIVMSG $log :\0033\[\0034Delop\0033\] \0032Par $nick \0031Salon demander non enregistré !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick delop <pseudo> <#channel> )"
putserv "PRIVMSG $log :\0033\[\0034Delop\0033\] \0032Par $nick \0031Syntaxe incorrect !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Delop\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Delop\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

set log "#Op-Trip"
bind MSG - addmaster proc:addmaster
proc proc:addmaster { nick uhost hand text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [string match #* [lindex $text 1]]  {
if [validchan [lindex $text 1]] {
if [matchattr $hand |n [lindex $text 1]] {
if ![matchattr [finduser [lindex $text 0]!*@*] |n [lindex $text 1]] {
if ![matchattr [finduser [lindex $text 0]!*@*] |m [lindex $text 1]] {
set vhand [string range [lindex $text 0] 0 8]
adduser $vhand [lindex $text 0]!*@*
setuser $vhand HOSTS [lindex $text 0]|*!*@*
chattr  $vhand -h|+om [lindex $text 1]
putquick "NOTICE $nick :[lindex $text 0] a bien été ajouté(e) en tant que Master sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Addmaster\0033\] \0032Par $nick \0031Réussi !"
set auth(${vhand}) "invalide"
} else {
putquick "NOTICE $nick :Ce pseudo figure déjà dans l'Access-List Masters sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Addmaster\0033\] \0032Par $nick \0031Erreur pseudo déjà dans les Master !"
}
} else {
putquick "NOTICE $nick :Ce pseudo figure dans l'Access-List Owners sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Addmaster\0033\] \0032Par $nick \0031Erreur pseudo dans la list des Owners !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Owner sur [lindex $text 1] requis) !"
putserv "PRIVMSG $log :\0033\[\0034Addmaster\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Ce salon n'est pas enregistré !"
putserv "PRIVMSG $log :\0033\[\0034Addmaster\0033\] \0032Par $nick \0031Salon demander non enregistré !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick addmaster <pseudo> <#channel> )"
putserv "PRIVMSG $log :\0033\[\0034Addmaster\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Addmaster\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Addmaster\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

set log "#Op-Trip"
bind MSG - delmaster proc:delmaster
proc proc:delmaster { nick uhost hand text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [string match #* [lindex $text 1]]  {
if [validchan [lindex $text 1]] {
if [matchattr $hand |n [lindex $text 1]] {
if ![matchattr [finduser [lindex $text 0]!*@*] |n [lindex $text 1]] {
if [matchattr [finduser [lindex $text 0]!*@*] |m [lindex $text 1]] {
set vhand [string range [lindex $text 0] 0 8]
adduser $vhand [lindex $text 0]!*@*
setuser $vhand HOSTS [lindex $text 0]|*!*@*
chattr  $vhand -h|-om [lindex $text 1]
putquick "NOTICE $nick :[lindex $text 0] a bien été supprimé(e) de l'Access-List Masters sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Delmaster\0033\] \0032Par $nick \0031Réussi !"
set auth(${vhand}) "invalide"
} else {
if [matchattr [finduser [lindex $text 0]!*@*] |o [lindex $text 1]] {
putquick "NOTICE $nick :Ce pseudo figure dans l'Access-List Opérateurs sur [lindex $text 1] ! Veuillez utiliser la commande <delop> !"
putser "PRIVMSG $log :\0033\[\0034Delmaster\0033\] \0032Par $nick \0031Erreur veuillez Delop avant de Delmaster le pseudo !"
} else {
putquick "NOTICE $nick :Ce pseudo ne figure pas dans l'Access-List Masters sur [lindex $text 1] !"
putserv "PRIVMSG $log :\0033\[\0034Delmaster\0033\] \0032Par $nick \0031Erreur pseudo pas dans les Masters !"
}
}
} else {
putquick "NOTICE $nick :Ce pseudo figure dans l'Access-List Owners sur [lindex $text 1] ! Vous ne pouvez pas le supprimer !"
putserv "PRIVMSG $log :\0033\[\0034Delmaster\0033\] \0032Par $nick \0031Erreur pseudo dans les Owners impossible de le retiré !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Owner sur [lindex $text 1] requis) !"
putserv "PRIVMSG $log :\0033\[\0034Delmaster\0033\] \0032Par $nick \0031Refusé level Owners minimum !"
}
} else {
putquick "NOTICE $nick :Ce salon n'est pas enregistré !"
putserv "PRIVMSG $log :\0033\[\0034Delmaster\033\] \0032Par $nick \0031Salon demander non enregistré !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick delmaster <pseudo> <#channel> )"
putserv "PRIVMSG $log :\0033\[\0034Delmaster\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Delmaster\0033\] \0032Par $nick \0031N'est pas Authentifié !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Delmaster\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

###########################################
######## .op/.deop/.voice/.devoice ########
###########################################

set log "#Op-Trip"
bind PUB - .op opop
proc opop { nick uhost hand chan text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [matchattr $hand |o $chan] {
if {$text==""} {
if (![isop [join $nick] $chan]) {
putquick "mode $chan +o [join $nick]"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Vous êtes déjà @ sur $chan !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Déjà Op sur le salon demander !"
}
} else {


if ![matchattr $hand |m $chan] {
set listop ""
foreach pseudo $text {
set vpseudo [lindex [split $pseudo |] 0]
if [validuser $vpseudo]&&[matchattr $vpseudo |o $chan] {
lappend listop $pseudo
} else {
putquick "NOTICE $nick :$pseudo n'est pas @ sur $chan, vous ne pouvez pas le oper !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Pseudo non présent sur le salon demander !"
}
}
putquick "mode $chan +oooooo [join $listop]"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "mode $chan +oooooo [join $text]"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Réussi !"
}

}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'exécution de cette commande ( Opérateur sur [lindex $text 0] requis.) !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

set log "#Op-Trip"
bind PUB -|- .deop deopdeop
proc deopdeop { nick uhost hand chan text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [matchattr $hand |o $chan] {
if {$text==""} {
if [isop [join $nick] $chan] {
putquick "mode $chan -o [join $nick]"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Vous n'êtes pas @ sur $chan !"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Déjà Déop sur le salon demander !"
}
} else {
putquick "mode $chan -oooooo [join $text]"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Réussi !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'exécution de cette commande ( Opérateur sur [lindex $text 0] requis.) !"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031N'est pas Authentifié !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \Na aucun accés !"
}
}

set log "#Op-Trip"
bind PUB -|- .voice voicevoice
proc voicevoice { nick uhost hand chan text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [matchattr $hand |o $chan] {
if {$text==""} {
if (![isvoice [join $nick] $chan]) {
putquick "mode $chan +v [join $nick]"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Vous êtes déjà voice sur $chan !"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Déjà Voice sur le salon demander !"
}
} else {
putquick "mode $chan +vvvvvv [join $text]"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Réussi !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'exécution de cette commande ( Opérateur sur [lindex $text 0] requis.) !"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031N'est pas Authentifié !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

set log "#Op-Trip"
bind PUB -|- .devoice devoicedevoice
proc devoicedevoice { nick uhost hand chan text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [matchattr $hand |o $chan] {
if {$text==""} {
if [isvoice [join $nick] $chan] {
putquick "mode $chan -v [join $nick]"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Vous n'êtes pas voice sur $chan !"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Déjà Devoice sur le salon demander !"
}
} else {
putquick "mode $chan -vvvvvv [join $text]"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Réussi !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'exécution de cette commande ( Opérateur sur [lindex $text 0] requis.) !"
putserv "PRIVMSG $log :\003\[\0034Devoice\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Na aucun accés !"
}
}



###########################################
############## Commande Msg ###############
###########################################

set log "#Op-Trip"
bind MSG -|- op proc:op
proc proc:op { nick uhost hand text } {
global auth botnick
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [string match #* [lindex $text 0]] {
if [validchan [lindex $text 0]] {
if [matchattr $hand |o [lindex $text 0]] {
if [onchan $nick [lindex $text 0]] {
if [botonchan [lindex $text 0]] {
if [botisop [lindex $text 0]] {
if {[lindex $text 1] ==""} {
if (![isop [join $nick] [lindex $text 0]]) {
putquick "mode [lindex $text 0] +o [join $nick]"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Vous êtes déjà @ sur [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Déjà Op sur le salon demander !"
}
} else {
if ![matchattr $hand |m [lindex $text 0]] {
set listop ""
foreach pseudo [lrange $text 1 end] {
set vpseudo [lindex [split $pseudo |] 0]
if [validuser $vpseudo]&&[matchattr $vpseudo |o [lindex $text 0]] {
lappend listop $pseudo
} else {
putquick "NOTICE $nick :$pseudo n'est pas @ sur [lindex $text 0], vous ne pouvez pas le oper !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Erreur le pseudo na pas d'accés interdiction de @ !"
}
}
putquick "mode [lindex $text 0] +oooooo [join $listop]"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "mode [lindex $text 0] +oooooo [join [lrange $text 1 end]]"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Réussi !"
}
}
} else {
putquick "NOTICE $nick :Désolé je ne peux te mettre op je suis deop !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Erreur Robot actuellement Deop demande impossible pour le moment !"
}
} else {
putquick "NOTICE $nick :Désolé je me trouve actuellement pas sur le salon demandé !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Erreur je suis Absent du salon demander !"
}
} else {
putquick "NOTICE $nick :Vous n'êtes pas sur [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Erreur pseudo pas présent sur le salon demander !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Opérateur sur [lindex $text 0] requis) !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Ce salon n'est pas un salon enregistré !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Salon demander non enregistré !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick op #channel (pseudo(s)) )"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Op\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

set log "#Op-Trip"
bind MSG -|- deop proc:deop
proc proc:deop { nick uhost hand text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [string match #* [lindex $text 0]] {
if [validchan [lindex $text 0]] {
if [matchattr $hand |o [lindex $text 0]] {
if [onchan $nick [lindex $text 0]] {
if [botonchan [lindex $text 0]] {
if [botisop [lindex $text 0]] {
if {[lindex $text 1] ==""} {
if [isop [join $nick] [lindex $text 0]] {
putquick "mode [lindex $text 0] -o [join $nick]"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Vous êtes déjà deop sur [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Déjà Deop sur le salon demander !"
}
} else {
putquick "mode [lindex $text 0] -oooooo [join [lrange $text 1 end]]"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Réussi !"
}
} else {
putquick "NOTICE $nick :Désolé je ne peux te mettre deop je suis deop !"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Erreur Robot actuellement Deop demande impossible pour le moment !"
}
} else {
putquick "NOTICE $nick :Désolé je me trouve actuellement pas sur le salon demandé !"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Erreur je suis Absent du salon demander !"
}
} else {
putquick "NOTICE $nick :Vous n'êtes pas sur [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Erreur pseudo pas présent sur le salon demandé !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Opérateur sur [lindex $text 0] requis) !"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Ce salon n'est pas un salon enregistré !"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Salon demandé non enregistré !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick deop #channel (pseudo(s)) )"
putserv "PRIVMSg $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Deop\0033\] \0032Par $nick \0031Na auncun accés !"
}
}

set log "#Op-Trip"
bind MSG -|- voice proc:voice
proc proc:voice { nick uhost hand text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [string match #* [lindex $text 0]] {
if [validchan [lindex $text 0]] {
if [matchattr $hand |o [lindex $text 0]] {
if [onchan $nick [lindex $text 0]] {
if [botonchan [lindex $text 0]] {
if [botisop [lindex $text 0]] {
if {[lindex $text 1] ==""} {
if (![isvoice [join $nick] [lindex $text 0]]) {
putquick "mode [lindex $text 0] +v [join $nick]"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Vous êtes déjà voice sur [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Déjà voice sur le salon demandé !"
}
} else {
putquick "mode [lindex $text 0] +vvvvvv [join [lrange $text 1 end]]"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Réussi !"
}
} else {
putquick "NOTICE $nick :Désolé je ne peux te mettre voice je suis deop !"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Erreur Robot actuellement Deop demande impossible pour le moment !"
}
} else {
putquick "NOTICE $nick :Désolé je me trouve actuellement pas sur le salon demandé !"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Erreur je suis Absent du salon demander !"
}
} else {
putquick "NOTICE $nick :Vous n'êtes pas sur [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Erreur pseudo demander pas présent sur le salon demander !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Opérateur sur [lindex $text 0] requis) !"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Ce salon n'est pas un salon enregistré !"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Salon demander non enregistré !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick voice #channel (pseudo(s)) )"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Voice\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

set log "#Op-Trip"
bind MSG -|- devoice proc:devoice
proc proc:devoice { nick uhost hand text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [string match #* [lindex $text 0]] {
if [validchan [lindex $text 0]] {
if [matchattr $hand |o [lindex $text 0]] {
if [onchan $nick [lindex $text 0]] {
if [botonchan [lindex $text 0]] {
if [botisop [lindex $text 0]] {
if {[lindex $text 1] ==""} {
if [isvoice [join $nick] [lindex $text 0]] {
putquick "mode [lindex $text 0] -v [join $nick]"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Vous êtes déjà devoice sur [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Déjà Devoice sur le salon demandé !"
}
} else {
putquick "mode [lindex $text 0] -vvvvvv [join [lrange $text 1 end]]"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Réussi !"
}
} else {
putquick "NOTICE $nick :Désolé je ne peux te mettre devoice je suis deop !"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Erreur Robot actuellement Deop demande impossible pour le moment !"
}
} else {
putquick "NOTICE $nick :Désolé je me trouve actuellement pas sur le salon demandé !"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Erreur je suis Absent du salon demandé !"
}
} else {
putquick "NOTICE $nick :Vous n'êtes pas sur [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Erreur pseudo demander pas présent sur le salon demander !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Opérateur sur [lindex $text 0] requis) !"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Ce salon n'est pas un salon enregistré !"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Salon demander non enregistré !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick devoice #channel (pseudo(s)) )"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Devoice\0033\] \0032Par $nick \0031Na aucun accés !"
}
}


###########################################
################## kick ###################
###########################################

set log "#Op-Trip"
bind PUB -|- .kick kick
proc kick { nick uhost hand chan text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [matchattr $hand |o $chan] {
if {$text != ""} {
if [onchan [lindex $text 0] $chan] {
if {[lindex $text 1] != ""} {
putquick "kick $chan [lindex $text 0] :[join [lrange $text 1 end]]"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "kick $chan [lindex $text 0] :Vous venez d'être kické par $nick !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Réussi !"
}
} else {
putquick "NOTICE $nick :Le pseudo [lindex $text 0] n'est pas sur $chan"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Erreur pseudo pas présent sur le salon demander !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( .kick <pseudo> (raison) ! )"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'exécution de cette commande ( Opérateur sur [lindex $text 0] requis.) !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031N'est pas Authentifié !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

set log "#Op-Trip"
bind MSG -|- kick proc:kick
proc proc:kick { nick uhost hand text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [string match #* [lindex $text 0]] {
if [validchan [lindex $text 0]] {
if [matchattr $hand |o [lindex $text 0]] {
if [onchan $nick [lindex $text 0]] {
if [botonchan [lindex $text 0]] {
if [botisop [lindex $text 0]] {
if {[lindex $text 1] !=""} {
if [onchan [join [lindex $text 1]] [lindex $text 0]] {
if {[lindex $text 2] !=""} {
putquick "kick [lindex $text 0] [lindex $text 1] :[join [lrange $text 2 end]]"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "kick [lindex $text 0] [lindex $text 1] :Vous venez d'être kické par $nick !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Réussi !"
}
} else {
putquick "NOTICE $nick :Le pseudo [lindex $text 1] n'est pas sur [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Erreur pseudo pas présent sur le salon demander !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick kick #channel (pseudo raison ou sans) ! )"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Désolé je ne peux kiké je suis deop !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Erreur Robot actuellement Deop demande impossible pour le moment !"
}
} else {
putquick "NOTICE $nick :Désolé je me trouve actuellement pas sur le salon demandé !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Erreur je suis Absent du salon demandé !"
}
} else {
putquick "NOTICE $nick :Vous n'êtes pas sur [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Erreur pseudo pas sur le salon demandé !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Opérateur sur [lindex $text 0] requis) !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Ce salon n'est pas enregistré !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Salon demander non enregistré !"
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( /msg $botnick kick #channel <pseudo> (raison) ! )"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Kick\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

###########################################
############## Ban / Unban ################
###########################################

set log "#Op-Trip"
bind PUB - .ban banchan
proc banchan { nick uhost hand chan text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [matchattr $hand |o $chan] {
if {$text != ""} {
if [string match *!*@* [lindex $text 0]] {
putquick "mode $chan +b [lindex $text 0]"
putserv "PRIVMSG $log :\0033\[\0034Ban\0033\] \0032Par $nick \0031Réussi !"
} else {
if {[llength [getchanhost [lindex $text 0]]]!=0} {
putquick "mode $chan +b [getchanhost [lindex $text 0]]"
putserv "PRIVMSG $log :\0033\[\0034Ban\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Ce pseudo n'est pas connecté au t'Chat"
putserv "PRIVMSG $log :\0033\[\0034Ban\0033\] \0032Par $nick \0031Erreur pseudo Absent du server !"
}
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( .ban <pseudo/host> ! )"
putserv "PRIVMSG $log :\0033\[\0034Ban\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Opérateur sur $chan requis) !"
putserv "PRIVMSG $log :\0033\[\0034Ban\0033\] \0032Par $nick \0031Refusé Opérateur inconnu !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Ban\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Ban\0033\] \0032Par $nick \0031Na aucun accés !"
}
}

set log "#Op-Trip"
bind PUB - .unban unbanc
proc unbanc { nick uhost hand chan text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [matchattr $hand |o $chan] {
if {$text != ""} {
if [string match -nocase *!*@* [lindex $text 0]] {
putquick "mode $chan -b [lindex $text 0]"
putserv "PRIVMSG $log :\0033\[\0034Unban\0033\] \0032Par $nick \0031Réussi !"
} else {
if {[llength [getchanhost [lindex $text 0]]]!=0} {
set uh "[lindex $text 0]![getchanhost [lindex $text 0]]"
foreach bsyntaxe [chanbans $chan] {
if [string match -nocase [lindex $bsyntaxe 0] $uh] {
putquick "mode $chan -b [lindex $bsyntaxe 0]"
putserv "PRIVMSG $log :\0033\[\0034Unban\0033\] \0032Par $nick \0031Réussi !"
}
}
} else {
putquick "NOTICE $nick :Ce pseudo n'est pas connecté au t'Chat !"
putserv "PRIVMSG $log :\0033\[\0034Unban\0033\] \0032Par $nick \0031Erreur pseudo Absent du server !"
}
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( .unban <pseudo/host> ! )"
putserv "PRIVMSG $log :\0033\[\0034Unban\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Opérateur sur $chan requis) !"
putserv "PRIVMSG $log :\0033\[\0034Unban\0033\] \0032Par $nick \0031Refusé Opérateur inconnu"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Unban\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Unban\0033\] \0032Par $nick \0031Na auncun accés !"
}
}



###########################################
###############Auto-Reop###################
###########################################

bind MODE - "* -o" reopbot
proc reopbot { nick uhost hand chan mc target } {
global cibledeop niubot_chan niubot_pass


if {[isbotnick "$target"]&&(![isbotnick "$nick"])} {
putquick "PRIVMSG $niubot_chan(${chan}) :op $niubot_pass"
set cibledeop "$nick"
}}


bind MODE - "* +o" deopcible
proc deopcible { nick uhost hand chan mc target } {
global cibledeop niubot_chan
if {[isbotnick "$target"]} {
if [info exists cibledeop] {
putquick "mode $chan -o $cibledeop"
putquick "mode $chan -imk *"
unset cibledeop
}
if {[chanbans $chan]!=""} {
foreach bl [chanbans $chan] {
putquick "mode $chan -b [lindex $bl 0]"
putquick "PRIVMSG $niubot_chan(${$chan}) :unban [lindex $bl 0] $chan"
}}}}


bind KICK - * protec_kick
proc protec_kick { nick uhost hand chan target reason } {
global cibledeop niubot_chan niubot_pass
if {[isbotnick $target]} {
putquick "PRIVMSG $niubot_chan(${$chan}) :invite $passbot $chan"
set cibledeop "$nick"
}}



###########################################
###############Auto-Unban##################
###########################################

#set log "#Op-Trip"
#bind MODE - "* +b" unban_niubot
#proc unban_niubot { nick uhost hand chan mc target } {
#global niubot_chan niubot_pass botnick log
#if ("$nick"=="")||("$chan"=="$botnick") {return 0}
#if (![isbotnick $nick]) {
#if {[string match -nocase niubot?? $nick]} {
#putquick "PRIVMSG $niubot_chan(${chan}) :unban $target $chan"
#} else {
#set hostmask "[split [getchanhost $nick $chan] @]"
#set hostmask "*!*@[lindex $hostmask 1]"
#putquick "mode $chan -ob+b $nick $target $hostmask"
#putquick "kick $chan $nick :Ban interdit passer par le bot merci !"
#putserv "PRIVMSG $log :\0033\[\0034Anti-Ban\0033\] \0032Par $nick \0031Refusé na pas d'accés banni du salon !"
#}
#}
#}


###########################################
###############Notice-Chan#################
###########################################

set log "#Op-Trip"
bind notc - * nonotice_chanoff
proc nonotice_chanoff { nick uhost hand text dest } {
global botnick log
if ("$nick"=="")||("$dest"=="$botnick") {return 0}
if [validuser [finduser $nick!*@*]]&&[matchattr $hand |o $dest] {return 0}
if [isop $nick $dest]||[isvoice $nick $dest] {return 0}
if ![botisop $dest] {return 0}
if [string match -nocase niubot?? $nick] {return 0}
set host [lindex [split $uhost @] 1]
putquick "mode $dest +b *!*@$host"
putquick "kick $dest $nick :~ Exp/Notice-Chan ~ Pas de notice salon svp"
putserv "PRIVMSG $log :\0033\[\0034Chan-Notice\0033\] \0032Par $nick \0031Refusé na pas d'accés banni du salon !"

}


###########################################
############ Anti-Spam XyLoO ##############
###########################################


bind MSG - spam proc:xyloo_spam
proc proc:xyloo_spam { nick uhost hand text } {
global backroom type_chan botnick
if [string equal XyLoO $nick] {
set type [lindex $text 0]
set salon [lindex $text 1]
set pseudo [lindex $text 2]
set host [lindex $text 3]
if ("$pseudo"=="$botnick") {return 0}
foreach chans [channels] {
if [matchattr [finduser $pseudo!*@*] |m $chans] { return 0 }
if ("$type_chan(${chans})"=="back") {
putserv "PRIVMSG $chans :SPAM $type : Invite de\0032 $pseudo \003\sur $salon !"
} else {
if [botisop $chans] {
putquick "mode $chans +b *!*@$host"
if [onchan $pseudo $chans] {
putquick "kick $chans $pseudo :~ Exp/Spam ~ Spam interdit !"
} else {
putserv "PRIVMSG $chans :Ban préventif ANTI-SPAM ($pseudo) !"
}
}
}
}
}
}



##################################################################
#################### Idle deop/devoice ###########################
##################################################################

bind MSG - idleop proc:idleop
proc proc:idleop { nick uhost hand text } {
global botnick
if [string match -nocase $nick XyLoO] {
putserv "mode [lindex $text 0] -oooooo [join [lrange $text 1 end]]"
putserv "PRIVMSG #Op-Trip :\0033\[\0034Idle-Deop\0033\] \0032Par $botnick \0031Idle trop importante auto-deop Effectué !"
foreach listdeop [lrange $text 1 end] {
puthelp "NOTICE $listdeop :Votre idle sur [lindex $text 0] est trop important : Vous venez d'être deop !"
}
}
}


bind MSG - idlev proc:idlev
proc proc:idlev { nick uhost hand text } {
global botnick
if [string match -nocase $nick XyLoO] {
putserv "mode [lindex $text 0] -vvvvvv [join [lrange $text 1 end]]"
putserv "PRIVMSG #Op-Trip :\0033\[\0034Idle-devoice\0033\] \0032Par $botnick \0031Idle trop importante auto-devoice Effectué !"
foreach listdeop [lrange $text 1 end] {
puthelp "NOTICE $listdeop :Votre idle sur [lindex $text 0] est trop important : Vous venez d'être devoice !"
}
}
}



##################################################################
########################## Blackliste ############################
##################################################################

set log "#Op-Trip"
bind JOIN - * bljoin
proc bljoin { nick uhost hand chan } {
global botnick niubot_chan
if [isban $nick!*@* $chan]||[isban $nick|*!*@* $chan] {
if [string match -nocase *|* $nick] {
set idpseud [string first | $nick]
set idpseudo [expr ($idpseud - 1)]
set pseuok [string range $nick 0 $idpseudo]
set nb $pseuok
} else {
set nb $nick
}
newchanban $chan *![getchanhost $nick] $botnick "Pseudo Blacklisté ($nb) !" 0
putquick "PRIVMSG $niubot_chan(${chan}) :ban *![getchanhost $nick] $chan"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0031Accés sur le salon refusé pseudo Blacklisté !"
}
}

set log "#Op-Trip"
bind PUB - .+blacklist +bl
proc +bl { nick uhost hand chan text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [matchattr $hand |m $chan] {
if {$text != ""} {
if [string match -nocase *!*@* [lindex $text 0]] {
newchanban $chan [lindex $text 0] $nick {Pseudo Blacklisté !} 0
putquick "NOTICE $nick :Blacklist ajouté : [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Blacklist ajouté !"
} else {
newchanban $chan [lindex $text 0]!*@* $nick "Pseudo Blacklisté ([lindex $text 0]) !" 0
newchanban $chan [lindex $text 0]|*!*@* $nick "Pseudo Blacklisté ([lindex $text 0]) !" 0
putquick "NOTICE $nick :Blacklists ajoutés : [lindex $text 0]!*@* !"
putquick "NOTICE $nick :Blacklists ajoutés : [lindex $text 0]|*!*@* !"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Blacklist ajouté !"

}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( .+blacklist <pseudo/host> ! )"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Master sur $chan requis) !"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Refusé Master inconnu !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Na aucun accés !"
}
}


set log "#Op-Trip"
bind PUB m|o .-blacklist -bl
proc -bl { nick uhost hand chan text } {
global auth botnick niubot_chan log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
if [matchattr $hand |m $chan] {
if {$text != ""} {
if [isban [lindex $text 0] $chan] {
killchanban $chan [lindex $text 0]
putquick "PRIVMSG $niubot_chan(${chan}) :unban [lindex $text 0] $chan"
putquick "NOTICE $nick :Blacklist supprimé : [lindex $text 0] !"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Blacklist supprimé !"
} else {
if [isban [lindex $text 0]!*@* $chan] {
foreach bbl [banlist $chan] {
if [string match -nocase ([lindex $text 0]) [lindex [lindex $bbl 1] 2]] {
killchanban $chan [lindex $bbl 0]
putquick "PRIVMSG $niubot_chan(${chan}) :unban [lindex $bbl 0] $chan"
putquick "NOTICE $nick :Blacklist supprimé : [lindex $bbl 0]"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Blacklist supprimé !"
}
}
} else {
putquick "NOTICE $nick :Ce ban ne figure pas dans la Blacklist de $chan !"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Erreur pseudo inconnu dans la Blacklist !"
}
}
} else {
putquick "NOTICE $nick :Syntaxe incorrecte ! ( .+blacklist <pseudo/host> ! )"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Mauvaise syntaxe !"
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Master sur $chan requis) !"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Refusé Master inconnu !"
}
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Na aucun accés !"
}
}


set log
bind PUB - .blacklist blist
proc blist { nick uhost hand chan text } {
global auth botnick nb log
if ("$auth(${hand})"=="$uhost") {
if [matchattr $hand |m $chan] {
if {[llength [banlist $chan]]==0} {
putserv "NOTICE $nick :Aucune entrée dans la blacklist de $chan !"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Erreur aucune Blacklist sur le salon demander !"
} else {
putquick "PRIVMSG $nick :\002\0032\[\0031Liste des Blacklists sur \0034$chan \0032\]"
foreach bl [banlist $chan] {
if [isbotnick [lindex $bl 5]] {
set nb $botnick
} else {
if [string match -nocase *|* [lindex $bl 5]] {
set idpseud [string first | [lindex $bl 5]]
set idpseudo [expr ($idpseud - 1)]
set pseuok [string range [lindex $bl 5] 0 $idpseudo]
set nb $pseuok
} else {
set idpseud [string first | [lindex [getuser [lindex $bl 5] HOSTS] 1]]
set idpseudo [expr ($idpseud - 1)]
set pseuok [string range [lindex [getuser [lindex $bl 5] HOSTS] 1] 0 $idpseudo]
set nb $pseuok
}
}
set raison [lindex $bl 1]
if [string equal ! [lindex $raison 2]] {
putserv "PRIVMSG $nick :\[Non défini\] : [lindex $bl 0] (Ajouté par $nb)"
} else {
putserv "PRIVMSG $nick :[lindex $raison 2] : [lindex $bl 0] (Ajouté par $nb)"
}
}
putserv "PRIVMSG $nick :\0033\[\0031Fin des Blacklists sur \0034$chan \0033\]"
}
} else {
putquick "PRIVMSG $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Master requis) !"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031Refusé Master inconnu !"
}
} else {
putquick "PRIVMSG $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Blacklist\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
}


###########################################
################### Help ##################
###########################################

set log "#Op-Trip"
bind PUB - .help help
proc help { nick uhost hand chan text } {
global auth botnick log
if [validuser [finduser $nick!*@*]] {
if ("$auth(${hand})"=="$uhost") {
puthelp "PRIVMSG $nick :\002\0032\[\0031Liste des commandes disponibles\0032\]\002"
puthelp "PRIVMSG $nick :\002\0032\[Owner\] \0031: \0034\[\0031Addmaster\0034\]\0031\002 - /msg $botnick addmaster <pseudo> <#salon>"
puthelp "PRIVMSG $nick :\002\0032\[Owner\] \0031: \0034\[\0031Delmaster\0034\]\0031\002 - /msg $botnick delmaster <pseudo> <#salon>"
puthelp "PRIVMSG $nick :\002\0032\[Master\] \0031: \0034\[\0031Addop\0034\]\0031\002 - /msg $botnick addop <pseudo> <#salon>"
puthelp "PRIVMSG $nick :\002\0032\[Master\] \0031: \0034\[\0031Delop\0034\]\0031\002 - /msg $botnick delop <pseudo> <#salon>"
puthelp "PRIVMSG $nick :\002\0032\[Opérateur\] \0031: \0034\[\0031Auth\0034\]\0031\002 - /msg $botnick auth <pass>"
puthelp "PRIVMSG $nick :\002\0032\[Opérateur\] \0031: \0034\[\0031Access\0034\]\0031\002 - /msg $botnick access <#salon>"
puthelp "PRIVMSG $nick :\002\0032\[Opérateur\] \0031: \0034\[\0031Op\0034\]\0031\002 - .op <pseudo(s)> - /msg $botnick op <#salon> <pseudo(s)>"
puthelp "PRIVMSG $nick :\002\0032\[Opérateur\] \0031: \0034\[\0031Deop\0034\]\0031\002 - .deop <pseudo(s)> - /msg $botnick deop <#salon> <pseudo(s)>"
puthelp "PRIVMSG $nick :\002\0032\[Opérateur\] \0031: \0034\[\0031Voice\0034\]\0031\002 - .voice <pseudo(s)> - /msg $botnick voice <#salon> <pseudo(s)>"
puthelp "PRIVMSG $nick :\002\0032\[Opérateur\] \0031: \0034\[\0031Devoice\0034\]\0031\002 - .devoice <pseudo(s)> - /msg $botnick devoice <#salon> <pseudo(s)>"
puthelp "PRIVMSG $nick :\002\0032\[Opérateur\] \0031: \0034\[\0031Kick\0034\]\0031\002 - .kick <pseudo> <raison> - /msg $botnick kick <#salon> <pseudo> <raison>"
puthelp "PRIVMSG $nick :\002\0032\[Opérateur\] \0031: \0034\[\0031Ban\0034\]\0031\002 - .ban <pseudo/host> (sur le salon concerné)"
puthelp "PRIVMSG $nick :\002\0032\[\0031Fin de la liste\0032\]\002"
putserv "PRIVMSG $log :\0033\[\0034Help\0033\] \0032Par $nick \0031Réussi !"
} else {
putquick "NOTICE $nick :Veuillez vous identifier au préalable ! ( /msg $botnick auth <pass> )"
putserv "PRIVMSG $log :\0033\[\0034Help\0033\] \0032Par $nick \0031N'est pas Authentifier !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
putserv "PRIVMSG $log :\0033\[\0034Help\0033\] \0032Par $nick \0031Na auncun accés !"
}
}





######### TESTS #########

bind pub - .insultes proc:insultes
proc proc:insultes { nick uhost hand chan text } {
set ::temp [open insultes.txt "RDWR"]
foreach rtemp [read $::temp] {
lappend ltemp $rtemp
}
putserv "PRIVMSG #op-trip :$ltemp"
close $::temp
}


bind pub - .+insulte proc:addinsultes
proc proc:addinsultes { nick uhost hand chan text } {
set ::temp [open insultes.txt "RDWR APPend"]
puts $::temp "$text"
close $::temp
}


bind pub - .-insulte proc:delinsultes
proc proc:delinsultes { nick uhost hand chan text } {
set ::temp [open insultes.txt "RDWR"]
foreach rtemp [read $::temp] {
lappend ltemp $rtemp
}
set idmot [lsearch $ltemp [lindex $text 0]]
set ltemp [lreplace $ltemp $idmot $idmot ""]
puts $::temp "$ltemp"
close $::temp
}


###########################################
################### Help ##################
###########################################

set aidechan "#Trip"
set back "#Op-Trip"
bind pub - .sos pub:sos
proc pub:sos {nick host hand channel arg} {
     global botnick aidechan back
     if {$channel!="$aidechan"} {
     if {$channel!="$back"} {
    return 0
    }
    }
     set msg [lrange $arg 0 end]
     if {$msg == ""} {
     return 0
     }
     putquick "NOTICE $back :\0034Appel .sos de \00312<$nick>\0031 $msg"
     putserv "PRIVMSG $back :\0033\[\0034Sos\0033\] \0032Par $nick \0031Effectuer !"
     return 1
}

############
# Infoline #
############

bind join - "*" infoline
proc infoline { nick uhost hand chan } {
set info1 "alias_angelius"
set info2 "Socom"
set info3 "LilieChou"
if {$nick=="$info1"} {
  putserv "PRIVMSG $chan :\2\[$info1\]\2 \0034Avec IRC... J'ai pas la quote avec les filles... Pourtant je m'habille a la /mode... j'ai pas d' /ame... je fume des /join... la /list est longue... Alors !kick que tu sois , respecte moi :)"
  return 0
}

if {$nick=="$info2"} {
  putserv "PRIVMSG $chan :\2\[$info2\]\2 \002\0032Beaucoup de réflexion et non beaucoup de connaissances, voilà à quoi il faut tendre."
  return
}

if {$nick=="$info3"} {
  putserv "PRIVMSG $chan :\2\[$info3\]\2 \002\00313J\0031e suis un ange et dieu m'a condamné à la plus belle sanctions. Je suis condamnée à t'aimer pour l'éternité..!!\002"
  return
}
}

putlog "Gestion.tcl chargé !"