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