… | |
… | |
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 | |