+- Communauté Eggdrop (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)
+--- Sujet : 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 :
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
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