From 34c87628eb3b742fb4f6ceabd8fa9210a064989a Mon Sep 17 00:00:00 2001 From: xolatile Date: Sun, 12 May 2024 10:07:37 -0400 Subject: [PATCH] Added reveal map on M signal... --- source/main.adb | 1 + source/world.adb | 11 +++++++++++ source/world.ads | 2 ++ 3 files changed, 14 insertions(+) diff --git a/source/main.adb b/source/main.adb index 1da4654..72653fa 100644 --- a/source/main.adb +++ b/source/main.adb @@ -111,6 +111,7 @@ procedure main is signal_v => ui_main_style'access, signal_kp_add => zoom_in'access, signal_kp_subtract => zoom_out'access, + signal_m => world.reveal_map'access, others => idle_skip'access ); diff --git a/source/world.adb b/source/world.adb index 9bdc7b1..dd87480 100644 --- a/source/world.adb +++ b/source/world.adb @@ -301,6 +301,17 @@ package body world is core.dash; end mapshot; + ------------------------------------------------------------------------------------------ + + procedure reveal_map is + begin + for x in 0 .. map.width - 1 loop + for y in 0 .. map.height - 1 loop + map.views (x, y) := true; + end loop; + end loop; + end reveal_map; + ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ end world; diff --git a/source/world.ads b/source/world.ads index 5f9bd65..138ae4b 100644 --- a/source/world.ads +++ b/source/world.ads @@ -82,6 +82,8 @@ package world is procedure mapshot (file_path : in string); + procedure reveal_map; + ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ end world;