local fade = require("common.ui.fade")
local logo = require("tr4.logo")
local title_page = require("common.ui.title_page")

-- The logo sits across the top of the menu at the width the original engine
-- gives it, and as tall as the picture's shape makes it. It shows only on the
-- main menu, so the lists and dialogs that the menu opens have the whole
-- screen.
local LOGO_WIDTH = 512

local LOGO_HOLD_TICKS = 16
local LOGO_FADE_TICKS = 24

local logo_opacity, restart_logo_fade = fade.value({
  from = 0,
  to = 1,
  ticks = LOGO_FADE_TICKS,
  delay = LOGO_HOLD_TICKS,
})

local function show_logo()
  trx.ui.regions.place(
    trx.ui.Region.TOP_CENTER,
    trx.ui.widgets.Image({
      path = logo.path,
      w = LOGO_WIDTH,
      opacity = logo_opacity,
      visible = title_page.shows_main,
    })
  )
end

-- The title screen alternates flyby sequences with cutscenes: a trigger along
-- a flyby's path starts one, and the cutscene hands over to the next sequence
-- when it ends. The last one wraps to the first and lets every scene in the
-- cycle run again, so it repeats for as long as the menu is up. Each step
-- pairs the cutscene a trigger starts with the flyby that follows it.
local CYCLE = {
  { cutscene_num = 28, next_flyby_num = 2 },
  { cutscene_num = 29, next_flyby_num = 3 },
  { cutscene_num = 30, next_flyby_num = 1 },
}

-- title.tr4 numbers its flyby sequences from 1; sequence 0 has no cameras.
local FIRST_FLYBY_NUM = 1

local function cycle_step(cutscene_num)
  for index, step in ipairs(CYCLE) do
    if step.cutscene_num == cutscene_num then
      return step, index
    end
  end
  return nil
end

-- The doors the flyby triggers open would otherwise stay open, and every later
-- pass would begin on a room already unlocked. Rewinding them as the cycle
-- opens gives each pass the same picture to start from, which is what the
-- original engine does here too.
local DOORS = trx.catalog.objects.animating_6

local function rewind_doors()
  for _, item in ipairs(trx.items.query:of_object(DOORS):matches()) do
    item.anim_num = 0
    item.frame_num = 0
    item.trigger_mask = 0
  end
end

-- A trigger a flyby crosses antitriggers one of the ground flames, and the
-- level holds none that lights it again, so every pass after the first is
-- missing it. Putting the trigger back as it fires leaves the flame burning,
-- which is what dropping the trigger from the level data would do.
local FLAMES = trx.catalog.objects.flame_emitter_tr4_ground
trx.events.on_trigger(function(item, trigger)
  if
    item.object_id == FLAMES
    and trigger.type == trx.items.TriggerType.ANTITRIGGER
  then
    item.is_reversed = true
  end
end)

-- Places blood/smoke where the mummy is impaled on the spikes.
local IMPALE_CUTSCENE_NUM = CYCLE[3].cutscene_num
local IMPALE_FIRST_FRAME = 349
local IMPALE_LAST_FRAME = 357
local IMPALE_Z = 76209

trx.cutscenes[IMPALE_CUTSCENE_NUM]:on_frame(function(_, frame_num)
  if
    frame_num < IMPALE_FIRST_FRAME
    or frame_num > IMPALE_LAST_FRAME
    or frame_num % 2 == 0
  then
    return
  end

  local pos = {
    x = 6799 - trx.random.draw:randint(0, 255),
    y = trx.random.draw:randint(0, 511) - 768,
    z = IMPALE_Z,
  }
  if trx.config.get("visuals.fix_texture_issues") then
    trx.fx.sparks.ricochet({
      pos = pos,
      angle = 0,
      count = 7,
      smoke_only = true,
    })
  else
    trx.fx.blood({
      pos = pos,
      strength = 7,
    })
  end
end)

-- Lara is one of a cutscene's actors, and has no business being on screen
-- between them. The level script runs before the level exists, so she is only
-- ever reached from a handler.
local function set_lara_visible(visible)
  local item = trx.lara.item
  if item ~= nil then
    item.mesh_bits = visible and 0xFFFFFFFF or 0
  end
end

trx.events.on_title_start(function()
  restart_logo_fade()
  show_logo()
  trx.cutscenes.forget_played()
  set_lara_visible(false)
  trx.camera.play_flyby(FIRST_FLYBY_NUM)
end)

-- The menu always needs a camera of its own, so a sequence that runs out
-- without a cutscene to follow it plays again.
trx.events.on_flyby_end(function(sequence_num)
  trx.camera.play_flyby(sequence_num)
end)

trx.events.on_cutscene_start(function(cutscene)
  set_lara_visible(true)
  if cutscene.num == CYCLE[1].cutscene_num then
    rewind_doors()
  end
end)

trx.events.on_cutscene_end(function(cutscene)
  set_lara_visible(false)

  local step, index = cycle_step(cutscene.num)
  if step == nil then
    return
  end
  if index == #CYCLE then
    trx.cutscenes.forget_played()
  end
  trx.camera.play_flyby(step.next_flyby_num)
end)