Add Read/Show instance for Creature

src/Dodge/Creature/Impulse.hs

@@ -4,6 +4,8 @@ module Dodge.Creature.Impulse
     , followThenClearImpulses
     ) where
 import Dodge.Data
+import Dodge.FloatFunction
+import Dodge.RandImpulse
 import Dodge.CreatureEffect
 import Dodge.Creature.Vocalization
 import Dodge.Creature.Impulse.Movement
@@ -53,7 +55,7 @@ followImpulse :: Creature -> World -> Impulse -> (World -> World , Creature)
 followImpulse cr w imp = case imp of
     ImpulseNothing -> (id,cr)
     RandomImpulse rimp -> 
-        let (newimp,newgen) = runState rimp (_randGen w)
+        let (newimp,newgen) = runState (doRandImpulse rimp) (_randGen w)
         in first ((randGen .~ newgen) .) $ followImpulse cr w newimp
     Bark sid        -> (soundStart (CrMouth cid) cpos sid Nothing, resetCrVocCoolDown cr)
     Move p          -> crup $ crMvBy p cr
@@ -88,7 +90,7 @@ followImpulse cr w imp = case imp of
     crup = (id,)
     mvType = _crMvType cr
     speed = _mvSpeed mvType
-    turnRad = _mvTurnRad mvType
+    turnRad = doFloatFloat $ _mvTurnRad mvType
     cpos = _crPos cr
     cdir = _crDir cr
     cid  = _crID cr