111 lines
2.9 KiB
Haskell
111 lines
2.9 KiB
Haskell
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.Terminal (
|
|
module Dodge.Data.Terminal,
|
|
module Dodge.Data.Terminal.Status,
|
|
) where
|
|
|
|
import Sound.Data
|
|
import Color
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
import qualified Data.Map.Strict as M
|
|
import Dodge.Data.BlBl
|
|
import Dodge.Data.Terminal.Status
|
|
import Dodge.Data.WorldEffect
|
|
|
|
--data TerminalInput = TerminalInput
|
|
-- { _tiSel :: (Int, Int)
|
|
-- }
|
|
|
|
data Terminal = Terminal
|
|
{ _tmID :: Int
|
|
, _tmBootLines :: [TerminalLine]
|
|
, _tmButtonID :: Int
|
|
, _tmMachineID :: Int
|
|
, _tmExternalColor :: Color
|
|
, _tmDisplayedLines :: [(String, Color)]
|
|
, _tmFutureLines :: [TerminalLine]
|
|
, _tmScrollCommands :: [TerminalCommand]
|
|
, _tmDeathEffect :: TmWdWd
|
|
, _tmStatus :: TerminalStatus
|
|
, _tmCommandHistory :: [String]
|
|
, _tmToggles :: M.Map String TerminalToggle
|
|
, _tmPartialCommand :: Maybe TerminalCommand
|
|
}
|
|
|
|
data TerminalLineString = TerminalLineConst String Color
|
|
|
|
data TerminalLine = TLine
|
|
{ _tlPause :: Int
|
|
, _tlString :: [TerminalLineString] -- World -> (String, Color)
|
|
, _tlEffect :: TmWdWd --Terminal -> World -> World
|
|
}
|
|
|
|
data TerminalToggle = TerminalToggle
|
|
{ _ttTriggerID :: Int
|
|
, _ttDeathEffect :: BlBl
|
|
}
|
|
|
|
data EffectArguments
|
|
= NoArguments {_cmdEffect :: [TerminalLine]}
|
|
| OneArgument
|
|
{ _argType :: String
|
|
, _argList :: M.Map String [TerminalLine]
|
|
}
|
|
|
|
data TerminalCommandEffect
|
|
= TerminalCommandArguments EffectArguments
|
|
| TerminalCommandEffectDamageCoding
|
|
| TerminalCommandEffectSensorParameter
|
|
| TerminalCommandEffectLinkedObject
|
|
| TerminalCommandEffectHelp
|
|
| TerminalCommandEffectNoArgumentsStr String
|
|
| TerminalCommandEffectCommands
|
|
| TerminalCommandEffectSingleCommand WdWd [String]
|
|
| TerminalCommandEffectNone
|
|
|
|
data TerminalCommand = TerminalCommand
|
|
{ _tcString :: String
|
|
, _tcAlias :: [String]
|
|
, _tcHelp :: String
|
|
, _tcEffect :: TerminalCommandEffect -- Terminal -> World -> EffectArguments
|
|
}
|
|
|
|
--data TCom = TCom
|
|
-- { _tcomHelp :: String
|
|
-- , _tcomArgs :: Trie Char [TerminalLine]
|
|
-- }
|
|
|
|
data TmWdWd
|
|
= TmWdId
|
|
| TmWdWdDisconnectTerminal
|
|
| TmWdWdfromWdWd WdWd
|
|
| TmWdWdTermSound SoundID
|
|
| TmWdWdDoDeathTriggers
|
|
| TmTmClearDisplayedLines
|
|
| TmTmSetStatus TerminalStatus
|
|
| TmTmSetPartialCommand (Maybe TerminalCommand)
|
|
|
|
makeLenses ''Terminal
|
|
makeLenses ''TerminalLine
|
|
makeLenses ''TerminalToggle
|
|
makeLenses ''EffectArguments
|
|
makeLenses ''TerminalCommand
|
|
concat
|
|
<$> mapM
|
|
(deriveJSON defaultOptions)
|
|
[ ''TerminalLineString
|
|
, ''TerminalLine
|
|
, ''TerminalToggle
|
|
, ''EffectArguments
|
|
, ''TerminalCommandEffect
|
|
, ''TerminalCommand
|
|
, ''TmWdWd
|
|
, ''Terminal
|
|
]
|