Kick et KickBans rapides

[TechNicienInfo]

tclcopier

bind pub - !script script
proc script {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "PRIVMSG $nick Tu doit être Halfop pour utiliser cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}
      putquick "KICK $chan $vnick $nick : 5Votre script est trop voyant, vous devez être plus discret !   ( 12Http://Site.com"
      return
   } else {
      puthelp "NOTICE $nick Syntaxe !! !script pseudo"
      return
   }
}
 
bind pub - !sexe sexe
proc sexe {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "PRIVMSG $nick Tu doit être Halfop pour utiliser cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}
      putquick "KICK $chan $vnick $nick : 5Pas de sexe sur ce salon, il y en a d'autres pour ça !   ( 12Http://Site.com"
      return
   } else {
      puthelp "NOTICE $nick Syntaxe !! !sexe pseudo"
      return
   }
}