module Game.LambdaHack.Content.ItemKind
( ItemKind(..), validateItemKind
) where
import Data.Text (Text)
import qualified Data.Text as T
import qualified NLP.Miniutter.English as MU
import Game.LambdaHack.Common.Flavour
import qualified Game.LambdaHack.Common.ItemFeature as IF
import Game.LambdaHack.Common.Misc
import Game.LambdaHack.Common.Random
data ItemKind = ItemKind
{ isymbol :: !Char
, iname :: !Text
, ifreq :: !Freqs
, iflavour :: ![Flavour]
, icount :: !RollDeep
, iverbApply :: !MU.Part
, iverbProject :: !MU.Part
, iweight :: !Int
, itoThrow :: !Int
, ifeature :: ![IF.Feature]
}
deriving Show
validateItemKind :: [ItemKind] -> [ItemKind]
validateItemKind l = filter (\ik -> T.length (iname ik) > 25) l