Tweak display, scrolling of item values

2025-01-07 21:10:29 +00:00
parent b3cf10bd26
commit 5fa5bdf21e
18 changed files with 367 additions and 384 deletions
@@ -430,7 +430,7 @@ shootLaser itmtree cr mz w =
    w
        & randGen .~ g
        & cWorld . lWorld . lasers
-            .:~ LaserStart
+            .:~ Laser
                { _lpType = getLaserDamage itmtree
                , _lpPhaseV = getLaserPhaseV itmtree
                , _lpPos = pos
@@ -445,9 +445,9 @@ shootLaser itmtree cr mz w =
    (a, g) = randomR (- inacc, inacc) $ _randGen w
    inacc = _mzInaccuracy mz

-lasRayAt :: Color -> Int -> Float -> Point2 -> Float -> LaserStart
+lasRayAt :: Color -> Int -> Float -> Point2 -> Float -> Laser
 lasRayAt col dam phasev pos dir =
-    LaserStart
+    Laser
        { _lpType = DamageLaser dam
        , _lpPhaseV = phasev
        , _lpPos = pos