1a0f618a82
Add a Brain class, which determines for an entity the set of moves it makes every step of the game, and begin to implement that for gormlaks. The idea here is that every step of the game, a gormlak will move towards the furthest-away wall it can see.
49 lines
1.6 KiB
Haskell
49 lines
1.6 KiB
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE StandaloneDeriving #-}
|
|
--------------------------------------------------------------------------------
|
|
module Xanthous.Entities.Item
|
|
( Item(..)
|
|
, itemType
|
|
, newWithType
|
|
) where
|
|
--------------------------------------------------------------------------------
|
|
import Xanthous.Prelude
|
|
import Test.QuickCheck
|
|
import Data.Aeson (ToJSON, FromJSON)
|
|
import Data.Aeson.Generic.DerivingVia
|
|
--------------------------------------------------------------------------------
|
|
import Xanthous.Entities.RawTypes hiding (Item, description)
|
|
import qualified Xanthous.Entities.RawTypes as Raw
|
|
import Xanthous.Entities
|
|
( Draw(..)
|
|
, Entity(..)
|
|
, DrawRawChar(..)
|
|
, Brain(..)
|
|
, Brainless(..)
|
|
, brainVia
|
|
)
|
|
--------------------------------------------------------------------------------
|
|
|
|
data Item = Item
|
|
{ _itemType :: ItemType
|
|
}
|
|
deriving stock (Eq, Show, Generic)
|
|
deriving anyclass (CoArbitrary, Function)
|
|
deriving Draw via DrawRawChar "_itemType" Item
|
|
deriving (ToJSON, FromJSON)
|
|
via WithOptions '[ FieldLabelModifier '[Drop 1] ]
|
|
Item
|
|
makeLenses ''Item
|
|
|
|
-- deriving via (Brainless Item) instance Brain Item
|
|
instance Brain Item where step = brainVia Brainless
|
|
|
|
instance Arbitrary Item where
|
|
arbitrary = Item <$> arbitrary
|
|
|
|
instance Entity Item where
|
|
blocksVision _ = False
|
|
description = view $ itemType . Raw.description
|
|
|
|
newWithType :: ItemType -> Item
|
|
newWithType = Item
|