module Dodge.Item.Weapon.ZoomScope where
import Dodge.Data
import LensHelp

zoomLongGun :: Float -> Creature -> Item -> Item
zoomLongGun x _
    | x > 0 = itScope . scopeZoomChange %~ (max 15 . (+4))
    | x < 0 = itScope . scopeZoomChange %~ (min (-15) . subtract 4)
    | otherwise = id
--zoomLongGun x _ = itScope . scopeZoomChange .~ round (signum x)
