14 lines
349 B
Haskell
14 lines
349 B
Haskell
module Dodge.Placement.Random where
|
|
import Dodge.Data
|
|
import Dodge.Item
|
|
import RandomHelp
|
|
|
|
{- Probabilites of the type of the first floor weapon. -}
|
|
randFirstWeapon :: State StdGen Item
|
|
randFirstWeapon = takeOne $
|
|
replicate 10 pistol
|
|
++ replicate 5 (bangStick 4)
|
|
++ replicate 5 (bangCaneX 3)
|
|
++ replicate 5 bangCone
|
|
++ [lasGun]
|