Make creature update an external function

src/Dodge/Data/Creature.hs

@@ -2,6 +2,8 @@
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.Creature where
 import Sound.Data
+import Geometry.Data
+import Color
 import Control.Lens
 data CamouflageStatus
     = FullyVisible
@@ -31,6 +33,22 @@ data CrMvType
         , _mvTurnJit    :: Float
         , _mvAimSpeed   :: Float -> Float
         }
+data HumanoidAI = YourAI | ChaseAI | InanimateAI | SpreadGunAI | PistolAI
+    | LtAutoAI | LauncherAI | SwarmAI | AutoAI | FlockArmourChaseAI | MiniGunAI
+    | LongAI | MultGunAI
+data CreatureType
+    = Humanoid
+        { _skinHead     :: Color
+        , _skinUpper    :: Color
+        , _skinLower    :: Color
+        , _humanoidAI   :: HumanoidAI
+        }
+    | Barreloid {_barrelType :: BarrelType}
+    | Lampoid {_lampHeight :: Float, _lampColor :: Point3, _lampLSID :: Maybe Int}
+    | Turretoid
+    | NonDrawnCreature
+data BarrelType = PlainBarrel | ExplosiveBarrel
 makeLenses ''CreatureStatistics
 makeLenses ''Vocalization
 makeLenses ''CrMvType 
+makeLenses ''CreatureType