Continue AI refactor

src/Dodge/Creature/Action.hs

@@ -387,3 +387,12 @@ pickUpItem flit w = case maybeInvSlot of
         Nothing -> w'
         Just j  -> w' & itemPositions . ix j .~ InInv 0 invid
 
+{- | A creature attempts to move under its own steam.
+The idea is that this may or may not work, depending on the status of the creature. 
+For now, though, this cannot fail. -}
+creatureMove :: Point2 -> Creature -> Creature
+creatureMove p = crPos %~ (+.+ p)
+
+creatureTurn :: Float -> Creature -> Creature
+creatureTurn a = crDir +~ a
+