11 lines
355 B
Haskell
11 lines
355 B
Haskell
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)
|