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