#************************************#
# Gestion.Bot V3.                    #
#                                    #
# Système de NameSpace.              #
# Message en msgcat.                 #
# Chan-Log.                          #
# Anti-Flood commandes.              #
# Si le salon de log et en +c le bot #
# annonce quand même sans couleurs.  #
# Nouveau système de blacklist.      #
# Gestion de fichier plus simple.    #
# Système d'auto-voice.              #
# Showcommands dans un fichier.      #
# Les TCL sont en plusieurs parties. #
# Système de welcome unique pour     #
# Chaque salon prédéfini.            #
# Plus de flag utilisation de level. #
#************************************#

namespace eval ::gestion {

    # Avant toutes configuration ci dessous veuillez lire le fichier : introduction.txt CECI ET TRES IMPORTANT.

    # A combien désire tu mettre l'anti-flood commandes.
    # Activé l'Auto-Voice si oui mettez 1 sinon 0.

    # Nous vérifions si ya le package requis pour le msgcat.
    package require msgcat

    # Nous mettons la langue de msgcat en français.
    ::msgcat::mclocale fr

    # Les messages de msgcat.
    ::msgcat::mcset fr ChanLog "\0031\[\0034Chan-Log\0031\]\0031"
    ::msgcat::mcset fr ErrorAuth "\0034Erreur ! \037\0031Veuillez tapez /msg NomDuBot auth <votre-pseudo> <votre-pass> <chan>\037\0031"
    ::msgcat::mcset fr ErrorSalon "\0034Erreur ! \037\0031Salon non valide veuillez mettre le bon salon merci.\037\0031"
    ::msgcat::mcset fr ErrorPseudo "\0034Erreur ! \037\0034Pseudo non correct veuillez mettre un pseudo valide merci.\037\0031"
    ::msgcat::mcset fr ErrorPass "\0034Erreur ! \037\0031Mot de pas incorrect veuillez tapez le bon mot de pass merci.\037\0031"
    ::msgcat::mcset fr ErrorHost "\0034Erreur ! \037\0031Host incorrect ou inconus."
    ::msgcat::mcset fr NoAxx "\0034Erreur ! \037\0031Vous n'avez aucun accèss.\037\0031"
    ::msgcat::mcset fr Auth "\0033Félicitations ! \037\0031Vous êtes maintenant identifié.\037\0031"
    ::msgcat::mcset fr AuthLog "\0033Authentification \037\0031Effectué par\037\0031"
    ::msgcat::mcset fr SaveLog "\0034Info ! \037\0031Sauvegarde des dossiers/fichiers effectuée.\037\0031"

    # Commandes chars Exemple "." ou "!" Ce qui donnera par exemple : .op/!op.
    variable cmdschar "!"
    # Nom de l'admin du bot.
    variable admin "alias_angelius"
    # Nom du salon de log du Robot.
    variable chanlog "#test"
    # Chargement des TCL.
    source [gestion:install_directory]GB/fichier.tcl
    # Les levels des commandes.
    # Vous pouvez changer le level de chaque commande par exemple pour le level op vous désiré mettre 300
    # Changer comme ceci : set level(op) 300 etc..
    # Level Opérateur.
    set level(op) 200
    set level(deop) 200
    set level(voice) 200
    set level(devoice) 200
    set level(kick) 200
    set level(ban) 200
    set level(unban) 200
    set level(kickban) 200
    set level(mode) 200
    set level(access) 200
    set level(deauth) 200
    set level(newpass) 200
    set level(infoline) 200
    set level(alist) 200
    set level(say) 200
    set level(me) 200
    set level(topic) 200
    # Les Procédures.
    # Procédures pour les chargements des tcls.
    set ::gestion(path) "[file dirname [info script]]/"
    proc gestion:install_directory {} {
        return $::gestion(path)
    }
    # Système d'authentification.
    # Par Dj_Kenny. Modifié.
    bind msg - "auth" [namespace current]::auth
    proc auth {nick host hand arg} {
    variable authed ;
    set a [open GB/users.db]
    set users [split [read $a] "\n"]
    close $a
    set salon [lindex $arg 0]
    set pseudo [lindex $arg 1]
    set pass [lindex $arg 2]
    set c [lindex $u 0]
    set ps [lindex $u 1]
    set pa [lindex $u 2]
    set h [lindex $u 4]
    foreach u $users {
        if {![string equal -nocase $c $salon]} {
            puthelp "notice $nick :[::msgcat::mc ErrorSalon]"
            continue
        }
        if {![string equal -nocase $ps $pseudo]} {
            puthelp "notice $nick :[::msgcat::mc ErrorPseudo]"
            continue
        }
        if {![string equal $pa [encpass $pass]]} {
            puthelp "notice $nick :[::msgcat::mc ErrorPass]"
            continue
        }
        if {![string match -nocase $h "$nick!$host"]} {
            puthelp "notice $nick :[::msgcat::mc ErrorHost]"
            continue
        }
        set level [lindex $u 3]
        set authed($nick,$salon) $level
        putserv "notice $nick :[::msgcat::mc Auth]"
        pushmode $salon +o $nick
        return
    }
    putserv "notice $nick :[::msgcat::mc NoAxx]"
    }
}