Move targeting strings, broke targeting usage

src/Dodge/Item/Display.hs

@@ -1,5 +1,7 @@
 module Dodge.Item.Display (
-    itemDisplay,
+    --itemDisplay,
+    itemDisplayOffset,
+    canAttachTargetingBelow,
 --    selectedItemDisplay,
     itemString,
     itemBaseName,
@@ -16,6 +18,36 @@ import Dodge.Module
 import LensHelp
 import Padding
 
+itemDisplayOffset :: Creature -> Item -> (Int,[String])
+itemDisplayOffset cr itm = case itm ^. itType . iyBase of
+    EQUIP (TARGETINGHAT tt) | targetItemCanAttachAbove cr itm 
+        -> ((-1), leftPad 15 ' ' (targetingTypeString tt) : 
+            (itemDisplay cr itm & ix 0 %~ (\s -> itemDisplayPad s (replicate (length (targetingTypeString tt)) '^') )))
+    EQUIP (TARGETINGHAT tt) 
+        -> (0, itemDisplay cr itm & ix 0 %~ (\s -> itemDisplayPad s (targetingTypeString tt)))
+    _ -> (0, itemDisplay cr itm)
+
+targetItemCanAttachAbove :: Creature -> Item -> Bool
+targetItemCanAttachAbove cr itm = fromMaybe False $ do
+    i <- itm ^? itLocation . ipInvID
+    itm' <- cr ^? crInv . ix (i - 1)
+    return $ canAttachTargetingBelow itm'
+
+canAttachTargetingBelow :: Item -> Bool
+canAttachTargetingBelow itm = 
+    isJust (itm ^? itType . iyModules . ix ModBulletTrajectory . imtBulletTrajectoryType)
+        || Just LAUNCHHOME == (itm ^? itType . iyModules . ix ModLauncherHoming)
+
+targetingTypeString :: TargetType -> String
+targetingTypeString tt = case tt of
+    TargetLaser -> "LASER"
+    TargetRBPress -> "POS"
+    TargetRBLine -> ""
+    TargetRBCreature -> "LIFEFORM"
+    TargetCursor -> "CURSOR"
+    
+    
+
 itemDisplay :: Creature -> Item -> [String]
 itemDisplay cr itm = --itemDisplayWithNumber (showConsumption cr it) it
     zipWithDefaults id (leftPad 15 ' ') itemDisplayPad (basicItemDisplay itm) (itemNumberDisplay cr itm)
@@ -52,9 +84,14 @@ itemBaseName it = case _iyBase $ _itType it of
         Just i -> takeWhile (/= ' ') (show hit) ++ show i
         Nothing -> show hit
     LEFT lit -> show lit
-    EQUIP eit -> show eit
+    EQUIP eit -> showEquipItem eit
     Consumable cit -> show cit
 
+showEquipItem :: EquipItemType -> String
+showEquipItem eit = case eit of
+    TARGETINGHAT _ -> "TARG.HAT"
+    _ -> show eit
+
 showAutoRechargeProgress :: LeftConsumption -> String
 showAutoRechargeProgress lc = case lc of
     AutoRecharging{}