… | |
… | |
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 { |