bind pub -|- $poppies(command)calinous poppies:calinou
bind pub -|- $poppies(command)calinou poppies:calinou
proc poppies:calinou {nick uhost hand channel arg} {
global botnick poppies calinou
if ![matchattr $nick $poppies(ignflags) $channel] {
   if {[poppies:flood $nick $uhost]} {
      return 0
   }
}
if {(([lsearch -exact [string tolower $poppies(chans)] [string tolower $channel]] != -1) || ($poppies(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
   if ![string length $arg] {
      puthelp "PRIVMSG $channel :$nick, t'a peut être des grand bras, mais ya beaucoup de monde sur terre tu sait ?"
      return 1
   } elseif {[string tolower [string trim [lindex $arg 0]]] == [string tolower $botnick]} {
      putserv "PRIVMSG $channel :Oh merci $nick, je n'en demandais pas tant!"
      return 1
   } elseif {[string tolower [string trim $arg]] == [string tolower $nick]} {
      putserv "PRIVMSG $channel :$nick, c'est ta vie privé, ça nous regarde pas"
      return 1
   } else {
	set results {
	{%nick choppe %arg et lui fait le plus gros câlins de ça vie}
	{%nick attrape %arg dans ces bras et le câline de toutes ces forces :)}
	{%nick passerais ces journées à te câliner si t'était pas si loin %arg}
	{%nick câline tout le monde, mais surtout toi%arg}
	}
         	regsub -all %nick $results $nick results
         	regsub -all %arg $results $arg results
         	regsub -all %botnick $results $botnick results
			puthelp "PRIVMSG $channel :[lindex $results [rand [llength $results]]]"
     return 1
   }
}
}