Move targeting functions

src/Dodge/Item/Info.hs

@@ -103,6 +103,7 @@ equipInfo eit = case eit of
     INVISIBILITYEQUIPMENT _ -> "A DEVICE THAT BENDS LIGHT AROUND ITS USER."
     BRAINHAT -> "AN IQ ENHANCER. USELESS."
     HAT -> "A HAT"
+    TARGETINGHAT tt -> "Headwear that "++ targetingInfo tt
     HEADLAMP -> "A TORCH STRAPPED TO A HAT."
     POWERLEGS -> "STRENGTH ENHANCING LEGS."
     SPEEDLEGS -> "SPEED ENHANCING LEGS."
@@ -114,6 +115,14 @@ equipInfo eit = case eit of
 
     AUTODETECTOR d -> "A DEVICE THAT DETECTS "++detectorInfo d ++" IN AN EXPANDING RADIUS. PULSES AUTOMATICALLY. "
 
+targetingInfo :: TargetType -> String
+targetingInfo tt = case tt of
+    TargetLaser -> "creates a laser, the end of which becomes the target."
+    TargetRBPress -> "creates a fixed target."
+    TargetRBLine -> "creates a line target."
+    TargetRBCreature -> "targets a creature."
+    TargetCursor -> "creates a moving target."
+
 consumableInfo :: ConsumableItemType -> String
 consumableInfo cit = case cit of
     MEDKIT _ -> "A SELF-USE HEALING KIT."