--- deliantra/server/ext/bank.ext	2007/01/07 02:39:14	1.2
+++ deliantra/server/ext/bank.ext	2007/10/05 08:14:23	1.3
@@ -35,6 +35,7 @@
 sub balance {
    my ($who, $is_wiz) = @_;
    my $balance = $who->{bank_balance};
+   warn "BALA $balance<<\n";
 
    unless ($is_wiz) {
       return "Sorry, you have no balance."
@@ -151,12 +152,17 @@
    }
 
    if ($cmd eq "balance") {
-      if ($who->flag (cf::FLAG_WIZ)) {
-         if (my $player = cf::player::find_active $arguments) {
-            $who->reply ($npc, balance $player->ob, 1);
-         }
+      if ($who->flag (cf::FLAG_WIZ) && $arguments =~ /\S/) {
+         cf::async {
+            if (my $player = cf::player::find $arguments) {
+               $who->contr->send_msg (
+                  $ext::chat::SAY_CHANNEL, "Nancy says: " . balance ($player->ob, 1),
+                  cf::NDI_BROWN | cf::NDI_REPLY
+               ) if $who->contr;
+            }
+         };
       } else {
-         $who->reply ($npc, balance $who, 0);
+         $who->reply ($npc, balance ($who, 0));
       }
 
    } elsif ($cmd eq "balance" and !$arguments) {