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 | + |