| … | |
… | |
| 87 | return "$amount $currency received."; |
87 | return "$amount $currency received."; |
| 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 ($who->{bank_balance} - $pay > 0) { |
92 | if ($pay <= $who->{bank_balance}) { |
| 93 | $who->{bank_balance} -= $pay; |
93 | $who->{bank_balance} -= $pay; |
| 94 | if ($currency eq "royalty") { |
94 | if ($currency eq "royalty") { |
| 95 | my $money = cf::object::new "royalty"; |
95 | my $money = cf::object::new "royalty"; |
| 96 | $money->set_property (1, 24, $amount); |
96 | $money->set_property (1, 24, $amount); |
| 97 | $money->insert_in_ob ($who); |
97 | $money->insert_in_ob ($who); |
