Add 8-way cardinal/intercardinal datatype

2024-10-18 12:39:46 +01:00
parent d256bc0443
commit 8b6f5529ff
12 changed files with 267 additions and 157 deletions
@@ -19,9 +19,15 @@ data HUDElement
        }
    | DisplayCarte

+data MouseInventorySelection = NoMouseSel
+        | MouseInvSelect 
+            {_misSelStart :: (Int,Int), _misMaybeEnd :: Maybe (Int,Int)}
+        | MouseInvChosen 
+            {_misChosenStart :: (Int,Int), _misChosenEnd :: (Int,Int)}
+
 data SubInventory
    = NoSubInventory
-        { _nsSelected :: Maybe (Int,Int) 
+        { _nsSelected :: MouseInventorySelection
        , _nsMouseOver :: Maybe (Int,Int)
        }
    | ExamineInventory
@@ -44,3 +50,4 @@ data HUD = HUD
 makeLenses ''HUD
 makeLenses ''HUDElement
 makeLenses ''SubInventory
+makeLenses ''MouseInventorySelection