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

#Font

CREDITS_FONT = "Narnia BLL"

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_



~ LE COMITE DES TITANS ~


Editeur

Square Projects
---------------

Directeur

Gelamine
---------------

Scripts

ABS Amélioré - Par Biward, Vlad, Chronos, Drod, Nova
Pause - Par Biward
Menu - Par Biward
Achats - Par Biward
Antilag - Par Nova
Police - Par Jean Monos
Choix de difficulté et de personnage - Par Biward
Informations - Par Biward
Reste - Par Enterbrain

---------------

Graphiques

Thérapie
Usui
Enterbrain
Etolier
Walt Disney

---------------

Musiques et sons

Enterbrain
Augusto Dos Santos

---------------

Mappeurs

Gelamine

---------------

Scénario

Homère
Walt Disney
Gelamine

---------------

Testeurs

---------------

Remerciements

Thérapie
Biward
BBActif
Augusto Dos Santos
Virginn
Enterbrain
---------------




FIN
---------------







_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
#==================================================