… | |
… | |
371 | sub cf::object::player::reply($$$;$) { |
371 | sub cf::object::player::reply($$$;$) { |
372 | my ($self, $npc, $msg, $flags) = @_; |
372 | my ($self, $npc, $msg, $flags) = @_; |
373 | |
373 | |
374 | $flags = cf::NDI_BROWN | cf::NDI_UNIQUE unless @_ >= 4; |
374 | $flags = cf::NDI_BROWN | cf::NDI_UNIQUE unless @_ >= 4; |
375 | |
375 | |
|
|
376 | if ($self->{record_replies}) { |
|
|
377 | push @{ $self->{record_replies} }, [$npc, $msg, $flags]; |
|
|
378 | } else { |
376 | $msg = $npc->name . " says: $msg" if $npc; |
379 | $msg = $npc->name . " says: $msg" if $npc; |
377 | |
|
|
378 | $self->message ($msg, $flags); |
380 | $self->message ($msg, $flags); |
|
|
381 | } |
379 | } |
382 | } |
380 | |
383 | |
381 | ############################################################################# |
384 | ############################################################################# |
382 | # map scripting support |
385 | # map scripting support |
383 | |
386 | |