Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


soucis sur un bind join.
#1
Bonjour,

Voila je travail actuellement sur un tcl d'autorisation.
C'est à dire, si tel pseudo et dans le fichier db, il ne sera pas exclu.
Au contraire s'il n’est pas dans le fichier db, il sera exclu du salon.

Mon soucis et lorsque je suis dans le fichier db, il reconnaît bien et applique bien les modes qu'il faut.

Et lorsque je ne suis pas dedans, il dit juste la phrase ou je ne suis pas autorisé, et n'applique aucun mode +b ainsi que le kick.

Je ne vois pas trop comment faire.. Si quelqu'un aurait une idée, ou me signalé à quel endroit et mon erreur.
S’il vous plaît merci.


tcl
bind join - "$::autorise::salonop *" [namespace current]::autor
    proc autor { nick host hand chan} {
        set k [lindex [split $nick |] 0]
        if {$nick == $::botnick} { return 0 }
        if {[progfile autorise cf $k]=="0"} {
            set vnick $nick
            set hostmask "[split [getchanhost $nick $chan] @]"
            set hostmask "!*@*[lindex $hostmask 1]"
            puthelp "privmsg $::autorise::salonop :[msgcat::mc m10] $nick"
            putserv "mode $::autorise::salonop +b $hostmask"
            putserv "mode $::autorise::salonop +b $k!*@*"
            putserv "mode $::autorise::salonop +b $k|*!*@*"
            puthelp "kick $::autorise::salonop $vnick :[msgcat::mc m0]"
            return 1
        } else {
            puthelp "privmsg $::autorise::salonop :[msgcat::mc m1] $nick"
            putserv "mode $::autorise::salonop +ov $nick $nick"
            return 0
        }
    }
}



Messages In This Thread
soucis sur un bind join. - by aliasangelius - 22/10/2011, 09:26
RE: soucis sur un bind join. - by CrazyCat - 22/10/2011, 10:31
RE: soucis sur un bind join. - by CrazyCat - 22/10/2011, 10:46
RE: soucis sur un bind join. - by CrazyCat - 22/10/2011, 11:15
RE: soucis sur un bind join. - by DnS - 22/10/2011, 11:35
RE: soucis sur un bind join. - by DnS - 22/10/2011, 18:39
RE: soucis sur un bind join. - by DnS - 22/10/2011, 18:58
RE: soucis sur un bind join. - by djkenny - 22/10/2011, 20:15
RE: soucis sur un bind join. - by djkenny - 22/10/2011, 23:49
RE: soucis sur un bind join. - by djkenny - 23/10/2011, 10:25
RE: soucis sur un bind join. - by cestlemien - 23/10/2011, 13:09
RE: soucis sur un bind join. - by CrazyCat - 23/10/2011, 13:16

Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] Soucis sur bind mode aliasangelius 12 5,275 21/01/2017, 18:24
Last Post: aliasangelius
  Soucis tcl - bind join Meribre 4 4,920 23/03/2010, 11:55
Last Post: heretoc

Forum Jump:


Users browsing this thread: 1 Guest(s)