16 lines
395 B
Haskell
16 lines
395 B
Haskell
module Dodge.Placement.Random where
|
|
|
|
import Dodge.Data.Item
|
|
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 (volleyGun 3)
|
|
++ replicate 5 bangCone
|
|
++ [lasGun]
|