11 lines
265 B
Haskell
11 lines
265 B
Haskell
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]
|