bind pub -|- $poppies(command)fouet poppies:fouet
proc poppies:fouet {nick uhost hand channel arg} {
global botnick owner poppies
if ![matchattr $nick $poppies(ignflags) $channel] {
   if {[poppies:flood $nick $uhost]} {
      return 0
   }
}
if {($nick != $botnick)} {
   if ![string length $arg] {
      puthelp "PRIVMSG $channel :oui $nick, tu as un joli fouet."
      return 1
   } elseif {[string tolower [lindex $arg 0]] == [string tolower $botnick]} {
      putserv "PRIVMSG $channel :tu oserais fouetter une innocente $nick ?"
      return 1
   } elseif {[string tolower $arg] == [string tolower $nick]} {
      putserv "PRIVMSG $channel :Vas-y $nick, ça ne peut que te faire du bien !"
      return 1
   } elseif {[string tolower $arg] == [string tolower $owner]} {
      putserv "PRIVMSG $channel :Ah non! Pas touche à $owner!"
     return 1
   } else {
      putserv "PRIVMSG $channel :$nick sort son fouet et applique une bonne correction à $arg."
      return 1
   }}}