module Dodge.Targeting where import Dodge.Data.World 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