| … | |
… | |
| 149 | } elsif ($currency eq "royalties") { |
149 | } elsif ($currency eq "royalties") { |
| 150 | $currency = "royalty"; |
150 | $currency = "royalty"; |
| 151 | } |
151 | } |
| 152 | |
152 | |
| 153 | if ($cmd eq "balance") { |
153 | if ($cmd eq "balance") { |
| 154 | if ($who->flag (cf::FLAG_WIZ)) { |
154 | if ($who->flag (cf::FLAG_WIZ) && $arguments =~ /\S/) { |
|
|
155 | cf::async { |
| 155 | if (my $player = cf::player::find $arguments) { |
156 | if (my $player = cf::player::find $arguments) { |
| 156 | $who->reply ($npc, balance $player->ob, 1); |
157 | $who->contr->send_msg ( |
|
|
158 | $ext::chat::SAY_CHANNEL, "Nancy says: " . balance ($player->ob, 1), |
|
|
159 | cf::NDI_BROWN | cf::NDI_REPLY |
|
|
160 | ) if $who->contr; |
|
|
161 | } |
| 157 | } |
162 | }; |
| 158 | } else { |
163 | } else { |
| 159 | $who->reply ($npc, balance $who, 0); |
164 | $who->reply ($npc, balance ($who, 0)); |
| 160 | } |
165 | } |
| 161 | |
166 | |
| 162 | } elsif ($cmd eq "balance" and !$arguments) { |
167 | } elsif ($cmd eq "balance" and !$arguments) { |
| 163 | $who->reply ($npc, "Balance of whom?"); |
168 | $who->reply ($npc, "Balance of whom?"); |
| 164 | |
169 | |
