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


Tcl qui reconnaitrait et annoncerait les ircops entrant sur un salon précis
#16
Bonsoir! Me basant sur ton exemple, j'en suis arrivé (avec un ami qui m'a un peu aider à adapter ton exemple) à cette conclusion

Code:
bind raw - "JOIN" cs:scan
proc cs:scan {f k t} {
set user [lindex [split $f !] 0]
set salon [string trim [lindex $t 0] :]
if {$salon != "#Staff"} {return}
if {$user == $::botnick} {return}
lappend nick "$user"
putquick "WHOIS $user"
}

bind raw - "313" scan:ircop
proc scan:ircop {f k t} {
global nick
set infos [split $t ":"]
set user [split $infos 0]
if {[onchan $nick "#Staff"]} { putserv "PRIVMSG #Staff:[IRCop] un IRCop vient vous aider : $nick" }
}
J'ai essayé, rien n'a fonctionner... j'ai donc reregarder & ça a donner ça:

Code:
bind raw - "JOIN" cs:scan
proc cs:scan {f k t} {
set user [lindex [split $f !] 0]
set salon [string trim [lindex $t 0] :]
if {$salon != "#Staff"} {return}
if {$user == $::botnick} {return}
lappend nick "$user"
putquick "WHOIS $user"
}

bind raw - 313 scan:ircop
proc scan:ircop {f k t} {
global nick
set infos [split $t ":"]
set user [split $infos 0]
if {[onchan $nick "#Staff"]} { putserv "PRIVMSG #Staff:[IRCop] un IRCop vient vous aider : $nick" }
}
le problème est que ça m'affiche ceci avec le dernier:

Code:
Tcl error [scan:ircop]: invalid command name "IRCop"
Est-ce le "[IRCop]" qui gènerait le fonctionnement?


Messages In This Thread
RE: Tcl qui reconnaitrait et annoncerait les ircops entrant sur un salon précis - by Ab0miFreuX - 26/09/2013, 22:28

Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] attendre que l'egg soit posé pour activer un tcl precis cestlemien 6 5,826 11/06/2014, 13:24
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)