#! perl # mandatory

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

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);
   },
);