This commit is contained in:
nek0 2018-08-10 11:34:46 +02:00
parent c8b81e90e5
commit 84cd30d8e5
2 changed files with 0 additions and 55 deletions

View file

@ -12,33 +12,6 @@ import Data.Ecstasy
import Types import Types
instance ObjectAction ObjType ObjState where instance ObjectAction ObjType ObjState where
-- objectAction ObjCopier "idle" ent = do
-- ud <- getAffection
-- (nws, _) <- liftIO $ yieldSystemT (worldState ud) $ do
-- emap (anEnt ent) $ do
-- with anim
-- mtime <- queryMaybe objStateTime
-- case mtime of
-- Nothing -> do
-- liftIO $ logIO Debug "copying!"
-- let nstat = AnimState
-- (AnimId "copier" "copy" N)
-- 0
-- 0
-- return unchanged
-- { anim = Set nstat
-- , objStateTime = Set 5
-- , objState = "copying"
-- }
-- Just ttl -> do
-- dt <- getDelta
-- return unchanged
-- { objStateTime = Set (ttl - dt)
-- }
-- putAffection ud
-- { worldState = nws
-- }
objectAction dt t@ObjCopier s@"copying" ent = do objectAction dt t@ObjCopier s@"copying" ent = do
emap (anEnt ent) $ do emap (anEnt ent) $ do
mtime <- queryMaybe objStateTime mtime <- queryMaybe objStateTime

View file

@ -54,34 +54,6 @@ data SubMain
= WorldMap = WorldMap
| MindMap | MindMap
-- data Entity f = Entity
-- { pos :: Component f 'Field (V2 Double)
-- , mmpos :: Component f 'Field (V2 Double)
-- , gridPos :: Component f 'Field (V2 Int)
-- , vel :: Component f 'Field (V2 Double)
-- , mmvel :: Component f 'Field (V2 Double)
-- , velFact :: Component f 'Field Double
-- , rot :: Component f 'Field Direction
-- , obstacle :: Component f 'Field (Boundaries Double)
-- , player :: Component f 'Unique ()
-- , npcMoveState :: Component f 'Field NPCMoveState
-- , anim :: Component f 'Field AnimState
-- , objAccess :: Component f 'Field ((V2 Int), Direction)
-- , objType :: Component f 'Field ObjType
-- , objState :: Component f 'Field ObjState
-- , objStateTime :: Component f 'Field Double
-- }
-- deriving (Generic)
--
-- data NPCMoveState
-- = NPCWalking
-- { npcWalkPath :: [V2 Int]
-- }
-- | NPCStanding
-- { npcStandTime :: Double
-- , npcFuturePath :: MVar [V2 Int]
-- }
data Subsystems = Subsystems data Subsystems = Subsystems
{ subWindow :: Window { subWindow :: Window
, subMouse :: Mouse , subMouse :: Mouse