Quellcode

class Scene_Questlog 
  def main 
	@window_header = Window_Questlog_Header.new 
	@window_titles = Window_Questlog_Titles.new 
	description = "" 
	picture = "" 
	if $game_system.questlog.count > 0 
  	description = $game_system.questlog.quests[0].description 
  	picture = $game_system.questlog.quests[0].picture 
	end 
	@window_description = Window_Questlog_Description.new( 
    	description, picture) 
	@index = @window_titles.index 
	@spriteset = Spriteset_Map.new 
	Graphics.transition 
	loop do 
  	Graphics.update 
  	Input.update 
  	update 
  	if $scene != self 
    	break 
  	end 
	end 
	Graphics.freeze 
	@window_header.dispose 
	@window_titles.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_Map.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 
  attr_accessor :enabled 
  def initialize(title, description, icon="", picture="") 
	@title = title 
	@description = description 
	@icon = icon 
	@picture = picture 
	@enabled = true 
  end 
end 
#============ 
class Questlog 
  attr_reader  :quests 
  def initialize 
	@quests = [] 
  end 
  #----------- 
  def add(quest, description="", icon="", picture="") 
	return add(Quest.new(quest, description, icon, picture)) unless 
    	quest.is_a?(Quest) 
	i = index(quest.title) 
	return @quests[i] = quest if i != nil 
	#@quests.push(quest) # Quest wird unten eingefügt 
	@quests.unshift(quest) # Quest wird oben eingefügt 
  end 
  #----------- 
  def remove(title) 
	@quests.delete_if{ |quest| quest.title == title} 
  end 
  #----------- 
  def enable(title) 
	set_enabled(title, true) 
  end 
  #----------- 
  def disable(title) 
   set_enabled(title, false) 
  end 
  #----------- 
  def set_enabled(title, enabled) 
	@quests.each do |quest| 
  	quest.enabled = enabled if quest.title == title 
	end 
  end 
  #----------- 
  def count 
	return @quests.length 
  end 
  #------------ 
  def index(title) 
	for i in 0..@quests.length-1 
  	return i if @quests[i].title == title 
	end 
	return nil 
  end 
  #------------ 
  def Questlog.add(title, description="", icon="", picture="") 
	$game_system.questlog.add(title, description, icon, picture) 
  end 
  #------------ 
  def Questlog.remove(title) 
	$game_system.questlog.remove(title) 
  end 
  #------------ 
  def Questlog.enable(title) 
	$game_system.questlog.enable(title) 
  end 
  #------------ 
  def Questlog.disable(title) 
	$game_system.questlog.disable(title) 
  end 
  #------------ 
  def Questlog.set_enabled(title) 
	$game_system.questlog.set_enabled(title) 
  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 
	self.contents.font.size = $defaultfontsize 
	@description = description 
	@picture = picture 
	refresh 
  end 
  #----------- 
  def refresh 
	self.contents.clear 
	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) 
  	self.contents.draw_formatted_text( 
      	4, rect.height, 270, 328-rect.height, @description) 
	else 
  	self.contents.draw_formatted_text(4, 0, 270, 328, @description) 
	end 
  end 
end 
#============= 
class Window_Questlog_Titles < Window_Selectable 
  def initialize 
	super(65, 92, 210, 360) 
	@item_max = $game_system.questlog.count 
	self.contents = Bitmap.new(width-32, @item_max > 0 ? @item_max*32 : 32) 
	self.contents.font.name = $defaultfonttype 
	self.contents.font.size = $defaultfontsize 
	self.index = 0 
	@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 
  	self.contents.font.color = quest.enabled ? normal_color : disabled_color 
  	if (quest.icon != nil) && (not quest.icon == "") 
    	bitmap = RPG::Cache.icon(quest.icon) 
    	opacity = quest.enabled ? 255 : 128 
    	self.contents.blt(4, y+4, bitmap, Rect.new(0, 0, 24, 24), opacity) 
    	self.contents.draw_formatted_text(29, y, 150, 32, quest.title) 
  	else 
    	self.contents.draw_formatted_text(4, y, 150, 32, quest.title) 
  	end 
	end 
  end 
end 
#=========== 
class Window_Questlog_Header < Window_Base 
  def initialize 
	super(65, 28, 510, 64) 
	self.contents = Bitmap.new(width-32, height-32) 
	self.contents.font.name = $defaultfonttype 
	self.contents.font.size = 26 
	refresh 
  end 
  #------------ 
  def refresh 
	self.contents.clear 
	self.contents.draw_text(self.contents.rect, "Questlog", 1) 
  end 
end 
#=========== 
class Scene_Map 
  def call_questlog 
	$game_temp.questlog_calling = false 
	$game_player.straighten 
	$scene = Scene_Questlog.new 
  end 
end 
#=========== 
class Game_System 
  attr_reader  :questlog 
  alias init initialize 
  def initialize 
	init 
	@questlog = Questlog.new 
  end 
end 
#=========== 
class Game_Temp 
  attr_accessor :questlog_calling 
  alias init initialize 
  def initialize 
	init 
	@questlog_calling = false 
  end 
end 
#============== 
class Bitmap 
  def draw_shadow_text(x, y, width, height, str, align=0) 
	color = font.color.dup 
	font.color = Color.new(192, 192, 192, 156) 
	draw_text(x+2, y+2, width, height, str, align) 
	font.color = color 
	draw_text(x, y, width, height, str, align) 
  end 
  #---------------- 
  def draw_formatted_text(x, y, width, height, str, align=0) 
	str = str.dup 
	color = font.color.dup 
	bold = font.bold 
	italic = font.italic 
	size = font.size 
	name = font.name.dup 
	#:::::::::: 
	shadow = false 
	underlined = false 
	str.gsub!(/
/) {"\n"} 
	str.gsub!(/\\\\/) {"\00"} 
	str.gsub!(//) {"\01"} 
	str.gsub!(/<\/b>/) {"\02"} 
	str.gsub!(//) {"\03"} 
	str.gsub!(/<\/i>/) {"\04"} 
	str.gsub!(//) {"\05[#{$1}]"} 
	str.gsub!(/<\/color>/) {"\06"} 
	str.gsub!(//) {"\16"} 
	str.gsub!(/<\/shadow>/) {"\17"} 
	str.gsub!(//) {"\20"} 
	str.gsub!(/<\/small>/) {"\21"} 
	str.gsub!(//) {"\23"} 
	str.gsub!(/<\/big>/) {"\21"} 
	str.gsub!(//) {"\24[#{$1}]"} 
	str.gsub!(/<\/size>/) {"\21"} 
	str.gsub!(//) {"\25[#{$1}]"} 
	str.gsub!(/<\/font>/) {"\26"} 
	str.gsub!(//) {"\27"} 
	str.gsub!(/<\/u>/) {"\30"} 
	ix = 0 
	iy = 0 
	while ((c = str.slice!(/./m)) != nil) 
  	if c == "\00" # \\ 
    	c = "\\" 
  	end 
  	if c == "\01" #  
    	font.bold = true 
  	end 
  	if c == "\02" # 
    	font.bold = false 
  	end 
  	if c == "\03" #  
    	font.italic = true 
  	end 
  	if c == "\04" #  
    	font.italic = false 
  	end 
  	if c == "\05" #  
    	str.sub!(/\[(#?[0-9a-z]+)\]/, "") 
    	if $1[0] == 35 
      	col = Color.decode($1) 
    	elsif $1.to_i != 0 
      	col = Window_Base.text_color($1.to_i) 
    	else 
      	col = Color.get($1) 
    	end 
    	font.color = col 
  	end 
  	if c == "\06" #  
    	font.color = color 
  	end 
  	if c == "\16" #  
    	shadow = true 
  	end 
  	if c == "\17" #  
    	shadow = false 
  	end 
  	if c == "\20" #  
    	font.size -= 5 
    	font.size = 1 if font.size < 1 
  	end 
  	if c == "\21" #    
    	font.size = size 
  	end 
  	if c == "\23" #  
    	font.size += 5 
  	end 
  	if c == "\24" #  
    	str.sub!(/\[([0-9]+)\]/, "") 
    	font.size = $1.to_i 
    	font.size = 1 if font.size < 1 
  	end 
  	if c == "\25" #  
    	str.sub!(/\[([A-Za-z0-9\s]+)\]/, "") 
    	font.name = $1 if Font.exist?($1) 
  	end 
  	if c == "\26" #  
    	font.name = name 
  	end 
  	if c == "\27" #  
    	underlined = true 
  	end 
  	if c == "\30" #  
    	underlined = false 
  	end 
  	if c == "\n" 
    	iy += 32 
    	ix = 0 
  	end 
  	#::::::::: 
  	if shadow 
    	draw_shadow_text(x+ix+4, y+iy, 40, 32, c) 
  	else 
    	draw_text(x+ix+4, y+iy, 40, 32, c) 
  	end 
  	w = text_size(c).width 
  	if underlined 
    	fill_rect(x+ix+4, y+iy+text_size("T").height+3, w, 2, font.color) 
  	end 
  	ix += w 
	end 
	#:::::::::: 
	font.color = color 
	font.bold = bold 
	font.italic = italic 
	font.size = size 
	font.name = name 
  end 
end 
#============== 
class Color 
  def Color.get(string) 
	return Color.white if string == "white" 
	return Color.black if string == "black" 
	return Color.red if string == "red" 
	return Color.green if string == "green" 
	return Color.blue if string == "blue" 
	return Color.yellow if string == "yellow" 
	return Color.cyan if string == "cyan" 
	return Color.magenta if string == "magenta" 
	return Color.light_gray if string == "light_gray" 
	return Color.gray if string == "gray" 
	return Color.dark_gray if string == "dark_gray" 
	return Color.pink if string == "pink" 
	return Color.orange if string == "orange" 
	return Color.white 
  end 
  #------------ 
  def Color.decode(hex) 
	return Color.decode(hex[1..hex.length]) if hex[0] == 35 
	hex.downcase! 
	red = hex[0..1].hex 
	green = hex[2..3].hex 
	blue = hex[4..5].hex 
	alpha = hex.length == 8 ? hex[6..7].hex : 255 
	return Color.new(red, green, blue, alpha) 
  end 
  #------------ 
  def Color.white(alpha=255) 
	return Color.new(255, 255, 255, alpha) 
  end 
  #----------- 
  def Color.black(alpha=255) 
	return Color.new(0, 0, 0, alpha) 
  end 
  #---------- 
  def Color.red(alpha=255) 
	return Color.new(255, 0, 0, alpha) 
  end 
  #---------- 
  def Color.green(alpha=255) 
	return Color.new(0, 255, 0, alpha) 
  end 
  #--------- 
  def Color.blue(alpha=255) 
	return Color.new(0, 0, 255, alpha) 
  end 
  #---------- 
  def Color.yellow(alpha=255) 
	return Color.new(255, 255, 0, alpha) 
  end 
  #---------- 
  def Color.cyan(alpha=255) 
	return Color.new(0, 255, 255, alpha) 
  end 
  #---------- 
  def Color.magenta(alpha=255) 
	return Color.new(255, 255, 0, alpha) 
  end 
  #---------- 
  def Color.light_gray(alpha=255) 
	return Color.new(192, 192, 192, alpha) 
  end 
  #----------- 
  def Color.gray(alpha=255) 
	return Color.new(128, 128, 128, alpha) 
  end 
  #----------- 
  def Color.dark_gray(alpha=255) 
	return Color.new(64, 64, 64, alpha) 
  end 
  #----------- 
  def Color.pink(alpha=255) 
	return Color.new(255, 175, 175, alpha) 
  end 
  #----------- 
  def Color.orange(alpha=255) 
	return Color.new(255, 200, 0, alpha) 
  end 
end 
#===================== 
class Window_Base < Window 
  def Window_Base.text_color(n) 
	case n 
	when 0 
  	return Color.new(255, 255, 255, 255) 
	when 1 
  	return Color.new(128, 128, 255, 255) 
	when 2 
  	return Color.new(255, 128, 128, 255) 
	when 3 
  	return Color.new(128, 255, 128, 255) 
	when 4 
  	return Color.new(128, 255, 255, 255) 
	when 5 
  	return Color.new(255, 128, 255, 255) 
	when 6 
  	return Color.new(255, 255, 128, 255) 
	when 7 
  	return Color.new(192, 192, 192, 255) 
	else 
  	return Color.white 
	end 
  end 
end