Mapper, ARHUD, radar sweeps update. Add dropper items

2025-01-03 10:43:06 +00:00
parent e9f5a39ed7
commit 386d6f47b0
27 changed files with 802 additions and 700 deletions
@@ -1,11 +1,12 @@
-module Dodge.ScrollValue where
+module Dodge.ScrollValue (updateScrollTestValue) where

 import Dodge.Data.Input
 import LensHelp

 updateScrollTestValue :: Input -> Input
-updateScrollTestValue theinput = theinput & scrollTestFloat +~ theamount
-    & scrollTestInt +~ i
+updateScrollTestValue theinput =
+    theinput & scrollTestFloat +~ theamount
+        & scrollTestInt +~ i
  where
    i = theinput ^. scrollAmount
    theamount = fromIntegral i / 100