[Script] Probleme TCL
#26
Problème résolu un grand merci a alias_angilus qui ma corriger le problème du tcl voici le code complet qui fonctionne parfaitement

TCL
#################################
#		Script op.tcl			#
#	 Tcl Creat By Toretto		#
#			23/02/2014			#
#								#
####################################
#		Aurel-Tchat Network		   #
#	Server irc://irc.aurel-tchat.fr#
# Site-Web http://aurel-tchat.fr   #
# Forum http://forum.aurel-tchat.fr#
####################################

#####################################################################################
#	Attention Si vous toucher le code vous risquer de le faire planter				#
#		Merci de pas toucher si vous avez aucune connaissance dans le domaine du TCL#
#####################################################################################

#***********************************#
# TCL en NameSpace.                 #
# Utilisation de msgcat.            #
# Utilisation des procédure         #
# Pushmode/Putkick.                 #
#***********************************#
 
namespace eval ::autorise {
 
    # 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
    # Nom du fichier ou seront les pseudos autorisé.
    variable fichiers "operateur.db"
    # Ici ont mets le temps d'opage et de voice en secondes.
    variable opsec 3
    # Les messages de msgcat.
    ::msgcat::mcset fr Join "\0031Auto-Op Accepter Pour \0034%s \0031Sur \0034%s"
    ::msgcat::mcset fr Ajout "\00314Félicitation \0034° \0033%s \0034° \037\0031a etait ajoutà dans la liste des opÃrateur de %s sur l'host %s \037\0031"
    ::msgcat::mcset fr Del "\0031Auto-Op Supprimé Pour \0034%s \0031Sur \0034%s"
    # Listes des binds.
    bind join - "*" [namespace current]::joinauto
    bind pub o "!opadd" [namespace current]::+ajout
    bind pub o "!opdel" [namespace current]::-ajout
    # ProcÃdure de crÃation du fichier Autorise.
    if {![file exists $fichiers]} {
       set load [open $fichiers w+]
       close $load
       putlog "\2Je crée le fichier $fichiers\2"
    }
   # Procédure d'auto-op/voice sur salon.
   proc verif {nick chan} {
    if {[isop $nick $chan]} {return}
        set vnick [lindex [split $nick |] 0]
        putserv "mode $chan +ov $vnick $vnick"
   }
   # Procédure de join.
    proc joinauto {nick host hand chan} {
       if {$nick == $::botnick} { return 0 }
       if {![botisop $chan]} { return 0 }
       if {[acceesalon $nick]==1} {
       putserv "privmsg $chan :[::msgcat::mc Join $nick $chan]"
            utimer $::autorise::opsec [list ::autorise::verif $nick $chan]
            return 1
       }
    }
      # ProcÃdure d'ajout de pseudo autorise.
    proc +ajout { nick host hand chan arg } {
       variable fichiers
       set temp [lindex $arg 0]
       if {$temp == ""} {
            putserv "NOTICE $nick :Utilisation: !opadd <pseudo>"
            putserv "NOTICE $nick :Exemple !opadd $nick"
            return 0
       }
       set lis "[fread $fichiers]"
       set args [split $arg]
       set vnick [lindex $arg 0]
       set host "[split [getchanhost $vnick $chan] @]"
       if {[lsearch -exact "x $fichiers" "$temp"]!="0"} {
            lappend lis $temp
            fwrite $fichiers $temp
            putserv "privmsg $chan :[::msgcat::mc Ajout $vnick $chan $host]"
            utimer $::autorise::opsec [list ::autorise::verif $vnick $chan]
            return 0
       }
       putserv "NOTICE $nick :\002Erreur:\002$temp\002 \0034est dÃjà dans la liste\0034"
       return 0
    }
   # ProcÃdure de suppression de pseudo autorise.
    proc -ajout { nick host hand chan arg } {
       variable fichiers
       set args [split $arg]
       set vnick [lindex $arg 0]
       set temp [lindex $arg 0]
       if {$temp == ""} {
            putserv "NOTICE $nick :Utilisation: !opdel <pseudo>"
            putserv "NOTICE $nick :Exemple: !opdel $nick"
            return 0
       }
       set autoajout "[fread $fichiers]"
       set tmp ""
       foreach bb $autoajout {
            if {![string match $temp $bb]} {lappend tmp $bb}
       }
       fdel $fichiers $tmp
       putserv "privmsg $chan :[::msgcat::mc Del $vnick $chan]"
       return 0
    }
   # ProcÃdure pour voir la liste des autorise.
    bind pub o "!opliste" [namespace current]::auto
    proc auto { nick host hand chan arg } {
       variable fichiers
       set fp [open $fichiers "r"]
       set fc -1
       putserv "notice $nick :\037\00300,01 -> Liste des operateur. <-\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 operateur. <-\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\0031op.tcl V1.0 by toretto\037\0031"


Site Web: Clic ici Nous rejoindres par mIRC -> Clic Ici
inutile d'avoir une grosse machine si il y'a un con deriere l'ecran Very Happy
Répondre Avertir


Messages dans ce sujet
Probleme TCL - par BaGrift - 24/02/2014, 23:46
RE: Probleme TCL - par CrazyCat - 25/02/2014, 19:44
RE: Probleme TCL - par BaGrift - 25/02/2014, 21:03
RE: Probleme TCL - par CrazyCat - 25/02/2014, 23:59
RE: Probleme TCL - par BaGrift - 26/02/2014, 00:23
RE: Probleme TCL - par CrazyCat - 26/02/2014, 00:27
RE: Probleme TCL - par BaGrift - 26/02/2014, 00:30
RE: Probleme TCL - par CrazyCat - 26/02/2014, 00:38
RE: Probleme TCL - par BaGrift - 26/02/2014, 00:44
RE: Probleme TCL - par aliasangelius - 26/02/2014, 13:20
RE: Probleme TCL - par BaGrift - 26/02/2014, 16:11
RE: Probleme TCL - par aliasangelius - 26/02/2014, 16:32
RE: Probleme TCL - par BaGrift - 26/02/2014, 16:48
RE: Probleme TCL - par aliasangelius - 26/02/2014, 16:49
RE: Probleme TCL - par BaGrift - 26/02/2014, 16:58
RE: Probleme TCL - par aliasangelius - 26/02/2014, 17:00
RE: Probleme TCL - par BaGrift - 26/02/2014, 17:36
RE: Probleme TCL - par aliasangelius - 26/02/2014, 17:46
RE: Probleme TCL - par BaGrift - 26/02/2014, 18:02
RE: Probleme TCL - par aliasangelius - 26/02/2014, 18:05
RE: Probleme TCL - par BaGrift - 26/02/2014, 18:06
RE: Probleme TCL - par aliasangelius - 26/02/2014, 18:17
RE: Probleme TCL - par BaGrift - 26/02/2014, 18:21
RE: Probleme TCL - par aliasangelius - 26/02/2014, 18:22
RE: Probleme TCL - par BaGrift - 26/02/2014, 18:24
RE: Probleme TCL - par BaGrift - 27/02/2014, 00:19
RE: Probleme TCL - par aliasangelius - 27/02/2014, 00:23
RE: Probleme TCL - par BaGrift - 27/02/2014, 00:26
RE: Probleme TCL - par BaGrift - 27/02/2014, 16:34

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté