Add indexed world modifications, example use in flicker lights

src/Dodge/LevelGen.hs

@@ -7,11 +7,17 @@ import Dodge.Data
 import Dodge.Floor
 import Dodge.Layout
 import Dodge.Initialisation
+import Dodge.RandomHelp
 
 import System.Random
+import Control.Lens
+import Control.Monad.State
 
 generateWorldFromSeed :: Int -> IO World
 generateWorldFromSeed i = do
     roomList <- layoutLevelFromSeed 0 i
-    return $ generateLevelFromRoomList roomList 
+    return $ randomCompass $ generateLevelFromRoomList roomList 
          initialWorld{_randGen=mkStdGen i}
+
+randomCompass :: World -> World
+randomCompass w = w & cameraRot .~ (takeOne [0,0.5*pi,pi,1.5*pi] & evalState $ _randGen w)