| … | |
… | |
| 57 | |
57 | |
| 58 | if ($deduct <= $pl->ob->{bank_balance}) { |
58 | if ($deduct <= $pl->ob->{bank_balance}) { |
| 59 | cf::db_put rent => balance => $deduct + cf::db_get rent => "balance"; |
59 | cf::db_put rent => balance => $deduct + cf::db_get rent => "balance"; |
| 60 | $pl->ob->{bank_balance} -= $deduct; |
60 | $pl->ob->{bank_balance} -= $deduct; |
| 61 | $pl->{rent}{balance} -= $deduct; |
61 | $pl->{rent}{balance} -= $deduct; |
| 62 | $pl->ob->reply (undef, "Something whispers into your ear:\n" |
62 | $pl->ob->reply (undef, "Something whispers into your ear: " |
| 63 | . "Your highness, we deducted your apartment rent ($deduct_string) from your bank account."); |
63 | . "Your highness, we deducted your apartment rent ($deduct_string) from your bank account."); |
| 64 | } else { |
64 | } else { |
| 65 | $pl->ob->reply (undef, "Something whispers into your ear:\n" |
65 | $pl->ob->reply (undef, "Something whispers into your ear: " |
| 66 | . "Your highness, we want to deduct the apartment rent ($deduct_string), but the bank informed us that they cannot perform the transaction. " |
66 | . "Your highness, we want to deduct the apartment rent ($deduct_string), but the bank informed us that they cannot perform the transaction. " |
| 67 | . "Please even out your balance so we can deduct the fees, otherwise we will be forced to shut down your access to the apartment."); |
67 | . "Please even out your balance so we can deduct the fees, otherwise we will be forced to shut down your access to the apartment."); |
| 68 | } |
68 | } |
| 69 | } |
69 | } |
| 70 | |
70 | |
| … | |
… | |
| 90 | |
90 | |
| 91 | while (my ($k, $v) = each %apartment) { |
91 | while (my ($k, $v) = each %apartment) { |
| 92 | my $type = exists $pl->{rent}{apartment}{$k} ? 1 : 2; |
92 | my $type = exists $pl->{rent}{apartment}{$k} ? 1 : 2; |
| 93 | |
93 | |
| 94 | $pl->ob->reply (undef, "model \"$v->[2]\", situated in $v->[1] (" |
94 | $pl->ob->reply (undef, "model \"$v->[2]\", situated in $v->[1] (" |
| 95 | . (cf::cost_string_from_value $v->[0]) . "/hr)") |
95 | . (cf::cost_string_from_value $v->[0]) . "/hr)\n") |
| 96 | if $type & $types; |
96 | if $type & $types; |
| 97 | } |
97 | } |
| 98 | }; |
98 | }; |
| 99 | |
99 | |
| 100 | cf::register_script_function "rent::status" => sub { |
100 | cf::register_script_function "rent::status" => sub { |
