From 149ec834ff35e296598b76b2784b13b7a41d9b64 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sun, 19 Jun 2022 22:26:44 +0100
Subject: [PATCH] Add file

---
 src/Dodge/Placement/Random.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/Dodge/Placement/Random.hs

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]