Quellcode

# Quest Skript by Creaping
$quest = []
class Quest
  attr_accessor :beschreibung
  attr_accessor :titel
  attr_accessor :erledigt
  attr_accessor :bild
 
  def initialize(titel)
	@titel = titel
	@beschreibung = "keine vorhanden"
	@erledigt = false
	@bild = "001-Fighter01"
  end
end
 
class Window_Questlog < Window_Selectable
  def initialize
	super(0,0,200,480)
	self.contents = Bitmap.new(width - 32, height - 32)
	self.contents.font.name = $defaultfonttype 
	self.contents.font.size = $defaultfontsize
	@item_max = $quest.size
	@column_max = 1
	self.index = 0
	self.active = true
	refresh
  end
 
  def refresh
	x = 0
	for i in 0...$quest.size
  	y = 32* i
  	if $quest[i].erledigt
    	bitmap = RPG::Cache.icon("018-Accessory03")
    	self.contents.blt(0, y + 4, bitmap, Rect.new(0, 0, 24, 24))
  	end
 
    	self.contents.draw_text(28,y, self.width, 32, $quest[i].titel)
	end
  end
  def update_cursor_rect
	self.cursor_rect.set(0, @index * 32, 200-32, 32)
  end
 
end
 
 
  # ------------
 
  class Window_Questinfo < Window_Base
	def initialize
  	super(200,0, 440, 480)
  	self.contents = Bitmap.new(width - 32, height - 32)
  	self.contents.font.name = $defaultfonttype
  	self.contents.font.size = $defaultfontsize
	end
	def update(index)
  	self.contents.clear
  	if $quest[index].bild != nil
    	bitmap = RPG::Cache.battler($quest[index].bild, 0)
    	#mach' aus "battler" ein "picture", wenn du deine Bilder aus dem Picture Ordner willst
    	self.contents.blt((self.width-bitmap.width)/2, y + 4, bitmap, Rect.new(0, 0, 440, 300))
    	end
  	self.contents.draw_text(0,300, self.width, 32, $quest[index].titel, 1)
	end
  end
 
  # --------------------------------------
 
  class Scene_Questlog
	def main
  	@window_quest = Window_Questlog.new
  	@window_info = Window_Questinfo.new
  	Graphics.transition
  	loop do
    	Graphics.update
    	Input.update
    	update
    	if $scene != self
      	break
    	end
  	end
  	Graphics.freeze
  	@window_quest.dispose
  	@window_info.dispose
	end
 
	def update
  	@window_quest.update
  	@window_info.update(@window_quest.index)
  	if Input.trigger?(Input::B)
    	$scene = Scene_Map.new
  	end
	end
  end