Move towards using item structural function when using items

2024-10-05 20:53:50 +01:00
parent 7c324a03f6
commit 3b54f00cc7
16 changed files with 142 additions and 111 deletions
@@ -15,7 +15,7 @@ updateLaser w pt =
    ( case _lpType pt of
        DamageLaser dam -> damThingHitWith 
            (\p1 p2 p3 -> Damage LASERING dam p1 p2 p3 NoDamageEffect) sp xp thHit w
-        TargetingLaser itid -> w & pointerToItemID itid . itUse . tgPos ?~ last ps
+        TargetingLaser itid -> w & pointerToItemID itid . itTargeting . itTgPos ?~ last ps
    , Laser{_lzPoints = sp : ps, _lzColor = _lpColor pt, _lzType = _lpType pt}
    )
  where