Badnick webcam

[CrazyCat]

Donc en gros:

tclcopier

set actchan "#canalasurveiller"
set modchan "#canaldes modos"
 
bind msg - "cam" avertir
proc avertir { nick handle uhost text } {
   if {[llength [split $text]] == 0 } {
      putserv "PRIVMSG $nick :Il faut donner un nick"
      return 0
   }
   set vict [lindex [split $text] 0]
   set uvict [getchanhost $vict $::actchan]
   if { $uvict eq "" } {
      putserv "PRIVMSG $nick :$vict n'est pas sur $::actchan"
      return 0
   }
   putserv "PRIVMSG $::modchan :Attention: $nick signale que $vict ($uvict) montre ses fesses sur $::actchan"
   return 1
}