… | |
… | |
18 | sub reject_entry { |
18 | sub reject_entry { |
19 | my ($pl) = @_; |
19 | my ($pl) = @_; |
20 | |
20 | |
21 | cf::override; |
21 | cf::override; |
22 | |
22 | |
23 | $pl->goto_map ("/world/world_105_115", 2, 34) |
23 | $pl->goto ("/world/world_105_115", 2, 34) |
24 | unless |
24 | unless |
25 | $pl->ob->map |
25 | $pl->ob->map |
26 | && !$pl->ob->map->{path}{user_rel}; |
26 | && !$pl->ob->map->{path}{user_rel}; |
27 | } |
27 | } |
28 | |
28 | |
… | |
… | |
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 | |