[ViewVC] Diff of: cvs/deliantra/server/ext/rent.ext

Comparing deliantra/server/ext/rent.ext (file contents):
Revision 1.3 by root, Thu Jan 4 18:38:22 2007 UTC vs.
Revision 1.6 by root, Sun Jan 21 21:28:27 2007 UTC

    "/pup_land/nurnberg/apartment/main"                   => [  300, "nürnberg", "sauerkraut"],
    "/pup_land/lone_town/apartment/groundfloor"           => [50000, "lone town", "looney"],
    "/brest/apartments/brest_town_house"                  => [30000, "brest", "brecht"],
 );
-sub teleport {
-   my ($pl, $map, $x, $y) = @_;
-   my $portal = cf::object::new "exit";
-   $portal->slaying   ($map);
-   $portal->stats->hp ($x);
-   $portal->stats->sp ($y);
-   $portal->apply ($pl->ob);
-   $portal->destroy;
-}
 # we have to special case some special cases :)
 sub reject_entry {
    my ($pl) = @_;
    cf::override;
-   $pl->goto_map ("/world/world_105_115", 2, 34)
+   $pl->goto ("/world/world_105_115", 2, 34)
       unless
          $pl->ob->map
          && !$pl->ob->map->{path}{user_rel};
 }
       $pl->ob->reply (undef, "Sir, you have to rent this apartment in The Apartment Shop in Scorn first!");
       reject_entry $pl;
    },
 ;
-our $RENT_TIMER = Event->timer (after => 60, interval => 3600, data => cf::WF_AUTOCANCEL, cb => sub {
+our $RENT_TIMER = Event->timer (
+   reentrant => 0,
+   after     => 60,
+   interval  => 3600,
+   data      => cf::WF_AUTOCANCEL,
+   cb        => sub {
-   pay_balance $_ for cf::player::list;
+      pay_balance $_ for cf::player::list;
+   },
-});
+);

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines