justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Move towards simplifying terminal lines/effects

Browse Source
This commit is contained in:
justin
2025-08-15 11:55:56 +01:00
parent 91d19e7c42
commit 56f4670493
12 changed files with 175 additions and 145 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Data/Terminal.hs
+57 -41
View File
@@ -1,28 +1,29 @@
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE StrictData #-} {-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TemplateHaskell #-}
module Dodge.Data.Terminal where module Dodge.Data.Terminal (
module Dodge.Data.Terminal,
module Dodge.Data.Terminal.Status,
) where
import Sound.Data
import Color import Color
import Control.Lens import Control.Lens
import Data.Aeson import Data.Aeson
import Data.Aeson.TH import Data.Aeson.TH
import qualified Data.Map.Strict as M import qualified Data.Map.Strict as M
import Dodge.Data.WorldEffect
import Dodge.Data.BlBl import Dodge.Data.BlBl
import Dodge.Data.Terminal.Status
data TerminalStatus = TerminalOff | TerminalBusy | TerminalTextInput {_tiText :: String} import Dodge.Data.WorldEffect
-- | TerminalArgumentInput TerminalCommand
deriving Eq
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data TerminalInput = TerminalInput data TerminalInput = TerminalInput
{ --_tiText :: String { --_tiText :: String
_tiSel :: (Int, Int) _tiSel :: (Int, Int)
} }
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data Terminal = Terminal data Terminal = Terminal
{ _tmID :: Int { _tmID :: Int
@@ -40,22 +41,23 @@ data Terminal = Terminal
, _tmCommandHistory :: [String] , _tmCommandHistory :: [String]
, _tmToggles :: M.Map String TerminalToggle , _tmToggles :: M.Map String TerminalToggle
, _tmPartialCommand :: Maybe TerminalCommand , _tmPartialCommand :: Maybe TerminalCommand
-- , _tmType :: TerminalType -- , _tmType :: TerminalType
} }
--deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat) --deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat)
data TerminalType = DefaultTerminal data TerminalType = DefaultTerminal
data TerminalLineString = TerminalLineConst String Color data TerminalLineString = TerminalLineConst String Color
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data TmTm data TmTm
= TmId = TmId
| TmTmClearDisplayedLines -- | TmTmSetPartialCommand (Maybe TerminalCommand)
| TmTmSetStatus TerminalStatus
| TmTmSetPartialCommand (Maybe TerminalCommand) --deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data TerminalLine data TerminalLine
= TerminalLineDisplay = TerminalLineDisplay
@@ -70,15 +72,16 @@ data TerminalLine
{ _tlPause :: Int { _tlPause :: Int
, _tlEffect :: TmWdWd --Terminal -> World -> World , _tlEffect :: TmWdWd --Terminal -> World -> World
} }
--deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat) --deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat)
data TerminalToggle = TerminalToggle data TerminalToggle = TerminalToggle
{ _ttTriggerID :: Int { _ttTriggerID :: Int
, _ttDeathEffect :: BlBl , _ttDeathEffect :: BlBl
} }
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data EffectArguments data EffectArguments
= NoArguments {_cmdEffect :: [TerminalLine]} = NoArguments {_cmdEffect :: [TerminalLine]}
@@ -86,8 +89,9 @@ data EffectArguments
{ _argType :: String { _argType :: String
, _argList :: M.Map String [TerminalLine] , _argList :: M.Map String [TerminalLine]
} }
--deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat) --deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat)
data TerminalCommandEffect data TerminalCommandEffect
= TerminalCommandArguments EffectArguments = TerminalCommandArguments EffectArguments
@@ -99,8 +103,9 @@ data TerminalCommandEffect
| TerminalCommandEffectCommands | TerminalCommandEffectCommands
| TerminalCommandEffectSingleCommand WdWd [String] | TerminalCommandEffectSingleCommand WdWd [String]
| TerminalCommandEffectNone | TerminalCommandEffectNone
--deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat) --deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat)
data TerminalCommand = TerminalCommand data TerminalCommand = TerminalCommand
{ _tcString :: String { _tcString :: String
@@ -108,8 +113,18 @@ data TerminalCommand = TerminalCommand
, _tcHelp :: String , _tcHelp :: String
, _tcEffect :: TerminalCommandEffect -- Terminal -> World -> EffectArguments , _tcEffect :: TerminalCommandEffect -- Terminal -> World -> EffectArguments
} }
--deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat) --deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat)
data TmWdWd
= TmWdId
| TmWdWdDisconnectTerminal
| TmWdWdfromWdWd WdWd
| TmWdWdTermSound SoundID
| TmWdWdDoDeathTriggers
| TmTmClearDisplayedLines
| TmTmSetStatus TerminalStatus
| TmTmSetPartialCommand (Maybe TerminalCommand)
makeLenses ''TerminalInput makeLenses ''TerminalInput
makeLenses ''Terminal makeLenses ''Terminal
@@ -117,17 +132,18 @@ makeLenses ''TerminalLine
makeLenses ''TerminalToggle makeLenses ''TerminalToggle
makeLenses ''EffectArguments makeLenses ''EffectArguments
makeLenses ''TerminalCommand makeLenses ''TerminalCommand
makeLenses ''TerminalStatus concat
concat <$> mapM (deriveJSON defaultOptions) <$> mapM
[ ''TerminalStatus (deriveJSON defaultOptions)
, ''TerminalInput [ ''TerminalInput
, ''TerminalLineString , ''TerminalLineString
, ''TmTm , ''TmTm
, ''TerminalLine , ''TerminalLine
, ''TerminalToggle , ''TerminalToggle
, ''EffectArguments , ''EffectArguments
, ''TerminalCommandEffect , ''TerminalCommandEffect
, ''TerminalCommand , ''TerminalCommand
, ''Terminal , ''TmWdWd
, ''TerminalType , ''Terminal
] , ''TerminalType
]
src/Dodge/Data/WorldEffect.hs
-7
View File
@@ -69,12 +69,6 @@ data DrWdWd
| DoorMechanism | DoorMechanism
--deriving (Eq, Ord, Show, Read) --Generic, Flat) --deriving (Eq, Ord, Show, Read) --Generic, Flat)
data TmWdWd
= TmWdId
| TmWdWdDisconnectTerminal
| TmWdWdfromWdWd WdWd
| TmWdWdTermSound SoundID
| TmWdWdDoDeathTriggers
--deriving (Eq, Show, Read) --, Generic) --deriving (Eq, Show, Read) --, Generic)
--h--deriving (Eq, Show, Read) --Generic, Flat) --h--deriving (Eq, Show, Read) --Generic, Flat)
@@ -85,4 +79,3 @@ deriveJSON defaultOptions ''MdWdWd
deriveJSON defaultOptions ''WdBl deriveJSON defaultOptions ''WdBl
deriveJSON defaultOptions ''WdP2f deriveJSON defaultOptions ''WdP2f
deriveJSON defaultOptions ''DrWdWd deriveJSON defaultOptions ''DrWdWd
deriveJSON defaultOptions ''TmWdWd
src/Dodge/Default/Terminal.hs
+2 -1
View File
@@ -2,9 +2,10 @@ module Dodge.Default.Terminal
( defaultTerminal ( defaultTerminal
) where ) where
import Dodge.Data.Terminal.Status
import Color import Color
import Dodge.Data.Terminal import Dodge.Data.Terminal
import Dodge.Data.WorldEffect --import Dodge.Data.WorldEffect
defaultTerminal :: Terminal defaultTerminal :: Terminal
defaultTerminal = defaultTerminal =
src/Dodge/InputFocus.hs
+4 -7
View File
@@ -1,8 +1,6 @@
module Dodge.InputFocus ( module Dodge.InputFocus (inTextInputFocus) where
inTextInputFocus,
) where
import Control.Monad import Dodge.Data.Terminal.Status
import Data.Maybe import Data.Maybe
import Dodge.Data.World import Dodge.Data.World
import LensHelp import LensHelp
@@ -26,10 +24,9 @@ textInputFocus w = case w ^? hud . hudElement . subInventory of
Just (-1) -> Just $ hud . hudElement . subInventory . ciFilter . _Just Just (-1) -> Just $ hud . hudElement . subInventory . ciFilter . _Just
_ -> Nothing _ -> Nothing
Just DisplayTerminal{_termID = tmid} -> do Just DisplayTerminal{_termID = tmid} -> do
connectionstatus <- w ^? cWorld . lWorld . terminals . ix tmid . tmStatus -- connectionstatus <- w ^? cWorld . lWorld . terminals . ix tmid . tmStatus
-- guard $ connectionstatus == TerminalTextInput -- guard $ connectionstatus == TerminalTextInput
return $ cWorld . lWorld . terminals . ix tmid . tmStatus . tiText return $ cWorld . lWorld . terminals . ix tmid . tmStatus . tiText
_ -> Nothing _ -> Nothing
where where
he = w ^. hud . hudElement he = w ^. hud . hudElement
src/Dodge/Render/HUD.hs
+4 -1
View File
@@ -4,6 +4,7 @@ module Dodge.Render.HUD (
drawHUD, drawHUD,
) where ) where
import Dodge.Data.Terminal.Status
import Control.Applicative import Control.Applicative
import Control.Lens import Control.Lens
import Control.Monad import Control.Monad
@@ -385,7 +386,9 @@ drawTerminalDisplay tid cfig w = fromMaybe mempty $ do
TerminalBusy -> (++ [([cFilledRect], white)]) TerminalBusy -> (++ [([cFilledRect], white)])
TerminalTextInput s -> TerminalTextInput s ->
(++ [(getPromptTM ++ s ++ [cFilledRect], white)]) (++ [(getPromptTM ++ s ++ [cFilledRect], white)])
partcommand tm = maybe "" (++ " ") $ tm ^? tmPartialCommand . _Just . tcString TerminalPressTo s ->
(++ [("PRESS TO "++s, white)])
-- partcommand tm = maybe "" (++ " ") $ tm ^? tmPartialCommand . _Just . tcString
-- displayInputText tm s -- displayInputText tm s
-- | TerminalTextInput <- _tmStatus tm = getPromptTM ++ s -- | TerminalTextInput <- _tmStatus tm = getPromptTM ++ s
---- | _tmStatus tm == TerminalReady = partcommand tm ++ getPromptTM ++ s ---- | _tmStatus tm == TerminalReady = partcommand tm ++ getPromptTM ++ s
src/Dodge/Terminal.hs
+6 -4
View File
@@ -17,6 +17,8 @@ module Dodge.Terminal (
terminalReturnEffect, terminalReturnEffect,
) where ) where
import Dodge.Data.WorldEffect
import Dodge.Data.Terminal.Status
import Color import Color
--import Control.Monad --import Control.Monad
import Data.Char import Data.Char
@@ -51,7 +53,7 @@ connectionBlurbLines tls =
] ]
++ tls ++ tls
++ [ TerminalLineDisplay 10 (TerminalLineConst "READY FOR INPUT" termTextColor)] ++ [ TerminalLineDisplay 10 (TerminalLineConst "READY FOR INPUT" termTextColor)]
++ [TerminalLineTerminalEffect 0 (TmTmSetStatus (TerminalTextInput ""))] ++ [TerminalLineEffect 0 (TmTmSetStatus (TerminalTextInput ""))]
quitCommand :: TerminalCommand quitCommand :: TerminalCommand
quitCommand = quitCommand =
@@ -212,7 +214,7 @@ disconnectTerminal tm =
(cWorld . lWorld . terminals . ix (_tmID tm) . tmStatus .~ TerminalOff) (cWorld . lWorld . terminals . ix (_tmID tm) . tmStatus .~ TerminalOff)
. exitTerminalSubInv . exitTerminalSubInv
. ( cWorld . lWorld . terminals . ix (_tmID tm) . tmFutureLines . ( cWorld . lWorld . terminals . ix (_tmID tm) . tmFutureLines
.~ [TerminalLineTerminalEffect 0 TmTmClearDisplayedLines] .~ [TerminalLineEffect 0 TmTmClearDisplayedLines]
) )
exitTerminalSubInv :: World -> World exitTerminalSubInv :: World -> World
@@ -255,10 +257,10 @@ commandFutureLines s tm w = fromMaybe [errline "^ Invalid command"] $ do
OneArgument argtype m -> OneArgument argtype m ->
let setpartial let setpartial
| null (_tmPartialCommand tm) = | null (_tmPartialCommand tm) =
TerminalLineTerminalEffect 0 (TmTmSetPartialCommand (Just command)) : TerminalLineEffect 0 (TmTmSetPartialCommand (Just command)) :
makeTermPara ("Expects " ++ argtype ++ " as an argument") makeTermPara ("Expects " ++ argtype ++ " as an argument")
| otherwise = | otherwise =
TerminalLineTerminalEffect 0 (TmTmSetPartialCommand Nothing) : TerminalLineEffect 0 (TmTmSetPartialCommand Nothing) :
makeTermPara "No argument input, cancelling" makeTermPara "No argument input, cancelling"
in Just $ in Just $
fromMaybe setpartial $ fromMaybe setpartial $
src/Dodge/Terminal/Color.hs
+2
View File
@@ -2,6 +2,7 @@ module Dodge.Terminal.Color (
termScreenColor, termScreenColor,
) where ) where
import Dodge.Data.Terminal.Status
import Dodge.Data.Terminal import Dodge.Data.Terminal
import Color import Color
import Control.Lens import Control.Lens
@@ -10,4 +11,5 @@ termScreenColor :: Terminal -> Maybe Color
termScreenColor tm = case tm ^. tmStatus of termScreenColor tm = case tm ^. tmStatus of
TerminalOff -> Nothing TerminalOff -> Nothing
TerminalTextInput _ -> Just green TerminalTextInput _ -> Just green
TerminalPressTo{} -> Just green
TerminalBusy -> Just white TerminalBusy -> Just white
src/Dodge/TmTm.hs
+5 -4
View File
@@ -1,11 +1,12 @@
module Dodge.TmTm where module Dodge.TmTm where
import Control.Lens --import Control.Lens
import Dodge.Data.Terminal import Dodge.Data.Terminal
doTmTm :: TmTm -> Terminal -> Terminal doTmTm :: TmTm -> Terminal -> Terminal
doTmTm tmtm = case tmtm of doTmTm tmtm = case tmtm of
TmTmClearDisplayedLines -> tmDisplayedLines .~ [] -- TmTmClearDisplayedLines -> tmDisplayedLines .~ []
TmTmSetStatus s -> tmStatus .~ s -- TmTmSetStatus s -> tmStatus .~ s
TmId -> id TmId -> id
TmTmSetPartialCommand ms -> tmPartialCommand .~ ms -- TmTmSetPartialCommand ms -> tmPartialCommand .~ ms
src/Dodge/Update/Input/InGame.hs
+1
View File
@@ -5,6 +5,7 @@ module Dodge.Update.Input.InGame (
updateMouseInGame, updateMouseInGame,
) where ) where
import Dodge.Data.Terminal.Status
import Control.Applicative import Control.Applicative
import Control.Monad import Control.Monad
import Data.Foldable import Data.Foldable
src/Dodge/Update/Scroll.hs
+1
View File
@@ -2,6 +2,7 @@ module Dodge.Update.Scroll (
updateWheelEvent, updateWheelEvent,
) where ) where
import Dodge.Data.Terminal.Status
import Dodge.Data.EquipType import Dodge.Data.EquipType
import Padding import Padding
import Control.Monad import Control.Monad
src/Dodge/WorldEffect.hs
+11
View File
@@ -6,6 +6,7 @@ module Dodge.WorldEffect (
) where ) where
--import Dodge.DoubleTree --import Dodge.DoubleTree
import Dodge.Data.Terminal.Status
import Dodge.Item.Grammar import Dodge.Item.Grammar
import Dodge.Creature.Impulse.UseItem import Dodge.Creature.Impulse.UseItem
import Dodge.BlBl import Dodge.BlBl
@@ -59,6 +60,7 @@ accessTerminal mtmid w = fromMaybe w $ do
tryToBoot tm = case _tmStatus tm of tryToBoot tm = case _tmStatus tm of
TerminalTextInput {} -> tm TerminalTextInput {} -> tm
TerminalBusy -> tm TerminalBusy -> tm
TerminalPressTo {} -> tm
TerminalOff -> TerminalOff ->
tm tm
& tmFutureLines .~ _tmBootLines tm & tmFutureLines .~ _tmBootLines tm
@@ -93,6 +95,15 @@ doDeathToggle (TerminalToggle trid f) = ix trid %~ doBlBl f
doTmWdWd :: TmWdWd -> Terminal -> World -> World doTmWdWd :: TmWdWd -> Terminal -> World -> World
doTmWdWd tmwdwd = case tmwdwd of doTmWdWd tmwdwd = case tmwdwd of
TmTmClearDisplayedLines -> \tm -> fromMaybe id $ do
tid <- tm ^? tmID
return $ cWorld . lWorld . terminals . ix tid . tmDisplayedLines .~ []
TmTmSetStatus x -> \tm -> fromMaybe id $ do
tid <- tm ^? tmID
return $ cWorld . lWorld . terminals . ix tid . tmStatus .~ x
TmTmSetPartialCommand x -> \tm -> fromMaybe id $ do
tid <- tm ^? tmID
return $ cWorld . lWorld . terminals . ix tid . tmPartialCommand .~ x
TmWdId -> const id TmWdId -> const id
TmWdWdDisconnectTerminal -> disconnectTerminal TmWdWdDisconnectTerminal -> disconnectTerminal
TmWdWdTermSound sid -> \tm w -> TmWdWdTermSound sid -> \tm w ->
tags
+82 -80
View File
@@ -17,7 +17,7 @@
<$> src/Dodge/Data/Camera.hs 39;" o <$> src/Dodge/Data/Camera.hs 39;" o
<$> src/Dodge/Data/Creature.hs 80;" o <$> src/Dodge/Data/Creature.hs 80;" o
<$> src/Dodge/Data/LWorld.hs 184;" o <$> src/Dodge/Data/LWorld.hs 184;" o
<$> src/Dodge/Data/Terminal.hs 121;" o <$> src/Dodge/Data/Terminal.hs 115;" o
ABSOLUTE src/Dodge/Data/Item/Combine.hs 40;" C ABSOLUTE src/Dodge/Data/Item/Combine.hs 40;" C
AIUNIT src/Dodge/Data/Item/Combine.hs 75;" C AIUNIT src/Dodge/Data/Item/Combine.hs 75;" C
ALTERIFLE src/Dodge/Data/Item/Combine.hs 155;" C ALTERIFLE src/Dodge/Data/Item/Combine.hs 155;" C
@@ -337,7 +337,7 @@ DefaultCrGroupUpdate src/Dodge/Data/CrGroupParams.hs 22;" C
DefaultForceField src/Dodge/Data/Item/Use/Consumption/Ammo.hs 11;" C DefaultForceField src/Dodge/Data/Item/Use/Consumption/Ammo.hs 11;" C
DefaultLightSourceDraw src/Dodge/Data/LightSource.hs 13;" C DefaultLightSourceDraw src/Dodge/Data/LightSource.hs 13;" C
DefaultRoomType src/Dodge/Data/Room.hs 31;" C DefaultRoomType src/Dodge/Data/Room.hs 31;" C
DefaultTerminal src/Dodge/Data/Terminal.hs 48;" C DefaultTerminal src/Dodge/Data/Terminal.hs 44;" C
DestroyBeing src/Dodge/Data/Scenario.hs 8;" C DestroyBeing src/Dodge/Data/Scenario.hs 8;" C
DestroyBullet src/Dodge/Data/Bullet.hs 29;" C DestroyBullet src/Dodge/Data/Bullet.hs 29;" C
DestroyItem src/Dodge/Data/Scenario.hs 7;" C DestroyItem src/Dodge/Data/Scenario.hs 7;" C
@@ -393,7 +393,7 @@ Ears src/Dodge/Data/Creature/Perception.hs 47;" C
East src/Dodge/Data/CardinalPoint.hs 5;" C East src/Dodge/Data/CardinalPoint.hs 5;" C
East8 src/Dodge/Data/CardinalPoint.hs 13;" C East8 src/Dodge/Data/CardinalPoint.hs 13;" C
EdgeObstacle src/Dodge/Data/PathGraph.hs 48;" t EdgeObstacle src/Dodge/Data/PathGraph.hs 48;" t
EffectArguments src/Dodge/Data/Terminal.hs 83;" t EffectArguments src/Dodge/Data/Terminal.hs 77;" t
EighthRes src/Dodge/Data/Config.hs 97;" C EighthRes src/Dodge/Data/Config.hs 97;" C
Eldritch src/Dodge/Data/Scenario.hs 34;" C Eldritch src/Dodge/Data/Scenario.hs 34;" C
ElectricSensor src/Dodge/Data/Machine/Sensor/Type.hs 12;" C ElectricSensor src/Dodge/Data/Machine/Sensor/Type.hs 12;" C
@@ -847,7 +847,7 @@ NewIntMap src/NewInt.hs 18;" t
NewSideEffect src/Dodge/Data/Universe.hs 65;" C NewSideEffect src/Dodge/Data/Universe.hs 65;" C
NoAction src/Dodge/Data/ActionPlan.hs 152;" C NoAction src/Dodge/Data/ActionPlan.hs 152;" C
NoAmmoRequired src/Dodge/Data/Muzzle.hs 25;" C NoAmmoRequired src/Dodge/Data/Muzzle.hs 25;" C
NoArguments src/Dodge/Data/Terminal.hs 84;" C NoArguments src/Dodge/Data/Terminal.hs 78;" C
NoBeamCombine src/Dodge/Data/Beam.hs 43;" C NoBeamCombine src/Dodge/Data/Beam.hs 43;" C
NoConcurrentEffect src/Loop/Data.hs 7;" C NoConcurrentEffect src/Loop/Data.hs 7;" C
NoCrImp src/Dodge/Data/CreatureEffect.hs 24;" C NoCrImp src/Dodge/Data/CreatureEffect.hs 24;" C
@@ -947,7 +947,7 @@ OnRightWrist src/Dodge/Data/Equipment/Misc.hs 26;" C
OnSpecial src/Dodge/Data/Equipment/Misc.hs 28;" C OnSpecial src/Dodge/Data/Equipment/Misc.hs 28;" C
OnTurret src/Dodge/Data/Item/Location.hs 37;" C OnTurret src/Dodge/Data/Item/Location.hs 37;" C
OnceSound src/Dodge/Data/SoundOrigin.hs 16;" C OnceSound src/Dodge/Data/SoundOrigin.hs 16;" C
OneArgument src/Dodge/Data/Terminal.hs 85;" C OneArgument src/Dodge/Data/Terminal.hs 79;" C
OneHand src/Dodge/Data/AimStance.hs 9;" C OneHand src/Dodge/Data/AimStance.hs 9;" C
OnwardCluster src/Dodge/Data/RoomCluster.hs 14;" C OnwardCluster src/Dodge/Data/RoomCluster.hs 14;" C
OnwardList src/Dodge/Annotation/Data.hs 16;" C OnwardList src/Dodge/Annotation/Data.hs 16;" C
@@ -1340,32 +1340,33 @@ TargetingLaser src/Dodge/Data/Laser.hs 18;" C
TargetingType src/Dodge/Data/Item/Targeting.hs 11;" t TargetingType src/Dodge/Data/Item/Targeting.hs 11;" t
TeleSound src/Dodge/Data/SoundOrigin.hs 36;" C TeleSound src/Dodge/Data/SoundOrigin.hs 36;" C
TermSignal src/Dodge/Data/Input.hs 54;" t TermSignal src/Dodge/Data/Input.hs 54;" t
Terminal src/Dodge/Data/Terminal.hs 27;" t Terminal src/Dodge/Data/Terminal.hs 23;" t
TerminalBusy src/Dodge/Data/Terminal.hs 16;" C TerminalBusy src/Dodge/Data/Terminal/Status.hs 5;" C
TerminalCommand src/Dodge/Data/Terminal.hs 105;" t TerminalCommand src/Dodge/Data/Terminal.hs 99;" t
TerminalCommandArguments src/Dodge/Data/Terminal.hs 93;" C TerminalCommandArguments src/Dodge/Data/Terminal.hs 87;" C
TerminalCommandEffect src/Dodge/Data/Terminal.hs 92;" t TerminalCommandEffect src/Dodge/Data/Terminal.hs 86;" t
TerminalCommandEffectCommands src/Dodge/Data/Terminal.hs 99;" C TerminalCommandEffectCommands src/Dodge/Data/Terminal.hs 93;" C
TerminalCommandEffectDamageCoding src/Dodge/Data/Terminal.hs 94;" C TerminalCommandEffectDamageCoding src/Dodge/Data/Terminal.hs 88;" C
TerminalCommandEffectHelp src/Dodge/Data/Terminal.hs 97;" C TerminalCommandEffectHelp src/Dodge/Data/Terminal.hs 91;" C
TerminalCommandEffectLinkedObject src/Dodge/Data/Terminal.hs 96;" C TerminalCommandEffectLinkedObject src/Dodge/Data/Terminal.hs 90;" C
TerminalCommandEffectNoArgumentsStr src/Dodge/Data/Terminal.hs 98;" C TerminalCommandEffectNoArgumentsStr src/Dodge/Data/Terminal.hs 92;" C
TerminalCommandEffectNone src/Dodge/Data/Terminal.hs 101;" C TerminalCommandEffectNone src/Dodge/Data/Terminal.hs 95;" C
TerminalCommandEffectSensorParameter src/Dodge/Data/Terminal.hs 95;" C TerminalCommandEffectSensorParameter src/Dodge/Data/Terminal.hs 89;" C
TerminalCommandEffectSingleCommand src/Dodge/Data/Terminal.hs 100;" C TerminalCommandEffectSingleCommand src/Dodge/Data/Terminal.hs 94;" C
TerminalInput src/Dodge/Data/Terminal.hs 21;" t TerminalInput src/Dodge/Data/Terminal.hs 17;" t
TerminalLine src/Dodge/Data/Terminal.hs 60;" t TerminalLine src/Dodge/Data/Terminal.hs 54;" t
TerminalLineConst src/Dodge/Data/Terminal.hs 50;" C TerminalLineConst src/Dodge/Data/Terminal.hs 46;" C
TerminalLineDisplay src/Dodge/Data/Terminal.hs 61;" C TerminalLineDisplay src/Dodge/Data/Terminal.hs 55;" C
TerminalLineEffect src/Dodge/Data/Terminal.hs 69;" C TerminalLineEffect src/Dodge/Data/Terminal.hs 63;" C
TerminalLineString src/Dodge/Data/Terminal.hs 50;" t TerminalLineString src/Dodge/Data/Terminal.hs 46;" t
TerminalLineTerminalEffect src/Dodge/Data/Terminal.hs 65;" C TerminalLineTerminalEffect src/Dodge/Data/Terminal.hs 59;" C
TerminalOff src/Dodge/Data/Terminal.hs 16;" C TerminalOff src/Dodge/Data/Terminal/Status.hs 5;" C
TerminalPressTo src/Dodge/Data/Terminal/Status.hs 6;" C
TerminalSound src/Dodge/Data/SoundOrigin.hs 24;" C TerminalSound src/Dodge/Data/SoundOrigin.hs 24;" C
TerminalStatus src/Dodge/Data/Terminal.hs 16;" t TerminalStatus src/Dodge/Data/Terminal/Status.hs 5;" t
TerminalTextInput src/Dodge/Data/Terminal.hs 16;" C TerminalTextInput src/Dodge/Data/Terminal/Status.hs 5;" C
TerminalToggle src/Dodge/Data/Terminal.hs 76;" t TerminalToggle src/Dodge/Data/Terminal.hs 70;" t
TerminalType src/Dodge/Data/Terminal.hs 48;" t TerminalType src/Dodge/Data/Terminal.hs 44;" t
Terrestrial src/Dodge/Data/Scenario.hs 72;" C Terrestrial src/Dodge/Data/Scenario.hs 72;" C
TerrestrialBiome src/Dodge/Data/Scenario.hs 76;" t TerrestrialBiome src/Dodge/Data/Scenario.hs 76;" t
TeslaArc src/Dodge/Data/TeslaArc.hs 17;" t TeslaArc src/Dodge/Data/TeslaArc.hs 17;" t
@@ -1377,11 +1378,11 @@ Tile src/Data/Tile.hs 16;" t
Tiled src/Data/Tile.hs 14;" C Tiled src/Data/Tile.hs 14;" C
TimeFlowStatus src/Dodge/Data/World.hs 58;" t TimeFlowStatus src/Dodge/Data/World.hs 58;" t
Tiny src/Shape/Data.hs 32;" C Tiny src/Shape/Data.hs 32;" C
TmId src/Dodge/Data/Terminal.hs 54;" C TmId src/Dodge/Data/Terminal.hs 50;" C
TmTm src/Dodge/Data/Terminal.hs 53;" t TmTm src/Dodge/Data/Terminal.hs 49;" t
TmTmClearDisplayedLines src/Dodge/Data/Terminal.hs 55;" C TmTmClearDisplayedLines src/Dodge/Data/WorldEffect.hs 78;" C
TmTmSetPartialCommand src/Dodge/Data/Terminal.hs 57;" C TmTmSetPartialCommand src/Dodge/Data/Terminal.hs 51;" C
TmTmSetStatus src/Dodge/Data/Terminal.hs 56;" C TmTmSetStatus src/Dodge/Data/WorldEffect.hs 79;" C
TmWdId src/Dodge/Data/WorldEffect.hs 73;" C TmWdId src/Dodge/Data/WorldEffect.hs 73;" C
TmWdWd src/Dodge/Data/WorldEffect.hs 72;" t TmWdWd src/Dodge/Data/WorldEffect.hs 72;" t
TmWdWdDisconnectTerminal src/Dodge/Data/WorldEffect.hs 74;" C TmWdWdDisconnectTerminal src/Dodge/Data/WorldEffect.hs 74;" C
@@ -1566,8 +1567,8 @@ _apStrategy src/Dodge/Data/ActionPlan.hs 21;" f
_aps src/Dodge/Data/Muzzle.hs 22;" f _aps src/Dodge/Data/Muzzle.hs 22;" f
_arbitraryAction src/Dodge/Data/ActionPlan.hs 167;" f _arbitraryAction src/Dodge/Data/ActionPlan.hs 167;" f
_arcNode src/Dodge/Data/LWorld.hs 117;" f _arcNode src/Dodge/Data/LWorld.hs 117;" f
_argList src/Dodge/Data/Terminal.hs 87;" f _argList src/Dodge/Data/Terminal.hs 81;" f
_argType src/Dodge/Data/Terminal.hs 86;" f _argType src/Dodge/Data/Terminal.hs 80;" f
_asDir src/Dodge/Data/ArcStep.hs 16;" f _asDir src/Dodge/Data/ArcStep.hs 16;" f
_asObject src/Dodge/Data/ArcStep.hs 17;" f _asObject src/Dodge/Data/ArcStep.hs 17;" f
_asPos src/Dodge/Data/ArcStep.hs 15;" f _asPos src/Dodge/Data/ArcStep.hs 15;" f
@@ -1700,7 +1701,7 @@ _cloudEBO src/Data/Preload/Render.hs 51;" f
_cloudShader src/Data/Preload/Render.hs 50;" f _cloudShader src/Data/Preload/Render.hs 50;" f
_cloudVBO src/Data/Preload/Render.hs 49;" f _cloudVBO src/Data/Preload/Render.hs 49;" f
_clouds src/Dodge/Data/LWorld.hs 103;" f _clouds src/Dodge/Data/LWorld.hs 103;" f
_cmdEffect src/Dodge/Data/Terminal.hs 84;" f _cmdEffect src/Dodge/Data/Terminal.hs 78;" f
_colorBlurShader src/Data/Preload/Render.hs 22;" f _colorBlurShader src/Data/Preload/Render.hs 22;" f
_coolEnd src/Dodge/Data/TriggerType.hs 17;" f _coolEnd src/Dodge/Data/TriggerType.hs 17;" f
_coolSound src/Dodge/Data/Item/Params.hs 24;" f _coolSound src/Dodge/Data/Item/Params.hs 24;" f
@@ -2423,18 +2424,18 @@ _tbPos src/Dodge/Data/TractorBeam.hs 14;" f
_tbStartPos src/Dodge/Data/TractorBeam.hs 15;" f _tbStartPos src/Dodge/Data/TractorBeam.hs 15;" f
_tbTime src/Dodge/Data/TractorBeam.hs 17;" f _tbTime src/Dodge/Data/TractorBeam.hs 17;" f
_tbVel src/Dodge/Data/TractorBeam.hs 16;" f _tbVel src/Dodge/Data/TractorBeam.hs 16;" f
_tcAlias src/Dodge/Data/Terminal.hs 107;" f _tcAlias src/Dodge/Data/Terminal.hs 101;" f
_tcEffect src/Dodge/Data/Terminal.hs 109;" f _tcEffect src/Dodge/Data/Terminal.hs 103;" f
_tcHelp src/Dodge/Data/Terminal.hs 108;" f _tcHelp src/Dodge/Data/Terminal.hs 102;" f
_tcString src/Dodge/Data/Terminal.hs 106;" f _tcString src/Dodge/Data/Terminal.hs 100;" f
_termID src/Dodge/Data/HUD.hs 42;" f _termID src/Dodge/Data/HUD.hs 42;" f
_terminals src/Dodge/Data/LWorld.hs 128;" f _terminals src/Dodge/Data/LWorld.hs 128;" f
_teslaArcs src/Dodge/Data/LWorld.hs 116;" f _teslaArcs src/Dodge/Data/LWorld.hs 116;" f
_testFloat src/Dodge/Data/World.hs 43;" f _testFloat src/Dodge/Data/World.hs 43;" f
_textInput src/Dodge/Data/Input.hs 49;" f _textInput src/Dodge/Data/Input.hs 49;" f
_textureObject src/Shader/Data.hs 95;" f _textureObject src/Shader/Data.hs 95;" f
_tiSel src/Dodge/Data/Terminal.hs 23;" f _tiSel src/Dodge/Data/Terminal.hs 19;" f
_tiText src/Dodge/Data/Terminal.hs 16;" f _tiText src/Dodge/Data/Terminal/Status.hs 5;" f
_tileArrayZ src/Data/Tile.hs 24;" f _tileArrayZ src/Data/Tile.hs 24;" f
_tilePoly src/Data/Tile.hs 17;" f _tilePoly src/Data/Tile.hs 17;" f
_tileTangentPos src/Data/Tile.hs 23;" f _tileTangentPos src/Data/Tile.hs 23;" f
@@ -2442,27 +2443,27 @@ _tileZero src/Data/Tile.hs 19;" f
_tiles src/Data/Tile.hs 14;" f _tiles src/Data/Tile.hs 14;" f
_timeFlow src/Dodge/Data/World.hs 38;" f _timeFlow src/Dodge/Data/World.hs 38;" f
_timeFlowCharge src/Dodge/Data/World.hs 78;" f _timeFlowCharge src/Dodge/Data/World.hs 78;" f
_tlEffect src/Dodge/Data/Terminal.hs 71;" f _tlEffect src/Dodge/Data/Terminal.hs 65;" f
_tlPause src/Dodge/Data/Terminal.hs 62;" f _tlPause src/Dodge/Data/Terminal.hs 56;" f
_tlPause src/Dodge/Data/Terminal.hs 66;" f _tlPause src/Dodge/Data/Terminal.hs 60;" f
_tlPause src/Dodge/Data/Terminal.hs 70;" f _tlPause src/Dodge/Data/Terminal.hs 64;" f
_tlString src/Dodge/Data/Terminal.hs 63;" f _tlString src/Dodge/Data/Terminal.hs 57;" f
_tlTermEffect src/Dodge/Data/Terminal.hs 67;" f _tlTermEffect src/Dodge/Data/Terminal.hs 61;" f
_tmBootLines src/Dodge/Data/Terminal.hs 29;" f _tmBootLines src/Dodge/Data/Terminal.hs 25;" f
_tmButtonID src/Dodge/Data/Terminal.hs 30;" f _tmButtonID src/Dodge/Data/Terminal.hs 26;" f
_tmCommandHistory src/Dodge/Data/Terminal.hs 40;" f _tmCommandHistory src/Dodge/Data/Terminal.hs 36;" f
_tmDeathEffect src/Dodge/Data/Terminal.hs 38;" f _tmDeathEffect src/Dodge/Data/Terminal.hs 34;" f
_tmDisplayedLines src/Dodge/Data/Terminal.hs 33;" f _tmDisplayedLines src/Dodge/Data/Terminal.hs 29;" f
_tmExternalColor src/Dodge/Data/Terminal.hs 32;" f _tmExternalColor src/Dodge/Data/Terminal.hs 28;" f
_tmFutureLines src/Dodge/Data/Terminal.hs 34;" f _tmFutureLines src/Dodge/Data/Terminal.hs 30;" f
_tmID src/Dodge/Data/Terminal.hs 28;" f _tmID src/Dodge/Data/Terminal.hs 24;" f
_tmInput src/Dodge/Data/Terminal.hs 35;" f _tmInput src/Dodge/Data/Terminal.hs 31;" f
_tmMachineID src/Dodge/Data/Terminal.hs 31;" f _tmMachineID src/Dodge/Data/Terminal.hs 27;" f
_tmPartialCommand src/Dodge/Data/Terminal.hs 42;" f _tmPartialCommand src/Dodge/Data/Terminal.hs 38;" f
_tmScrollCommands src/Dodge/Data/Terminal.hs 36;" f _tmScrollCommands src/Dodge/Data/Terminal.hs 32;" f
_tmStatus src/Dodge/Data/Terminal.hs 39;" f _tmStatus src/Dodge/Data/Terminal.hs 35;" f
_tmToggles src/Dodge/Data/Terminal.hs 41;" f _tmToggles src/Dodge/Data/Terminal.hs 37;" f
_tmWriteCommands src/Dodge/Data/Terminal.hs 37;" f _tmWriteCommands src/Dodge/Data/Terminal.hs 33;" f
_toPlaySoundChunkID src/Sound/Data.hs 41;" f _toPlaySoundChunkID src/Sound/Data.hs 41;" f
_toPlaySoundPos src/Sound/Data.hs 38;" f _toPlaySoundPos src/Sound/Data.hs 38;" f
_toPlaySoundStatus src/Sound/Data.hs 37;" f _toPlaySoundStatus src/Sound/Data.hs 37;" f
@@ -2471,12 +2472,13 @@ _toPlaySoundVolume src/Sound/Data.hs 39;" f
_toPlaySoundVolumeFraction src/Sound/Data.hs 40;" f _toPlaySoundVolumeFraction src/Sound/Data.hs 40;" f
_toPlaySounds src/Dodge/Data/World.hs 40;" f _toPlaySounds src/Dodge/Data/World.hs 40;" f
_topBoxSize src/Shape/Data.hs 17;" f _topBoxSize src/Shape/Data.hs 17;" f
_tptString src/Dodge/Data/Terminal/Status.hs 6;" f
_tractorBeams src/Dodge/Data/LWorld.hs 123;" f _tractorBeams src/Dodge/Data/LWorld.hs 123;" f
_trieChildren src/SimpleTrie.hs 11;" f _trieChildren src/SimpleTrie.hs 11;" f
_trieMVal src/SimpleTrie.hs 10;" f _trieMVal src/SimpleTrie.hs 10;" f
_triggers src/Dodge/Data/LWorld.hs 133;" f _triggers src/Dodge/Data/LWorld.hs 133;" f
_ttDeathEffect src/Dodge/Data/Terminal.hs 78;" f _ttDeathEffect src/Dodge/Data/Terminal.hs 72;" f
_ttTriggerID src/Dodge/Data/Terminal.hs 77;" f _ttTriggerID src/Dodge/Data/Terminal.hs 71;" f
_tuDir src/Dodge/Data/Machine.hs 61;" f _tuDir src/Dodge/Data/Machine.hs 61;" f
_tuFireTime src/Dodge/Data/Machine.hs 60;" f _tuFireTime src/Dodge/Data/Machine.hs 60;" f
_tuTurnSpeed src/Dodge/Data/Machine.hs 59;" f _tuTurnSpeed src/Dodge/Data/Machine.hs 59;" f
@@ -3309,8 +3311,8 @@ doCrWdAc src/Dodge/CreatureEffect.hs 77;" f
doCrWdImp src/Dodge/CreatureEffect.hs 16;" f doCrWdImp src/Dodge/CreatureEffect.hs 16;" f
doCrWdWd src/Dodge/CreatureEffect.hs 20;" f doCrWdWd src/Dodge/CreatureEffect.hs 20;" f
doDamage src/Dodge/Creature/State.hs 41;" f doDamage src/Dodge/Creature/State.hs 41;" f
doDeathToggle src/Dodge/WorldEffect.hs 91;" f doDeathToggle src/Dodge/WorldEffect.hs 92;" f
doDeathTriggers src/Dodge/WorldEffect.hs 86;" f doDeathTriggers src/Dodge/WorldEffect.hs 87;" f
doDebugTest src/Dodge/Update/Input/DebugTest.hs 22;" f doDebugTest src/Dodge/Update/Input/DebugTest.hs 22;" f
doDebugTest2 src/Dodge/Update/Input/DebugTest.hs 37;" f doDebugTest2 src/Dodge/Update/Input/DebugTest.hs 37;" f
doDebugTestF10 src/Dodge/Update/Input/DebugTest.hs 62;" f doDebugTestF10 src/Dodge/Update/Input/DebugTest.hs 62;" f
@@ -3363,7 +3365,7 @@ doTextInputOverUniverse src/Dodge/Update/Input/Text.hs 12;" f
doThrust src/Dodge/Projectile/Update.hs 183;" f doThrust src/Dodge/Projectile/Update.hs 183;" f
doTimeScroll src/Dodge/Update.hs 209;" f doTimeScroll src/Dodge/Update.hs 209;" f
doTmTm src/Dodge/TmTm.hs 6;" f doTmTm src/Dodge/TmTm.hs 6;" f
doTmWdWd src/Dodge/WorldEffect.hs 94;" f doTmWdWd src/Dodge/WorldEffect.hs 95;" f
doWallRotate src/Dodge/Update/Camera.hs 213;" f doWallRotate src/Dodge/Update/Camera.hs 213;" f
doWdBl src/Dodge/WorldBool.hs 10;" f doWdBl src/Dodge/WorldBool.hs 10;" f
doWdCrBl src/Dodge/CreatureEffect.hs 37;" f doWdCrBl src/Dodge/CreatureEffect.hs 37;" f
@@ -3866,7 +3868,7 @@ ildtPropagate src/Dodge/DoubleTree.hs 111;" f
impulsiveAIBefore src/Dodge/Creature/Impulse.hs 23;" f impulsiveAIBefore src/Dodge/Creature/Impulse.hs 23;" f
inLink src/Dodge/RoomLink.hs 113;" f inLink src/Dodge/RoomLink.hs 113;" f
inSegArea src/Geometry/Intersect.hs 328;" f inSegArea src/Geometry/Intersect.hs 328;" f
inTextInputFocus src/Dodge/InputFocus.hs 10;" f inTextInputFocus src/Dodge/InputFocus.hs 7;" f
incidenceToFunction src/Dodge/Graph.hs 26;" f incidenceToFunction src/Dodge/Graph.hs 26;" f
indefiniteExceptions src/StringHelp.hs 29;" f indefiniteExceptions src/StringHelp.hs 29;" f
initCrItemLocation src/Dodge/Item/Location/Initialize.hs 41;" f initCrItemLocation src/Dodge/Item/Location/Initialize.hs 41;" f
@@ -3892,7 +3894,7 @@ initializeOptionMenu src/Dodge/Menu/Option.hs 17;" f
initializeOptionMenuBO src/Dodge/Menu/Option.hs 32;" f initializeOptionMenuBO src/Dodge/Menu/Option.hs 32;" f
initializeTexture2D src/Framebuffer/Update.hs 221;" f initializeTexture2D src/Framebuffer/Update.hs 221;" f
inorderNumberTree src/TreeHelp.hs 189;" f inorderNumberTree src/TreeHelp.hs 189;" f
inputFocusI src/Dodge/InputFocus.hs 13;" f inputFocusI src/Dodge/InputFocus.hs 10;" f
insertAt src/Padding.hs 63;" f insertAt src/Padding.hs 63;" f
insertIMInZone src/Dodge/Base.hs 54;" f insertIMInZone src/Dodge/Base.hs 54;" f
insertInTrie src/SimpleTrie.hs 23;" f insertInTrie src/SimpleTrie.hs 23;" f
@@ -3936,7 +3938,7 @@ invDP src/Dodge/ListDisplayParams.hs 30;" f
invDT src/Dodge/Item/Grammar.hs 215;" f invDT src/Dodge/Item/Grammar.hs 215;" f
invDT' src/Dodge/Item/Grammar.hs 220;" f invDT' src/Dodge/Item/Grammar.hs 220;" f
invDimColor src/Dodge/DisplayInventory.hs 192;" f invDimColor src/Dodge/DisplayInventory.hs 192;" f
invHead src/Dodge/Render/HUD.hs 405;" f invHead src/Dodge/Render/HUD.hs 409;" f
invIMDT src/Dodge/Item/Grammar.hs 248;" f invIMDT src/Dodge/Item/Grammar.hs 248;" f
invIndents src/Dodge/Item/Grammar.hs 255;" f invIndents src/Dodge/Item/Grammar.hs 255;" f
invItemEffs src/Dodge/Creature/State.hs 61;" f invItemEffs src/Dodge/Creature/State.hs 61;" f
@@ -4103,7 +4105,7 @@ lineCol src/Picture/Base.hs 230;" f
lineGeom src/Dodge/Base.hs 32;" f lineGeom src/Dodge/Base.hs 32;" f
lineOnScreenCone src/Dodge/Debug/Picture.hs 60;" f lineOnScreenCone src/Dodge/Debug/Picture.hs 60;" f
lineOrth src/Dodge/Creature/Boid.hs 126;" f lineOrth src/Dodge/Creature/Boid.hs 126;" f
lineOutputTerminal src/Dodge/WorldEffect.hs 74;" f lineOutputTerminal src/Dodge/WorldEffect.hs 75;" f
lineSplit src/Justify.hs 26;" f lineSplit src/Justify.hs 26;" f
lineThick src/Picture/Base.hs 234;" f lineThick src/Picture/Base.hs 234;" f
lineUp src/Dodge/Creature/Boid.hs 148;" f lineUp src/Dodge/Creature/Boid.hs 148;" f
@@ -4118,7 +4120,7 @@ listSelectionColorPicture src/Dodge/DisplayInventory.hs 308;" f
litCorridor90 src/Dodge/Room/RoadBlock.hs 26;" f litCorridor90 src/Dodge/Room/RoadBlock.hs 26;" f
lmt src/MatrixHelper.hs 43;" f lmt src/MatrixHelper.hs 43;" f
lnkBothAnd src/Dodge/Room/Procedural.hs 121;" f lnkBothAnd src/Dodge/Room/Procedural.hs 121;" f
lnkMidPosInvSelsCol src/Dodge/Render/HUD.hs 394;" f lnkMidPosInvSelsCol src/Dodge/Render/HUD.hs 398;" f
lnkPosDir src/Dodge/RoomLink.hs 97;" f lnkPosDir src/Dodge/RoomLink.hs 97;" f
loadDodgeConfig src/Dodge/Config/Load.hs 9;" f loadDodgeConfig src/Dodge/Config/Load.hs 9;" f
loadMusic src/Dodge/SoundLogic/LoadSound.hs 30;" f loadMusic src/Dodge/SoundLogic/LoadSound.hs 30;" f
@@ -4958,11 +4960,11 @@ sectionsSizes src/Dodge/DisplayInventory.hs 207;" f
seedStartMenu src/Dodge/Menu.hs 82;" f seedStartMenu src/Dodge/Menu.hs 82;" f
seedStartOptions src/Dodge/Menu.hs 85;" f seedStartOptions src/Dodge/Menu.hs 85;" f
segOnCirc src/Geometry.hs 114;" f segOnCirc src/Geometry.hs 114;" f
selNumPos src/Dodge/Render/HUD.hs 454;" f selNumPos src/Dodge/Render/HUD.hs 458;" f
selNumPosCardinal src/Dodge/Render/HUD.hs 477;" f selNumPosCardinal src/Dodge/Render/HUD.hs 481;" f
selSecDrawCursor src/Dodge/Render/List.hs 126;" f selSecDrawCursor src/Dodge/Render/List.hs 126;" f
selSecDrawCursorAt src/Dodge/Render/List.hs 104;" f selSecDrawCursorAt src/Dodge/Render/List.hs 104;" f
selSecSelCol src/Dodge/Render/HUD.hs 508;" f selSecSelCol src/Dodge/Render/HUD.hs 512;" f
selSecSelSize src/Dodge/SelectionSections.hs 180;" f selSecSelSize src/Dodge/SelectionSections.hs 180;" f
selSecYint src/Dodge/SelectionSections.hs 189;" f selSecYint src/Dodge/SelectionSections.hs 189;" f
selectCreatureDebugItem src/Dodge/Debug.hs 55;" f selectCreatureDebugItem src/Dodge/Debug.hs 55;" f
@@ -5299,7 +5301,7 @@ testInventory src/Dodge/Creature.hs 292;" f
testStringInit src/Dodge/TestString.hs 30;" f testStringInit src/Dodge/TestString.hs 30;" f
text src/Picture/Base.hs 193;" f text src/Picture/Base.hs 193;" f
textGrad src/Picture/Text.hs 5;" f textGrad src/Picture/Text.hs 5;" f
textInputFocus src/Dodge/InputFocus.hs 16;" f textInputFocus src/Dodge/InputFocus.hs 13;" f
textJustifyCenter src/Picture/Base.hs 212;" f textJustifyCenter src/Picture/Base.hs 212;" f
textJustifyLeft src/Picture/Base.hs 208;" f textJustifyLeft src/Picture/Base.hs 208;" f
textJustifyRight src/Picture/Base.hs 198;" f textJustifyRight src/Picture/Base.hs 198;" f
@@ -5369,7 +5371,7 @@ topTestPart src/Dodge/TestString.hs 61;" f
torch src/Dodge/Item/Held/Utility.hs 23;" f torch src/Dodge/Item/Held/Utility.hs 23;" f
torchShape src/Dodge/Item/Draw/SPic.hs 290;" f torchShape src/Dodge/Item/Draw/SPic.hs 290;" f
torqueAmount src/Dodge/HeldUse.hs 579;" f torqueAmount src/Dodge/HeldUse.hs 579;" f
torqueCr src/Dodge/WorldEffect.hs 67;" f torqueCr src/Dodge/WorldEffect.hs 68;" f
torso src/Dodge/Creature/Picture.hs 100;" f torso src/Dodge/Creature/Picture.hs 100;" f
tractCr src/Dodge/TractorBeam/Update.hs 28;" f tractCr src/Dodge/TractorBeam/Update.hs 28;" f
tractFlIt src/Dodge/TractorBeam/Update.hs 23;" f tractFlIt src/Dodge/TractorBeam/Update.hs 23;" f