18 lines
517 B
Haskell
18 lines
517 B
Haskell
module Dodge.Item.MaxAmmo (maxAmmo) where
|
|
|
|
import Control.Lens
|
|
import Dodge.Data.Item
|
|
|
|
maxAmmo :: Item -> Maybe Int
|
|
maxAmmo itm = case itm ^. itType of
|
|
EQUIP BATTERYPACK -> Just $ 10 ^ (9 :: Int)
|
|
AMMOMAG BATTERY -> Just $ 10 ^ (6 :: Int)
|
|
AMMOMAG TINMAG -> Just 15
|
|
AMMOMAG DRUMMAG -> Just 30
|
|
AMMOMAG BELTMAG -> Just 90
|
|
AMMOMAG CHEMFUELPOUCH -> Just $ 10 ^ (6 :: Int)
|
|
AMMOMAG SHELLMAG -> Just 1
|
|
EQUIP BULLETBELTPACK -> Just 10000
|
|
EQUIP BULLETBELTBRACER -> Just 1000
|
|
_ -> Nothing
|