Add shrinkability and cursed items

2021-11-18 18:30:22 +00:00
parent 147d6098ab
commit a546d070f0
82 changed files with 273 additions and 233 deletions
@@ -3,10 +3,8 @@ module Dodge.Creature.YourControl
    ) where
 import Dodge.Data
 import Dodge.Creature.Impulse.Movement
-import Dodge.Creature.Stance.Data
 import Dodge.Update.UsingInput
 import Dodge.Config.KeyConfig
-import Dodge.Item.Attachment.Data
 import Geometry

 import Control.Lens
@@ -24,7 +22,7 @@ yourControl cr w =
    , Just . mouseActionsCr (_mouseButtons w) $ wasdWithAiming w speed 0 cr
    )
  where 
-    speed = 4
+    speed = _mvSpeed $ _crMvType cr
 {- | Turn key presses into creature movement.  -}
 wasdWithAiming 
    :: World