bind msgm - * noInsultMe
array set ::userinsults {}
set ::userinsults($nick) 0
proc noInsultMe {nick uhost hand text} {
	global userinsults
	set insults {
		"put?"
		"guarr?"
		"zorr?"
	}
	foreach insult $insults {
		if {[string match -nocase $insult $text]} {
			incr ::userinsults($nick)
			putserv "privmsg $nick :ha insultado $::userinsults($nick) veces"
		}
	}
}