Merge pull request 'feature/imp-89-textbox-impl' (#33) from feature/imp-89-textbox-impl into master

Reviewed-on: http://git.teletype.hu/games/impostor/pulls/33

.luacheckrc

@@ -5,6 +5,9 @@ globals = {
   "Focus",
   "Day",
   "Timer",
+  "Glitch",
+  "Trigger",
+  "Discussion",
   "Util",
   "Decision",
   "Situation",
@@ -29,6 +32,9 @@ globals = {
   "MinigameButtonMashWindow",
   "MinigameRhythmWindow",
   "MinigameDDRWindow",
+  "MysteriousManWindow",
+  "DiscussionWindow",
+  "EndWindow",
   "mset",
   "mget",
   "btnp",

impostor.inc

@@ -9,7 +9,10 @@ logic/logic.meter.lua
 logic/logic.focus.lua
 logic/logic.day.lua
 logic/logic.timer.lua
+logic/logic.trigger.lua
 logic/logic.minigame.lua
+logic/logic.glitch.lua
+logic/logic.discussion.lua
 system/system.ui.lua
 audio/audio.manager.lua
 audio/audio.songs.lua
@@ -23,10 +26,12 @@ decision/decision.go_to_home.lua
 decision/decision.go_to_toilet.lua
 decision/decision.go_to_walking_to_office.lua
 decision/decision.go_to_office.lua
+decision/decision.go_to_end.lua
 decision/decision.go_to_walking_to_home.lua
-decision/decision.play_button_mash.lua
+decision/decision.go_to_sleep.lua
-decision/decision.play_rhythm.lua
+decision/decision.do_work.lua
-decision/decision.play_ddr.lua
+decision/decision.start_discussion.lua
+discussion/discussion.sumphore.lua
 map/map.manager.lua
 map/map.bedroom.lua
 map/map.street.lua
@@ -37,8 +42,10 @@ screen/screen.toilet.lua
 screen/screen.walking_to_office.lua
 screen/screen.office.lua
 screen/screen.walking_to_home.lua
+screen/screen.work.lua
 window/window.manager.lua
 window/window.register.lua
+window/window.end.lua
 window/window.splash.lua
 window/window.intro.lua
 window/window.menu.lua
@@ -48,6 +55,8 @@ window/window.popup.lua
 window/window.minigame.mash.lua
 window/window.minigame.rhythm.lua
 window/window.minigame.ddr.lua
+window/window.mysterious_man.lua
+window/window.discussion.lua
 window/window.game.lua
 system/system.main.lua
 meta/meta.assets.lua

inc/decision/decision.do_work.lua

@@ -0,0 +1,15 @@
+Decision.register({
+  id = "do_work",
+  label = "Do Work",
+  handle = function()
+    Meter.hide()
+    Util.go_to_screen_by_id("work")
+    MinigameDDRWindow.start("game", nil, {
+      on_win = function()
+        Meter.show()
+        Util.go_to_screen_by_id("office")
+        Window.set_current("game")
+      end,
+    })
+  end,
+})

inc/decision/decision.go_to_end.lua

@@ -0,0 +1,7 @@
+Decision.register({
+  id = "go_to_end",
+  label = "Break the cycle",
+  handle = function()
+    Window.set_current("end")
+  end,
+})

inc/decision/decision.go_to_office.lua

@@ -2,6 +2,7 @@ Decision.register({
   id = "go_to_office",
   label = "Go to Office",
   handle = function()
+    Glitch.show()
     Util.go_to_screen_by_id("office")
   end,
 })

inc/decision/decision.go_to_sleep.lua

@@ -0,0 +1,16 @@
+Decision.register({
+  id = "go_to_sleep",
+  label = "Go to Sleep",
+  handle = function()
+    Meter.hide()
+    Day.increase()
+    MinigameRhythmWindow.start("game", {
+      focus_center_x = Config.screen.width / 2,
+      focus_center_y = Config.screen.height / 2,
+      focus_initial_radius = 0,
+      on_win = function()
+        MysteriousManWindow.start()
+      end,
+    })
+  end,
+})

inc/decision/decision.manager.lua

@@ -5,16 +5,16 @@ local _decisions = {}
 --- @within Decision
 --- @param decision table The decision data table.
 --- @param decision.id string Unique decision identifier.
---- @param decision.label string Display text for the decision.
+--- @param decision.label string|function Display text for the decision, or a function returning it.
 --- @param[opt] decision.condition function Returns true if decision is available. Defaults to always true.
 --- @param[opt] decision.handle function Called when the decision is selected. Defaults to noop.
 function Decision.register(decision)
   if not decision or not decision.id then
-    PopupWindow.show({"Error: Invalid decision object registered (missing id)!"})
+    trace("Error: Invalid decision object registered (missing id)!")
     return
   end
   if not decision.label then
-    PopupWindow.show({"Error: Invalid decision object registered (missing label)!"})
+    trace("Error: Invalid decision object registered (missing label)!")
     return
   end
 
@@ -30,6 +30,18 @@ function Decision.register(decision)
   _decisions[decision.id] = decision
 end
 
+--- Gets the display label for a decision.
+--- @within Decision
+--- @param decision table The decision data table.
+--- @return string result The resolved decision label.
+function Decision.get_label(decision)
+  if not decision then return "" end
+  if type(decision.label) == "function" then
+    return decision.label() or ""
+  end
+  return decision.label or ""
+end
+
 --- Gets a decision by ID.
 --- @within Decision
 --- @param id string The ID of the decision.
@@ -92,7 +104,7 @@ end
 function Decision.filter_available(decisions_list)
   local available = {}
   for _, decision in ipairs(decisions_list) do
-    if decision and decision.condition() then
+    if decision and (not decision.condition or decision.condition()) then
       table.insert(available, decision)
     end
   end
@@ -109,12 +121,10 @@ function Decision.draw(decisions, selected_decision_index)
   rect(0, bar_y, Config.screen.width, bar_height, Config.colors.dark_grey)
   if #decisions > 0 then
     local selected_decision = decisions[selected_decision_index]
-    local decision_label = selected_decision.label
+    local decision_label = Decision.get_label(selected_decision)
-    local text_width = #decision_label * 4
     local text_y = bar_y + 4
-    local text_x = (Config.screen.width - text_width) / 2
     Print.text("<", 2, text_y, Config.colors.light_blue)
-    Print.text(decision_label, text_x, text_y, Config.colors.item)
+    Print.text_center(decision_label, Config.screen.width / 2, text_y, Config.colors.item)
     Print.text(">", Config.screen.width - 6, text_y, Config.colors.light_blue)
   end
 end

inc/decision/decision.start_discussion.lua

@@ -0,0 +1,18 @@
+Decision.register({
+  id = "start_discussion",
+  label = function()
+    if Context.day_count >= 3 then
+      return "Talk to Sumphore"
+    end
+    return "Talk to the homeless guy"
+  end,
+  handle = function()
+    if Context.day_count < 3 then
+      Discussion.start("homeless_guy", "game")
+    end
+    if Context.day_count >= 3 then
+      Discussion.start("sumphore_day_3", "game")
+      return
+    end
+  end,
+})

inc/discussion/discussion.sumphore.lua

@@ -0,0 +1,59 @@
+Discussion.register({
+  id = "sumphore_day_3",
+  steps = {
+    {
+      question = "Are you still seeking the ox?",
+      answers = {
+        { label = "Huh? What ox?", next_step = 2 },
+        { label = "Are you drunk, old man?", next_step = nil },
+      },
+    },
+    {
+      question = "Did you never think there would be more to this?",
+      answers = {
+        { label = "I'm not sure what you mean.", next_step = nil },
+      },
+    },
+  },
+})
+
+
+Discussion.register({
+  id = "homeless_guy",
+  steps = {
+    {
+      question = "Sup bro, how are you?",
+      answers = {
+        { label = "I'm doing great, thanks!", next_step = 2 },
+        { label = "Not as good as you", next_step = nil },
+      },
+    },
+    {
+      question = "What's your name?",
+      answers = {
+        { label = "Norman Reds, nice to meet you.", next_step = 3 },
+        { label = "Mom told me not to talk to strangers.", next_step = nil },
+      },
+    },
+    {
+      question = "That name ... could it be? I know a guy with that name...",
+      answers = {
+        { label = "Never met you before.", next_step = 4 },
+        { label = "I'm not sure what you mean.", next_step = nil },
+
+      },
+    },
+    {
+      question = "My name is Sumphore, nice to meet you.",
+      answers = {
+        { label = "Nice to meet you, Sumphore.", next_step = 5 },
+      },
+    },
+    {
+      question = "You're a good guy, I can tell. You abide by the rules. Life would be so much easier if more people were like you ...",
+      answers = {
+        { label = "Thanks, I try my best.", next_step = nil },
+      },
+    },
+  },
+})

inc/init/init.context.lua

@@ -18,6 +18,7 @@ Context = {}
 --- * minigame_button_mash (table) Button mash minigame state (see Minigame.get_default_button_mash).<br/>
 --- * minigame_rhythm (table) Rhythm minigame state (see Minigame.get_default_rhythm).<br/>
 --- * meters (table) Meter values (see Meter.get_initial).<br/>
+--- * triggers (table) Active trigger runtime state, keyed by trigger ID.<br/>
 --- * stat_screen_active (boolean) Whether the stat screen overlay is currently shown.<br/>
 --- * game (table) Current game progress state. Contains: `current_screen` (string) active screen ID, `current_situation` (string|nil) active situation ID.<br/>
 function Context.initial_data()
@@ -35,11 +36,31 @@ function Context.initial_data()
     minigame_rhythm = {},
     meters = Meter.get_initial(),
     timer = Timer.get_initial(),
+    triggers = {},
     game = {
       current_screen = "home",
       current_situation = nil,
     },
     day_count = 1,
+    glitch = {
+      enabled = false,
+      state = "active",
+      timer = 0,
+    },
+    _end = {
+      state = "choice",
+      selection = 1,
+    },
+    discussion = {
+      active = false,
+      id = nil,
+      step = 1,
+      selected_answer = 1,
+      scroll_y = 0,
+      scroll_timer = 0,
+      auto_scroll = true,
+      return_window = nil,
+    },
   }
 end
 

inc/init/init.module.lua

@@ -13,4 +13,6 @@ Sprite = {}
 Audio = {}
 Focus = {}
 Day = {}
-Timer = {}
+Timer = {}
+Trigger = {}
+Discussion = {}

inc/logic/logic.day.lua

@@ -1,11 +1,18 @@
+--- @section Day
 local _day_increase_handlers = {}
 
+--- Increases the day count and triggers registered handlers.
+--- @within Day
 function Day.increase()
     Context.day_count = Context.day_count + 1
     for _, handler in ipairs(_day_increase_handlers) do
         handler()
     end
 end
+
+--- Registers a handler to be called when the day increases.
+--- @within Day
+--- @param handler function The function to call when the day increases.
 function Day.register_handler(handler)
     table.insert(_day_increase_handlers, handler)
 end

inc/logic/logic.discussion.lua

@@ -0,0 +1,103 @@
+--- @section Discussion
+local _discussions = {}
+
+--- Registers a discussion definition.
+--- @within Discussion
+--- @param discussion table The discussion data table.
+--- @param discussion.id string Unique discussion identifier.
+--- @param discussion.steps table Array of step tables, each with `question` (string) and `answers` (array of {label, next_step} tables).
+--- @param[opt] discussion.on_end function Called when the discussion ends. Defaults to noop.
+function Discussion.register(discussion)
+  if not discussion or not discussion.id then
+    trace("Error: Invalid discussion registered (missing id)!")
+    return
+  end
+  if not discussion.steps or #discussion.steps == 0 then
+    trace("Error: Discussion '" .. discussion.id .. "' has no steps!")
+    return
+  end
+  if not discussion.on_end then
+    discussion.on_end = function() end
+  end
+  if _discussions[discussion.id] then
+    trace("Warning: Overwriting discussion with id: " .. discussion.id)
+  end
+  _discussions[discussion.id] = discussion
+end
+
+--- Gets a discussion by ID.
+--- @within Discussion
+--- @param id string The discussion ID.
+--- @return table|nil result The discussion table or nil.
+function Discussion.get_by_id(id)
+  return _discussions[id]
+end
+
+--- Starts a discussion, switching to the discussion window.
+--- @within Discussion
+--- @param id string The discussion ID to start.
+--- @param return_window string The window ID to return to after the discussion.
+function Discussion.start(id, return_window)
+  local discussion = _discussions[id]
+  if not discussion then
+    trace("Error: Discussion not found: " .. tostring(id))
+    return
+  end
+  Context.discussion.active = true
+  Context.discussion.id = id
+  Context.discussion.step = 1
+  Context.discussion.selected_answer = 1
+  Context.discussion.scroll_y = 0
+  Context.discussion.scroll_timer = 0
+  Context.discussion.auto_scroll = true
+  Context.discussion.return_window = return_window or "game"
+  Meter.hide()
+  Window.set_current("discussion")
+end
+
+--- Gets the current step data for the active discussion.
+--- @within Discussion
+--- @return table|nil result The current step table or nil.
+function Discussion.get_current_step()
+  if not Context.discussion.active or not Context.discussion.id then return nil end
+  local discussion = _discussions[Context.discussion.id]
+  if not discussion then return nil end
+  return discussion.steps[Context.discussion.step]
+end
+
+--- Advances to a specific step or ends the discussion.
+--- @within Discussion
+--- @param next_step number|nil The step index to go to, or nil to end.
+function Discussion.go_to_step(next_step)
+  if not next_step then
+    Discussion.finish()
+    return
+  end
+  local discussion = _discussions[Context.discussion.id]
+  if not discussion or not discussion.steps[next_step] then
+    Discussion.finish()
+    return
+  end
+  Context.discussion.step = next_step
+  Context.discussion.selected_answer = 1
+  Context.discussion.scroll_y = 0
+  Context.discussion.scroll_timer = 0
+  Context.discussion.auto_scroll = true
+end
+
+--- Ends the active discussion and returns to the previous window.
+--- @within Discussion
+function Discussion.finish()
+  local discussion = _discussions[Context.discussion.id]
+  local return_window = Context.discussion.return_window or "game"
+  Context.discussion.active = false
+  Context.discussion.id = nil
+  Context.discussion.scroll_y = 0
+  Context.discussion.scroll_timer = 0
+  Context.discussion.auto_scroll = true
+  Meter.show()
+  if discussion and discussion.on_end then
+    discussion.on_end()
+  end
+  Window.set_current(return_window)
+end

inc/logic/logic.glitch.lua

@@ -0,0 +1,58 @@
+--- @section Glitch
+Glitch = {}
+
+--- Shows the glitch effect.
+--- @within Glitch
+function Glitch.show()
+  if Context and Context.glitch then
+    Context.glitch.enabled = true
+  end
+end
+
+--- Hides the glitch effect.
+--- @within Glitch
+function Glitch.hide()
+  if Context and Context.glitch then
+    Context.glitch.enabled = false
+  end
+end
+
+--- Draws the glitch effect if active.
+--- @within Glitch
+function Glitch.draw()
+  if not Context or not Context.glitch or not Context.glitch.enabled then return end
+
+  -- Update state timer
+  Context.glitch.timer = Context.glitch.timer - 1
+  if Context.glitch.timer <= 0 then
+    if Context.glitch.state == "active" then
+      Context.glitch.state = "waiting"
+      Context.glitch.timer = math.random(20, 60) -- Time to stay fixed
+    else
+      Context.glitch.state = "active"
+      Context.glitch.timer = math.random(40, 100) -- Time to stay glitchy
+    end
+  end
+
+  -- Draw stripes only when active
+  if Context.glitch.state == "active" then
+    for _ = 1, 15 do
+      local rx = math.random(0, Config.screen.width - 1)
+      local ry = math.random(0, Config.screen.height - 1)
+
+      -- Sample color at the random point
+      local color = pix(rx, ry)
+
+      -- Determine random length for the stripe (2-40)
+      local length = math.random(2, 40)
+
+      -- Draw the vertical stripe
+      for sy = 0, length - 1 do
+        local dy = ry + sy
+        if dy < Config.screen.height then
+          pix(rx, dy, color)
+        end
+      end
+    end
+  end
+end

inc/logic/logic.meter.lua

@@ -131,7 +131,9 @@ function Meter.draw()
   local bar_x = 182
   local label_x = 228
   local line_h = 5
-  local start_y = 11
+  local start_y = 1
+
+
   local bar_offset = math.floor((line_h - bar_h) / 2)
 
   local meter_list = {

inc/logic/logic.minigame.lua

@@ -4,7 +4,7 @@
 --- Draws a unified win message overlay.
 --- @within Minigame
 function Minigame.draw_win_overlay()
-  local text = "WELL DONE!"
+  local text = "SUCCESS"
   local tw = #text * 4
   local th = 6
   local padding = 4

inc/logic/logic.timer.lua

@@ -43,14 +43,14 @@ function Timer.draw()
   if Context.meters.hidden and not Context.stat_screen_active then return end
 
   local cx = 10
-  local cy = 20
+  local cy = 8
   local r_outer = 5
   local r_inner = 3
   local progress = Context.timer.progress
 
   local fg_color
   if progress <= 0.25 then
-    fg_color = Config.colors.white
+    fg_color = Config.colors.dark_grey
   elseif progress <= 0.5 then
     fg_color = Config.colors.light_blue
   elseif progress <= 0.75 then
@@ -59,7 +59,7 @@ function Timer.draw()
     fg_color = Config.colors.red
   end
 
-  local bg_color = Config.colors.dark_grey
+  local bg_color = Config.colors.white
   local start_angle = -math.pi * 0.5
   local progress_angle = progress * 2 * math.pi
   local r_outer_sq = r_outer * r_outer

inc/logic/logic.trigger.lua

@@ -0,0 +1,135 @@
+--- @section Trigger
+local triggers = {}
+
+--- @within Trigger
+--- @param trigger table The trigger data table.
+--- @param trigger.id string Unique trigger identifier.
+--- @param trigger.duration number Duration in frames before the trigger fires.
+--- @param[opt] trigger.on_start function Called when the trigger starts. Defaults to noop.
+--- @param[opt] trigger.on_stop function Called when the trigger fires or is manually stopped. Defaults to noop.
+--- @param[opt] trigger.repeating boolean If true, trigger restarts after firing. Defaults to false.
+function Trigger.register(trigger)
+  if not trigger or not trigger.id then
+    trace("Error: Invalid trigger registered (missing id)!")
+    return
+  end
+  if not trigger.duration or trigger.duration <= 0 then
+    trace("Error: Invalid trigger registered (missing or invalid duration)!")
+    return
+  end
+
+  if not trigger.on_start then
+    trigger.on_start = function() end
+  end
+  if not trigger.on_stop then
+    trigger.on_stop = function() end
+  end
+  if trigger.repeating == nil then
+    trigger.repeating = false
+  end
+  if triggers[trigger.id] then
+    trace("Warning: Overwriting trigger with id: " .. trigger.id)
+  end
+  triggers[trigger.id] = trigger
+end
+
+--- @within Trigger
+--- @param id string The trigger ID.
+--- @return table|nil result The trigger definition or nil.
+function Trigger.get_by_id(id)
+  return triggers[id]
+end
+
+--- @within Trigger
+--- @return table result All trigger definitions keyed by ID.
+function Trigger.get_all()
+  return triggers
+end
+
+--- @within Trigger
+--- @param id string The trigger ID.
+--- @return boolean active True if the trigger is running.
+function Trigger.is_active(id)
+  if not Context or not Context.triggers then return false end
+  return Context.triggers[id] ~= nil
+end
+
+--- If already active, restarts from 0.
+--- @within Trigger
+--- @param id string The trigger ID.
+function Trigger.start(id)
+  if not Context or not Context.triggers then return end
+  local trigger = triggers[id]
+  if not trigger then
+    trace("Error: Cannot start unknown trigger: " .. tostring(id))
+    return
+  end
+
+  Context.triggers[id] = { elapsed = 0 }
+  trigger.on_start()
+end
+
+--- @within Trigger
+--- @param id string The trigger ID.
+function Trigger.stop(id)
+  if not Context or not Context.triggers then return end
+  local trigger = triggers[id]
+  if not trigger then
+    trace("Error: Cannot stop unknown trigger: " .. tostring(id))
+    return
+  end
+  if not Context.triggers[id] then return end
+
+  Context.triggers[id] = nil
+  trigger.on_stop()
+end
+
+--- Resets elapsed time to 0 without calling handlers. No-op if inactive.
+--- @within Trigger
+--- @param id string The trigger ID.
+function Trigger.reset(id)
+  if not Context or not Context.triggers then return end
+  if not triggers[id] then
+    trace("Error: Cannot reset unknown trigger: " .. tostring(id))
+    return
+  end
+  if not Context.triggers[id] then return end
+
+  Context.triggers[id].elapsed = 0
+end
+
+--- Pauses during minigames.
+--- @within Trigger
+function Trigger.update()
+  if not Context or not Context.game_in_progress or not Context.triggers then return end
+
+  local in_minigame = string.find(Window.get_current_id(), "^minigame_") ~= nil
+  if in_minigame then return end
+
+  local fired = {}
+  for id, state in pairs(Context.triggers) do
+    local trigger = triggers[id]
+    if trigger then
+      state.elapsed = state.elapsed + 1
+      if state.elapsed >= trigger.duration then
+        table.insert(fired, id)
+      end
+    else
+      table.insert(fired, id)
+    end
+  end
+
+  for _, id in ipairs(fired) do
+    local trigger = triggers[id]
+    if trigger then
+      trigger.on_stop()
+      if trigger.repeating then
+        Context.triggers[id] = { elapsed = 0 }
+      else
+        Context.triggers[id] = nil
+      end
+    else
+      Context.triggers[id] = nil
+    end
+  end
+end

inc/meta/meta.header.lua

@@ -1,8 +1,8 @@
 -- title:   Definitely not an Impostor
 -- name: impostor
 -- author:  Teletype Games
--- desc:    Life of a programmer in the Vector
+-- desc:    Life of a programmer
 -- site:    https://git.teletype.hu/games/impostor
 -- license: MIT License
--- version: 0.1
+-- version: 0.8
 -- script:  lua

inc/screen/screen.home.lua

@@ -4,6 +4,8 @@ Screen.register({
   decisions = {
     "go_to_toilet",
     "go_to_walking_to_office",
+    "go_to_sleep",
+    "go_to_end",
   },
   background = "bedroom"
 })

inc/screen/screen.office.lua

@@ -2,9 +2,7 @@ Screen.register({
   id = "office",
   name = "Office",
   decisions = {
-    "play_button_mash",
+    "do_work",
-    "play_rhythm",
-    "play_ddr",
     "go_to_walking_to_home",
     "have_a_coffee",
   },

inc/screen/screen.walking_to_office.lua

@@ -4,6 +4,7 @@ Screen.register({
   decisions = {
     "go_to_home",
     "go_to_office",
+    "start_discussion",
   },
   background = "street"
 })

inc/screen/screen.work.lua

@@ -0,0 +1,6 @@
+Screen.register({
+  id = "work",
+  name = "Work",
+  decisions = {},
+  background_color = Config.colors.blue,
+})

inc/system/system.main.lua

@@ -23,8 +23,10 @@ function TIC()
   end
   Meter.update()
   Timer.update()
+  Trigger.update()
   if Context.game_in_progress then
     Meter.draw()
     Timer.draw()
+    Glitch.draw()
   end
 end

inc/system/system.ui.lua

@@ -46,36 +46,108 @@ function UI.update_menu(items, selected_item)
   return selected_item
 end
 
+--- Draws a bordered textbox with scrolling text.
+--- @within UI
+--- @param text string The text to display (multi-line supported).<br/>
+--- @param box_x number The x-coordinate of the box.<br/>
+--- @param box_y number The y-coordinate of the box.<br/>
+--- @param box_w number The width of the box.<br/>
+--- @param box_h number The height of the box.<br/>
+--- @param scroll_y number The vertical scroll offset for the text (0 = top, increases to scroll up).<br/>
+--- @param[opt] color number The text color (default: Config.colors.white).<br/>
+--- @param[opt] bg_color number The background fill color (default: Config.colors.dark_grey).<br/>
+--- @param[opt] border_color number The border color (default: Config.colors.white).<br/>
+--- @param[opt] center_text boolean Whether to center each line inside the box. Defaults to false.<br/>
+function UI.draw_textbox(text, box_x, box_y, box_w, box_h, scroll_y, color, bg_color, border_color, center_text)
+  color = color or Config.colors.white
+  bg_color = bg_color or Config.colors.dark_grey
+  border_color = border_color or Config.colors.white
+  center_text = center_text or false
+
+  local padding = 4
+  local line_height = 8
+  local inner_x = box_x + padding
+  local inner_y = box_y + padding
+  local inner_center_x = box_x + (box_w / 2)
+  local visible_height = box_h - padding * 2
+  local lines = UI.word_wrap(text, 30)
+  local text_height = #lines * line_height
+  local base_y = inner_y
+
+  if center_text and text_height < visible_height then
+    base_y = inner_y + math.floor((visible_height - text_height) / 2)
+  end
+
+  rect(box_x, box_y, box_w, box_h, bg_color)
+
+  for i, line in ipairs(lines) do
+    local ly = base_y + (i - 1) * line_height - scroll_y
+    if ly >= inner_y and ly + line_height <= inner_y + visible_height then
+      if center_text then
+        Print.text_center(line, inner_center_x, ly, color)
+      else
+        Print.text(line, inner_x, ly, color)
+      end
+    end
+  end
+
+  rectb(box_x, box_y, box_w, box_h, border_color)
+end
+
 --- Wraps text.
 --- @within UI
 --- @param text string The text to wrap.<br/>
 --- @param max_chars_per_line number The maximum characters per line.<br/>
 --- @return result table A table of wrapped lines.
 function UI.word_wrap(text, max_chars_per_line)
-    if text == nil then return {""} end
+  if text == nil then return {""} end
-    local lines = {}
+
-    for input_line in (text .. "\n"):gmatch("(.-)\n") do
+  local lines = {}
-        local current_line = ""
+
-        local words_in_line = 0
+  local function trim(s)
-        for word in input_line:gmatch("%S+") do
+    return (s:gsub("^%s+", ""):gsub("%s+$", ""))
-            words_in_line = words_in_line + 1
+  end
-            if #current_line == 0 then
+
-                current_line = word
+  local function previous_whitespace_index(s, target)
-            elseif #current_line + #word + 1 <= max_chars_per_line then
+    if s:sub(target, target):match("%s") then
-                current_line = current_line .. " " .. word
+      return target
-            else
-                table.insert(lines, current_line)
-                current_line = word
-            end
-        end
-        if words_in_line > 0 then
-            table.insert(lines, current_line)
-        else
-            table.insert(lines, "")
-        end
     end
-    if #lines == 0 then
+
-        return {""}
+    for i = target - 1, 1, -1 do
+      if s:sub(i, i):match("%s") then
+        return i
+      end
     end
-    return lines
+
+    return nil
+  end
+
+  for input_line in (text .. "\n"):gmatch("(.-)\n") do
+    local remaining = trim(input_line)
+
+    if remaining == "" then
+      table.insert(lines, "")
+    else
+      while #remaining > max_chars_per_line do
+        local split_at = previous_whitespace_index(remaining, max_chars_per_line)
+        local line = trim(remaining:sub(1, split_at))
+
+        if not split_at or line == "" then
+          line = remaining:sub(1, max_chars_per_line)
+          split_at = max_chars_per_line
+        end
+
+        table.insert(lines, line)
+        remaining = trim(remaining:sub(split_at + 1))
+      end
+
+      table.insert(lines, remaining)
+    end
+  end
+
+  if #lines == 0 then
+    return {""}
+  end
+
+  return lines
 end

inc/window/window.discussion.lua

@@ -0,0 +1,107 @@
+--- @section DiscussionWindow
+
+local TEXTBOX_W = math.floor(Config.screen.width * 0.7)
+local TEXTBOX_H = math.floor(Config.screen.height * 0.3)
+local TEXTBOX_X = math.floor((Config.screen.width - TEXTBOX_W) / 2)
+local TEXTBOX_Y = math.floor((Config.screen.height - TEXTBOX_H) / 2 - 8)
+local TEXTBOX_MAX_CHARS = 30
+local DISCUSSION_LINE_HEIGHT = 8
+local PADDING = 4
+local AUTO_SCROLL_DELAY = 12
+local AUTO_SCROLL_STEP = 1
+
+--- Draws the discussion window.
+--- @within DiscussionWindow
+function DiscussionWindow.draw()
+  GameWindow.draw()
+
+  local step = Discussion.get_current_step()
+  if not step then return end
+
+  UI.draw_textbox(
+    step.question,
+    TEXTBOX_X, TEXTBOX_Y,
+    TEXTBOX_W, TEXTBOX_H,
+    Context.discussion.scroll_y,
+    Config.colors.white,
+    Config.colors.dark_grey,
+    Config.colors.light_blue,
+    true
+  )
+
+  local answers = step.answers
+  if #answers > 0 then
+    local bar_height = 16
+    local bar_y = Config.screen.height - bar_height
+    rect(0, bar_y, Config.screen.width, bar_height, Config.colors.dark_grey)
+    local selected = answers[Context.discussion.selected_answer]
+    local label = selected.label
+    local answer_text_y = bar_y + 4
+    Print.text("<", 2, answer_text_y, Config.colors.light_blue)
+    Print.text_center(label, Config.screen.width / 2, answer_text_y, Config.colors.item)
+    Print.text(">", Config.screen.width - 6, answer_text_y, Config.colors.light_blue)
+  end
+end
+
+--- Updates the discussion window logic.
+--- @within DiscussionWindow
+function DiscussionWindow.update()
+  local step = Discussion.get_current_step()
+  if not step then return end
+
+  local lines = UI.word_wrap(step.question, TEXTBOX_MAX_CHARS)
+  local text_height = #lines * DISCUSSION_LINE_HEIGHT
+  local visible_height = TEXTBOX_H - PADDING * 2
+  local max_scroll = text_height - visible_height
+  if max_scroll < 0 then max_scroll = 0 end
+
+  if max_scroll > 0 then
+    if Context.discussion.auto_scroll then
+      Context.discussion.scroll_timer = Context.discussion.scroll_timer + 1
+      if Context.discussion.scroll_timer >= AUTO_SCROLL_DELAY then
+        Context.discussion.scroll_timer = 0
+        Context.discussion.scroll_y = Context.discussion.scroll_y + AUTO_SCROLL_STEP
+        if Context.discussion.scroll_y > max_scroll then
+          Context.discussion.scroll_y = max_scroll
+        end
+      end
+    end
+  else
+    Context.discussion.scroll_y = 0
+    Context.discussion.scroll_timer = 0
+  end
+
+  if Input.up() then
+    Context.discussion.auto_scroll = false
+    Context.discussion.scroll_y = Context.discussion.scroll_y - DISCUSSION_LINE_HEIGHT
+    if Context.discussion.scroll_y < 0 then
+      Context.discussion.scroll_y = 0
+    end
+  elseif Input.down() then
+    Context.discussion.auto_scroll = false
+    Context.discussion.scroll_y = Context.discussion.scroll_y + DISCUSSION_LINE_HEIGHT
+    if Context.discussion.scroll_y > max_scroll then
+      Context.discussion.scroll_y = max_scroll
+    end
+  end
+
+  local answers = step.answers
+  if #answers > 0 then
+    if Input.left() then
+      Audio.sfx_beep()
+      Context.discussion.selected_answer = Util.safeindex(answers, Context.discussion.selected_answer - 1)
+    elseif Input.right() then
+      Audio.sfx_beep()
+      Context.discussion.selected_answer = Util.safeindex(answers, Context.discussion.selected_answer + 1)
+    end
+
+    if Input.select() then
+      Audio.sfx_select()
+      local selected = answers[Context.discussion.selected_answer]
+      if selected.on_select then
+        selected.on_select()
+      end
+      Discussion.go_to_step(selected.next_step)
+    end
+  end
+end

inc/window/window.end.lua

@@ -0,0 +1,77 @@
+--- @section EndWindow
+
+--- Draws the end screen window.
+--- @within EndWindow
+function EndWindow.draw()
+  cls(Config.colors.black)
+
+  if Context._end.state == "choice" then
+    local lines = {
+      "This is not a workplace.",
+      "This is a cycle.",
+      "And if it is a cycle...",
+      "it can be broken."
+    }
+
+    local y = 40
+    for _, line in ipairs(lines) do
+      Print.text_center(line, Config.screen.width / 2, y, Config.colors.white)
+      y = y + 10
+    end
+
+    y = y + 20
+    local yes_color = Context._end.selection == 1 and Config.colors.light_blue or Config.colors.white
+    local no_color = Context._end.selection == 2 and Config.colors.light_blue or Config.colors.white
+
+    local yes_text = (Context._end.selection == 1 and "> YES" or "  YES")
+    local no_text = (Context._end.selection == 2 and "> NO" or "  NO")
+
+    local centerX = Config.screen.width / 2
+    Print.text(yes_text, centerX - 40, y, yes_color)
+    Print.text(no_text, centerX + 10, y, no_color)
+  elseif Context._end.state == "ending" then
+    Print.text_center("Game over -- good ending.", Config.screen.width / 2, 50, Config.colors.light_blue)
+    Print.text_center("Congratulations!", Config.screen.width / 2, 70, Config.colors.white)
+    Print.text_center("Press Z to return to menu", Config.screen.width / 2, 110, Config.colors.light_grey)
+  end
+end
+
+--- Updates the end screen logic.
+--- @within EndWindow
+function EndWindow.update()
+  if Context._end.state == "choice" then
+    if Input.left() or Input.up() then
+      if Context._end.selection == 2 then
+        Audio.sfx_beep()
+        Context._end.selection = 1
+      end
+    elseif Input.right() or Input.down() then
+      if Context._end.selection == 1 then
+        Audio.sfx_beep()
+        Context._end.selection = 2
+      end
+    end
+
+    if Input.menu_confirm() then
+      Audio.sfx_select()
+      if Context._end.selection == 1 then
+        Context._end.state = "ending"
+      else
+        -- NO: increment day and go home
+        Day.increase()
+        Context.game.current_screen = "home"
+        Window.set_current("game")
+        -- Initialize home screen
+        local home_screen = Screen.get_by_id("home")
+        if home_screen and home_screen.init then
+          home_screen.init()
+        end
+      end
+    end
+  elseif Context._end.state == "ending" then
+    if Input.menu_confirm() then
+      Window.set_current("menu")
+      MenuWindow.refresh_menu_items()
+    end
+  end
+end

inc/window/window.game.lua

@@ -6,12 +6,12 @@ local _selected_decision_index = 1
 --- @within GameWindow
 function GameWindow.draw()
   local screen = Screen.get_by_id(Context.game.current_screen)
+  if not screen then return end
   if screen.background then
     Map.draw(screen.background)
   elseif screen.background_color then
     rect(0, 0, Config.screen.width, Config.screen.height, screen.background_color)
   end
-  UI.draw_top_bar(screen.name)
   if not Context.stat_screen_active and #_available_decisions > 0 then
     Decision.draw(_available_decisions, _selected_decision_index)
   end

inc/window/window.minigame.ddr.lua

@@ -39,7 +39,8 @@ function MinigameDDRWindow.init_context()
     pattern_index = 1,
     use_pattern = false,
     return_window = nil,
-    win_timer = 0
+    win_timer = 0,
+    on_win = nil
   }
 end
 
@@ -162,8 +163,12 @@ function MinigameDDRWindow.update()
     mg.win_timer = mg.win_timer - 1
     if mg.win_timer == 0 then
       Meter.on_minigame_complete()
-      Meter.show()
+      if mg.on_win then
-      Window.set_current(mg.return_window)
+        mg.on_win()
+      else
+        Meter.show()
+        Window.set_current(mg.return_window)
+      end
     end
     return
   end

inc/window/window.minigame.mash.lua

@@ -21,7 +21,8 @@ function MinigameButtonMashWindow.init_context()
     focus_center_x = nil,
     focus_center_y = nil,
     focus_initial_radius = 0,
-    win_timer = 0
+    win_timer = 0,
+    on_win = nil
   }
 end
 
@@ -63,9 +64,13 @@ function MinigameButtonMashWindow.update()
     mg.win_timer = mg.win_timer - 1
     if mg.win_timer == 0 then
       Meter.on_minigame_complete()
-      Meter.show()
       if mg.focus_center_x then Focus.stop() end
-      Window.set_current(mg.return_window)
+      if mg.on_win then
+        mg.on_win()
+      else
+        Meter.show()
+        Window.set_current(mg.return_window)
+      end
     end
     return
   end
@@ -124,7 +129,7 @@ function MinigameButtonMashWindow.draw()
   if mg.button_pressed_timer > 0 then
     circ(mg.button_x, mg.button_y, mg.button_size - 2, button_color)
   end
-  Print.text_center(" Z", mg.button_x - 2, mg.button_y - 3, Config.colors.light_grey)
+  Print.text_center("Z", mg.button_x, mg.button_y - 3, button_color)
   Print.text_center("MASH Z!", Config.screen.width / 2, mg.bar_y + mg.bar_height + 10, Config.colors.light_grey)
   local percentage = math.floor((mg.bar_fill / mg.max_fill) * 100)
   Print.text_center(percentage .. "%", mg.bar_x + mg.bar_width / 2, mg.bar_y + 2, Config.colors.black)

inc/window/window.minigame.rhythm.lua

@@ -30,7 +30,8 @@ function MinigameRhythmWindow.init_context()
     focus_center_x = nil,
     focus_center_y = nil,
     focus_initial_radius = 0,
-    win_timer = 0
+    win_timer = 0,
+    on_win = nil
   }
 end
 
@@ -72,9 +73,13 @@ function MinigameRhythmWindow.update()
     mg.win_timer = mg.win_timer - 1
     if mg.win_timer == 0 then
       Meter.on_minigame_complete()
-      Meter.show()
       if mg.focus_center_x then Focus.stop() end
-      Window.set_current(mg.return_window)
+      if mg.on_win then
+        mg.on_win()
+      else
+        Meter.show()
+        Window.set_current(mg.return_window)
+      end
     end
     return
   end
@@ -155,7 +160,7 @@ function MinigameRhythmWindow.draw()
   if mg.button_pressed_timer > 0 then
     circ(mg.button_x, mg.button_y, mg.button_size - 2, button_color)
   end
-  Print.text_center("Z", mg.button_x - 2, mg.button_y - 3, button_color)
+  Print.text_center("Z", mg.button_x, mg.button_y - 3, button_color)
 
   if mg.win_timer > 0 then
     Minigame.draw_win_overlay()

inc/window/window.mysterious_man.lua

@@ -0,0 +1,132 @@
+--- @section MysteriousManWindow
+
+local STATE_TEXT = "text"
+local STATE_DAY = "day"
+local STATE_CHOICE = "choice"
+
+local state = STATE_TEXT
+local text_y = Config.screen.height
+local text_speed = 0.4
+local day_timer = 0
+local day_display_frames = 120
+local selected_choice = 1
+
+local choices = {
+  {
+    label = "Wake Up",
+  },
+  {
+    label = "Stay in Bed",
+  },
+}
+
+local text = [[
+Misterious man appears
+during your sleep.
+
+He says nothing.
+He doesn't need to.
+
+He says nothing.
+]]
+
+--- Sets the scrolling text content.
+--- @within MysteriousManWindow
+--- @param new_text string The text to display.
+function MysteriousManWindow.set_text(new_text)
+  text = new_text
+end
+
+--- Starts the mysterious man window.
+--- @within MysteriousManWindow
+function MysteriousManWindow.start()
+  state = STATE_TEXT
+  text_y = Config.screen.height
+  day_timer = 0
+  selected_choice = 1
+  Meter.hide()
+  Window.set_current("mysterious_man")
+end
+
+local function wake_up()
+  Util.go_to_screen_by_id("home")
+  MinigameButtonMashWindow.start("game", {
+    focus_center_x = Config.screen.width / 2,
+    focus_center_y = Config.screen.height / 2,
+    focus_initial_radius = 0,
+    on_win = function()
+      Meter.show()
+      Window.set_current("game")
+    end,
+  })
+end
+
+local function stay_in_bed()
+  Day.increase()
+  state = STATE_DAY
+  day_timer = day_display_frames
+end
+
+--- Updates the mysterious man window logic.
+--- @within MysteriousManWindow
+function MysteriousManWindow.update()
+  if state == STATE_TEXT then
+    text_y = text_y - text_speed
+
+    local lines = 1
+    for _ in string.gmatch(text, "\n") do
+      lines = lines + 1
+    end
+
+    if text_y < -lines * 8 then
+      state = STATE_DAY
+      day_timer = day_display_frames
+    end
+
+    if Input.select() then
+      state = STATE_DAY
+      day_timer = day_display_frames
+    end
+  elseif state == STATE_DAY then
+    day_timer = day_timer - 1
+
+    if day_timer <= 0 or Input.select() then
+      state = STATE_CHOICE
+      selected_choice = 1
+    end
+  elseif state == STATE_CHOICE then
+    selected_choice = UI.update_menu(choices, selected_choice)
+
+    if Input.select() then
+      Audio.sfx_select()
+      if selected_choice == 1 then
+        wake_up()
+      else
+        stay_in_bed()
+      end
+    end
+  end
+end
+
+--- Draws the mysterious man window.
+--- @within MysteriousManWindow
+function MysteriousManWindow.draw()
+  rect(0, 0, Config.screen.width, Config.screen.height, Config.colors.black)
+
+  if state == STATE_TEXT then
+    local x = (Config.screen.width - 132) / 2
+    Print.text(text, x, text_y, Config.colors.light_grey)
+  elseif state == STATE_DAY then
+    local day_text = "Day " .. Context.day_count
+    Print.text_center(
+      day_text,
+      Config.screen.width / 2,
+      Config.screen.height / 2 - 3,
+      Config.colors.white
+    )
+  elseif state == STATE_CHOICE then
+    local menu_x = (Config.screen.width - 60) / 2
+    local menu_y = (Config.screen.height - 20) / 2
+    UI.draw_menu(choices, selected_choice, menu_x, menu_y)
+  end
+end

inc/window/window.register.lua

@@ -27,3 +27,12 @@ Window.register("minigame_rhythm", MinigameRhythmWindow)
 
 MinigameDDRWindow = {}
 Window.register("minigame_ddr", MinigameDDRWindow)
+
+MysteriousManWindow = {}
+Window.register("mysterious_man", MysteriousManWindow)
+
+EndWindow = {}
+Window.register("end", EndWindow)
+
+DiscussionWindow = {}
+Window.register("discussion", DiscussionWindow)