Continue item use refactor

src/Dodge/Creature/Impulse.hs

@@ -8,7 +8,7 @@ import Data.Foldable
 import Control.Monad.State
 import Data.Bifunctor
 import Dodge.Creature.Impulse.Movement
-import Dodge.Creature.Impulse.UseItem
+--import Dodge.Creature.Impulse.UseItem
 import Dodge.Creature.Vocalization
 import Dodge.CreatureEffect
 import Dodge.Data.World
@@ -47,7 +47,9 @@ followImpulse cr w imp = case imp of
     TurnToward p a -> crup $ creatureTurnToward p a cr
     TurnTo p -> crup $ creatureTurnTo p cr
     ChangePosture post -> crup $ cr & crStance . posture .~ post
-    UseItem -> (useSelectedItem $ _crID cr, cr)
+    UseItem -> undefined
+--    UseItem -> (useSelectedItem $ _crID cr
+--        , cr)
     SwitchToItem i -> crup $ cr & crManipulation . manObject .~ SelectedItem i i mempty
     Melee cid' ->
         ( hitCr cid'