关于将XP脚本移植成VA脚本的问题。 - Project1

#--------------------------------------------------------------------------
# ● 主角的场所移动
#--------------------------------------------------------------------------
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
#--------------------------------进度条-------------------------------#
Graphics.freeze
Graphics.transition(20)
$cg = rand(21)
@sprite = Sprite.new
@sprite.bitmap = RPG::Cache.picture("过场CG#{$cg}.jpg")
@sprite.z = 997
@ps_back = Sprite.new
@ps_back.bitmap = RPG::Cache.picture("进度条背景.png")
@ps_back.x = 150
@ps_back.y = 400
@ps_back.z = 998
@ps = Sprite.new
@ps.bitmap = RPG::Cache.picture("进度条.png")
@ps.x = 155
@ps.y = 416
@ps.z = 999
@ps_hy = Sprite.new
$t = 1
while $t <= 100 do
$t += 1
if $t%24 <= 11
@ps_hy.bitmap = RPG::Cache.picture("进度条花盈1.png")
else
@ps_hy.bitmap = RPG::Cache.picture("进度条花盈2.png")
end
@ps_hy.x = 150 + 3 * $t
@ps_hy.y = 358
@ps_hy.z = 1000
Graphics.update
Mouse.update
end
Graphics.freeze
Graphics.transition(20)
@sprite.dispose
@sprite.bitmap.dispose
@ps_back.dispose
@ps_back.bitmap.dispose
@ps.dispose
@ps.bitmap.dispose
@ps_hy.dispose
@ps_hy.bitmap.dispose
#----------------------------------进度条---------------------------#
# 设置主角位置
$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
# 在生成活动块
@spriteset.dispose
@spriteset = Spriteset_Map.new
# 处理过渡中的情况下
if $game_temp.transition_processing
# 清除过渡处理中标志
$game_temp.transition_processing = false
# 执行过渡
Graphics.transition(20)
end
# 执行地图设置的 BGM、BGS 的自动切换
$game_map.autoplay
# 设置画面
Graphics.frame_reset
# 刷新输入信息
Input.update
end
end

复制代码