| … | |
… | |
| 188 | $pl->ob->reply (undef, "Sir, you have to rent this apartment in The Apartment Shop in Scorn first!"); |
188 | $pl->ob->reply (undef, "Sir, you have to rent this apartment in The Apartment Shop in Scorn first!"); |
| 189 | reject_entry $pl; |
189 | reject_entry $pl; |
| 190 | }, |
190 | }, |
| 191 | ; |
191 | ; |
| 192 | |
192 | |
| 193 | our $RENT_TIMER = Event->timer (after => 60, interval => 3600, data => cf::WF_AUTOCANCEL, cb => sub { |
193 | our $RENT_TIMER = Event->timer ( |
|
|
194 | reentrant => 0, |
|
|
195 | after => 60, |
|
|
196 | interval => 3600, |
|
|
197 | data => cf::WF_AUTOCANCEL, |
|
|
198 | cb => sub { |
| 194 | pay_balance $_ for cf::player::list; |
199 | pay_balance $_ for cf::player::list; |
|
|
200 | }, |
| 195 | }); |
201 | ); |
| 196 | |
202 | |
