--- deliantra/server/ext/rent.ext	2006/12/15 19:29:18	1.1
+++ deliantra/server/ext/rent.ext	2007/11/14 08:09:46	1.12
@@ -14,29 +14,14 @@
    "/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;
+   my $prev_pos = $pl->ob->{_prev_pos};
+   $pl->ob->goto ($prev_pos ? @$prev_pos : ("/world/world_105_115", 2, 34));
 
-   teleport $pl, "/world/world_105_115", 2, 34
-      unless
-         $pl->ob->map
-         && $pl->ob->map->path !~ /nimbus/
-         && $pl->ob->map->path !~ m%/var/crossfire/players/%;
+   cf::override;
 }
 
 sub update_balance {
@@ -62,6 +47,8 @@
 sub pay_balance {
    my ($pl) = @_;
 
+   cf::cede_to_tick;
+
    update_balance $pl;
 
    return unless $pl->{rent}{balance} > 0;
@@ -74,11 +61,11 @@
       cf::db_put rent => balance => $deduct + cf::db_get rent => "balance";
       $pl->ob->{bank_balance} -= $deduct;
       $pl->{rent}{balance} -= $deduct;
-      $pl->ob->reply (undef, "Something whispers into your ear:\n"
-                           . "Sir, we deducted your apartment rent ($deduct_string) from your bank account.");
+      $pl->ob->reply (undef, "Something whispers into your ear: "
+                           . "Your highness, we deducted your apartment rent ($deduct_string) from your bank account.");
    } else {
-      $pl->ob->reply (undef, "Something whispers into your ear:\n"
-                           . "Sir, we want to deduct the apartment rent ($deduct_string), but the bank informed us that they cannot perform the transaction. "
+      $pl->ob->reply (undef, "Something whispers into your ear: "
+                           . "Your highness, we want to deduct the apartment rent ($deduct_string), but the bank informed us that they cannot perform the transaction. "
                            . "Please even out your balance so we can deduct the fees, otherwise we will be forced to shut down your access to the apartment.");
    }
 }
@@ -107,7 +94,7 @@
       my $type = exists $pl->{rent}{apartment}{$k} ? 1 : 2;
 
       $pl->ob->reply (undef, "model \"$v->[2]\", situated in $v->[1] ("
-                      . (cf::cost_string_from_value $v->[0]) . "/hr)")
+                      . (cf::cost_string_from_value $v->[0]) . "/hr)\n")
          if $type & $types;
    }
 };
@@ -132,7 +119,7 @@
 
    $pl->{rent}{apartment}{$apartment} = undef;
 
-   $pl->ob->reply (undef, "Wonderful decision, sir! "
+   $pl->ob->reply (undef, "Wonderful decision, your highness! "
                         . "We told the proprietor in $apartment{$apartment}[1] to expect you and let you in. "
                         . "We are sure you will be satisfied!");
 };
@@ -150,7 +137,8 @@
    $pl->ob->reply (undef, "I am sorry to hear that, we will immediately stop charging you for your apartment, of course.");
 };
 
-cf::attach_to_players prio => 100,
+cf::player->attach (
+   prio     => 100,
    on_login => sub {
       my ($pl) = @_;
 
@@ -165,43 +153,39 @@
       }
 
       update_balance $pl;
-   };
+   },
+);
 
-cf::register_map_attachment rent =>
+cf::map::attachment rent =>
    on_enter => sub {
       my ($map, $pl, $x, $y) = @_;
 
-      # can freely enter homes of other people
-      {
-         my $path = sprintf "%s/%s/%s/",
-            cf::localdir, cf::playerdir, $pl->ob->name;
+      my $pfx = sprintf "~%s/", $pl->ob->name;
 
-         return if $path ne substr $map->path, 0, length $path;
-      }
+      # only do something if entering ones own apartment
+      if ($pfx eq substr $map->path, 0, length $pfx) {
+         for my $path (keys %{ $pl->{rent}{apartment} }) {
+            $path = sprintf "~%s%s", $pl->ob->name, $path;
+
+            if ($map->path eq $path) {
+               if (check_balance $pl) {
+                  $pl->ob->reply (undef, "Welcome to your apartment, your highness!");
+               } else {
+                  $pl->ob->reply (undef, "We are sorry, your highness, you have to pay your rent first.");
+                  reject_entry $pl;
+               }
 
-      for my $path (keys %{ $pl->{rent}{apartment} }) {
-         $path =~ y/\//_/;
-         $path = sprintf "%s/%s/%s/%s",
-            cf::localdir, cf::playerdir, $pl->ob->name, $path;
-
-         if ($map->path eq $path) {
-            if (check_balance $pl) {
-               $pl->ob->reply (undef, "Welcome to your apartment, sir!");
-            } else {
-               $pl->ob->reply (undef, "We are sorry, sir, you have to pay your rent first.");
-               reject_entry $pl;
+               return;
             }
-
-            return;
          }
-      }
 
-      $pl->ob->reply (undef, "Sir, you have to rent this apartment in The Apartment Shop in Scorn first!");
-      reject_entry $pl;
+         $pl->ob->reply (undef, "Your highness, you have to rent this apartment in The Apartment Shop in Scorn first!");
+         reject_entry $pl;
+      }
    },
 ;
 
-Event->timer (after => 60, interval => 3600, data => cf::WF_AUTOCANCEL, cb => sub {
+our $RENT_TIMER = cf::periodic 3600, Coro::unblock_sub {
    pay_balance $_ for cf::player::list;
-});
+};