9 lines
202 B
Haskell
9 lines
202 B
Haskell
module Dodge.Item.Random where
|
|
import Dodge.Data
|
|
import RandomHelp
|
|
import Dodge.Item.Weapon.BulletGuns
|
|
|
|
|
|
randBlockBreakWeapon :: RandomGen g => State g Item
|
|
randBlockBreakWeapon = takeOne [bangStick 1]
|