… | |
… | |
2045 | |
2045 | |
2046 | $flags = cf::NDI_BROWN | cf::NDI_UNIQUE unless @_ >= 4; |
2046 | $flags = cf::NDI_BROWN | cf::NDI_UNIQUE unless @_ >= 4; |
2047 | |
2047 | |
2048 | if ($self->{record_replies}) { |
2048 | if ($self->{record_replies}) { |
2049 | push @{ $self->{record_replies} }, [$npc, $msg, $flags]; |
2049 | push @{ $self->{record_replies} }, [$npc, $msg, $flags]; |
|
|
2050 | |
2050 | } else { |
2051 | } else { |
|
|
2052 | my $pl = $self->contr; |
|
|
2053 | |
|
|
2054 | if ($pl->{npc_dialog} && $pl->{npc_dialog}->{id}) { |
|
|
2055 | my $diag = $pl->{npc_dialog}; |
|
|
2056 | $diag->{pl}->ext_reply ( |
|
|
2057 | $diag->{id}, msgtype => "reply", msg => $msg, add_topics => [] |
|
|
2058 | ); |
|
|
2059 | |
|
|
2060 | } else { |
2051 | $msg = $npc->name . " says: $msg" if $npc; |
2061 | $msg = $npc->name . " says: $msg" if $npc; |
2052 | $self->message ($msg, $flags); |
2062 | $self->message ($msg, $flags); |
|
|
2063 | } |
2053 | } |
2064 | } |
2054 | } |
2065 | } |
2055 | |
2066 | |
2056 | =item $player_object->may ("access") |
2067 | =item $player_object->may ("access") |
2057 | |
2068 | |