… | |
… | |
48 | unless (keys %{$hissells || {}}) { |
48 | unless (keys %{$hissells || {}}) { |
49 | $who->reply ($npc, "I'm sorry, but you sold nothing.\n"); |
49 | $who->reply ($npc, "I'm sorry, but you sold nothing.\n"); |
50 | return 0; |
50 | return 0; |
51 | } |
51 | } |
52 | |
52 | |
53 | my $reply = "You sold:\n\n"; |
53 | my $reply = "T<You sold:>\n\n"; |
54 | |
54 | |
55 | for (keys %$hissells) { |
55 | for (keys %$hissells) { |
56 | my $n = $_; |
56 | my $n = $_; |
57 | $n =~ s/\s*\(unpaid\)//g; |
57 | $n =~ s/\s*\(unpaid\)//g; |
58 | $reply .= " B<$n> (for " . cf::cost_string_from_value ($hissells->{$_}) . ")\n"; |
58 | $reply .= " B<$n> (for " . cf::cost_string_from_value ($hissells->{$_}) . ")\n"; |
… | |
… | |
156 | ; |
156 | ; |
157 | |
157 | |
158 | sub give_back { |
158 | sub give_back { |
159 | my ($who, $what) = @_; |
159 | my ($who, $what) = @_; |
160 | $who->insert ($what); |
160 | $who->insert ($what); |
161 | $who->esrv_send_item ($what); |
|
|
162 | } |
161 | } |
163 | |
162 | |
164 | sub give_back_with_message { |
163 | sub give_back_with_message { |
165 | my ($who, $what, $msg) = @_; |
164 | my ($who, $what, $msg) = @_; |
166 | $who->message ($msg, cf::NDI_BROWN); |
165 | $who->message ($msg, cf::NDI_BROWN); |