… | |
… | |
44 | $pl->{rent}{balance} += $offline + $online; |
44 | $pl->{rent}{balance} += $offline + $online; |
45 | } |
45 | } |
46 | |
46 | |
47 | sub pay_balance { |
47 | sub pay_balance { |
48 | my ($pl) = @_; |
48 | my ($pl) = @_; |
|
|
49 | |
|
|
50 | cf::cede_to_tick; |
49 | |
51 | |
50 | update_balance $pl; |
52 | update_balance $pl; |
51 | |
53 | |
52 | return unless $pl->{rent}{balance} > 0; |
54 | return unless $pl->{rent}{balance} > 0; |
53 | |
55 | |
… | |
… | |
186 | our $RENT_TIMER = Event->timer ( |
188 | our $RENT_TIMER = Event->timer ( |
187 | reentrant => 0, |
189 | reentrant => 0, |
188 | after => 60, |
190 | after => 60, |
189 | interval => 3600, |
191 | interval => 3600, |
190 | data => cf::WF_AUTOCANCEL, |
192 | data => cf::WF_AUTOCANCEL, |
191 | cb => sub { |
193 | cb => Coro::unblock_sub { |
192 | pay_balance $_ for cf::player::list; |
194 | pay_balance $_ for cf::player::list; |
193 | }, |
195 | }, |
194 | ); |
196 | ); |
195 | |
197 | |