#! perl

use List::Util;

my %apartment = (
   "/scorn/apartment/apartments"                         => [    1, "scorn", "skorn"],
   "/santo/dominion/sdomino/appartment"                  => [   10, "santo dominion", "domino"],
   "/darcap/darcap/apartment"                            => [   30, "darcap", "thecap"],
   "/navar_city/apartments/apartment"                    => [  250, "navar", "navar"],
   "/azumauindo/ranbounagisatoshi/apartments/sapartment" => [  100, "乱暴渚都市", "benjo"],
   "/azumauindo/suno-yamatoshi/apartments/lapartment1"   => [ 1000, "スノー大和島根", "sama"],
   "/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->free;
}

sub update_balance {
   my ($pl) = @_;

   my $NOW = time;

   # 1 silver per day per level per apartment of kingdom tax
   my $offline = (List::Util::min 30, ($NOW - $pl->{rent}{last_offline_check}) / 86400)
                 * (cf::exp_to_level $pl->ob->stats->exp)
                 * scalar keys %{ $pl->{rent}{apartment} };

   # once per hour per map rented
   my $online = ($NOW - $pl->{rent}{last_offline_check}) / 3600
                * List::Util::sum map $apartment{$_}[0], keys %{ $pl->{rent}{apartment} };

   #TODO: add to {balance}
   warn "off $offline on $online\n";#d#
}

sub pay_balance {
   my ($pl) = @_;

   #TODO: rob the bank if balance > 0
}

sub find_apartment {
   my ($pl, $name) = @_;

   #TODO: find apartment or reply with error
}

cf::register_script_function "rent::overview" => sub {
   my ($pl, $types) = @_;

   while (my ($k, $v) = each %apartment) {
      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)")
         if $type & $types;
   }
};

cf::register_script_function "rent::status" => sub {
   my ($pl, $types) = @_;

   if ($pl->{rent}{balance} <= 0) {
      $pl->ob->reply (undef, "You have no debts to pay.");
   } else {
      $pl->ob->reply (undef, "You owe us " . (cf::cost_string_from_value $pl->{rent}{balance}) . ".");
   }
};

cf::register_script_function "rent::rent" => sub {
   my ($pl, $apartment) = @_;

   $apartment = find_apartment $apartment
      or return;

   update_balance $pl;

   $pl->{rent}{apartment}{$apartment} = undef;
};

cf::register_script_function "rent::stop" => sub {
   my ($pl, $apartment) = @_;

   $apartment = find_apartment $apartment
      or return;

   update_balance $pl;

   delete $pl->{rent}{apartment}{$apartment};
};

cf::attach_to_players prio => 100,
   on_login => sub {
      return;
      my ($pl) = @_;

      use Data::Dumper;
      warn Dumper $pl;

      $pl->{rent}{last_offline_check} ||= time;

      if ($pl->{rent}{last_online_check}) {
         $pl->{rent}{last_online_check} = time
            - List::Util::min 3600,
                 $pl->ob->get_ob_key_value ("schmorplog_last_save") - $pl->{rent}{last_online_check};
      } else {
         $pl->{rent}{last_online_check} = time;
      }

      update_balance $pl;
   };

cf::register_map_attachment rent =>
   on_enter => sub {
      return;
      my ($map, $pl, $x, $y) = @_;

#      teleport $pl, "/world/world_105_115", 2, 34;
#      cf::override;
   };