| … | |
… | |
| 33 | # and time in the format of 2006-05-19 03:21:31 UTC instead of 1148001691 |
33 | # and time in the format of 2006-05-19 03:21:31 UTC instead of 1148001691 |
| 34 | # seconds since 1970-01-01 00:00:00 UTC. |
34 | # seconds since 1970-01-01 00:00:00 UTC. |
| 35 | sub balance { |
35 | sub balance { |
| 36 | my ($who, $is_wiz) = @_; |
36 | my ($who, $is_wiz) = @_; |
| 37 | my $balance = $who->{bank_balance}; |
37 | my $balance = $who->{bank_balance}; |
| 38 | warn "BALA $balance<<\n"; |
|
|
| 39 | |
38 | |
| 40 | unless ($is_wiz) { |
39 | unless ($is_wiz) { |
| 41 | return "Sorry, you have no balance." |
40 | return "Sorry, you have no balance." |
| 42 | unless $balance >= 1; |
41 | unless $balance >= 1; |
| 43 | } else { |
42 | } else { |
