Add files

2022-09-04 10:23:17 +01:00
parent 8c0ad639ad
commit 4ad19aa19d
3 changed files with 129 additions and 0 deletions
@@ -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
@@ -0,0 +1,3 @@
 module Dodge.Scenario where
@@ -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)
        }