[VX]Crédits

$scene = Scene_Credits.new

#Font

CREDITS_FONT = "Times New Roman"

CREDITS_SIZE = 24

CREDITS_OUTLINE = Color.new(0,0,127, 255)

CREDITS_SHADOW = Color.new(0,0,0, 100)

CREDITS_FILL = Color.new(255,255,255, 255)



#==============================================================================

# ¦ Scene_Credits

#------------------------------------------------------------------------------

# This script has been edited from the original RPG Maker XP version.

#------------------------------------------------------------------------------

# It now uses pictures from the pictures folder instead of titles from the

# titles folder.

#------------------------------------------------------------------------------

# This script might need the RMXP to RMVX Compatibility Patch avialble at RPG

# Maker.net

#------------------------------------------------------------------------------

# Edited by Mac Malone (Dr.?)

# XP Version: Oringinal Author unknow, but edidted by MiDas Mike so it doesn't

# play over the Title, but runs by calling the following:

# $scene = Scene_Credits.new

#==============================================================================



class Scene_Credits
 
 
 
  # This next piece of code is the credits.
 
  #Start Editing
 
  CREDIT=<<_END_
 
 
 
  Untitled Project
 
 
 
  Director
 
  ---------------
 
 
 
 
 
  Scripts
 
  ---------------
 
 
 
 
 
  Graphics
 
  ---------------
 
 
 
 
 
  Music and sound
 
  ---------------
 
 
 
 
 
  Mapping
 
  ---------------
 
 
 
 
 
  Storyline
 
  ---------------
 
 
 
 
 
  Beta Testers
 
  ---------------
 
 
 
 
 
  Special Thanks
 
  ---------------
 
 
 
 
 
  ---------------
 
 
 
 
 
 
 
  _END_
 
  #Stop Editing
 
  def main
   
   
   
    #-------------------------------
   
    # Animated Background Setup
   
    #-------------------------------
   
    @sprite = Sprite.new
   
    #@sprite.bitmap = Cache.picture($data_system.title_name)
   
    @backgroundList = ["001-Title01"] #Edit this to the picture(s) you wish to show in the background. They do repeat.
   
    @backgroundGameFrameCount = 0
   
    # Number of game frames per background frame.
   
    @backgroundG_BFrameCount = 3.4
   
    @sprite.bitmap = Cache.picture(@backgroundList[0])
   
   
   
    #------------------
   
    # Credits Setup
   
    #------------------
   
   
   
    credit_lines = CREDIT.split(/n/)
   
    credit_bitmap = Bitmap.new(640,32 * credit_lines.size)
   
    credit_lines.each_index do |i|
   
    line = credit_lines[i]
   
    credit_bitmap.font.name = CREDITS_FONT
   
    credit_bitmap.font.size = CREDITS_SIZE
   
    x = 0
   
    credit_bitmap.font.color = CREDITS_OUTLINE
   
    credit_bitmap.draw_text(0 + 1,i * 32 + 1,640,32,line,1)
   
    credit_bitmap.draw_text(0 - 1,i * 32 + 1,640,32,line,1)
   
    credit_bitmap.draw_text(0 + 1,i * 32 - 1,640,32,line,1)
   
    credit_bitmap.draw_text(0 - 1,i * 32 - 1,640,32,line,1)
   
    credit_bitmap.font.color = CREDITS_SHADOW
   
    credit_bitmap.draw_text(0,i * 32 + 8,640,32,line,1)
   
    credit_bitmap.font.color = CREDITS_FILL
   
    credit_bitmap.draw_text(0,i * 32,640,32,line,1)
   
  end
 
  @credit_sprite = Sprite.new(Viewport.new(0,50,640,380))
 
  @credit_sprite.bitmap = credit_bitmap
 
  @credit_sprite.z = 9998
 
  @credit_sprite.oy = -430
 
  @frame_index = 0
 
  @last_flag = false
 
 
 
  #--------
 
  # Setup
 
  #--------
 
 
 
  # ME?BGS ??????
 
  Audio.me_stop
 
  Audio.bgs_stop
 
  Audio.se_stop
 
  # ?????????
 
  Graphics.transition
 
  # ??????
 
  loop do
   
    # ????????
   
    Graphics.update
   
    # ???????
   
    Input.update
   
    # ??????
   
    update
   
    # ????????????????
   
    if $scene != self
     
      break
     
    end
   
  end
 
  # ?????????
 
  Graphics.freeze
 
  @sprite.dispose
 
  @credit_sprite.dispose
 
end



#Checks if credits bitmap has reached it's ending point

def last?
 
  return (@frame_index >= @credit_sprite.bitmap.height + 480)
 
end

def last
 
  if not @last_flag
   
    @last_flag = true
   
    @last_count = 0
   
  else
   
    @last_count += 1
   
  end
 
  if @last_count >= 300
   
    $scene = Scene_Map.new
   
  end
 
end



#Check if the credits should be cancelled

def cancel?
 
  if Input.trigger?(Input::C)
   
    $scene = Scene_Map.new
   
    return true
   
  end
 
  return false
 
end



#--------------------------------------------------------------------------

# ? ??????

#--------------------------------------------------------------------------

def update
 
  @backgroundGameFrameCount = @backgroundGameFrameCount + 1
 
  if @backgroundGameFrameCount >= @backgroundG_BFrameCount
   
    @backgroundGameFrameCount = 0
   
    # Add current background frame to the end
   
    @backgroundList = @backgroundList << @backgroundList[0]
   
    # and drop it from the first position
   
    @backgroundList.delete_at(0)
   
    @sprite.bitmap = Cache.picture(@backgroundList[0])
   
  end
 
  return if cancel?
 
  last if last?
 
  @credit_sprite.oy += 1
 
end

end