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]