set cs "ChanServ"
set chanlog "#Services"
set vhostexempt {
 *@domain.tld
}
 
bind pub o !kr kickraison
bind pub o !kflood kickflood
 
proc kickraison { nick host hand channel text } {
 global cs chanlog vhostexempt
 set args [split $text]
 set victim [lindex $args 0]
 set reason [join [lrange $args 1 end]]
 if { ![onchan $victim $channel] } {
   putserv "PRIVMSG $channel :\0034$victim \00312n'est pas là \0037$nick"
return 0
 }
 set vichost [getchanhost $victim $channel]
 set protec 0
 foreach vhost $vhostexempt {
if { [string match -nocase $vhost $vichost] } {
 set protec 1
}
 }
 if { $protec == 1 } {
   putserv "NOTICE $nick :\002\0034ATTENTION \002\0036$victim \00312Est dans la liste des pseudos protégés \0037$nick \00312!!!"
   } else {
   putkick $channel $victim $reason
   putserv "PRIVMSG $chanlog :\0034$victim \00312a été kick de \0034$channel \00312par \0034$nick \00312pour la raison :\0037 $reason"
 }
}
 
proc kickflood { nick host hand channel arg } {
 global cs chanlog vhostexempt
 if { ![onchan $arg $channel] } {
   putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
return 0
 }
 set vichost [getchanhost $arg $channel]
 set protec 0
 foreach vhost $vhostexempt {
if { [string match -nocase $vhost $vichost] } {
 set protec 1
}
 }
 if { $protec == 1 } {
   putserv "NOTICE $nick :\002\0034ATTENTION \002\0036$arg \00312Est dans la liste des pseudos protégés \0037$nick \00312!!!"
   } else {
   putkick $channel $arg \00312Le flood est interdit sur les salons officiels !
   putserv "PRIVMSG $chanlog :\0034$arg \00312a été kick de \0034$channel \00312par \0034$nick \00312pour flood."
 }
}

putkick $channel $arg "\00312Le flood est interdit sur les salons officiels !"