Communauté Eggdrop

Version complète : comment fais en tcl?
Vous consultez actuellement la version basse qualité d’un document. Voir la version complète avec le bon formatage.
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]
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
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
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"
    }
}


Ou mieux que le putserv:
tcl
pushmode $chan +o $pseudo