Quellcode

 #//////////////////////////////////////////////Questlog///////////////////////////////////////////////
#~~~~~~~~~~~~~~~~~~~~by Caesar~~~~~~~~~~~~~~~~~~~~
#\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
#_________________________________________________
 
class Scene_Questlog
  def main
    @window_titles = Window_Questlog_Titles.new
    @window_questlog_title = Window_Questlog_Title.new
    @window_description = (
        $game_system.questlog.count > 0 ? Window_Questlog_Description.new(
        $game_system.questlog.quests[0].description,
        $game_system.questlog.quests[0].picture) :
        Window_Questlog_Description.new("", ""))
    @spriteset = Spriteset_Map.new
    @index = @window_titles.index
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @window_titles.dispose
    @window_questlog_title.dispose
    @window_description.dispose
    @spriteset.dispose
  end
  #--------------------------------------------------------------------------
  def update
    @window_titles.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Menu.new
      return
    end
    if @index != @window_titles.index
      @index = @window_titles.index
      @window_description.description = $game_system.questlog.quests[@window_titles.index].description
      @window_description.picture = $game_system.questlog.quests[@window_titles.index].picture
      @window_description.refresh
    end
  end
end
#=============
class Quest
  attr_reader :title
  attr_reader :description
  attr_reader :icon
  attr_reader :picture
  def initialize(title, description, icon="", picture="")
    @title = title
    @description = description
    @icon = icon
    @picture = picture
  end
end
#============
class Questlog
  attr_reader  :quests
  def initialize
    @quests = []
  end
  #-----------
  def add(quest)
    @quests.push(quest)
  end
  #-----------
  def remove(title)
    @quests.delete_if{ |quest| quest.title == title}
  end
  #-----------
  def count
    return @quests.length
  end
end
#=============
class Window_Questlog_Description < Window_Base
  attr_accessor :description
  attr_accessor :picture
  def initialize(description, picture)
    super(275, 92, 300, 360)
    self.contents = Bitmap.new(width-32, height-32)
    self.contents.font.name = ($defaultfonttype != nil ? $defaultfonttype : $fontface)
    self.contents.font.size =( $defaultfontsize != nil ? $defaultfontsize : $fontsize)
    @description = description
    @picture = picture
    refresh
  end
  #-----------
  def refresh
    self.contents.clear
    lines = @description.split(/\n/)
    if (@picture != nil) && (not @picture == "")
      bitmap = RPG::Cache.picture(@picture)
      rect =  bitmap.rect
      self.contents.blt(width/2-rect.width/2-16, 0, bitmap, rect, 255)
      for i in 0...lines.length
        self.contents.draw_text(4, i*32+rect.height, 270, 32, lines[i])
      end
    else
      for i in 0...lines.length
        self.contents.draw_text(4, i*32, 270, 32, lines[i])
      end
    end
  end
end
#=============
class Window_Questlog_Titles < Window_Selectable
  def initialize
    super(65, 92, 210, 360)
    self.contents = Bitmap.new(width-32, height-32)
    self.contents.font.name = ($defaultfonttype != nil ? $defaultfonttype : $fontface)
    self.contents.font.size = ( $defaultfontsize != nil ? $defaultfontsize : $fontsize)
    self.index = 0
    @item_max = $game_system.questlog.count
    @column_max = 1
    refresh
  end
  #-------------
  def refresh
    self.contents.clear
    for i in 0...$game_system.questlog.count
      quest = $game_system.questlog.quests[i]
      y = i*32
      if (quest.icon != nil) && (not quest.icon == "")
        bitmap = RPG::Cache.icon(quest.icon)
        self.contents.blt(4, y+4, bitmap, Rect.new(0, 0, 24, 24), 255)
        self.contents.draw_text(29, y, 150, 32, quest.title)
      else
        self.contents.draw_text(4, y, 150, 32, quest.title)
      end
    end
  end
end
#===========
class Window_Questlog_Title < Window_Base
  def initialize
    super(65, 28, 510, 64)
    self.contents = Bitmap.new(width-32, height-32)
    self.contents.font.name = ($defaultfonttype != nil ? $defaultfonttype : $fontface)
    self.contents.font.size = 26
    refresh
  end
  #------------
  def refresh
    self.contents.clear
    self.contents.draw_text(self.contents.rect, "Questlog", 1)
  end
end
#===========
class Game_System
  attr_reader  :questlog
  alias init initialize
  def initialize
    init
    @questlog = Questlog.new
  end
end