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
#13
Donc tu auras compris qu'il te faut un bind join pour avoir une action (un /whois) sur les arrivées sur le canal et deux (ou trois) binds raw pour récupérer le retour du whois.

Voici un source (pas testé, c'est un exemple "théorique"):

tcl
#le canal à surveiller
set canal "#blabla"
 
bind join - "$canal *" ircop:whois
 
proc ircop:whois { nick uhost handle chan } {
   # Si c'est l'eggdrop qui arrive, on sort
   if { $nick == $::botnick } { return 0 }
   putserv "WHOIS $nick"
   return 0
}
 
bind raw - 313 ircop:is
proc ircop:is { frm kw text } {
   # cette procédure n'est déclenchée que si un /whois retourne un status ircop
   set infos [split $text ":"]
   set user [split $infos 0]
   # $user est le nick de l'ircop
   if { [onchan $nick $::canal] } {
      # si l'ircop est sur le canal surveillé
      putserv "PRIVMSG $::canal :Attention $::canal, $nick surveille !"
   }
}


Simple, non ?
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Messages In This Thread
RE: Tcl qui reconnaitrait et annoncerait les ircops entrant sur un salon précis - by CrazyCat - 25/09/2013, 23:38

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

Forum Jump:


Users browsing this thread: 1 Guest(s)