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]