bind msgm - * noInsultMe
array set ::userinsults {}
set ::userinsults($nick) 0



    proc noInsultMe {nick uhost hand text} {






global userinsults



            set insults {
                    "put?"
                    "guarr?"
                    "zorr?"

            }
array set ::userinsults {}



            foreach insult $insults {
                    if {[string match -nocase $insult $text]} {


incr ::userinsults($nick)



putserv "privmsg $nick :ha insultado $::userinsults($nick) veces"





}

}
}