Communauté sur les Eggdrops - Community about Eggdrops
comment fais en tcl? - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Thread: comment fais en tcl? (/showthread.php?tid=1007)



comment fais en tcl? - zyrte - 08/08/2011

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]


RE: comment fais en tcl? - fedora - 08/08/2011

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


RE: comment fais en tcl? - zyrte - 08/08/2011

Non le deop ne marche pas
en on join, j'ai :

Quote: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



RE: comment fais en tcl? - djkenny - 08/08/2011


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"
    }
}




RE: comment fais en tcl? - CrazyCat - 08/08/2011

Ou mieux que le putserv:

tcl
pushmode $chan +o $pseudo