#=====================================================
#  *  Scrolling Text v 1.0
#     by shadowball
#     01.14.2008
#=====================================================
class Scrolling_Text < Window_Base
  def initialize
    super(0,480,500,512)
    self.contents = Bitmap.new(width - 32, height - 32)
    @text = {
    100 => 'Evil Eye Productions',
    101 => 'this does not mean anything',
    102 => 'Sentence 3',
    103 => 'Sentence 4',
    104 => 'Sentence 5',
    105 => '',
    106 => 'Sentence 6',
    107 => 'Sentence 7',
    108 => 'Sentence 8',
    109 => 'Sentence 9',
    110 => 'just another line of text',
    111 => 'Sentence 11',
    112 => "I don't know what I'm doing here",
    113 => '',
    114 => 'New Paragraph: Last Sentence'    
    }
    y = -32
    @text.sort.each do |keys, values|
      y += 32
      self.contents.draw_text(0,y,488,32, values)
    end
    self.opacity = 0
    refresh
  end
  
  def refresh
    self.y -= 1 if self.y > -512
  end
  
end

class Scroll

  def main
    @sprite = Sprite.new
    @sprite.bitmap = RPG::Cache.picture('scrollingtext')
    @shb_scroll_window = Scrolling_Text.new
    @shb_scroll_window.x = 80
    @shb_scroll_window.y = 480
    # Execute transition
    Graphics.transition
    # Main loop
    loop do
      # Update game screen
      Graphics.update
      # Update input information
      Input.update
      # Frame update
      update
      # Abort loop if screen is changed
      if $scene != self
        break
      end
    end
    # Prepare for transition
    Graphics.freeze
    # Dispose of windows
    @shb_scroll_window.dispose
    @sprite.dispose
    @sprite.bitmap.dispose
  end

  def update
    # Update windows
    @shb_scroll_window.refresh
    if @shb_scroll_window.y == -512
      $scene = Scene_Map.new
    end
  end

end