2018-07-22 20:30:17 +00:00
|
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
|
|
|
module Types.ObjType where
|
|
|
|
|
|
|
|
|
|
data ObjType
|
2019-02-14 21:31:00 +00:00
|
|
|
= ObjDoor
|
|
|
|
|
| ObjCopier
|
2018-07-30 12:34:46 +00:00
|
|
|
| ObjComputer
|
2018-07-31 20:59:25 +00:00
|
|
|
| ObjToilet
|
2018-07-22 20:30:17 +00:00
|
|
|
deriving (Show, Eq, Ord, Enum)
|
|
|
|
|
|
2018-08-10 06:58:26 +00:00
|
|
|
type ObjState = String
|
2018-07-30 12:34:46 +00:00
|
|
|
|
2018-08-10 06:58:26 +00:00
|
|
|
-- class ObjectAction us otype ostate where
|
|
|
|
|
-- objectAction :: otype -> ostate -> Ent -> Affection us ()
|
|
|
|
|
--
|
|
|
|
|
-- objectTransition :: otype -> ostate -> Ent -> Affection us Entity
|
|
|
|
|
--
|
|
|
|
|
-- class ActionTime otype ostate where
|
|
|
|
|
-- actionTime :: otype -> ostate -> Double
|
