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 [bangStick 1,bangCane]