{-# LANGUAGE LambdaCase #-}

module Dodge.Item.Display (
    itemBaseName,
    itemString,
    basicItemDisplay,
) where

import Data.Maybe
import Dodge.Data.World
import Dodge.Item.InvSize
import LensHelp

-- Principles: base names should identify an item, numbers can change based on a
-- variety of factors but typically don't depend on functional quality,
-- colour gives an indication of an item's function within a structure
-- itemDisplay has been moved out of this module 06/01/25

basicItemDisplay :: Item -> [String]
basicItemDisplay itm =
    Prelude.take (itInvHeight itm) $
        itemBaseName (itm ^. itType) :
        catMaybes [maybeWarmupStatus itm]
            ++ repeat "*"

maybeWarmupStatus :: Item -> Maybe String
maybeWarmupStatus it = case it ^? itUse . heldDelay . warmMax of
    Nothing -> Nothing
    Just m -> case m - (_warmTime . _heldDelay $ _itUse it) of
        x
            | x <= 1 -> Just "*WARM"
            | otherwise ->
                let n = show x
                 in Just $ Prelude.take (5 - Prelude.length n) "*WARM" ++ n

itemString :: Item -> String
itemString = head . basicItemDisplay

-- this should be immutable with the item type
itemBaseName :: ItemType -> String
itemBaseName = \case
    CRAFT str -> show str
    HELD hit -> case hit ^? xNum of
        Just i -> takeWhile (/= ' ') (show hit) ++ show i
        Nothing -> show hit
    EQUIP eit -> showEquipItem eit
    ATTACH ait -> showAttachItem ait
    AMMOMAG ait -> show ait
    TARGETING tt -> show tt
    BULLETMOD (BulletModPayload btt) -> show btt
    BULLETMOD (BulletModEffect btt) -> show btt
    STICKYMOD -> "STICKYMOD"
    ITEMSCAN -> "ITEMSCAN"
    INTROSCAN t -> show t
    MAPPER -> "MAPPER"
    DETECTOR t -> show t
    ARHUD -> "AR-HUD"
    DROPPER x -> "DROPPER-" ++ showInventoryPathing x
    CLICKER x -> "CLICKER-" ++ showInventoryPathing x
    COPIER x -> "COPIER-" ++ showInventoryPathing x
    BGATE -> "BGATE"
    UGATE -> "UGATE"

showInventoryPathing :: InventoryPathing -> String
showInventoryPathing = \case
    ABSOLUTE -> "ABS"
    RELCURS -> "CURS"
    RELITEM -> "HERE"

showAttachItem :: AttachType -> String
showAttachItem t = case t of
    UNDERBARRELSLOT -> "UNDERBARRELSLOT"
    ZOOMSCOPE -> "ZOOMSCOPE"
    BULLETSYNTH -> "BSYNTH"
    REMOTESCREEN -> "REM.SCREEN"
    JOYSTICK -> "JOYSTICK"
    REMOTEDETONATOR -> "REM.DETONATR"
    SMOKEREDUCER -> "SMOKE.REDUCR"
    HOMINGMODULE -> "HOMING MOD"
    SHELLPAYLOAD x -> show x
    GIMBAL -> "GIMBAL"
    GYROSCOPE -> "GYROSCOPE"

showEquipItem :: EquipItemType -> String
showEquipItem eit = case eit of
    INVISIBILITYEQUIPMENT esite -> "INVISIBILITY " ++ show esite
    _ -> show eit