justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup targeting

Browse Source
This commit is contained in:
justin
2023-01-05 11:01:12 +00:00
parent c48a553967
commit 0302685053
24 changed files with 66 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Targeting.hs
+6 -6
View File
@@ -3,10 +3,10 @@ module Dodge.Targeting where
import Dodge.Data.World
import Dodge.Item.Weapon.ExtraEffect
updateTargeting :: TargetUpdate -> Item -> Creature -> World -> Targeting -> (World, Targeting)
updateTargeting :: TargetType -> Item -> Creature -> World -> Targeting -> (World, Targeting)
updateTargeting tu = case tu of
NoTargetUpdate -> \_ _ w t -> (w, t)
TargetLaserUpdate -> targetLaserUpdate
TargetRBPressUpdate -> targetUpdateWith targetRBPressUpdate
TargetRBCreatureUpdate -> targetRBCreatureUp
TargetCursorUpdate -> targetUpdateWith targetCursorUpdate
TargetLaser -> targetLaserUpdate
TargetRBPress -> targetUpdateWith targetRBPressUpdate
TargetRBLine -> targetUpdateWith targetRBPressUpdate
TargetRBCreature -> targetRBCreatureUp
TargetCursor -> targetUpdateWith targetCursorUpdate