933 lines
27 KiB
Haskell
933 lines
27 KiB
Haskell
{- |
|
|
Contains base datatypes that cannot be seperated into
|
|
different modules because they are interdependent;
|
|
circular imports are probably not a good idea.
|
|
-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE FlexibleInstances #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
module Dodge.Data
|
|
( module Dodge.Data
|
|
, module Dodge.Combine.Data
|
|
, module Dodge.Distortion.Data
|
|
, module Dodge.Data.DamageType
|
|
, module Dodge.Data.SoundOrigin
|
|
, module Dodge.Creature.State.Data
|
|
, module Dodge.Creature.Stance.Data
|
|
, module Dodge.Creature.Perception.Data
|
|
, module Dodge.Creature.Memory.Data
|
|
, module Dodge.Item.Attachment.Data
|
|
, module Dodge.Item.Data
|
|
, module Dodge.Config.Data
|
|
) where
|
|
import Dodge.Creature.State.Data
|
|
import Dodge.Creature.Stance.Data
|
|
import Dodge.Creature.Perception.Data
|
|
import Dodge.Creature.Memory.Data
|
|
import Dodge.Distortion.Data
|
|
import Dodge.Data.SoundOrigin
|
|
import Dodge.Data.DamageType
|
|
import Dodge.Combine.Data
|
|
import Dodge.Config.Data
|
|
import Dodge.Config.KeyConfig
|
|
import Dodge.Item.Attachment.Data
|
|
import Dodge.Item.Data
|
|
import Dodge.Bounds
|
|
import Data.Preload
|
|
import Picture.Data
|
|
import ShapePicture
|
|
import Geometry.Data
|
|
import Sound.Data
|
|
import Dodge.GameRoom
|
|
import Color
|
|
import Shape
|
|
|
|
import GHC.Generics
|
|
import Control.Lens
|
|
import System.Random
|
|
import Data.Graph.Inductive
|
|
import qualified Data.Set as S
|
|
import qualified Data.IntSet as IS
|
|
import qualified Data.IntMap.Strict as IM
|
|
import qualified Data.Map.Strict as M
|
|
import SDL (Scancode, MouseButton)
|
|
type CRUpdate = Creature -> World -> (World -> World, Maybe Creature)
|
|
type CRUpdate' = Creature -> World -> (World -> World, Creature)
|
|
|
|
data Universe = Universe
|
|
{ _uvWorld :: World
|
|
, _preloadData :: PreloadData
|
|
, _menuLayers :: [ScreenLayer]
|
|
, _savedWorlds :: M.Map SaveSlot World
|
|
, _keyConfig :: KeyConfigSDL
|
|
, _config :: Configuration
|
|
}
|
|
data World = World
|
|
{ _keys :: S.Set Scancode
|
|
, _mouseButtons :: S.Set MouseButton
|
|
, _mousePos :: Point2
|
|
, _cameraCenter :: Point2
|
|
, _cameraRot :: Float
|
|
, _cameraZoom :: Float
|
|
, _cameraViewFrom :: Point2
|
|
, _creatures :: IM.IntMap Creature
|
|
, _creaturesZone :: Zone (IM.IntMap Creature)
|
|
, _creatureGroups :: IM.IntMap CrGroupParams
|
|
, _itemPositions :: IM.IntMap ItemPos
|
|
, _clouds :: [Cloud]
|
|
, _cloudsZone :: Zone [Cloud]
|
|
, _props :: IM.IntMap Prop
|
|
, _instantParticles :: [Particle]
|
|
, _particles :: [Particle]
|
|
, _walls :: IM.IntMap Wall
|
|
, _doors :: IM.IntMap Door
|
|
, _machines :: IM.IntMap Machine
|
|
, _magnets :: IM.IntMap Magnet
|
|
, _blocks :: IM.IntMap Block
|
|
, _coordinates :: IM.IntMap Point2
|
|
, _triggers :: IM.IntMap (World -> Bool)
|
|
, _wallsZone :: Zone (IM.IntMap Wall)
|
|
, _floorItems :: IM.IntMap FloorItem
|
|
, _floorTiles :: [(Point3,Point3)]
|
|
, _randGen :: StdGen
|
|
, _testString :: World -> [String]
|
|
, _modifications :: IM.IntMap Modification
|
|
, _yourID :: Int
|
|
, _worldEvents :: World -> World
|
|
, _delayedEvents :: [(Int,World -> World)]
|
|
, _pressPlates :: IM.IntMap PressPlate
|
|
, _buttons :: IM.IntMap Button
|
|
, _toPlaySounds :: M.Map SoundOrigin Sound
|
|
, _playingSounds :: M.Map SoundOrigin Sound
|
|
, _decorations :: IM.IntMap Picture
|
|
, _foregroundShape :: Shape
|
|
, _corpses :: Zone [Corpse]
|
|
, _clickMousePos :: Point2
|
|
, _pathGraph :: ~(Gr Point2 Float)
|
|
, _pathGraphP :: ~[(Point2,Point2)]
|
|
, _pathPoints :: ~(IM.IntMap (IM.IntMap [(Int,Point2)]))
|
|
, _carteDisplay :: Bool
|
|
, _carteCenter :: Point2
|
|
, _carteZoom :: Float
|
|
, _carteRot :: Float
|
|
, _lightSources :: IM.IntMap LightSource
|
|
, _tempLightSources :: [TempLightSource]
|
|
, _closeObjects :: [Either FloorItem Button]
|
|
, _seenLocations :: IM.IntMap (World -> Point2,String)
|
|
, _selLocation :: Int
|
|
, _sideEffects :: Universe -> IO Universe
|
|
, _inventoryMode :: InventoryMode
|
|
, _distortions :: [Distortion]
|
|
, _worldBounds :: Bounds
|
|
, _gameRooms :: [GameRoom] -- consider using and IntMap
|
|
, _rewindWorlds :: [World]
|
|
, _rewinding :: Bool
|
|
, _worldClock :: Int
|
|
, _lSelHammerPosition :: HammerPosition
|
|
, _worldTerminal :: Maybe' WorldTerminal
|
|
}
|
|
data WorldTerminal = WorldTerminal Int [(Int,String)]
|
|
|
|
data SaveSlot = QuicksaveSlot | LevelStartSlot
|
|
deriving (Eq,Ord)
|
|
|
|
data Magnet = Magnet
|
|
{ _mgID :: Int
|
|
, _mgUpdate :: Magnet -> Maybe Magnet
|
|
, _mgPos :: Point2
|
|
, _mgField :: Magnet -> Particle -> Particle
|
|
}
|
|
|
|
data OptionScreenFlag = NormalOptions | GameOverOptions
|
|
data ScreenLayer
|
|
= OptionScreen
|
|
{ _scTitle :: Universe -> String
|
|
, _scOptions :: [MenuOption]
|
|
, _scDefaultEff :: Universe -> IO (Maybe Universe)
|
|
, _scOptionFlag :: OptionScreenFlag
|
|
}
|
|
| ColumnsScreen String [(String,String)]
|
|
| InputScreen String
|
|
| WaitScreen
|
|
{ _scWaitMessage :: Universe -> String
|
|
, _scWaitTime :: Int
|
|
}
|
|
| DisplayScreen
|
|
{ _scDisplay :: Universe -> Picture
|
|
}
|
|
data MenuOption
|
|
= Toggle
|
|
{ _moKey :: Scancode
|
|
, _moEff :: Universe -> IO (Maybe Universe)
|
|
, _moString :: Universe -> String
|
|
}
|
|
| Toggle2
|
|
{ _moKey1 :: Scancode
|
|
, _moEff1 :: Universe -> IO (Maybe Universe)
|
|
, _moKey2 :: Scancode
|
|
, _moEff2 :: Universe -> IO (Maybe Universe)
|
|
, _moString :: Universe -> String
|
|
}
|
|
| InvisibleToggle
|
|
{ _moKey :: Scancode
|
|
, _moEff :: Universe -> IO (Maybe Universe)
|
|
}
|
|
data InventoryMode
|
|
= TopInventory
|
|
| TweakInventory
|
|
| CombineInventory {_combineInvSel :: Maybe Int}
|
|
| InspectInventory
|
|
| LockedInventory
|
|
deriving (Eq, Ord, Show)
|
|
data CrGroupParams = CrGroupParams
|
|
{ _crGroupParamID :: Int
|
|
, _crGroupIDs :: IS.IntSet
|
|
, _crGroupCenter :: Point2
|
|
, _crGroupUpdate :: World -> CrGroupParams -> Maybe CrGroupParams
|
|
}
|
|
data Corpse = Corpse
|
|
{ _cpPos :: Point2
|
|
, _cpPict :: Picture
|
|
, _cpRes :: Creature
|
|
}
|
|
data Cloud = Cloud
|
|
{ _clPos :: Point3
|
|
, _clVel :: Point3
|
|
, _clPict :: Cloud -> Picture
|
|
, _clRad :: Float
|
|
, _clAlt :: Float
|
|
, _clTimer :: Int
|
|
, _clType :: CloudType
|
|
, _clEffect :: Cloud -> World -> World
|
|
}
|
|
data CloudType
|
|
= SmokeCloud
|
|
| GasCloud
|
|
data LSParam = LSParam
|
|
{ _lsPos :: !Point3
|
|
, _lsRad :: !Float
|
|
, _lsCol :: !Point3
|
|
}
|
|
data LightSource = LS
|
|
{ _lsID :: !Int
|
|
, _lsParam :: LSParam
|
|
, _lsDir :: !Float
|
|
, _lsPict :: LightSource -> Picture
|
|
}
|
|
data TempLightSource = TLS
|
|
{ _tlsParam :: LSParam
|
|
, _tlsUpdate :: World -> TempLightSource -> Maybe TempLightSource
|
|
, _tlsTime :: !Int
|
|
}
|
|
data Creature = Creature
|
|
{ _crPos :: Point2
|
|
, _crOldPos :: Point2
|
|
, _crVel :: Point2
|
|
, _crDir :: Float
|
|
, _crOldDir :: Float
|
|
, _crMvDir :: Float
|
|
, _crTwist :: Float
|
|
, _crID :: Int
|
|
, _crPict :: Creature -> Configuration -> World -> SPic
|
|
, _crUpdate :: Creature -> World -> World
|
|
, _crRad :: Float
|
|
, _crMass :: Float
|
|
, _crHP :: Int
|
|
, _crMaxHP :: Int
|
|
, _crInv :: IM.IntMap Item
|
|
, _crInvSel :: Int
|
|
, _crInvCapacity :: Int
|
|
, _crInvLock :: Bool
|
|
, _crInvEquipped :: IS.IntSet
|
|
, _crLeftInvSel :: Maybe Int
|
|
, _crState :: CreatureState
|
|
, _crCorpse :: Picture
|
|
, _crApplyDamage :: [DamageType] -> Creature -> (World -> World,Creature)
|
|
, _crStance :: Stance
|
|
, _crActionPlan :: ActionPlan
|
|
, _crMeleeCooldown :: Int
|
|
, _crPerception :: PerceptionState
|
|
, _crMemory :: MemoryState
|
|
, _crVocalization :: Vocalization
|
|
, _crFaction :: Faction
|
|
, _crGroup :: CrGroup
|
|
, _crIntention :: Intention
|
|
, _crMvType :: CrMvType
|
|
}
|
|
data Vocalization
|
|
= Mute
|
|
| Vocalization
|
|
{_vcSound :: SoundID
|
|
,_vcMaxCoolDown :: Int
|
|
,_vcCoolDown :: Int
|
|
}
|
|
data Intention = Intention
|
|
{ _targetCr :: Maybe Creature
|
|
, _mvToPoint :: Maybe Point2
|
|
, _viewPoint :: Maybe Point2
|
|
}
|
|
|
|
data CrMvType
|
|
= NoMvType
|
|
| MvWalking { _mvSpeed :: Float }
|
|
| ChaseMvType
|
|
{ _mvSpeed :: Float
|
|
, _mvTurnRad :: Float -> Float
|
|
, _mvTurnJit :: Float
|
|
}
|
|
| AimMvType
|
|
{ _mvSpeed :: Float
|
|
, _mvTurnRad :: Float -> Float
|
|
, _mvTurnJit :: Float
|
|
, _mvAimSpeed :: Float -> Float
|
|
}
|
|
data Button = Button
|
|
{ _btPict :: Button -> SPic
|
|
, _btPos :: Point2
|
|
, _btRot :: Float
|
|
, _btEvent :: Button -> World -> World
|
|
, _btID :: Int
|
|
, _btText :: String
|
|
, _btState :: ButtonState
|
|
}
|
|
data ButtonState = BtOn | BtOff | BtNoLabel
|
|
deriving (Eq, Show)
|
|
data PressPlate = PressPlate
|
|
{ _ppPict :: Picture
|
|
, _ppPos :: Point2
|
|
, _ppRot :: Float
|
|
, _ppEvent :: PressPlate -> World -> World
|
|
, _ppID :: Int
|
|
, _ppText :: String
|
|
}
|
|
data FloorItem = FlIt { _flIt :: Item , _flItPos :: Point2 , _flItRot :: Float, _flItID :: Int}
|
|
data ItemPos
|
|
= InInv { _itCrId :: Int , _itInvId :: Int }
|
|
| OnFloor { _itFlID :: Int }
|
|
data ItemUse
|
|
= RightUse
|
|
{ _rUse :: Item -> Creature -> World -> World
|
|
, _useDelay :: UseDelay
|
|
, _useMods :: [(Item -> Creature -> World -> World) -> Item -> Creature -> World -> World]
|
|
, _useHammer :: HammerType
|
|
, _useAim :: AimParams
|
|
}
|
|
| LeftUse
|
|
{ _lUse :: Creature -> Int -> World -> World
|
|
, _useDelay :: UseDelay
|
|
, _useHammer :: HammerType
|
|
}
|
|
| EquipUse
|
|
{ _eqUse :: Creature -> Int -> World -> World
|
|
}
|
|
| NoUse
|
|
_itUseAimStance :: Item -> AimStance
|
|
_itUseAimStance = _aimStance . _useAim . _itUse
|
|
data ItemConsumption
|
|
= LoadableAmmo
|
|
{ _aoType :: AmmoType
|
|
, _ammoMax :: Int
|
|
, _ammoLoaded :: Int
|
|
, _reloadTime :: Int
|
|
, _reloadState :: Maybe' Int
|
|
, _reloadType :: ReloadType
|
|
}
|
|
| ChargeableAmmo
|
|
{ _wpMaxCharge :: Int
|
|
, _wpCharge :: Int
|
|
}
|
|
| ItemItselfConsumable
|
|
{ _itAmount :: Int
|
|
}
|
|
| NoConsumption
|
|
data Item
|
|
= Item
|
|
{ _itName :: String
|
|
, _itConsumption :: ItemConsumption
|
|
, _itUse :: ItemUse
|
|
, _itEquipPict :: Creature -> Int -> SPic
|
|
, _itScroll :: Float -> Creature -> Item -> Item
|
|
, _itType :: CombineType
|
|
, _itAttachment :: ItAttachment
|
|
, _itID :: Maybe Int
|
|
, _itEffect :: ItEffect
|
|
, _itInvSize :: Float
|
|
, _itInvDisplay :: Item -> [String]
|
|
, _itInvColor :: Color
|
|
, _itTargeting :: Maybe (World -> Maybe Point2, Int -> Item -> Creature -> World -> Picture)
|
|
, _itDimension :: ItemDimension
|
|
, _itCurseStatus :: CurseStatus
|
|
, _itParams :: ItemParams
|
|
, _itTweaks :: ItemTweaks
|
|
}
|
|
-- | Equipment
|
|
-- { _itName :: String
|
|
-- , _itFloorPict :: Item -> SPic
|
|
-- , _itEquipPict :: Creature -> Int -> SPic
|
|
---- , _itIdentity :: ItemIdentity
|
|
-- , _itEffect :: ItEffect
|
|
-- , _itID :: Maybe Int
|
|
-- , _itType :: CombineType
|
|
-- , _itZoom :: ItZoom
|
|
-- , _itInvSize :: Float
|
|
-- , _itInvDisplay :: Item -> [String]
|
|
-- , _itInvColor :: Color
|
|
-- , _itCurseStatus :: CurseStatus
|
|
-- , _itDimension :: ItemDimension
|
|
-- }
|
|
-- | Throwable
|
|
-- { _itName :: String
|
|
-- , _itMaxStack :: Int
|
|
---- , _itAmount :: Int
|
|
-- , _itFloorPict :: Item -> SPic
|
|
-- , _twMaxRange :: Float
|
|
-- , _twAccuracy :: Float
|
|
-- , _itUse :: ItemUse
|
|
---- , _itZoom :: ItZoom
|
|
-- , _itEquipPict :: Creature -> Int -> SPic
|
|
-- --, _itIdentity :: ItemIdentity
|
|
-- , _itID :: Maybe Int
|
|
-- , _itAttachment :: ItAttachment
|
|
-- , _itType :: CombineType
|
|
-- , _itInvSize :: Float
|
|
-- , _itInvDisplay :: Item -> [String]
|
|
-- , _itInvColor :: Color
|
|
-- , _itEffect :: ItEffect
|
|
-- , _itScroll :: Float -> Creature -> Item -> Item
|
|
-- , _itCurseStatus :: CurseStatus
|
|
-- , _itDimension :: ItemDimension
|
|
-- }
|
|
-- | NoItem
|
|
|
|
data ItemDimension = ItemDimension
|
|
{ _dimRad :: Float
|
|
, _dimCenter :: Point3
|
|
, _dimPortage :: ItemPortage
|
|
, _dimSPic :: Item -> SPic
|
|
}
|
|
data ItemPortage
|
|
= HeldItem
|
|
{ _handlePos :: Float
|
|
, _muzPos :: Float
|
|
}
|
|
| WornItem
|
|
|
|
data ReloadType
|
|
= ActiveClear
|
|
| ActivePartial Int
|
|
| PassiveReload SoundID
|
|
deriving Eq
|
|
|
|
-- I believe this is called every frame, not sure when though
|
|
data ItEffect
|
|
= NoItEffect
|
|
| ItSimpleInvEffect
|
|
{_itInvEffect :: ItEffect -> Creature -> Int -> World -> World
|
|
-- the Int is the items inventory position
|
|
}
|
|
| ItInvEffect
|
|
{_itInvEffect :: ItEffect -> Creature -> Int -> World -> World
|
|
-- the Int is the items inventory position
|
|
,_itEffectCounter :: Int
|
|
}
|
|
| ItRewindEffect
|
|
{_itInvEffect :: ItEffect -> Creature -> Int -> World -> World
|
|
,_itStoredWorlds :: [World]
|
|
}
|
|
| ItEffect
|
|
{_itInvEffect :: ItEffect -> Creature -> Int -> World -> World
|
|
,_itFloorEffect :: Int -> World -> World
|
|
,_itEffectCounter :: Int
|
|
}
|
|
| ItInvEffectID
|
|
{_itInvEffect :: ItEffect -> Creature -> Int -> World -> World
|
|
-- the Int is the items inventory position
|
|
,_itEffectID :: Maybe Int
|
|
}
|
|
data IntID a = IntID Int a
|
|
{- Objects without ids.
|
|
Update themselves, perhaps with side effects. -}
|
|
data Particle
|
|
= Particle
|
|
{ _ptDraw :: Particle -> Picture
|
|
, _ptUpdate :: World -> Particle -> (World, Maybe Particle)
|
|
}
|
|
| LinearParticle
|
|
{ _ptDraw :: Particle -> Picture
|
|
, _ptUpdate :: World -> Particle -> (World, Maybe Particle)
|
|
, _ptPoints :: [Point2]
|
|
, _ptTimer :: Int
|
|
, _ptColor :: Color
|
|
}
|
|
| BulletPt
|
|
{ _ptDraw :: Particle -> Picture
|
|
, _ptUpdate :: World -> Particle -> (World, Maybe Particle)
|
|
, _ptVel :: Point2
|
|
, _btDrag :: Float
|
|
, _btColor' :: Color
|
|
, _btTrail' :: [Point2]
|
|
, _btPassThrough' :: Maybe Int
|
|
, _btWidth' :: Float
|
|
, _btTimer' :: Int
|
|
, _btHitEffect' :: HitEffect
|
|
}
|
|
| PtZ
|
|
{ _ptDraw :: Particle -> Picture
|
|
, _ptUpdate :: World -> Particle -> (World, Maybe Particle)
|
|
, _ptVel :: Point2
|
|
, _btColor' :: Color
|
|
, _btPos' :: Point2
|
|
, _btPassThrough' :: Maybe Int
|
|
, _btWidth' :: Float
|
|
, _btTimer' :: Int
|
|
, _btHitEffect' :: HitEffect
|
|
, _ptZ :: Float
|
|
}
|
|
| Shockwave'
|
|
{ _ptDraw :: Particle -> Picture
|
|
, _ptUpdate :: World -> Particle -> (World, Maybe Particle)
|
|
, _btColor' :: Color
|
|
, _btPos' :: Point2
|
|
, _btRad' :: Float
|
|
, _btDam' :: Int
|
|
, _btPush' :: Float
|
|
, _btMaxTime' :: Int
|
|
, _btTimer' :: Int
|
|
}
|
|
type HitEffect = Particle
|
|
-> [(Point2, Either Creature Wall)]
|
|
-> World
|
|
-> (World,Maybe Particle)
|
|
|
|
data AmmoType
|
|
= ProjectileAmmo
|
|
{ _amPayload :: Point2 -> World -> World
|
|
, _amString :: String
|
|
, _amPjDraw :: Prop -> SPic
|
|
-- , _aProjectile :: Ammo -> Prop
|
|
}
|
|
| BulletAmmo
|
|
{ _amString :: String
|
|
, _amBulEff :: HitEffect
|
|
, _amBulWth :: Float
|
|
, _amBulVel :: Point2
|
|
}
|
|
| DroneAmmo
|
|
{ _amString :: String }
|
|
| GenericAmmo
|
|
data ItemTweaks
|
|
= NoTweaks
|
|
| Tweakable
|
|
{ _tweakParams :: IM.IntMap TweakParam
|
|
, _tweakSel :: Int
|
|
}
|
|
data TweakParam = TweakParam
|
|
{ _doTweak :: Int -> Item -> Item
|
|
, _curTweak :: Int
|
|
, _maxTweak :: Int
|
|
, _showTweak :: Int -> String
|
|
, _nameTweak :: String
|
|
}
|
|
data GunBarrels
|
|
= MultiBarrel
|
|
{ _brlSpread :: BarrelSpread
|
|
, _brlNum :: Int
|
|
, _brlInaccuracy :: Float
|
|
}
|
|
| RotBarrel
|
|
{ _brlNum :: Int
|
|
, _brlInaccuracy :: Float
|
|
}
|
|
| SingleBarrel {_brlInaccuracy :: Float}
|
|
|
|
data ItemParams
|
|
= NoParams
|
|
| ShellLauncher
|
|
{ _shellSpinDrag :: Int
|
|
, _shellSpinAmount :: Int
|
|
, _shellThrustDelay :: Int
|
|
}
|
|
| Refracting {_phaseV :: Float}
|
|
| BulletShooter
|
|
{ _muzVel :: Float
|
|
, _rifling :: Float
|
|
, _bore :: Float
|
|
, _gunBarrels :: GunBarrels
|
|
}
|
|
| Sprayer
|
|
{ _nozzleSpread :: Float
|
|
, _nozzleNum :: Int
|
|
}
|
|
| AngleWalk
|
|
{ _maxWalkAngle :: Float
|
|
, _currentWalkAngle :: Float
|
|
, _walkSpeed :: Float
|
|
}
|
|
data Modification
|
|
= ModIDTimerPoint3Bool
|
|
{ _mdID :: Int
|
|
, _mdExternalID :: Int
|
|
, _mdUpdate :: Modification -> World -> World
|
|
, _mdTimer :: Int
|
|
, _mdPoint3 :: Point3
|
|
, _mdBool :: Bool
|
|
}
|
|
| ModIDID
|
|
{ _mdID :: Int
|
|
, _mdExternalID1 :: Int
|
|
, _mdExternalID2 :: Int
|
|
, _mdUpdate :: Modification -> World -> World
|
|
}
|
|
data Prop
|
|
= Projectile
|
|
{ _pjPos :: Point2
|
|
, _pjStartPos :: Point2
|
|
, _pjVel :: Point2
|
|
, _prDraw :: Prop -> SPic
|
|
, _pjID :: Int
|
|
, _pjUpdate :: Prop -> World -> World
|
|
}
|
|
| Drone
|
|
{ _pjPos :: Point2
|
|
, _pjStartPos :: Point2
|
|
, _pjVel :: Point2
|
|
, _prDraw :: Prop -> SPic
|
|
, _pjID :: Int
|
|
, _pjUpdate :: Prop -> World -> World
|
|
}
|
|
| RecursiveProp
|
|
{ _pjPos :: Point2
|
|
, _pjID :: Int
|
|
, _pjDraw :: Prop -> SPic
|
|
, _pjUpdate :: Prop -> World -> World
|
|
, _pjProp :: Prop
|
|
}
|
|
| ProjectileTimed
|
|
{ _pjPos :: Point2
|
|
, _pjStartPos :: Point2
|
|
, _pjVel :: Point2
|
|
, _prDraw :: Prop -> SPic
|
|
, _pjID :: Int
|
|
, _pjUpdate :: Prop -> World -> World
|
|
, _pjTime :: Int
|
|
}
|
|
| ShapeProp
|
|
{ _pjPos :: Point2
|
|
, _pjID :: Int
|
|
, _pjRot :: Float
|
|
, _pjUpdate :: Prop -> World -> World
|
|
, _prDraw :: Prop -> SPic
|
|
, _prToggle :: Bool
|
|
}
|
|
| Shell
|
|
{ _pjPos :: Point2
|
|
, _pjStartPos :: Point2
|
|
, _pjVel :: Point2
|
|
, _pjAcc :: Point2
|
|
, _pjDir :: Float
|
|
, _pjSpin :: Float
|
|
, _prDraw :: Prop -> SPic
|
|
, _pjID :: Int
|
|
, _pjUpdate :: Prop -> World -> World
|
|
, _pjPayload :: Point2 -> World -> World
|
|
, _pjTimer :: Int
|
|
, _pjZ :: Float
|
|
}
|
|
| Bomb
|
|
{ _pjPos :: Point2
|
|
, _pjVel :: Point2
|
|
, _pjZ :: Float
|
|
, _pjVelZ :: Float
|
|
, _prDraw :: Prop -> SPic
|
|
, _pjID :: Int
|
|
, _pjUpdate :: Prop -> World -> World
|
|
, _pjPayload :: Point2 -> World -> World
|
|
, _pjTimer :: Int
|
|
}
|
|
| LinearShockwave
|
|
{ _prDraw :: Prop -> SPic
|
|
, _pjPos :: Point2
|
|
, _pjID :: Int
|
|
, _pjUpdate :: Prop -> World -> World
|
|
, _pjPoints :: [(Point2,Point2)]
|
|
, _pjTimer :: Int
|
|
}
|
|
data Either3 a b c = E3x1 a | E3x2 b | E3x3 c
|
|
data Block = Block
|
|
{ _blID :: Int
|
|
, _blWallIDs :: IS.IntSet
|
|
, _blHPs :: [Int]
|
|
, _blShadows :: [Int]
|
|
, _blMaterial :: BlockMaterial
|
|
}
|
|
data BlockMaterial = WoodBlock | DirtBlock | StoneBlock | GlassBlock | MetalBlock
|
|
data Machine = Machine
|
|
{ _mcID :: Int
|
|
, _mcWallIDs :: IS.IntSet
|
|
, _mcUpdate :: Machine -> World -> World
|
|
, _mcDraw :: Machine -> SPic
|
|
, _mcPos :: Point2
|
|
, _mcDir :: Float
|
|
, _mcHP :: Int
|
|
, _mcSensor :: Int
|
|
, _mcDamage :: [DamageType]
|
|
, _mcLSs :: [Int]
|
|
, _mcType :: MachineType
|
|
}
|
|
data MachineType
|
|
= StaticMachine
|
|
| Turret
|
|
{ _tuWeapon :: Item
|
|
, _tuTurnSpeed :: Float
|
|
, _tuFireTime :: Int
|
|
, _tuMCrID :: Maybe Int
|
|
}
|
|
data Door = Door
|
|
{ _drID :: Int
|
|
, _drWallIDs :: IS.IntSet
|
|
, _drStatus :: DoorStatus
|
|
, _drTrigger :: World -> Bool
|
|
, _drMech :: Door -> World -> World
|
|
}
|
|
data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
|
|
deriving (Eq, Ord, Show)
|
|
data Wall = Wall
|
|
{ _wlLine :: (Point2,Point2)
|
|
, _wlID :: Int
|
|
, _wlColor :: Color
|
|
, _wlSeen :: Bool
|
|
, _wlOpacity :: Opacity
|
|
, _wlPathable :: Bool
|
|
, _wlWalkable :: Bool
|
|
, _wlFireThrough :: Bool
|
|
, _wlReflect :: Bool
|
|
, _wlDraw :: Bool
|
|
, _wlRotateTo :: Bool
|
|
, _wlStructure :: WallStructure
|
|
, _wlHeight :: Float
|
|
}
|
|
data Opacity
|
|
= SeeThrough
|
|
| SeeAbove
|
|
| Opaque
|
|
deriving (Eq,Ord,Show)
|
|
data WallStructure
|
|
= StandaloneWall
|
|
| DoorPart { _wlStDoor :: Int }
|
|
| MachinePart { _wlStMachine :: Int }
|
|
| BlockPart { _wlStBlock :: Int }
|
|
| CreaturePart
|
|
{ _wlStCreature :: Int
|
|
, _wlStDamCreature :: DamageType -> Wall -> Int -> World -> World
|
|
}
|
|
-- | Strict maybe
|
|
data Maybe' a = Just' {__Just' :: a} | Nothing'
|
|
deriving (Eq,Ord,Show)
|
|
strictify :: Maybe a -> Maybe' a
|
|
strictify Nothing = Nothing'
|
|
strictify (Just x) = Just' x
|
|
|
|
data ActionPlan
|
|
= Inanimate
|
|
| ActionPlan
|
|
{_crImpulse :: [Impulse]
|
|
,_crAction :: [Action]
|
|
,_crStrategy :: Strategy
|
|
,_crGoal :: [Goal]
|
|
}
|
|
data Impulse
|
|
= Move Point2
|
|
| MoveForward Float
|
|
| Turn Float
|
|
| RandomTurn Float
|
|
| TurnToward Point2 Float
|
|
| MvTurnToward Point2
|
|
| MvForward
|
|
| TurnTo Point2
|
|
| UseItem
|
|
| SwitchToItem Int
|
|
| DropItem
|
|
-- | PickupNearby Int
|
|
-- | UseWorldObject Int
|
|
| Bark SoundID -- placeholder for various communication types
|
|
-- | UseIntrinsicAbility
|
|
| Melee Int
|
|
| ChangePosture Posture
|
|
| MakeSound SoundID
|
|
| ChangeStrategy Strategy
|
|
| AddGoal Goal
|
|
| ArbitraryImpulseFunction (World -> Creature -> Creature)
|
|
| ArbitraryImpulse (Creature -> World -> Impulse)
|
|
| ImpulseUseTargetCID
|
|
{_impulseUseTargetCID :: Int -> Impulse
|
|
}
|
|
| ImpulseUseTarget
|
|
{_impulseUseTarget :: Creature -> Impulse
|
|
}
|
|
| ImpulseUseAheadPos
|
|
{_impulseUseAheadPos :: Point2 -> Impulse
|
|
}
|
|
-- deriving (Eq,Ord,Show)
|
|
infixr 9 `WaitThen`
|
|
infixr 9 `DoActionThen`
|
|
infixr 9 `DoActionWhile`
|
|
infixr 9 `DoReplicate`
|
|
infixr 9 `DoImpulsesAlongside`
|
|
data Action
|
|
= AimAt
|
|
{_targetID :: Int
|
|
,_targetSeenAt :: Point2
|
|
}
|
|
| PathTo
|
|
{_pathToPoint :: Point2
|
|
}
|
|
| TurnToA
|
|
{_turnToAPoint :: Point2
|
|
}
|
|
-- | PickupItem
|
|
-- {_pickupItemID :: Int
|
|
-- }
|
|
| ImpulsesList
|
|
{_impulsesListList :: [[Impulse]]
|
|
}
|
|
| DoImpulses
|
|
{_doImpulsesList :: [Impulse]
|
|
}
|
|
| WaitThen
|
|
{_waitThenTimer :: Int
|
|
,_waitThenAction :: Action
|
|
}
|
|
| DoActionWhile
|
|
{_doActionWhileCondition :: World -> Creature -> Bool
|
|
,_doActionWhileAction :: Action
|
|
}
|
|
| DoActionWhilePartial
|
|
{_doActionWhilePartial :: Action
|
|
,_doActionWhileCondition :: World -> Creature -> Bool
|
|
,_doActionWhileAction :: Action
|
|
}
|
|
| DoActionIf
|
|
{_doActionIfCondition :: World -> Creature -> Bool
|
|
,_doActionIfAction :: Action
|
|
}
|
|
| DoActionIfElse
|
|
{_doActionIfElseIfAction :: Action
|
|
,_doActionIfElseCondition :: World -> Creature -> Bool
|
|
,_doActionIfElseElseAction :: Action
|
|
}
|
|
| DoActionWhileInterrupt
|
|
{_doActionWhileThenDo :: Action
|
|
,_doActionWhileThenCondition :: World -> Creature -> Bool
|
|
,_doActionWhileThenThen :: Action
|
|
}
|
|
| DoActions
|
|
{_doActionsList :: [Action]
|
|
}
|
|
| DoActionThen
|
|
{_doActionThenFirst :: Action
|
|
,_doActionThenSecond :: Action
|
|
}
|
|
-- | DoGuardActions
|
|
-- {_doGuardActionsList :: [( (World, Creature) -> Bool, Action, Maybe Action)]
|
|
-- }
|
|
| DoReplicate
|
|
{_doReplicateTimes :: Int
|
|
,_doReplicateAction :: Action
|
|
}
|
|
| DoReplicatePartial
|
|
{_partialAction :: Action
|
|
,_doReplicateTimes :: Int
|
|
,_doReplicateAction :: Action
|
|
}
|
|
| LeadTarget
|
|
{_leadTargetBy :: Point2
|
|
}
|
|
| NoAction
|
|
| StartSentinelPost
|
|
| UseTarget
|
|
{_useTarget :: Maybe Creature -> Action
|
|
}
|
|
| UseSelf
|
|
{_useSelf :: Creature -> Action
|
|
}
|
|
| UseAheadPos
|
|
{_useAheadPos :: Point2 -> Action
|
|
}
|
|
| UseMvTargetPos
|
|
{_useMvTargetPos :: Maybe Point2 -> Action
|
|
}
|
|
| ArbitraryAction
|
|
{ _arbitraryAction :: Creature -> World -> Action }
|
|
| DoImpulsesAlongside
|
|
-- ^ Repeatedly perform impulses alongside a main action until the main action terminates
|
|
{_sideImpulses :: [Impulse]
|
|
,_mainAction :: Action
|
|
}
|
|
deriving (Generic)
|
|
-- deriving (Eq,Ord,Show)
|
|
data Strategy
|
|
= Flank Int
|
|
| Ambush Int
|
|
| Lure Int Point2
|
|
| Patrol [Point2]
|
|
| ShootAt Int
|
|
| FollowImpulses
|
|
| WatchAndWait
|
|
| StrategyActions Strategy [Action]
|
|
| GetTo Point2
|
|
| Reload
|
|
| Flee
|
|
| MeleeStrike
|
|
deriving (Generic)
|
|
-- deriving (Eq,Ord,Show)
|
|
data Goal
|
|
= LiveLongAndProsper
|
|
| Kill Int
|
|
| SentinelAt Point2 Float
|
|
|
|
newtype Zone a = Zone
|
|
{ _znObjects :: IM.IntMap (IM.IntMap a)
|
|
}
|
|
makeLenses ''World
|
|
makeLenses ''Cloud
|
|
makeLenses ''Creature
|
|
makeLenses ''LightSource
|
|
makeLenses ''TempLightSource
|
|
makeLenses ''Item
|
|
makeLenses ''ItemUse
|
|
makeLenses ''ItemPos
|
|
makeLenses ''ItEffect
|
|
makeLenses ''FloorItem
|
|
makeLenses ''ItemConsumption
|
|
makeLenses ''AmmoType
|
|
makeLenses ''TweakParam
|
|
makeLenses ''Prop
|
|
makeLenses ''Modification
|
|
makeLenses ''Particle
|
|
makeLenses ''Wall
|
|
makeLenses ''WallStructure
|
|
makeLenses ''PressPlate
|
|
makeLenses ''Button
|
|
makeLenses ''ActionPlan
|
|
makeLenses ''Impulse
|
|
makeLenses ''Action
|
|
makeLenses ''CrGroupParams
|
|
makeLenses ''CrMvType
|
|
makeLenses ''Intention
|
|
makeLenses ''Door
|
|
makeLenses ''Block
|
|
makeLenses ''Machine
|
|
makeLenses ''MachineType
|
|
makeLenses ''Zone
|
|
makeLenses ''ItemDimension
|
|
makeLenses ''Vocalization
|
|
makeLenses ''Universe
|
|
makeLenses ''LSParam
|
|
makeLenses ''ItemParams
|
|
makeLenses ''ItemTweaks
|
|
makeLenses ''Maybe'
|
|
makeLenses ''InventoryMode
|
|
makeLenses ''ItemPortage
|
|
makeLenses ''Magnet
|