Simplify creature update

src/Dodge/Placement/Instance/Turret.hs

@@ -3,6 +3,7 @@ import Color
 import Dodge.Data
 --import Dodge.Reloading
 import Dodge.Creature.State
+import Dodge.Creature.Damage
 import Dodge.Creature.Impulse
 import Dodge.Creature.Picture
 import Dodge.LevelGen.Data
@@ -76,8 +77,9 @@ updateTurret rotSpeed mc w
                 & crRad    .~ 1
                 & crDir .~ mcdir
                 & crPict .~ (\cr _ _ -> drawCrEquipment cr)
-                & crUpdate .~ stateUpdateDamage clearDamage (flip followThenClearImpulses)
+                & crUpdate .~ stateUpdate' followThenClearImpulses'
                 & crStance . posture .~ Aiming
+                & crApplyDamage .~ applyNoDamage
         Just cid -> w'
             & creatures . ix cid . crPos .~ mcpos
             & creatures . ix cid . crDir .~ mcdir