namespace eval speak {
	# variable contenant les mots à reconnaitre
	# on pourras utiliser des wildchar * ?
	variable bonjour {salut bonjour slt coucou hello s*l*t}
	# variable contenant les réponses
	# on utilise %n pour pouvoir réécrire le pseudo plus tard
	variable reponse {"coucou %n comment ca va?" "bonjour %n" "salut %n" "wesh gros" "bienvenue %n"}
}
 
bind pubm - * speak::bonjour
 
proc speak::bonjour {nick host hand chan text} {
 
	# on déclare les variable bonjour et réponse
	variable bonjour
	variable reponse

	# on debug le texte et on met tout en minuscules
	set text [stripcodes abcru $text]
	set text [string tolower $text]

	# on test si on trouve le texte dans la variable bonjour
	if {[lsearch $bonjour $text] != -1} {
 
		# on remplace %n par le pseudo
		set rep [string map [list %n $nick] $reponse]

		# on choisi une réponse aléatoire
		set index [rand [llength $rep]]
		set rep [lindex $rep $index]

		# on envoi la réponse choisie
		putserv "PRIVMSG $chan :$rep"

	# on ferme les \} qu on a ouvert plus haut
	}
}