fix animations

src/MainGame/WorldMap.hs

@@ -734,7 +734,7 @@ updateMap dt = do
       emap allEnts $ do
         pos'@(V2 pr pc) <- query pos
         vel' <- queryMaybe vel
-        rot' <- query rot
+        rot' <- fromMaybe N <$> queryMaybe rot
         fact' <- fromMaybe 1 <$> queryMaybe velFact
         xyv2 <- queryMaybe xyvel
         stat <- query anim