| … | |
… | |
| 187 | |
187 | |
| 188 | $other->ob->{ext_ignore_tell}{$name} >= time |
188 | $other->ob->{ext_ignore_tell}{$name} >= time |
| 189 | or delete $other->ob->{ext_ignore_tell}{$name}; |
189 | or delete $other->ob->{ext_ignore_tell}{$name}; |
| 190 | |
190 | |
| 191 | if ($other->ob->{ext_ignore_tell}{$name} < time) { |
191 | if ($other->ob->{ext_ignore_tell}{$name} < time) { |
| 192 | utf8::encode $msg; # ->message not yet utf8-ified |
192 | utf8::encode $args; # ->message not yet utf8-ified |
| 193 | cf::LOG cf::llevDebug, sprintf "TELL [%s>%s] %s\n", $name, $other->ob->name, $args; |
193 | cf::LOG cf::llevDebug, sprintf "TELL [%s>%s] %s\n", $name, $other->ob->name, $args; |
| 194 | |
194 | |
| 195 | $who->message ("You tell " . $other->ob->name . ": $args"); |
195 | $who->message ("You tell " . $other->ob->name . ": $args"); |
| 196 | $other->ob->message ("$name tells you: $args"); |
196 | $other->ob->message ("$name tells you: $args"); |
| 197 | $who->{ext_last_tell} = $other->ob->name; |
197 | $who->{ext_last_tell} = $other->ob->name; |
