Cleanup: broken pathfinding

src/Dodge/Item/Random.hs

@@ -0,0 +1,10 @@
+module Dodge.Item.Random where
+import Dodge.Data
+import Dodge.RandomHelp
+import Dodge.Item.Weapon.BulletGuns
+
+import Control.Monad.State
+import System.Random
+
+randBlockBreakWeapon :: RandomGen g => State g Item
+randBlockBreakWeapon = takeOne [pistol,ltAutoGun,spreadGun,autoGun]