9 lines
265 B
Haskell
9 lines
265 B
Haskell
module Dodge.Placement.Instance.Creature where
|
|
import Dodge.LevelGen.Data
|
|
import Dodge.RandomHelp
|
|
import Dodge.Creature.ArmourChase
|
|
import Dodge.Creature.ChaseCrit
|
|
|
|
randC1 :: PSType
|
|
randC1 = RandPS $ takeOne $ map PutCrit $ armourChaseCrit : replicate 50 chaseCrit
|