Ruby Quellcode

#==============================================================================
# ** Common event lists V2
#------------------------------------------------------------------------------
#  2011-12-31 14:50 RPGXP
#==============================================================================
 
#==============================================================================
# * instructions for use
#==============================================================================
=begin
#------------------------------------------------------------------------------
# Create a list
#------------------------------------------------------------------------------
  # empty list called Places with the description "Places"
  CE_Lists.create_list(:Places)
  # empty list called Places with the description "Teleport to"
  CE_Lists.create_list(:Places, "Teleport to")
  # list called Places with the description "Teleport to" and some IDs
  CE_Lists.create_list(:Places, "Teleport to", 1)
  CE_Lists.create_list(:Places, "Teleport to", 1, 2)
#------------------------------------------------------------------------------
# Delete a list
#------------------------------------------------------------------------------
  CE_Lists.del_list(:Places)
#------------------------------------------------------------------------------
# Display a list
#------------------------------------------------------------------------------
  CE_Lists.display_list(:Places)
#------------------------------------------------------------------------------
# Add an entry
#------------------------------------------------------------------------------
  CE_Lists.add_entry(:Places, 1)
  CE_Lists.add_entry(:Places, 1, 2)
#------------------------------------------------------------------------------
# Delete an entry
#------------------------------------------------------------------------------
  CE_Lists.del_entry(:Places, 1)
  CE_Lists.del_entry(:Places, 1, 2)
=end
 
#==============================================================================
# * Options
#==============================================================================
class Scene_CE_List
  # scenes that become active when either B or C was pressed
  SCENE_B = Scene_Map
  SCENE_C = Scene_Map
  # use current map as background (true or false)
  MAP = true
  # the opacity of the list window (0 to 255)
  OPACITY = 160
end
#==============================================================================
# * common event list commands
#==============================================================================
module CE_Lists
 
  CE_List = Struct.new(:description, :ids)
 
  module_function
 
  def create_list(name, desc = nil, *ids)
    $game_system.ce_lists[name] = CE_List.new(desc || name.to_s, ids)
  end
 
  def del_list(name)
    $game_system.ce_lists.delete(name)
  end
 
  def display_list(name)
    $scene = Scene_CE_List.new(name)
  end
 
  def add_entry(name, *entries)
    $game_system.ce_lists[name].ids.push(*entries)
  end
 
  def del_entry(name, *entries)
    list = $game_system.ce_lists[name].ids
    entries.each { |i| list.delete(i) }
  end
 
end
 
class Game_System
 
  attr_accessor :ce_lists
 
  alias_method :__ce_list_initialize, :initialize
  def initialize
    __ce_list_initialize
    @ce_lists = {}
  end
 
end
 
class Window_CE_List < Window_Selectable
 
  def initialize(list)
    super(0, 64, 640, 416)
    @column_max = 2
    @data = list
    refresh
    self.index = 0
  end
 
  def refresh
    if self.contents != nil
      self.contents.dispose
      self.contents = nil
    end
    @item_max = @data.size
    if @item_max > 0
      self.contents = Bitmap.new(width - 32, row_max * 32)
      @item_max.times { |i| draw_item(i) }
    end
  end
 
  def draw_item(index)
    item = $data_common_events[@data[index]].name
    x = 4 + index % 2 * (288 + 32)
    y = index / 2 * 32
    self.contents.font.color = normal_color
    self.contents.draw_text(x, y, 280, 32, item, 0)
  end
 
  def update_help
  end
 
end
 
class Scene_CE_List
 
  def initialize(list)
    @list = $game_system.ce_lists[list]
  end
 
  def main
    @spriteset = Spriteset_Map.new if MAP
    @help_window = Window_Help.new
    @list_window = Window_CE_List.new(@list.ids)
    @help_window.opacity  = @list_window.opacity = OPACITY
    @help_window.set_text(@list.description, 1)
    @list_window.help_window = @help_window
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      break if $scene != self
    end
    Graphics.freeze
    @spriteset.dispose if MAP
    @help_window.dispose
    @list_window.dispose
  end
 
  def update
    @list_window.update
    if Input.trigger?(Input::C)
      id = @list.ids[@list_window.index]
      if id
        $game_system.se_play($data_system.decision_se)
        $game_temp.common_event_id = id
        $scene = SCENE_C.new
        return
      else
        $game_system.se_play($data_system.buzzer_se)
        return
      end
    elsif Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = SCENE_B.new
    end
  end
 
end