[ViewVC] Diff of: cvs/deliantra/server/ext/bank.ext

Comparing deliantra/server/ext/bank.ext (file contents):
Revision 1.5 by root, Thu Apr 10 15:35:16 2008 UTC vs.
Revision 1.10 by elmex, Tue Mar 9 14:48:17 2010 UTC

    $is_wiz
       ? $who->name . " has $account_info."
       : "You have $account_info."
 }
+sub transaction_all {
+   my ($who, $action) = @_;
+   my $money = $who->query_money;
+   if ($action eq 'deposit') {
+      return "Sorry, you don't seem to have any money to deposit."
+         unless $money > 0;
+      if ($who->pay_amount ($money)) {
+         $who->{bank_balance} += $money;
+         my $account_info = cf::cost_string_from_value $money;
+         return "$account_info received.";
+      } else {
+         return "Sorry, but we can't reach all your money. Something is wrong.";
+      }
+   } elsif ($action eq 'withdraw') {
+      $who->pay_player ($who->{bank_balance});
+      my $account_info = cf::cost_string_from_value $who->{bank_balance};
+      $who->{bank_balance} = 0;
+      return "You withdrew $account_info.";
+   }
+   return "Sorry, we don't know what you mean by '$action'."
+}
 sub transaction {
    my ($who, $action, $amount, $currency) = @_;
    my $coin = cf::coin_from_name $currency
       or return "We don't trade in that currency.\n";
    $currency = $amount > 1 ? $coin->name_pl : $coin->name;
    my $pay = $amount * $coin->value;
    # First check for possible overflow and user stupidity
-   if ($amount > 2**30) {
+   if ($pay > 2**30) {
-      return "Sorry, we do not handle that kind of money for one $action.";
+      return "Sorry, we do not handle that amount of money for one $action.";
-   } elsif ($amount == 0) {
+   } elsif ($pay == 0) {
       return "You can not $action nothing.";
-   } elsif ($amount < 0) {
+   } elsif ($pay < 0) {
       return "You can not $action negative values.";
    }
    # Here we handle the transactions
    if ($action eq "deposit") {
 sub help {
    my ($command) = @_;
    if ($command eq "") {
       return "You can:
       deposit <amount> <currency>
       withdraw <amount> <currency>
       balance
       help rates
       help <deposit|withdraw|balance>";
    } elsif ($command eq "deposit") {
       return "You can deposit some of the money you don't currently use in our bank. To do this, ask me to:
-      deposit <amount> <currency>\nSee help rates for our currencies.";
+      deposit <amount> <currency>\nOr, to deposit all your money: deposit all\nSee help rates for our currencies.";
    } elsif ($command eq "withdraw") {
       return "To get the money you stored in our system back, just say:
-      withdraw <amount> <currency>";
+      withdraw <amount> <currency>\nOr withdraw all to withdraw all your money.";
    } elsif ($command eq "balance") {
       return "I can tell you how much money you are saving in our bank, just ask me about your balance.";
    } elsif ($command eq "rates") {
       my @coins = cf::coin_archetypes;
-      my $exchange_rates = "Here is a list of exchange rates:\n\n\n";
+      my $exchange_rates = "Here is a list of exchange rates:\n\n";
       for my $f (0 .. $#coins) {
          for my $t ($f + 1 .. $#coins) {
             $exchange_rates .=
-               sprintf "One %s is %d %s.\n\n",
+               sprintf " One %s is %d %s.\n",
                   $coins[$f]->name,
                   (calc_exchange_rate 1, $coins[$f], $coins[$t]),
                   $coins[$t]->name_pl;
          }
       }
-      return "$exchange_rates\n\nThis may change a bit with the stock markets but don't expect it to be much.";
+      return "$exchange_rates\nThis may change a bit with the stock markets but don't expect it to be much.";
    }
 }
 cf::register_script_function "bank::command" => sub {
    my ($who, $msg, $npc) = @_;
    if ($cmd eq "balance") {
       if ($who->flag (cf::FLAG_WIZ) && $arguments =~ /\S/) {
          cf::async {
             if (my $player = cf::player::find $arguments) {
-               $who->contr->send_msg (
+               $who->reply ($npc,
-                  $ext::chat::SAY_CHANNEL, "Nancy says: " . balance ($player->ob, 1),
+                  "Nancy says: " . balance ($player->ob, 1),
                   cf::NDI_BROWN | cf::NDI_REPLY
-               ) if $who->contr;
+               );
             }
          };
       } else {
          $who->reply ($npc, balance ($who, 0));
       }
    } elsif ($cmd eq "balance" and !$arguments) {
       $who->reply ($npc, "Balance of whom?");
    } elsif ($cmd eq "deposit" and $currency) {
       $who->reply ($npc, transaction $who, "deposit", $amount, $currency);
+   } elsif ($cmd eq 'deposit' and $amount eq 'all') {
+      $who->reply ($npc, transaction_all $who, "deposit");
    } elsif ($cmd eq "deposit" and $amount and $currency eq "") {
       $who->reply ($npc, "deposit $amount of what: " . join ", ", cf::coin_names);
    } elsif ($cmd eq "deposit" and $amount eq "" and $currency eq "") {
       $who->reply ($npc, "How much do you want to deposit?");
+   } elsif ($cmd eq 'withdraw' and $amount eq 'all') {
+      $who->reply ($npc, transaction_all $who, "withdraw");
    } elsif ($cmd eq "withdraw" and $currency) {
       $who->reply ($npc, transaction $who, "withdraw", $amount, $currency);
    } elsif ($cmd eq "withdraw" and $amount and $currency eq "") {
       $who->reply ($npc, "Withdraw $amount of what: " . join ", ", cf::coin_names);

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/server/ext/bank.ext (file contents): Revision 1.5 by root, Thu Apr 10 15:35:16 2008 UTC vs. Revision 1.10 by elmex, Tue Mar 9 14:48:17 2010 UTC

Diff Legend

Comparing deliantra/server/ext/bank.ext (file contents):
Revision 1.5 by root, Thu Apr 10 15:35:16 2008 UTC vs.
Revision 1.10 by elmex, Tue Mar 9 14:48:17 2010 UTC