Add selection box on left click drag

2025-10-14 12:41:53 +01:00
parent 7a431f6eec
commit 365821e969
5 changed files with 96 additions and 198 deletions
@@ -65,7 +65,7 @@ windowYFloat = fromIntegral . _windowY

 data DebugBool
    = Show_ms_frame
-    | Enable_debug
+    | Display_debug
    | Show_sound
    | Noclip
    | Cr_status
@@ -91,7 +91,6 @@ data DebugBool
    | Show_zone_circ
    | Inspect_wall
    | Show_path_between
-    | Select_creature
    deriving (Eq, Ord, Bounded, Enum, Show)

 data ResFactor = DoubleRes | FullRes | HalfRes | QuarterRes | EighthRes | SixteenthRes
@@ -49,8 +49,8 @@ data Universe = Universe
    }

 data DebugItem = DebugItem
-    { _debugMessage :: [String]
-    , _debugInfo :: DebugInfo
+    { _debugMessage :: String
+    , _debugFunction :: String -> Universe -> Universe
    }

 data DebugInfo