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


[Demande] Soucis sur bind mode
#11
Premier test :


tcl
bind mode - *-o* [namespace current]::ReOp
    proc ReOp {nick host hand chan args} {
        set bot [::Opirix::whoisIriX $chan]
        set nick [lindex $args 1]
        if {($bot ne "") && [channel get $chan SalonOp]} {
            putquick "PRIVMSG $bot :op $::Opirix::IriXsal $::botnick"
            putlog "l'eggdrop se op : $bot $::Opirix::IriXsal $::botnick"
            putserv "PRIVMSG $bot :voice $::Opirix::IriXsal $::botnick"
            putlog "l'eggdrop se voice : $bot $::Opirix::IriXsal $::botnick"
            putserv "PRIVMSG $bot :deop $::Opirix::IriXsal $nick"
            putlog "l'eggdrop déop la personne qui la déop : $::Opirix::IriXsal $nick"
            } else {
                putlog "\002\00304\[Refuser\]\002\00314 Je ne suis pas activé sur $chan"
            return 0
            }
    }


Ce qui donne comme résultat sur un deop :

Quote:.[16:47:16] [DéOp] Tu viens de déoper Talk-Me.
.[16:47:17] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:47:17] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:47:17] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:47:17] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:47:25] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:47:26] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:47:27] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:47:33] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:47:35] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:47:35] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:47:40] <undefinedBluE> même pas peur !
.[16:47:41] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:47:43] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:47:43] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:47:48] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:47:50] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:47:51] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:47:56] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:47:59] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:47:59] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:48:05] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:48:07] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:48:07] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:48:12] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:48:14] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:48:14] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:48:20] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:48:22] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:48:22] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:48:28] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:48:31] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:48:31] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:48:31] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:48:32] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:48:40] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:48:43] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:48:43] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:48:45] <Yes_[Mode_Zen]> alias_angelius il flood
.[16:48:49] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:48:51] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:48:51] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:48:56] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:48:58] [DéOp] IriX vient de déoper (mode -o) Talk-Me .
.[16:48:58] [Op] IriX vient d'oper (mode +o) Talk-Me.

Second test :


tcl
bind mode - *-o* [namespace current]::ReOp
    proc ReOp {nick host hand chan args} {
        set bot [::Opirix::whoisIriX $chan]
        #set nick [lindex $args 1]
        if {($bot ne "") && [channel get $chan SalonOp]} {
            putquick "PRIVMSG $bot :op $::Opirix::IriXsal $::botnick"
            putlog "l'eggdrop se op : $bot $::Opirix::IriXsal $::botnick"
            putserv "PRIVMSG $bot :voice $::Opirix::IriXsal $::botnick"
            putlog "l'eggdrop se voice : $bot $::Opirix::IriXsal $::botnick"
            putserv "PRIVMSG $bot :deop $::Opirix::IriXsal $nick"
            putlog "l'eggdrop déop la personne qui la déop : $::Opirix::IriXsal [lindex $args 1]"
            } else {
                putlog "\002\00304\[Refuser\]\002\00314 Je ne suis pas activé sur $chan"
            return 0
            }
    }


Ce qui donne :

Quote:.[16:52:54] [DéOp] Tu viens de déoper Talk-Me.
.[16:52:55] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:52:56] [Voice] IriX vient de voicer (mode +v) Talk-Me.
.[16:52:59] [DéOp] Tu viens de te faire déoper par IriX.
.[16:52:59] [Op] IriX vient d'oper (mode +o) Talk-Me.
.[16:53:06] [Voice] IriX vient de voicer (mode +v) Talk-Me.
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll


Messages In This Thread
Soucis sur bind mode - by aliasangelius - 21/01/2017, 12:24
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 12:43
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 12:48
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 13:39
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 14:07
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 14:40
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 14:58
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 15:04
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 17:19
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 17:34
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 17:54
RE: Soucis sur bind mode - by CrazyCat - 21/01/2017, 18:19
RE: Soucis sur bind mode - by aliasangelius - 21/01/2017, 18:24

Possibly Related Threads…
Thread Author Replies Views Last Post
  [Résolu] bug sur un bind mode Alucard`68 9 4,615 01/02/2017, 15:18
Last Post: Alucard`68
  soucis sur un bind join. aliasangelius 18 8,999 23/10/2011, 13:16
Last Post: CrazyCat
  Soucis tcl - bind join Meribre 4 4,876 23/03/2010, 11:55
Last Post: heretoc
  Problème avec un script TCL (bind mode) Lyokomaster 3 4,389 15/03/2009, 18:05
Last Post: Merwin

Forum Jump:


Users browsing this thread: 1 Guest(s)