class Scene_Credit
CREDIT=<<_END_
ผู้จัดทำ
นาย อาชา ม้าแก้ว เลขที่ 1
นาย เพทาย น้อยถนอม เลขที่ 2
นางสาว ธนัชพร กันธิมา เลขที่ 7
ห้อง ม.6/7



ผู้คิดโจทย์
นางสาว ธนัชพร กันธิมา



เนื้อเรื่อง
นาย อาชา ม้าแก้ว เลขที่ 1



ระบบเกม
Advanced Message Script
Zer0 Advanced Weather 1.1
Zer0 ScreenTest
Map_Loction
Sound STEP Script v.2



กราฟฟิค
Enterbrain
Sithjester's RPG Maker XP resources.



วาดแผนที่
นาย อาชา ม้าแก้ว เลขที่ 1
นาย เพทาย น้อยถนอม เลขที่ 2



ไทล์เซ็ต
Enterbrain
Sithjester
http://yms.main.jp/



เสียง & ดนตรี
Enterbrain
Youtube



ผู้ทดสอบเกม
นาย อาชา ม้าแก้ว เลขที่ 1
นาย เพทาย น้อยถนอม เลขที่ 2
นางสาว ธนัชพร กันธิมา เลขที่ 7




เอนจิ้นเกม
Enterbrain



ขอบคุณในกรณีพิเศษ
GWTH






และคุณ..








------ Adventure Exponent World! ------

นำเสนอโดย 6/7



_END_
#----พอแล้วนะ จะเพิ่มอีกก็ได้แต่ห้ามยุ่งข้างล่าง
end
class Scene_Credit
def initialize(return_scene = nil)
if return_scene.nil?
return_scene = Scene_Title.new
end
@return_scene = return_scene
end
def scene_start
credit_lines = CREDIT.split(/\n/)
credit_bitmap = Bitmap.new(640,48 * credit_lines.size)
credit_lines.each_index do |i|
line = credit_lines[i]
credit_bitmap.font.name = "Layiji MaHaNiYom V1.61"
credit_bitmap.draw_text(0,i * 48,640,32,line,1)
end
@credit_sprite = Sprite.new(Viewport.new(0,50,640,380))
@credit_sprite.bitmap = credit_bitmap
@credit_sprite.oy = -430
@frame_index = 0
@last_flag = false
end
def scene_end
@credit_sprite.dispose
end
def last?
return (@frame_index >= @credit_sprite.bitmap.height + 480)
end
def last
if not @last_flag
Audio.bgm_fade(10000)
@last_flag = true
@last_count = 0
else
@last_count += 1
end
if @last_count >= 300
$scene = @return_scene
end
end
def update
@frame_index += 1
return if cancel?
last if last?
@credit_sprite.oy += 1
end
def cancel?
return false
end
def main
scene_start
# Transition Initialization
Graphics.transition
# Main Loop
loop do
# The Game Screen is Renewed
Graphics.update
# Input Information is Updated
Input.update
# Frame Renewal
update
# If the Scene Changes, the Loop is Stopped
if $scene != self
break
end
end
# Preperation for Transition
Graphics.freeze
$scene = Scene_Map.new
end
end
# Scene_Credit