-- The dex-completion diploma (engine/events/diploma.asm DisplayDiploma /
-- diploma2.asm DisplayDiplomaTop): a bordered certificate page with the
-- player's name and character sprite, shown by the Celadon Mansion 3F game designer
-- once 150 species are owned. Diploma.render also backs the printed copy
-- (engine/printer/printer.asm PrintDiploma -> src/core/Printer.lua).

local Assets = require("src.render.Assets")
local Font = require("src.render.Font")
local PaletteFX = require("src.render.PaletteFX")
local Sprites = require("src.pokemon.Sprites")
local Strings = require("src.core.Strings")

local Diploma = {}
Diploma.__index = Diploma
Diploma.isOpaque = true

-- SGB: PalPacket_Generic (MEWMON), whole screen (engine/events/diploma.asm:67)
function Diploma:sgbPalettes(game)
  return PaletteFX.wholeNamed(game.data, "MEWMON")
end

local function tryImage(path)
  if not path then return nil end
  local ok, img = pcall(Assets.image, path)
  if ok and img then return img end
  local ok2, img2 = pcall(love.graphics.newImage, path)
  return ok2 and img2 or nil
end

local function loadFrame()
  local frame = tryImage("assets/generated/trainer_card/trainer_info.png")
  if not frame then return nil end
  local quads = {}
  for i = 0, 8 do
    quads[i] = love.graphics.newQuad((i % 3) * 8,
                                     math.floor(i / 3) * 8,
                                     8, 8, frame:getDimensions())
  end
  return { img = frame, quads = quads }
end

local function drawFrameBox(frame, tx, ty, tw, th)
  love.graphics.setColor(1, 1, 1, 1)
  love.graphics.rectangle("fill", tx * 8, ty * 8, tw * 8, th * 8)
  if not frame then
    Font.drawBox(tx, ty, tw, th)
    return
  end
  local img = frame.img
  local q = frame.quads
  love.graphics.setColor(1, 1, 1, 1)
  -- corners
  love.graphics.draw(img, q[0], tx * 8, ty * 8)
  love.graphics.draw(img, q[2], (tx + tw - 1) * 8, ty * 8)
  love.graphics.draw(img, q[6], tx * 8, (ty + th - 1) * 8)
  love.graphics.draw(img, q[8], (tx + tw - 1) * 8, (ty + th - 1) * 8)
  -- horizontal edges
  for x = 1, tw - 2 do
    love.graphics.draw(img, q[1], (tx + x) * 8, ty * 8)
    love.graphics.draw(img, q[7], (tx + x) * 8, (ty + th - 1) * 8)
  end
  -- vertical edges
  for y = 1, th - 2 do
    love.graphics.draw(img, q[3], tx * 8, (ty + y) * 8)
    love.graphics.draw(img, q[5], (tx + tw - 1) * 8, (ty + y) * 8)
  end
end

function Diploma.new(game, onDone)
  local self = setmetatable({
    game = game,
    onDone = onDone,
  }, Diploma)
  return self
end

function Diploma:update()
  local input = self.game.input
  if input:wasPressed("a") or input:wasPressed("b") then
    self.game.stack:pop()
    if self.onDone then self.onDone() end
  end
end

-- the DisplayDiploma / DisplayDiplomaTop layout (hlcoord tiles -> x*8, y*8)
function Diploma.render(game)
  local frame = loadFrame()
  local circle = tryImage("assets/generated/trainer_card/circle_tile.png")

  -- 1. Outer ornate frame border: hlcoord 0, 0 / bc 16, 18 -> (0, 0, 20, 18)
  drawFrameBox(frame, 0, 0, 20, 18)

  -- 2. Draw Player character sprite: farcall DrawPlayerCharacter
  -- Shifted +33 px right from title screen base (82 + 33 = 115, y = 80)
  local picPath, picTrueColor = Sprites.playerPath(
    game.data, "front", { kind = "diploma" })
  local pic = tryImage(picPath)
  if pic then
    love.graphics.setColor(1, 1, 1, 1)
    love.graphics.draw(pic, 115, 80)
    if picTrueColor then
      PaletteFX.markTrueColor(115, 80, pic:getDimensions())
    end
  end

  -- 3. Header: hlcoord 5, 2 with flanking circle tiles ($70)
  love.graphics.setColor(1, 1, 1, 1)
  if circle then
    love.graphics.draw(circle, 40, 16)   -- hlcoord 5, 2
    love.graphics.draw(circle, 104, 16)  -- hlcoord 13, 2
  end
  love.graphics.setColor(0, 0, 0, 1)
  Font.draw(Strings("Diploma"), 48, 16)  -- hlcoord 6, 2

  -- 4. Player info: hlcoord 3, 4 ("PLAYER" / "Player") and hlcoord 10, 4 (name)
  Font.draw(Strings("Player"), 24, 32)
  local playerName = (game.save.player and game.save.player.name) or "RED"
  Font.draw(playerName, 80, 32)

  -- 5. Congratulations text: hlcoord 2, 6 double-spaced lines (rows 6, 8, 10, 12, 14)
  local congrats = {
    { text = "Congrats! This",     y = 48 },   -- hlcoord 2, 6
    { text = "diploma certifies",  y = 64 },   -- hlcoord 2, 8
    { text = "that you have",      y = 80 },   -- hlcoord 2, 10
    { text = "completed your",     y = 96 },   -- hlcoord 2, 12
    { text = "POKéDEX.",           y = 112 },  -- hlcoord 2, 14
  }
  for _, line in ipairs(congrats) do
    Font.draw(Strings(line.text), 16, line.y)
  end

  -- 6. Developer signature: hlcoord 9, 16
  Font.draw(Strings("GAME FREAK"), 72, 128)
  love.graphics.setColor(1, 1, 1, 1)
end

function Diploma:draw()
  Diploma.render(self.game)
end

return Diploma