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