Add files

src/Dodge/Data/Scenario.hs

@@ -0,0 +1,115 @@
+module Dodge.Data.Scenario where
+
+data PlayerGoal
+    = Explore
+    | Survive
+    | Revenge
+    | DestroyItem
+    | DestroyBeing
+    | BecomePowerful
+    | Escape
+    | FetchItem
+    | GetToPoint
+    | StayInArea
+    | HiddenGoal PlayerGoal
+    | TwistGoal PlayerGoal PlayerGoal
+
+data Metapysics
+    = InRealWorld
+    | InDream
+    | InSimulation
+    | InParallelUniverse
+    | InDivineZone
+
+data DisasterType
+    = Virus
+    | AtomicWaste
+    | SocialUpheaval
+    | War
+    | ResourceFailure FailedResource
+    | AlienContact
+    | OverreachingAI
+    | Climate
+    | AsteroidStrike
+    | Eldritch
+    | DivineRetribution
+
+data FailedResource
+    = LimitedBreathableAtmosphere
+    | LimitedFood
+    | LimitedWater
+
+data Institution
+    = Government GovernmentScope
+    | SecretCabal
+    | Military
+    | Corporation
+    | Religion
+
+data GovernmentScope
+    = ReigonalGovernment
+    | ContinentalGovernment
+    | WorldGovernment
+    | SolarGovernment
+
+data FacilityType
+    = Factory
+    | SpaceTransport
+    | SpacePort
+    | SpaceColoniser
+    | SpaceCity
+    | Laboratory
+    | ResearchFacility
+    | TrainingCamp
+    | Mine
+    | Prison
+    | Dungeon
+    | RetailFacility
+    | LivingComplex
+    | Hospital
+
+data Biome
+    = Terrestrial TerrestrialBiome
+    | Spatial SpatialInfluence
+    | Cosmic
+
+data TerrestrialBiome
+    = UnderSea
+    | UnderGround
+    | UnderRoof
+
+data SpatialInfluence
+    = NearSolar
+    | NearGravityFlux
+    | NearCosmicRays
+    | NearDustBelt
+
+data SpaceshipRoom
+    = EngineSS
+    | ControlDeckSS
+    | SleepingQuatersSS
+    | CryostatisSS
+    | DockingBaySS
+    | LoadingBaySS
+    | StorageSS
+    | AirFiltrationSS
+    | PlantNurserySS
+    | LabSS
+    | ComsSS
+    | TorpedoBaySS
+    | MedBaySS
+    | IsolationUnitSS
+    | BrigSS
+    | RecRoomSS
+    | GymSS
+    | RezBaySS
+    | ViewingDeckSS
+    | LifeboatBaySS
+    | SkiffBaySS
+    | EnergyGeneratorSS
+    | TurbineBaySS
+    | ReactorSS
+    | ArmourySS
+    | LifeSupportSystemsRoomSS
+    | TransporterSS
+    | LaundrySS

src/Dodge/Scenario.hs

@@ -0,0 +1,3 @@
+module Dodge.Scenario where
+
+

src/Loop/Data.hs

@@ -0,0 +1,11 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Loop.Data where
+
+data ConcurrentEffect world
+    = NoConcurrentEffect
+    | ConcurrentEffect
+        { _immediateEffect :: world -> world
+        , _sideEffect :: IO (world -> Maybe world)
+        }