Add battery shape/picture

src/Dodge/Humanoid.hs

@@ -168,7 +168,7 @@ updateHumanoid cr = case cr ^?! crType . humanoidAI of
                 ]
             ]
             cr
-    YourAI -> stateUpdate yourControl cr
+    YourAI -> crUpdate yourControl cr
     InanimateAI -> id
   where
     drawwp = DoActionIfElse NoAction (WdCrBlfromCrBl CrIsAiming) (DoActionThen drawWeapon (WaitThen 50 NoAction))
@@ -184,7 +184,7 @@ humanoidAIList ::
     World ->
     World
 humanoidAIList
-    = stateUpdate . impulsiveAIBefore . chainCreatureUpdates
+    = crUpdate . impulsiveAIBefore . chainCreatureUpdates
 
 -- bit of a hack to get new random generators after each creature's update
 defaultImpulsive ::
@@ -193,7 +193,7 @@ defaultImpulsive ::
     World ->
     World
 defaultImpulsive
-    = fmap (fmap updateRandGen) . stateUpdate . impulsiveAIBefore . chainCreatureUpdates
+    = fmap (fmap updateRandGen) . crUpdate . impulsiveAIBefore . chainCreatureUpdates
   where
     updateRandGen w =
         let (_, g) = randomR (0, 1 :: Int) (_randGen w)