28 lines
729 B
Haskell
28 lines
729 B
Haskell
module Dodge.HeldScroll (
|
|
doHeldScroll,
|
|
) where
|
|
|
|
import Control.Lens hiding ((<|), (|>))
|
|
import Data.Sequence
|
|
import Dodge.Data.Creature
|
|
import Dodge.Item.Weapon.ZoomScope
|
|
-- should be able to just import data.item
|
|
|
|
doHeldScroll :: HeldScroll -> Float -> Creature -> Item -> Item
|
|
doHeldScroll hs = case hs of
|
|
HeldScrollDoNothing -> const . const id
|
|
HeldScrollZoom -> zoomLongGun
|
|
HeldScrollCharMode{} -> \x _ -> itUse . heldScroll . hsCharMode %~ cycleSignum x
|
|
HeldScrollInt{} -> undefined
|
|
|
|
cycleSignum :: Float -> Seq a -> Seq a
|
|
cycleSignum x
|
|
| x > 0 = cycleL
|
|
| otherwise = cycleR
|
|
|
|
cycleL, cycleR :: Seq a -> Seq a
|
|
cycleL (x :<| xs) = xs |> x
|
|
cycleL xs = xs
|
|
cycleR (xs :|> x) = x <| xs
|
|
cycleR xs = xs
|