13 lines
469 B
Haskell
13 lines
469 B
Haskell
module Dodge.Targeting where
|
|
|
|
import Dodge.Data.World
|
|
import Dodge.Item.Weapon.ExtraEffect
|
|
|
|
updateTargeting :: TargetType -> Item -> Creature -> World -> Targeting -> (World, Targeting)
|
|
updateTargeting tu = case tu of
|
|
TargetLaser -> targetLaserUpdate
|
|
TargetRBPress -> targetUpdateWith targetRBPressUpdate
|
|
TargetRBLine -> targetUpdateWith targetRBPressUpdate
|
|
TargetRBCreature -> targetRBCreatureUp
|
|
TargetCursor -> targetUpdateWith targetCursorUpdate
|