SHOW:
|
|
- or go back to the newest paste.
| 1 | bind msgm - * noInsultMe | |
| 2 | array set ::userinsults {}
| |
| 3 | set ::userinsults($nick) 0 | |
| 4 | - | |
| 4 | + | proc noInsultMe {nick uhost hand text} {
|
| 5 | - | |
| 5 | + | global userinsults |
| 6 | - | |
| 6 | + | set insults {
|
| 7 | - | proc noInsultMe {nick uhost hand text} {
|
| 7 | + | "put?" |
| 8 | - | |
| 8 | + | "guarr?" |
| 9 | - | |
| 9 | + | "zorr?" |
| 10 | - | |
| 10 | + | } |
| 11 | - | |
| 11 | + | foreach insult $insults {
|
| 12 | - | |
| 12 | + | if {[string match -nocase $insult $text]} {
|
| 13 | - | |
| 13 | + | incr ::userinsults($nick) |
| 14 | - | global userinsults |
| 14 | + | putserv "privmsg $nick :ha insultado $::userinsults($nick) veces" |
| 15 | - | |
| 15 | + | } |
| 16 | - | |
| 16 | + | } |
| 17 | - | |
| 17 | + |
