#! perl # mandatory

# this extension provides "environmental effects",
# meaning mostly background music and region messages right now.

our %MUSIC_QUEUE;

our $MUSIC_SCHEDULER = cf::async_ext {
   while () {
      for (keys %MUSIC_QUEUE) {
         delete $MUSIC_QUEUE{$_};
         my $pl = cf::player::find_active $_
            or next;

         my $map = $pl->ob->map
            or next;

         # 1. update map-specific music info
         unless (exists $map->{music}) {

         }

         # 2. fall back to region if no map-specific music
         unless ($map->{music}) {
         }

         cf::cede_to_tick;
      }
      Coro::schedule unless %MUSIC_QUEUE;
   }
};

cf::player->attach (
   on_region_change => sub {
      my ($pl, $new, $old) = @_;

      $pl->ob->message ("You are now " . $new->longname . ". H<Use whereami for more details.>", $new->longname);

      $MUSIC_QUEUE{$pl->ob->name} = undef;
      $MUSIC_SCHEDULER->ready;
   },
   on_map_change => sub {
      my ($pl, $new) = @_;

      $MUSIC_QUEUE{$pl->ob->name} = undef;
      $MUSIC_SCHEDULER->ready;
   },
);