46 lines
1.1 KiB
Haskell
46 lines
1.1 KiB
Haskell
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.HUD where
|
|
|
|
import Control.Lens
|
|
import qualified Data.IntSet as IS
|
|
import Dodge.Data.Combine
|
|
import Dodge.Data.Item.Location
|
|
import Dodge.Data.SelectionList
|
|
import Geometry.Data
|
|
import NewInt
|
|
|
|
data SubInventory
|
|
= NoSubInventory
|
|
| ExamineInventory
|
|
| MapperInventory
|
|
{ _mapInvOffset :: Point2
|
|
, _mapInvZoom :: Float
|
|
, _mapInvItmID :: NewInt ItmInt
|
|
}
|
|
| CombineInventory
|
|
{ _ciSections :: IMSS CombItem
|
|
, _ciSelection :: Maybe Selection
|
|
, _ciFilter :: Maybe String
|
|
}
|
|
| DisplayTerminal {_termID :: Int}
|
|
|
|
data HUD = HUD
|
|
{ _subInventory :: SubInventory
|
|
, _diSections :: IMSS ()
|
|
, _diSelection :: Maybe Selection
|
|
, _diInvFilter :: Maybe String
|
|
, _diCloseFilter :: Maybe String
|
|
, _closeItems :: [NewInt ItmInt]
|
|
, _closeButtons :: [Int]
|
|
}
|
|
|
|
data Selection = Sel {_slSec :: Int, _slInt :: Int, _slSet :: IS.IntSet}
|
|
|
|
makeLenses ''HUD
|
|
makeLenses ''Selection
|
|
makeLenses ''SubInventory
|