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