comment fais en tcl?
#1
hello, à quoi correspondrait le code en tcl lors que quelqu'un est deopé sur le salon, ca le reop aussitot

un autoreop sur un deop, sachant que tout le monde est op
dés qu'un user est deop , que ca le reop

merci[/quote]
Répondre Avertir
#2
bonjour,

peut etre quelque chose comme cela "code by Alias_Angelius"

TCL
set SalonOp "#TONSALON"
	bind join - * OpAuto
    proc OpAuto { nick host hand chan } {
    if {$chan == "$SalonOp"} {
      putserv "mode $chan +o $nick"
      return 0
       }
	}
 
    bind mode - *-o*  AutoReOp
    proc AutoReOp { nick host hand chan mode pseudo } {
      if { $pseudo == $nick } {
        putserv "mode $chan +o $nick"
      }
    }




je n'ai pas testé le code.


Cordialement DnS
[font=Times New Roman]La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.[/font]
Répondre Avertir
#3
Non le deop ne marche pas
en on join, j'ai :

Citation :bind join - "*" opauto
proc opauto { nick uhost hand chan } {
if {[string tolower $chan] =="#le-bistrot" && [isop $botnick $chan]} {
putserv "mode $chan +o $nick"
}
}

mais lors d'un deop, rien ne marche
Répondre Avertir
#4
TCL
bind mode - *-o*  AutoReOp
proc AutoReOp {nick host hand chan mode pseudo} {
    if {![string equal -nocase $pseudo $nick] && [string equal -nocase $chan "#ton_salon"] && [botisop $chan]} {
       putserv "mode $chan +o $pseudo"
    }
}


C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir
#5
Ou mieux que le putserv:
TCL
pushmode $chan +o $pseudo


Répondre


Atteindre :


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