Add file

src/Dodge/Placement/Random.hs

@@ -0,0 +1,13 @@
+module Dodge.Placement.Random where
+import Dodge.Data
+import Dodge.Item
+import RandomHelp
+
+{- Probabilites of the type of the first floor weapon.  -}
+randFirstWeapon :: State StdGen Item
+randFirstWeapon = takeOne $
+    replicate 10 pistol
+    ++ replicate 5 (bangStick 4)
+    ++ replicate 5 (bangCaneX 3)
+    ++ replicate 5 bangCone
+    ++ [lasGun]