PrintScene HC

[kyonides]

PrintScene HC

HiddenChest Exclusive!

XP + VX ACE Related

by Kyonides

This script emulates the behavior of a system's popup window in the maker while running on HiddenChest!

You can click on the red box or the OK button to close it or even move the sprite around!

Warning!
The only caveat here is that you gotta move it slowly while pressing the left button on top of the title bar.

Script Call

Code:

dialog_box("As many", "lines", "as possible")

The Script

Code:

# * PrintScene HC * #
#  Scripter : Kyonides Arkanthes
#  2024-05-27

# * Script Dependency: ClickableWindow

# This script mimicks what the popup windows do, including letting you move them
# around. The only issue I have found so far is that you need to move it slowly.

# Script Call: dialog_box("As many", "lines", "as possible")

module Kernel
  def dialog_box(*lines)
    scene = PrintScene.new(lines)
    scene.main
  end
end

class PrintSprite < Sprite
  WIDTH = 320
  BUTTON_OK = "OK"
  def initialize(messages, w=WIDTH, vp=nil)
    super(vp)
    @messages = messages
    lines = @messages.size
    h = lines * 32 + 64
    self.x = (Graphics.width - w) / 2
    self.y = (Graphics.height - h) / 2
    self.bitmap = Bitmap.new(w, h)
    @margin_x = 16
    @margin_y = 32
    @mouse_x = Input.mouse_x
    @mouse_y = Input.mouse_y
    @width, @height = Graphics.dimensions
  end

  def titlebar_color=(color)
    @titlebar_color = color
    w = src_rect.width
    @area << rect = Rect.new(0, 0, w, 24,)
    self.bitmap.fill_rect(rect, color)
    @area << rect = Rect.new(w - 22, 2, 20, 20)
    red = Color.new(220, 40, 40)
    self.bitmap.fill_rect(rect, red)
    icon_name = Game::ICON
    if FileInt.exist?(icon_name)
      icon = Bitmap.new(icon_name)
    else
      icon = Bitmap.new("app_logo", nil)
    end
    rect = Rect.new(4, 4, 16, 16)
    self.bitmap.stretch_blt(rect, icon, icon.rect)
    self.bitmap.font.size = 16
    self.bitmap.draw_text(0, 0, w, 24, Game::TITLE, 1)
  end

  def message_box_color=(color)
    r = src_rect
    rect = Rect.new(@margin_x, r.height - 24, 80, 28)
    self.bitmap.fill_rect(0, 24, r.width, r.height - 24, color)
  end

  def ok_box_color=(color)
    r = src_rect
    cx = (r.width - 80) / 2
    @area << rect = Rect.new(cx, r.height - 36, 80, 28)
    self.bitmap.fill_rect(rect, color)
    self.bitmap.font.size = 16
    self.bitmap.draw_text(cx, r.height - 36, 80, 28, BUTTON_OK, 1)
  end

  def refresh
    w = src_rect.width
    @messages.size.times do |n|
      self.bitmap.draw_text(12, @margin_y + n * 20, w - 24, 18, @messages[n])
    end
    @messages.clear
  end

  def display
    self.bitmap.font.size = 15
  end

  def update
    super
    if Input.trigger?(Input::B) or Input.trigger?(Input::C)
      PrintScene.running = nil
    elsif Input.left_click? or Input.right_click?
      1.upto(2) do |n|
        next unless click_area?(n)
        PrintScene.running = nil
        break
      end
    elsif Input.press?(Input::MouseLeft)
      if click_area?(0)
        mx = Input.mouse_x - @mouse_x
        my = Input.mouse_y - @mouse_y
        self.x += mx.clamp(-@width, @width * 2)
        self.y += my.clamp(-@height, @height * 2)
      end
    end
    @mouse_x = Input.mouse_x
    @mouse_y = Input.mouse_y
  end
  attr_reader :titlebar_color
  attr_writer :margin_x, :margin_y
end

class PrintScene
  def self.running=(state)
    @@running = state
  end

  def initialize(lines)
    @@running = true
    @messages = lines.map {|line| line.to_s.split("\n") }
    @messages = @messages.flatten.compact
  end

  def main
    Graphics.freeze
    start
    Graphics.transition
    update_loop
    Graphics.freeze
    terminate
  end

  def start
    @backdrop = Sprite.new
    @backdrop.bitmap = Graphics.snap_to_gray_bitmap.dup
    @print = PrintSprite.new(@messages)
    @print.z = 1000
    black = Color.new(0, 0, 0)
    gray = Color.new(80, 80, 80)
    @print.titlebar_color = black
    @print.message_box_color = gray
    @print.ok_box_color = black
    @print.refresh
  end

  def update_loop
    while @@running
      Graphics.update
      Input.update
      update
    end
  end

  def update
    @print.update
    if Input.trigger?(Input::SHIFT)
      Graphics.screenshot
    end
  end

  def terminate
    @print.bitmap.dispose
    @print.dispose
    @backdrop.bitmap.dispose
    @backdrop.dispose
  end
end

Terms & Conditions

Free for any kind of game running on the HiddenChest engine. 
Due credit is mandatory.
Don't post the contents of this topic anywhere else!
You better paste a link to this thread and make them come here instead.
That's it!