Refector

src/Dodge/Creature/Action.hs

@@ -9,8 +9,10 @@ module Dodge.Creature.Action
     where
 import Dodge.Creature.Action.UseItem
 import Dodge.Creature.Action.Movement
+import Dodge.Creature.Stance.Data
+import Dodge.Creature.State.Data
 import Dodge.WorldEvent.Shockwave
-import Dodge.Data
+import Dodge.Data hiding (carriage)
 import Dodge.Base
 import Dodge.SoundLogic
 import Dodge.WorldEvent
@@ -176,6 +178,16 @@ crTurnTo
 crTurnTo p cr = set crDir dirToTarget cr
     where dirToTarget = argV (p -.- _crPos cr)
 
+crRandomTurn
+    :: RandomGen g
+    => Float    -- ^ Max possible angle, supposed to be positive
+    -> Creature
+    -> g
+    -> (Creature, g)
+crRandomTurn a cr g = 
+    let (r, g') = randomR (negate a, a) g
+    in (cr & crDir +~ r, g')
+
 crTurnTowardSpeed 
     :: Float    -- ^ Turn speed
     -> Point2   -- ^ Target position