bind join - "*" join:avjoin
 
proc join:avjoin { nick uhost hand chan } {
 global botnick
 if {$nick == $botnick} {return 0} {
   putserv "mode $chan +v $nick"
   return 0
 }
}

set exemptnick "nick nick1 etc..."
 
bind join - "*" join:avjoin
 
proc join:avjoin { nick uhost hand chan } {
 global botnick exemptnick
 if {$nick == $botnick} {return 0}
 if {$nick == $exemptnick} {return 0} {
   putserv "mode $chan +v $nick"
   return 0
 }
}

if { ($nick == $::nick) || ($nick in $exemptnick) } then {
    return 0
} else {
    ....
}

set exemptnick "nick nick1 nick2 nick3"
 
bind join - "*" join:avjoin
 
proc join:avjoin { nick uhost hand chan } {
 global botnick exemptnick
 if { ($nick == $::nick) || ($nick in $exemptnick) } then {
   return 0
 } else {
   putserv "mode $chan +v $nick"
   return 0
 }
}

set exemptnick "nick nick1 nick2 nick3"
setupdef flag AutoVoice
 
bind join - "*" join:avjoin
 
proc join:avjoin { nick uhost hand chan } {
 if { (![channel get $chan AutoVoice]) || ($nick == $::nick) || ($nick in $::exemptnick) } then {
   return 0
 } else {
     pushmode $chan +v $nick
   return 0
 }
}

#**********#
# Vip V1.0 #
#**********#

# Description du code TCL.

#***************************************#
# TCL en NameSpace.                     #
# Utilisation de msgcat.                #
#***************************************#
 
namespace eval ::vip {
   
   # Salon back ou va se situé l'autorise.
   variable salons "#informatique"
   # Nom du fichier ou seront les pseudos autorisé.
   variable fichiers "vip.db"
   # Procédure de création du fichier Vip.
   if {![file exists $fichiers]} {
       set load [open $fichiers w+]
       close $load
       putlog "\2Je crée le fichier $fichiers\2"
   }
   proc filtout {chan text} {
     if [string match "*c*" [getchanmode $chan]] {
           return [stripcodes abcgru $text]
     } else {
           return $text
     }
}
   # Procédure de join.
   bind join - "$::vip::salons *" [namespace current]::joinauto
   proc joinauto {nick host hand chan} {
       variable salons
       if [isbotnick $nick] return
       if {[acceesalon $nick]} {
           set msg [filtout $salons "\0031\[ \0033Mode Vip Automatique\0033 \0031\] Comportement exemplaire récompensé pour \002$nick\002 qui est automatiquement VIP ce mois ci sur \002$salons\002"]
           putquick "PRIVMSG $salons :$msg"
           putserv "MODE $salons +v $nick"
           return 0
       }
   }
   # Procédure d'ajout de pseudo Vip.
   bind pub o ".+vip" [namespace current]::+ajout
   proc +ajout { nick host hand chan arg } {
       variable fichiers
       variable salons
       set temp [lindex $arg 0]
       if {$temp == ""} {
           putserv "NOTICE $nick :Utilisation: .+vip <pseudo>"
           putserv "NOTICE $nick :Exemple .+vip $nick"
           return 0
       }
       set lis "[fread $fichiers]"
       if {[lsearch -exact "x $fichiers" "$temp"]!="0"} {
           lappend lis $temp
           fwrite $fichiers $temp
           putserv "NOTICE $nick :\002$temp\002 \0034a été ajouté\0034"
           putserv "NOTICE $nick :\002$temp\002 \0034est ajouté au pseudos vip\0034"
           return 0
       }
       putserv "NOTICE $nick :\002Erreur:\002$temp\002 \0034est déjà vip\0034"
       return 0
   }
   # Procédure de suppression de pseudo vip.
   bind pub o ".-vip" [namespace current]::-ajout
   proc -ajout { nick host hand chan arg } {
       variable fichiers
       variable salons
       set temp [lindex $arg 0]
       if {$temp == ""} {
           putserv "NOTICE $nick :Utilisation: .-vip <pseudo>"
           putserv "NOTICE $nick :Exemple: .-vip $nick"
           return 0
       }
       set autoajout "[fread $fichiers]"
       set tmp ""
       foreach bb $autoajout {
           if {![string match $temp $bb]} {lappend tmp $bb}
       }
       fdel $fichiers $tmp
       putserv "NOTICE $nick :\002$temp\002 \0034supprimé des vip\0034"
       putserv "NOTICE $nick :\002$temp\002 \0034est supprimé des pseudo vip\0034"
       return 0
   }
   # Procédure pour voir la liste des vip.
   bind pub o ".vip" [namespace current]::auto
   proc auto { nick host hand chan arg } {
       variable fichiers
       variable salons
       set fp [open $fichiers "r"]
       set fc -1
       putserv "notice $nick :\037\00300,01 -> Liste des vip. <-\037\003"
       while {![eof $fp]} {
           set data [gets $fp]
           incr fc
           if {$data !=""} {
               putserv "notice $nick :\0031\[ \0034$data\0031\0031 ]\0031"
           }
           unset data
       }
       close $fp
       putserv "notice $nick :\037\00300,01 -> Fin de la liste des vip. <-\037\003"
   }
   # Ne pas toucher Systeme Proc  !!
   proc acceesalon {nick} {
       variable fichiers
       set fa [open $fichiers r]
       set access 0
       while { ![eof $fa]} {
       set ligne [gets $fa]
       if {[string tolower $nick] == [string tolower $ligne]} {
           set access 1
       }
       }
close $fa
return $access
   }
   # Procédure d'écriture de fichier.
   proc fwrite {fi arg} {
       set f [open $fi a]
       puts $f $arg
       close $f
   }
   # Procédure de suppression de fichier.
   proc fdel {fi arg} {
       set f [open $fi w]
       puts $f $arg
       close $f
   }
   # Procédure de lecture de fichier.
   proc fread {fi} {
       set f [open $fi r]
       set t [gets $f]
       close $f
       return $t
   }
}
putlog "\002\0034Chargement.. \002\037\0031Vip.tcl\037\0031"