diff --git a/src/Dodge/Placement/Random.hs b/src/Dodge/Placement/Random.hs
new file mode 100644
index 000000000..9b5532e55
--- /dev/null
+++ b/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]