Initial import

Scripts/RPG/Window_DebugRight.rb

@@ -0,0 +1,120 @@
+# -*- coding: utf-8 -*-
+#==============================================================================
+# ** Window_DebugRight
+#------------------------------------------------------------------------------
+#  This window displays switches and variables separately on the debug screen.
+#==============================================================================
+
+class Window_DebugRight < Window_Selectable
+  #--------------------------------------------------------------------------
+  # * Public Instance Variables
+  #--------------------------------------------------------------------------
+  attr_reader   :mode                     # Mode (:switch / :variable)
+  attr_reader   :top_id                   # ID shown on top
+  #--------------------------------------------------------------------------
+  # * Object Initialization
+  #-------------------------------------------------------------------------
+  def initialize(x, y, width)
+    super(x, y, width, fitting_height(10))
+    @mode = :switch
+    @top_id = 1
+    refresh
+  end
+  #--------------------------------------------------------------------------
+  # * Get Number of Items
+  #--------------------------------------------------------------------------
+  def item_max
+    return 10
+  end
+  #--------------------------------------------------------------------------
+  # * Refresh
+  #--------------------------------------------------------------------------
+  def refresh
+    contents.clear
+    draw_all_items
+  end
+  #--------------------------------------------------------------------------
+  # * Draw Item
+  #--------------------------------------------------------------------------
+  def draw_item(index)
+    data_id = @top_id + index
+    id_text = sprintf("%04d:", data_id)
+    id_width = text_size(id_text).width
+    if @mode == :switch
+      name = $data_system.switches[data_id]
+      status = $game_switches[data_id] ? "[ON]" : "[OFF]"
+    else
+      name = $data_system.variables[data_id]
+      status = $game_variables[data_id]
+    end
+    name = "" unless name
+    rect = item_rect_for_text(index)
+    change_color(normal_color)
+    draw_text(rect, id_text)
+    rect.x += id_width
+    rect.width -= id_width + 60
+    draw_text(rect, name)
+    rect.width += 60
+    draw_text(rect, status, 2)
+  end
+  #--------------------------------------------------------------------------
+  # * Set Mode
+  #     mode : New mode
+  #--------------------------------------------------------------------------
+  def mode=(mode)
+    if @mode != mode
+      @mode = mode
+      refresh
+    end
+  end
+  #--------------------------------------------------------------------------
+  # * Set ID Shown on Top
+  #     id : new ID
+  #--------------------------------------------------------------------------
+  def top_id=(id)
+    if @top_id != id
+      @top_id = id
+      refresh
+    end
+  end
+  #--------------------------------------------------------------------------
+  # * Get Currently Selected ID
+  #--------------------------------------------------------------------------
+  def current_id
+    top_id + index
+  end
+  #--------------------------------------------------------------------------
+  # * Frame Update
+  #--------------------------------------------------------------------------
+  def update
+    super
+    update_switch_mode   if active && mode == :switch
+    update_variable_mode if active && mode == :variable
+  end
+  #--------------------------------------------------------------------------
+  # * Update During Switch Mode
+  #--------------------------------------------------------------------------
+  def update_switch_mode
+    if Input.trigger?(:C)
+      Sound.play_ok
+      $game_switches[current_id] = !$game_switches[current_id]
+      redraw_current_item
+    end
+  end
+  #--------------------------------------------------------------------------
+  # * Update During Variable Mode
+  #--------------------------------------------------------------------------
+  def update_variable_mode
+    return unless $game_variables[current_id].is_a?(Numeric)
+    value = $game_variables[current_id]
+    value += 1 if Input.repeat?(:RIGHT)
+    value -= 1 if Input.repeat?(:LEFT)
+    value += 10 if Input.repeat?(:R)
+    value -= 10 if Input.repeat?(:L)
+    if $game_variables[current_id] != value
+      $game_variables[current_id] = value
+      Sound.play_cursor
+      redraw_current_item
+    end
+  end
+end