Cleanup

src/Dodge/Creature/Impulse.hs

@@ -43,7 +43,7 @@ followImpulse cr w imp = case imp of
     Bark sid -> (soundStart (CrMouth cid) cpos sid Nothing, resetCrVocCoolDown w cr)
     Move p -> crup $ crMvBy p cr
     MoveForward x -> crup $ crMvForward x cr
-    Turn a -> crup $ creatureTurn a cr
+    Turn a -> crup $ cr & crDir +~ a
     TurnToward p a -> crup $ creatureTurnToward p a cr
     TurnTo p -> crup $ creatureTurnTo p cr
     ChangePosture post -> crup $ cr & crStance . posture .~ post
@@ -55,7 +55,7 @@ followImpulse cr w imp = case imp of
         ( hitCr cid'
         , crMvAbsolute (10 *.* normalizeV (posFromID cid' -.- cpos)) $ cr & crMeleeCooldown .~ 20
         )
-    RandomTurn a -> (randGen .~ snd (rr a), creatureTurn (fst $ rr a) cr)
+    RandomTurn a -> (randGen .~ snd (rr a), cr & crDir +~ (fst $ rr a))
     MakeSound sid -> (soundStart (CrSound (_crID cr)) (_crPos cr) sid Nothing, cr)
     DropItem -> undefined
     ChangeStrategy strat -> crup $ cr & crActionPlan . apStrategy .~ strat