[Demande] Script 'piège' (Kick à la demande avec compteur de victime)

[CrazyCat]

Oui, il y a deux petits bugs :

tclcopier

set nbk 0
bind pub - "!Cerise" piege:kick
proc piege:kick { nick uhost handle chan args } {
   incr ::nbk
   set reason "Victime N°$::nbk"
   putkick $chan $nick $reason
   return 1
}