Ruby Quellcode

# Orginal von Caesar (Questlog V3  07.08.2008)
LINE_HEIGHT = 32 # Zeilenhöhe in der Questbeschreibung 
################################################################################
module QUEST_MODULE
  $quest_name = []
  $quest_inhalt = []
  $quest_data = []
  $quest_data[1] = 0
  $quest_data[2] = 0
end
################################################################################
class Quest
 
  def Quest.add(titel="", inhalt="")  
    inhalt.gsub(/□/,'')
    $quest_name.unshift( titel )
    $quest_inhalt.unshift( inhalt.gsub(/\n/,'') )
    $quest_data[2] += 1
  end
end
########################### Menü ###############################################
class Quest_Menue
  def initialize(menu_index = 0)
    @menu_index = menu_index
    @sprite_set = Spriteset_Map.new
  end
 
  def main
    @header = Window_Help.new
    @header.width = 545
    @header.height = 65 
    @header.contents = Bitmap.new(478, 32) 
    @header.back_opacity = 160
    @header.contents.font.size = 30 
    @header.contents.font.name = "Arial"
    @header.contents.draw_text(0, 0, 510, 32, "Abenteuerbuch", 1) 
    command = []
    if $quest_data[2] > 0
      command.delete( "No Quest" )
      for i in 0..$quest_name.size-1 
        command.push( $quest_name[i] )
      end
    else
      command.push( "No Quest" )
    end
    @command_window = Window_Command.new(180, command)
    @command_window.index = @menu_index
    @command_window.back_opacity = 160
    @command_window.y = 65
    @command_window.width = 180
    @command_window.height = 350
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @header.dispose
  end
 
  def update
    @command_window.update
    if @command_window.active
      update_command
      return
    end
  end
 
  def update_command
    if Input.trigger?(Input::C)
      for z in 0..$quest_data[2]
        $quest_data[1] = z if @command_window.index == z
      end
      @inhalt = Inhalt.new
    end
    if Input.trigger?(Input::B)
      $quest_data[1] = 0
      $scene = Scene_Map.new
      return
    end
  end
end
#===============================================================================
class Inhalt < Window_Base
  def initialize
    super(180, 65, 365, 350)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.back_opacity = 160
    @lines = []
    @line_width = []
    if $quest_data[2] > 0
      @lines.delete( "Keine Quest vorhanden." )
      for z in 0..$quest_data[2]
        @lines = $quest_inhalt[z].scan(/.{1,50}/) if $quest_data[1] == z
      end
    else
      @lines.push( "Keine Quest vorhanden." )
    end 
    refresh
  end
 
  def refresh
    self.contents.clear
    self.contents.font.color = Color.new(200, 224, 255, 255)
    self.contents.font.size = 15
    for i in 0..@lines.size-1
      @line_width[i] = self.contents.text_size(@lines[i]).width
      self.contents.draw_quest(5, i*32, @line_width[i], 32, @lines[i])
    end
    setVisible
  end
 
def setVisible
    if self.visible
      loop do
        Graphics.update
        Input.update
        if Input.trigger?(Input::C)
          self.dispose
        end
        if self.disposed?
          @lines = []
          break
        end
      end
    end
  end
end
################################################################################
class Bitmap 
 
  def draw_quest(x, y, width, height, str)
    str = str.dup 
    bold = font.bold 
    italic = font.italic 
    size = font.size
    underlined = false 
    opacity = 255 
    str.gsub!(/<b>/,"\01")
    str.gsub!(/<\/b>/,"\02") 
    str.gsub!(/<i>/,"\03") 
    str.gsub!(/<\/i>/,"\04")
    str.gsub!(/<small>/,"\20") 
    str.gsub!(/<\/small>/,"\21") 
    str.gsub!(/<big>/,"\23") 
    str.gsub!(/<\/big>/,"\21") 
    str.gsub!(/<size=([0-9]+)>/,"\24[#{$1}]") 
    str.gsub!(/<\/size>/,"\21")
    str.gsub!(/<u>/,"\27")
    str.gsub!(/<\/u>/,"\30") 
    str.gsub!(/<icon=([_A-Za-z0-9-]+)>/,"\11[#{$1}]")
    str.gsub!(/<image=([_A-Za-z0-9-]+)>/,"\31[#{$1}]") 
 
    ix = 0 
    iy = 0 
    while ((c = str.slice!(/./m)) != nil) 
      case c
      when "\01" then
        font.bold = true
      when "\02" then
        font.bold = bold 
      when "\03" then
        font.italic = true 
      when "\04" then
        font.italic = false
      when "\11" then
        str.sub!(/\[([_A-Za-z0-9-]+)\]/, "") 
        icon = RPG::Cache.icon($1) 
        blt(ix + 8, iy + LINE_HEIGHT/2 - 12, icon, Rect.new(0, 0, 24, 24)) 
        ix += 24 
      when "\20" then
        font.size -= 5 if font.size > 10 
      when "\21" then
        font.size = size 
      when "\23" then
        font.size += 5 if font.size < 92 
      when "\24" then
        str.sub!(/\[([0-9]+)\]/, "") 
        newsize = $1.to_i 
        font.size = newsize if newsize > 5 and newsize < 97 
      when "\27" then
        underlined = true 
      when "\30" then 
        underlined = false
      when "\31" then 
        str.sub!(/\[([_A-Za-z0-9-]+)\]/, "") 
        image = RPG::Cache.picture($1) 
        iy += LINE_HEIGHT 
        blt((width-image.rect.width)/2, iy, image, image.rect)
        iy += image.rect.height 
        ix = 0 
      end
      draw_text(x+ix+4, y+iy, 40, font.size, c) 
      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.bold = bold 
    font.italic = italic 
    font.size = size 
    return iy + LINE_HEIGHT 
  end
end