| … | |
… | |
| 88 | } else { |
88 | } else { |
| 89 | return "You don't have enough money with you."; |
89 | return "You don't have enough money with you."; |
| 90 | } |
90 | } |
| 91 | } elsif ($action eq "withdraw") { |
91 | } elsif ($action eq "withdraw") { |
| 92 | if ($pay <= $who->{bank_balance}) { |
92 | if ($pay <= $who->{bank_balance}) { |
|
|
93 | my $paid = $who->pay_player_arch ( |
|
|
94 | $currency eq 'royalty' ? 'royalty' : $currency . "coin", |
|
|
95 | $amount |
|
|
96 | ); |
|
|
97 | if ($paid) { |
| 93 | $who->{bank_balance} -= $pay; |
98 | $who->{bank_balance} -= $pay; |
| 94 | if ($currency eq "royalty") { |
|
|
| 95 | my $money = cf::object::new "royalty"; |
|
|
| 96 | $money->set_property (1, 24, $amount); |
|
|
| 97 | $money->take ($who); |
|
|
| 98 | } else { |
99 | } else { |
| 99 | my $money = cf::object::new $currency . "coin"; |
100 | $amount = 0; |
| 100 | $money->set_property (1, 24, $amount); |
|
|
| 101 | $money->take ($who); |
|
|
| 102 | } |
101 | } |
| 103 | return "Withdrew $amount $currency"; |
102 | return "Withdrew $amount $currency"; |
| 104 | } else { |
103 | } else { |
| 105 | return "You don't have that much money on your bank account."; |
104 | return "You don't have that much money on your bank account."; |
| 106 | } |
105 | } |
