Move UseCondition out of record

src/Dodge/ItemUseCondition.hs

@@ -0,0 +1,11 @@
+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 UNSAFEBLINKER -> UseableAnytime
+    _ -> UseableWhenAimed