scritp tcl !bombe

[CrazyCat]

C'est très simple à faire:

tclcopier

bind pub - "!bombe" bombe:go
proc bombe:go { nick uhost handle chan text } {
   set victim [lindex [split $text] 0]
   if { ![onchan $victim $chan] } { return 0; }
   puthelp "PRIVMSG $chan :Détection de la bombe"
   after 3000 puthelp "PRIVMSG $chan :Amorçage de la bombe"
   after 5000 putkick $chan $victim "La bombe vient d'exploser"
}

Bon, il y a surement des erreurs, mais voila en quelques secondes le système