16 lines
404 B
Haskell
16 lines
404 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 :: RandomGen g => State g Item
|
|
randFirstWeapon =
|
|
takeOne $
|
|
replicate 10 pistol
|
|
++ replicate 5 (bangStick 4)
|
|
++ replicate 5 (volleyGun 3)
|
|
++ replicate 5 bangCone
|
|
++ [laser]
|