demande aide script tcl

[CrazyCat]

Donc, pour résumer, tu pars de:

tclcopier

bind pubm - "* # *" pub:retourpub
proc retourpub {nick host handle channel arg} {
   if {[string match *#* $text]} {
      global spamchan spamnick
      set spamchan "[lindex $arg 0]"
      set spamnick "[lindex $arg 1]"
      channel add $spamchan
      utimer 5 msg
   }
}
 
proc msg {} {
   global spamchan spamnick
   putserv "PRIVMSG $spamchan :Spam détecté de la part de $spamnick . Retour de spam : Venez sur pied-davoine2"
   utimer 5 quittt
}
 
proc quittt {} {
   global spamchan spamnick
   channel remove $spamchan
}

Et tu voudrais que ça n'agisse que sur un seul canal ?

Donc, ça pourrait donner:

tclcopier

set mychan "#canal"
bind pubm - "* #*" pub:retourpub
proc retourpub {nick host handle channel arg} {
   if {[string tolower $channel] != $::mychan} { return 0; }
   if {[string match *#* $text]} {
      global spamchan spamnick
      set spamchan "[lindex $arg 0]"
      set spamnick "[lindex $arg 1]"
      channel add $spamchan
      utimer 5 msg
   }
}
 
proc msg {} {
   global spamchan spamnick
   putserv "PRIVMSG $spamchan :Spam détecté de la part de $spamnick . Retour de spam : Venez sur pied-davoine2"
   utimer 5 quittt
}
 
proc quittt {} {
   global spamchan spamnick
   channel remove $spamchan
}

En ce qui concerne le msg et le quit, tu ne peux pas faire grand chose vu que c'est plus ou moins indépendant du canal.

Mais je crois qu'il y a sur ce forum un tcl d'anti-pub.

Nota Bene: eggdrop-fr.org et eggdrop.fr ne sont pas différents, ils ne feraient qu'un si certains (je ne balancerait pas) n'avaient pas paumé les clés d'eggdrop-fr
Mais nous ne sommes pas concurrents, bien au contraire je souhaite profondément qu'une équipe reprenne les choses en main.