[Script] Game over animado

Lun Abr 07, 2008 6:34 pm por jirachi

wenas,script creado por MOGHUNTER,sirve para que al perder alguna batalla salga un gameover animado,no el que viene por defecto,para verlo mejor probarlo:
http://files.filefront.com/Escena+Animada+de+Game+Ovrrar/;9967263;/fileinfo.html

Código:


#_______________________________________________________________________________
# MOG Scene Game Over Karen V1.5           
#_______________________________________________________________________________
# By Moghunter
# http://www.atelier-rgss.com
#_______________________________________________________________________________
module MOG
#Transition Time. 
GTT = 60
#Transition Type(Name). 
GTN = "009-Random01"
#Tipo de Game Over.
#0 = Usa o Battleback como fundo.
#1 = Usa o mapa como fundo. (ABS Mode)
GTYPE = 0
end
#_______________________________________________________________________________
$mogscript = {} if $mogscript == nil
$mogscript["game_over_karen"] = true
class Scene_Gameover
include MOG
def main
s1 = ""
s2 = ""
@com = Window_Command.new(192, [s1, s2])
@com.opacity = 0
@com.visible = false
@com.contents_opacity = 0
if GTYPE == 0
@sprite = Sprite.new
@sprite.bitmap = RPG::Cache.battleback($game_map.battleback_name)
@status_window = Window_BattleStatus.new
else
@spriteset = Spriteset_Map.new
end 
@gover_lay = Sprite.new
@gover_lay.bitmap = RPG::Cache.gameover("Gover_lay")
@gover_lay.y = 480
@gover_lay.opacity = 0
@gove_com = Sprite.new
@gove_com.bitmap = RPG::Cache.gameover("Gover_com01")
@gove_com.x = 220
@gove_com.y = -480
$game_system.bgm_play(nil)
$game_system.bgs_play(nil)
$game_system.me_play($data_system.gameover_me)
if GTYPE == 0
Graphics.transition
else
Graphics.transition(MOG::GTT, "Graphics/Transitions/" + MOG::GTN ) 
end 
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
if GTYPE == 0
@sprite.dispose
@status_window.dispose
else
@spriteset.dispose
end
@gover_lay.dispose
@com.dispose
@gove_com.dispose
Graphics.transition(MOG::GTT, "Graphics/Transitions/" + MOG::GTN )
Graphics.freeze
if $BTEST
$scene = nil
end
end
def update 
if GTYPE == 0 
if @sprite.zoom_y < 1.5
@sprite.zoom_y += 0.01
end
if @sprite.zoom_x < 1.5
@sprite.zoom_x += 0.01
end
if @status_window.y < 480
@status_window.y += 3
elsif @status_window.y >= 480
@status_window.y = 480
end
end
if @gover_lay.y > 0
@gover_lay.y -= 5
@gover_lay.opacity += 5
@gove_com.y += 8
@gove_com.opacity += 5
elsif @gover_lay.y <= 0
@gover_lay.y = 0
@gover_lay.opacity = 255
@gove_com.y = 290
@gove_com.opacity = 255
end 
@com.update
case @com.index
when 0
@gove_com.bitmap = RPG::Cache.gameover("Gover_com01")
when 1
@gove_com.bitmap = RPG::Cache.gameover("Gover_com02")
end
if Input.trigger?(Input::C)
case @com.index
when 0
$game_system.se_play($data_system.decision_se)
$scene = Scene_Load.new
when 1 
$game_system.se_play($data_system.decision_se)
Audio.bgm_fade(800)
Audio.bgs_fade(800)
Audio.me_fade(800)
$scene = nil
end
end
end
end


Comentarios: 2