13 lines
479 B
Haskell
13 lines
479 B
Haskell
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
|