##
## CONFIG.lua
################################################################################################
{
-- Global CONFIG for customizing RC behaviors
CONFIG = { }

CONFIG.emojis = true
}

##
## BEGIN
################################################################################################
: rc_msg("Initializing magus.rc ...")
: crawl.enable_more(false)

##
## Globals/Globals.rc
################################################################################################
# PAUSE variable for ForceMorePrompts.rc
$PAUSE_MORE := PAUSE
##
## Globals/Globals.lua
################################################################################################
{
-- Pause for AnnounceDamage.lua
PAUSE_MORE = "PAUSE"

-- Standard Colors (ignoring black, not visible)
COLORS = { }

COLORS.lightgrey = "lightgrey"
COLORS.white = "white"
COLORS.blue = "blue"
COLORS.lightblue = "lightblue"
COLORS.green = "green"
COLORS.lightgreen = "lightgreen"
COLORS.cyan = "cyan"
COLORS.lightcyan = "lightcyan"
COLORS.red = "red"
COLORS.lightred = "lightred"
COLORS.magenta = "magenta"
COLORS.lightmagenta = "lightmagenta"
COLORS.yellow = "yellow"
COLORS.brown = "brown"
}

##
## Utils.lua
################################################################################################
{
function withColor(color, str)
  return string.format("<%s>%s</%s>", color, str, color)
end

function rc_out(symbol, color, msg, channel)
  -- crawl_mpr source
  -- https://sourcegraph.com/search?q=context%3Aglobal+repo%3A%5Egithub%5C.com%2Fcrawl%2Fcrawl%24+file%3A%5Ecrawl-ref%2Fsource%2Fl-crawl%5C.cc+crawl_mpr&patternType=standard&sm=1&groupBy=path
  --
  -- static const string message_channel_names[] =
  -- {
  --     "plain", "friend_action", "prompt", "god", "duration", "danger", "warning",
  --     "recovery", "sound", "talk", "talk_visual", "intrinsic_gain",
  --     "mutation", "monster_spell", "monster_enchant", "friend_spell",
  --     "friend_enchant", "monster_damage", "monster_target", "banishment",
  --     "equipment", "floor", "multiturn", "examine", "examine_filter", "diagnostic",
  --     "error", "tutorial", "orb", "timed_portal", "hell_effect", "monster_warning",
  --     "dgl_message",
  -- };

  crawl.mpr(string.format("%s %s", symbol, withColor(color, msg)), channel)
end

function rc_msg(msg)
  rc_out("🤖", "blue", msg, "diagnostic")
end

function rc_scs(msg)
  rc_out("✅", "green", msg, "diagnostic")
end

function rc_err(msg)
  rc_out("❌", "lightred", msg, "danger")
end

function rc_warn(msg)
  rc_out("⚠️", "yellow", msg, "warning")
end


function table_has(table, match)
  for index, value in ipairs(table) do
    if value == match then
      return true
    end
  end

  return false
end
}


##
## AnnounceDamage.lua
################################################################################################
###############
# Damage Calc #
###############
{
  local previous_hp = 0
  local previous_mp = 0
  local previous_form = ""
  local was_berserk_last_turn = false

  -- Helper function to generate status messages and reduce code duplication.
  local function announce_change(change_type, diff, current, max)
    local percentage = current / max
    local status_color
    local template

    if change_type == "hp_loss" then
      if percentage <= 0.30 then status_color = "lightred"
      elseif percentage <= 0.50 then status_color = "red"
      elseif percentage <= 0.70 then status_color = "yellow"
      elseif percentage <= 0.90 then status_color = "lightgrey"
      else status_color = "green" end
      --template = "<red>You take %d damage,</red><%s> and have %d/%d hp.</%s>"
      template = "<red>%d 만큼 hp 피해,</red><%s> 현재 hp %d/%d.</%s>"
      crawl.mpr(string.format(template, diff, status_color, current, max, status_color))

    elseif change_type == "hp_gain" then
      if percentage <= 0.30 then status_color = "lightred"
      elseif percentage <= 0.50 then status_color = "red"
      elseif percentage <= 0.70 then status_color = "yellow"
      elseif percentage <= 0.90 then status_color = "lightgrey"
      else status_color = "green" end
      --template = "<green>You regained %d hp,</green><%s> and now have %d/%d hp.</%s>"
      template = "<green>%d 만큼 hp 회복,</green><%s> 현재 hp %d/%d.</%s>"
      crawl.mpr(string.format(template, diff, status_color, current, max, status_color))

    elseif change_type == "mp_gain" then
      if percentage < 0.25 then status_color = "red"
      elseif percentage < 0.50 then status_color = "yellow"
      else status_color = "green" end
      --template = "<lightcyan>You regained %d mp,</lightcyan><%s> and now have %d/%d mp.</%s>"
      template = "<lightcyan>%d 만큼 mp 회복,</lightcyan><%s> 현재 mp %d/%d.</%s>"
      crawl.mpr(string.format(template, diff, status_color, current, max, status_color))

    elseif change_type == "mp_loss" then
      if percentage <= (max / 5) then status_color = "red"
      elseif percentage <= (max / 2) then status_color = "yellow"
      else status_color = "green" end
      --template = "<lightcyan>You now have </lightcyan><%s>%d/%d mp.</%s>"
      template = "<lightcyan>현재 mp</lightcyan><%s>%d/%d.</%s>"
      -- The original message for losing MP doesn't include the difference amount.
      crawl.mpr(string.format(template, status_color, current, max, status_color))
    end
  end

  function AnnounceDamage()
    local current_hp, max_hp = you.hp()
    local current_mp, max_mp = you.mp()
    local current_form = you.transform()
    local you_are_berserk = you.berserk()
    local max_hp_increased = false
    local max_hp_decreased = false

    if (current_form ~= previous_form) then
      if (previous_form:find("dragon") or
          previous_form:find("statue") or
          previous_form:find("tree") or
          previous_form:find("ice")) then
        max_hp_decreased = true
      elseif (current_form:find("dragon") or
          current_form:find("statue") or
          current_form:find("tree") or
          current_form:find("ice")) then
        max_hp_increased = true
      end
    end
    if (was_berserk_last_turn and not you_are_berserk) then
      max_hp_decreased = true
    elseif (you_are_berserk and not was_berserk_last_turn) then
      max_hp_increased = true
    end

    --Skips message on initializing game
    if previous_hp > 0 then
      if max_hp_increased or max_hp_decreased then
        if max_hp_increased then
          crawl.mpr("<green>현재 " .. current_hp .. "/" .. max_hp .. " hp.</green>")
        else
          crawl.mpr("<yellow>현재 " .. current_hp .. "/" .. max_hp .. " hp.</yellow>")
        end
      else
        --On losing health
        if (current_hp < previous_hp) then
          local hp_difference = previous_hp - current_hp
          announce_change("hp_loss", hp_difference, current_hp, max_hp)
          if hp_difference > (max_hp * 0.20) then
            crawl.mpr("<lightred>악! 이건 정말로 아프다!</lightred>")
          end
        end

        --On gaining more than 1 health
        if (current_hp > previous_hp) then
          local health_gained = current_hp - previous_hp
          if (health_gained > 1) and not (current_hp == max_hp) then
            announce_change("hp_gain", health_gained, current_hp, max_hp)
          end
          if (current_hp == max_hp) then
            crawl.mpr("<green>hp 가득 참: " .. current_hp .. "</green>")
          end
        end

        --On gaining more than 1 magic
        if (current_mp > previous_mp) then
          local mp_gained = current_mp - previous_mp
          if (mp_gained > 1) and not (current_mp == max_mp) then
            announce_change("mp_gain", mp_gained, current_mp, max_mp)
          end
          if (current_mp == max_mp) then
            crawl.mpr("<lightcyan>mp 가득 참: " .. current_mp .. "</lightcyan>")
          end
        end

        --On losing magic
        if current_mp < previous_mp then
          local mp_difference = previous_mp - current_mp
          announce_change("mp_loss", mp_difference, current_mp, max_mp)
        end
      end
    end

    --Set previous hp/mp and form at end of turn
    previous_hp = current_hp
    previous_mp = current_mp
    previous_form = current_form
    was_berserk_last_turn = you_are_berserk
  end
}

##
## OpenSkills.lua
################################################################################################
{
-- Open skills menu at start of runs
local is_gnoll = table_has({"Gnoll"}, you.race())
local need_skills_opened = not is_gnoll

local function start_open_skills()
  if you.turns() == 0 and need_skills_opened then
    need_skills_opened = false
    crawl.sendkeys("m")
  end
end

-- Runs once when parsed during rc init
start_open_skills()
}

##
## PickupEquipment.lua
################################################################################################
{
-- 이 변수들은 현재 스크립트에서는 사용되지 않지만, 향후 확장성을 위해 남겨둡니다.
local favor_egos = false
local favor_plus = false

-- 아이템이 브랜드(예: 화염, 냉기)나 에고(예: 저항, 비행)를 가졌는지 확인합니다.
local function is_branded_ego(item)
  return item.branded or item.ego()
end

-- 아이템이 마법 속성(브랜드, 에고, 아티팩트)을 가졌는지 확인합니다.
local function is_magical(item)
  return is_branded_ego(item) or item.artefact
end

-- 아이템이 nil일 경우를 대비한 문자열
local nil_item = "item: nil";

-- (디버깅용) 아이템의 상세 정보를 문자열로 반환합니다.
local function debug_item(item)
  if item == nil then
    return nil_item
  end

  local qual = item.name("qual");
  local subtype = item.subtype();

  if qual == nil or subtype == nil then
    return nil_item
  end

  local magical = tostring(is_magical(item));
  local plus = tostring(item.plus);

  return string.format("name: %s; subtype: %s, magical: %s, plus: %s", qual, subtype, magical, plus)
end

-- ====================================================================
-- 리팩터링된 헬퍼 함수들 (Refactored Helper Functions)
-- ====================================================================

--- 인벤토리에 특정 이름을 가진 아이템이 있는지 확인합니다.
-- @param item_name 확인할 아이템의 전체 이름 (예: "orb of destruction")
-- @return boolean 해당 아이템을 가지고 있으면 true
local function has_item_in_inventory(item_name)
  for item in items.inventory() do
    if item.name() == item_name then
      return true
    end
  end
  return false
end

--- 현재 착용한 아이템(cur)이 이미 충분히 좋아서
-- 다른 아이템을 주울 필요가 없는지 확인합니다.
-- @param cur 현재 착용 중인 아이템
-- @return boolean 줍지 않아야 하면 true
local function is_pickup_declined(cur)
  -- 현재 아이템이 nil이거나, 마법 속성이 없으면 줍는 것을 거절할 이유가 없습니다.
  if cur == nil or not is_magical(cur) then
    return false
  end

  -- 이미 마법 속성이 부여된 아이템이나 드래곤 갑옷을 착용 중이라면,
  -- 다른 아이템으로 교체하는 것을 고려하지 않고 줍지 않습니다.
  local is_dragon_scales = string.find(cur.name("qual"), "dragon scale")
  if is_magical(cur) or is_dragon_scales then
    return true
  end

  return false
end

--- 바닥의 아이템(i2)이 현재 착용한 아이템(cur)에 비해
-- 명백하게 더 좋은 업그레이드인지 확인합니다.
-- @param cur 현재 착용 중인 아이템
-- @param i2 바닥에 있는 아이템
-- @return boolean 명백한 업그레이드일 경우 true
local function is_clear_upgrade(cur, i2)
  -- 1. 현재 장비 슬롯이 비어있으면 무조건 줍습니다.
  if cur == nil then
    return true
  end

  -- 2. 현재 아이템이 일반 아이템인데, 바닥의 아이템에 마법 속성이 붙어있으면 줍습니다.
  local more_magical = not is_magical(cur) and is_magical(i2)
  if more_magical then
    return true
  end
  
  -- 3. 두 아이템의 기본 이름이 같을 때, 강화 수치가 더 높으면 줍습니다.
  local higher_plus = i2.plus ~= nil and i2.plus > (cur.plus or 0)
  if cur.name("qual") == i2.name("qual") and higher_plus then
    return true
  end

  return false
end


-- ====================================================================
-- 핵심 로직 함수 (Core Logic Function)
-- ====================================================================

--- 현재 착용한 아이템(cur)과 바닥의 아이템(i2)을 비교하여 주울지 여부를 최종 결정합니다.
-- @param cur 현재 착용 중인 아이템
-- @param i2 바닥에 있는 아이템
-- @return boolean 주워야 하면 true
local function should_pickup(cur, i2)
  -- 신이 선물한 아이템은 항상 줍습니다.
  if i2.god_gift then return true end

  -- 1. 줍지 말아야 할 명백한 이유가 있는지 먼저 확인합니다. (예: 이미 좋은 아티팩트 착용 중)
  if is_pickup_declined(cur) then
    return false
  end

  -- 2. 주워야 할 명백한 이유가 있는지 확인합니다. (예: 빈 슬롯, 확실한 성능 향상)
  if is_clear_upgrade(cur, i2) then
    return true
  end

  -- 3. 그 외의 경우 (하드코딩된 설정값에 따라 판단, 현재는 둘 다 false)
  --    만약 에고/브랜드 아이템을 선호한다면 줍습니다.
  if favor_egos and is_magical(i2) then return true end
  --    만약 강화 수치를 선호하고, 강화 수치가 더 높다면 줍습니다.
  local higher_plus = i2.plus ~= nil and i2.plus > (cur.plus or 0)
  if favor_plus and higher_plus then return true end

  -- 위의 모든 조건에 해당하지 않으면 기본적으로 줍지 않습니다.
  return false
end

-- 아이템 종류에 따라 해당하는 장비 슬롯을 찾아, 현재 착용 중인 아이템을 반환합니다.
local item_subtype_equip_slot = {
  cloak="Cloak",
  helmet="Helmet",
  gloves="Gloves",
  boots="Boots",
  shield="Shield"}

local function equip_slot(item_sub_type)
  -- 갑옷(body armour)의 경우, 로컬과 웹타일에서 사용하는 슬롯 이름이 달라 둘 다 시도합니다.
  if item_sub_type == "body" then
    local body_armour = items.equipped_at("Body Armour");
    local armour = items.equipped_at("Armour");
    return body_armour or armour;
  end

  -- 그 외 방어구는 테이블을 통해 슬롯을 찾습니다.
  local equip_slot_name = item_subtype_equip_slot[item_sub_type];
  return items.equipped_at(equip_slot_name);
end

--- 자동 습득 기능의 메인 진입 함수입니다.
-- 게임 내에서 아이템을 발견할 때마다 호출됩니다.
function pickup_equipment(it, name)
  local class = it.class(true)

  -- 신에게 금지되거나 쓸모없는 아이템은 줍지 않습니다.
  if string.match(name, "forbidden") then return end
  if it.is_useless then return end

  -- 아티팩트는 항상 줍습니다.
  if it.artefact then return true end

  if class == "weapon" then
    local currentWeapon = items.equipped_at("weapon");
    -- 맨손 격투 상태일 때는, 신의 선물을 제외하고 무기를 줍지 않습니다.
    if currentWeapon == nil then
      if it.god_gift then return true end
      return false
    end
    if should_pickup(currentWeapon, it) then return true end

  elseif class == "armour" then
    local sub_type = it.subtype();
    -- 발톱이 있는 종족은 장갑을 줍지 않습니다.
    if sub_type == "gloves" and you.has_claws() > 0 then return end

    -- ▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
    -- 새로운 방패/보주 로직
    -- ▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
    if sub_type == "shield" then
      local is_orb = string.find(it.name("qual"), "orb")

      if is_orb then
        -- [오브 규칙] 인벤토리에 동일한 이름의 오브가 이미 있다면 줍지 않습니다.
        if has_item_in_inventory(it.name()) then
          return false -- 중복이므로 줍지 않음
        else
          -- 인벤토리에 없는 새로운 종류의 오브는 무조건 줍습니다.
          return true -- 새로운 오브이므로 줍기
        end
      else -- 방패인 경우
        -- [방패 규칙] 방패술 스킬이 5보다 작으면 줍지 않습니다.
        if you.skill("Shields") < 5 then
          return -- 스킬 레벨이 낮으므로 줍지 않음
        end
        -- 스킬 레벨이 충분하다면, 아래의 일반 장비 비교 로직을 따릅니다.
      end
    end
    -- ▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

    -- 현재 착용한 아이템과 비교하여 주울지 결정합니다.
    local equipped_item = equip_slot(sub_type)
	if should_pickup(equipped_item, it) then return true end
  end
  
  return
end

-- 스크립트가 로드될 때, 이 함수를 게임의 자동 습득 기능에 등록합니다.
add_autopickup_func(pickup_equipment)
}

##
## NoteVersion.lua
################################################################################################
{
local didRun = false
function note_version()
  if didRun then
    return
  end

  local version = "magus.rc [v1.11.6]"
  crawl.take_note(version)
  didRun = true
end
}

function rc_msg(msg)
  rc_out("🤖", "blue", msg, "diagnostic")
end



##
## TurnReady.lua
################################################################################################
{
-- Run every player turn
function ready()
  -- rc_msg("Running ready function...")

  -- Display damage taken in log
  AnnounceDamage()
  note_version()
end
}