Refactor targeting

2022-07-21 00:10:05 +01:00
parent a89b0c784f
commit 39117b4dfe
8 changed files with 116 additions and 77 deletions
@@ -0,0 +1,11 @@
+module Dodge.Targeting where
+import Dodge.Data
+import Dodge.Item.Weapon.ExtraEffect
+
+updateTargeting :: TargetUpdate -> 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