#! perl

# handle the nimbus map and other stuff

my @STATS = qw(
   Str Dex Con Wis Cha Int Pow
   wc ac hp maxhp sp maxsp grace maxgrace
   exp food dam luck
);

sub stats_get($) {
   my ($stats, $save) = @_;

   for my $stat (@STATS) {
      $save->{$stat} = $stats->$stat;
   }
   
   $save
}

sub stats_fix($) {
   my ($stats) = @_;

   $stats->hp    = $stats->maxhp;
   $stats->grace = $stats->maxgrace;
   $stats->food  = 999;
}

sub stats_set($$) {
   my ($stats, $save) = @_;

   for my $stat (@STATS) {
      $stats->$stat ($save->{$stat});
   }
}

sub skills_get($) {
   my ($ob) = @_;

   [map [$_->skill, $_->exp],
       grep $_->type == cf::SKILL,
          $ob->inv]
}

sub skills_set($) {
   die;
}

# called when the player will likely die (modulo explore mode)
# but before any stats/exp is changed
sub on_player_death {
   my ($event) = @_;

   my $ob = $event->{who};
   my $pl = $ob->contr;

   # save player stats and experience to restore it later

   my $save = {
      stats      => stats_get $ob->stats,
      orig_stats => stats_get $pl->orig_stats,
      savebed    => [$pl->get_savebed],
      skill_exp  => skills_get $ob,
   };

   $ob->{nimbus_save} = $save;

   my $path = sprintf "%s/%s/%s/%s",
      cf::localdir, cf::playerdir, $ob->name, "nimbus";

   my $nimbus = cf::map::get_map "/schmorp/nimbus";
   $nimbus->set_path ($path);
   $nimbus->set_unique (1);
   
   $pl->set_savebed ($path, 24, 12);
}

sub on_trigger {
   my ($event) = @_;
   my $options = $event->{options};
   my $ob = $event->{activator};
   my $pl = $ob->contr;
   my @savebed;

   warn "trigger $options $ob->{nimbus_save}\n";#d#
   warn $ob->name;

   if (my $save = delete $ob->{nimbus_save}) {
      @savebed = @{$save->{savebed}};

      use Data::Dumper;
      print STDERR Dumper $save;
   } else {
      @savebed = ("/scorn/taverns/inn", 10, 5);
   }

   $pl->set_savebed (@savebed);

   # TODO: you wake up...
   $ob->teleport (cf::map::get_map $savebed[0], $savebed[1], $savebed[2]);

   # TODO: invalidate map

   1
}