12 lines
324 B
Haskell
12 lines
324 B
Haskell
module Dodge.ItemUseCondition (itUseCondition) where
|
|
|
|
import Dodge.Data.Item
|
|
import Dodge.Data.UseCondition
|
|
|
|
itUseCondition :: Item -> UseCondition
|
|
itUseCondition itm = case _itType itm of
|
|
DETECTOR _ -> UseableAnytime
|
|
HELD BLINKER -> UseableAnytime
|
|
HELD BLINKERUNSAFE -> UseableAnytime
|
|
_ -> UseableWhenAimed
|