| … | |
… | |
| 89 | return "You can not $action nothing."; |
89 | return "You can not $action nothing."; |
| 90 | } elsif ($pay < 0) { |
90 | } elsif ($pay < 0) { |
| 91 | return "You can not $action negative values."; |
91 | return "You can not $action negative values."; |
| 92 | } |
92 | } |
| 93 | |
93 | |
| 94 | # Here we handle the transactions |
94 | # Here we handle the transactions |
| 95 | if ($action eq "deposit") { |
95 | if ($action eq "deposit") { |
| 96 | if ($who->pay_amount ($pay)) { |
96 | if ($who->pay_amount ($pay)) { |
| 97 | $who->{bank_balance} += $pay; |
97 | $who->{bank_balance} += $pay; |
| 98 | return "$amount $currency received."; |
98 | return "$amount $currency received."; |
| 99 | } else { |
99 | } else { |
