Start more sensibly separating avatar from ai creatures

src/Dodge/Creature/Update.hs

@@ -1,7 +1,9 @@
-module Dodge.Creature.Update 
-    ( updateCreature
-    ) where
+module Dodge.Creature.Update (
+    updateCreature,
+) where
 
+import Dodge.Creature.YourControl
+import Dodge.Creature.State
 import Dodge.Barreloid
 import Dodge.Data.World
 import Dodge.Humanoid
@@ -9,6 +11,7 @@ import Dodge.Lampoid
 
 updateCreature :: Creature -> World -> World
 updateCreature cr = case _crType cr of
+    Avatar{} -> crUpdate yourControl cr
     Lampoid{} -> updateLampoid cr
     Humanoid{} -> updateHumanoid cr
     Barreloid{} -> updateBarreloid cr

src/Dodge/Creature/YourControl.hs

@@ -7,7 +7,6 @@ import Data.Foldable
 import qualified Data.Map.Strict as M
 import Data.Maybe
 import Dodge.Base.Coordinate
-import Dodge.Base.You
 import Dodge.Creature.Impulse.Movement
 import Dodge.Creature.Impulse.UseItem
 import Dodge.Data.World
@@ -163,7 +162,7 @@ mouseActionsCr pkeys
 pressedMBEffectsTopInventory :: M.Map SDL.MouseButton Int -> World -> World
 pressedMBEffectsTopInventory pkeys w
     | isDown SDL.ButtonLeft && isDown SDL.ButtonRight && inTopInv = youhammerdown $ useRootItem 0 w
-    | isDown SDL.ButtonLeft && inTopInv = youhammerdown $ useItemLeftClick (you w) w
+--    | isDown SDL.ButtonLeft && inTopInv = youhammerdown $ useItemLeftClick (you w) w
     | isDown SDL.ButtonMiddle = w & wCam . camRot -~ rotation
     | otherwise = w
   where