[XP] Transiciones

#SISTEMA DE TRANSICCIÓN AL CAMBIAR EL MAPA DE ÁNEMUS


#primera y única propiedad editable con scripts
#indica si antes de hacer la transición almapa pasará al negro.
MNM = true

class Interpreter
# ------------------------------------
def command_201
if $game_temp.player_transferring or
$game_temp.message_window_showing or
$game_temp.transition_processing
return false
end
$game_temp.player_transferring = true
if @parameters[0]== 0
$game_temp.player_new_map_id = @parameters[1]
$game_temp.player_new_x = @parameters[2]
$game_temp.player_new_y = @parameters[3]
$game_temp.player_new_direction = @parameters[4]
else
$game_temp.player_new_map_id = $game_variables[@parameters[1]]
$game_temp.player_new_x = $game_variables[@parameters[2]]
$game_temp.player_new_y = $game_variables[@parameters[3]]
$game_temp.player_new_direction = @parameters[4]
end
@index += 1
if @parameters[5] == 0
#Graphics.freeze
$game_temp.transition_processing = true
#$game_temp.transition_name = ""
end
return false
end
end



class Scene_Map
def transfer_player
$game_temp.player_transferring = false
if $game_map.map_id != $game_temp.player_new_map_id
$game_map.setup($game_temp.player_new_map_id)
end
$game_player.moveto($game_temp.player_new_x, $game_temp.player_new_y)
case $game_temp.player_new_direction
when 2
$game_player.turn_down
when 4
$game_player.turn_left
when 6
$game_player.turn_right
when 8
$game_player.turn_up
end
$game_player.straighten
$game_map.update
if $trans == nil
$trans = ""
end
if $trans == ""
if MNM
Graphics.freeze
@spriteset.dispose
Graphics.transition(10)
Graphics.freeze
@spriteset = Spriteset_Map.new
Graphics.transition(10)
else
Graphics.freeze
@spriteset.dispose
@spriteset = Spriteset_Map.new
Graphics.transition(20)
end
else
@trans2 = $trans
if FileTest.exist?("Graphics/Transitions/"+@trans2+"-.png")
@trans2 += "-"
end
if MNM
Graphics.freeze
@spriteset.dispose
Graphics.transition(10, "Graphics/Transitions/"+$trans)
Graphics.freeze
@spriteset = Spriteset_Map.new
Graphics.transition(10, "Graphics/Transitions/"+@trans2)
else
Graphics.freeze
@spriteset.dispose
@spriteset = Spriteset_Map.new
Graphics.transition(20, "Graphics/Transitions/"+$trans)
end
end
$trans = ""
$game_map.autoplay
Graphics.frame_reset
Input.update
end
end