11 lines
295 B
Haskell
11 lines
295 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 [hoverCrit,chaseCrit]
|
|
--randC1 = RandPS $ takeOne $ map PutCrit [hoverCrit]
|