Rename shaders, remove a dependency on Dodge.Data

src/Dodge/Initialisation.hs

@@ -2,6 +2,7 @@ module Dodge.Initialisation where
 -- imports {{{
 import Dodge.Default
 import Dodge.Data
+import Dodge.Data.Menu
 import Dodge.Creature
 import Dodge.Base
 import Dodge.Floor
@@ -21,8 +22,9 @@ initializeWorld w = w
 
 firstWorld :: IO World
 firstWorld = do
-    i <- randomRIO (0,5000)
-    putStrLn $ "Random seed for level generation: " ++ show ( i :: Int)
+--    i <- randomRIO (0,5000)
+    let i = 2
+    putStrLn $ "Seed for level generation: " ++ show ( i :: Int)
     return $ generateFromList levx $ initialWorld {_randGen = mkStdGen i}
 
 initialWorld :: World