【已解决】如何改写成菜单里的传送命令

金芒芒 · 发表于 2023-3-14 21:37:01

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有账号？注册会员

×

本帖最后由金芒芒于 2023-3-27 08:50 编辑

把when 0
      command_new_game
--------------------------------------------------------------------------------------------
改成 when 0
   command_地图_传送
end

  #--------------------------------------------------------------------------
  # 11111111111111 ● 命令 :地图传送 when 0
  #--------------------------------------------------------------------------
  def command_地图_传送
   传送到5号地图x=1 y=1
end
---------------------------------------------------------------------------------------------

[pre lang="ruby"]  def update_command
if Input.trigger?(Input::C)
   Notification.clear
   # 命令窗口的光标位置的分支
   case @command_window.index
   when 0  # new game
      command_new_game
   when 1  # tutorial
      command_tutorial
   when 2  # continue
      command_continue
   when 3  # historyical
      command_historical_battle
   when 4  # custom battle自定义战斗
      command_custom_battle
   when 5  # setting
      command_setting
   when 6  # shutdown
      command_shutdown
   end[/pre]

qq634488405 · 发表于 2023-3-15 08:31:51

$game_map.setup(5) # 设置5号地图
$game_player.moveto(1,1) # 移动至1，1
$game_player.turn_down # 主角朝下，如需其他朝向参考Game_Character内相关方法
$game_player.straighten # 姿势矫正

金芒芒 · 发表于 2023-3-15 11:11:13

本帖最后由金芒芒于 2023-3-15 11:26 编辑

qq634488405 发表于 2023-3-15 08:31
$game_map.setup(5) # 设置5号地图
$game_player.moveto(1,1) # 移动至1，1
$game_player.turn_down # 主角 ...

command_new_game 改成 command_地图_传送
这样命令语句对吗 command_map_moveto

qq634488405 · 发表于 2023-3-16 08:30:48

金芒芒发表于 2023-3-15 11:11
command_new_game 改成 command_地图_传送
这样命令语句对吗 command_map_moveto ...

在地图跳转前有没有执行过$game_map=Game_Map.new，看看前后的脚本

金芒芒 · 发表于 2023-3-17 10:54:56

本帖最后由金芒芒于 2023-3-17 10:56 编辑

qq634488405 发表于 2023-3-16 08:30
在地图跳转前有没有执行过$game_map=Game_Map.new，看看前后的脚本

事件 $scene = Scene_Map1.new

class Scene_Map1
#--------------------------------------------------------------------------
# ● 住处理
#--------------------------------------------------------------------------
def main
# 战斗测试的情况下
if $BTEST
battle_test
return
end
# 载入数据库
$data_actors = load_data("Data/Actors.rxdata")
$data_classes = load_data("Data/Classes.rxdata")
$data_skills = load_data("Data/Skills.rxdata")
$data_items = load_data("Data/Items.rxdata")
$data_weapons = load_data("Data/Weapons.rxdata")
$data_armors = load_data("Data/Armors.rxdata")
$data_enemies = load_data("Data/Enemies.rxdata")
$data_troops = load_data("Data/Troops.rxdata")
$data_states = load_data("Data/States.rxdata")
$data_animations = load_data("Data/Animations.rxdata")
$data_tilesets = load_data("Data/Tilesets.rxdata")
$data_common_events = load_data("Data/CommonEvents.rxdata")
$data_system = load_data("Data/System.rxdata")
# 生成系统对像
$game_system = Game_System.new
$game_system_m = Game_System.new
# 判定继续的有效性
# 存档文件一个也不存在的时候也调查
# 有効为 @continue_enabled 为 true、無効为 false
$continue_enabled = false
for i in 0..3
if FileTest.exist?("Save#{i+1}.rxdata")
$continue_enabled = true
end
end
# 停止演奏 ME、BGS
Audio.me_stop
Audio.bgs_stop
Graphics.transition
# 执行过渡
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果画面被切换就中断循环
if $scene != self
break
end
end
# 装备过渡
Graphics.freeze
# 释放命令窗口
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
command_new_game
end
#--------------------------------------------------------------------------
# ● 命令 : 新游戏
#--------------------------------------------------------------------------
def command_new_game
# 停止 BGM
Audio.bgm_stop
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
# 生成各种游戏对像
$game_temp = Game_Temp.new
$game_system = Game_System.new
$game_switches = Game_Switches.new
$game_variables = Game_Variables.new
$game_self_switches = Game_SelfSwitches.new
#$game_screen = Game_Screen.new
$game_actors = Game_Actors.new
$game_party = Game_Party.new
$game_troop = Game_Troop.new
$game_map = Game_Map.new
$game_player = Game_Player.new
# 设置初期同伴位置
$game_party.setup_starting_members
# 设置初期位置的地图
$game_map.setup(5)
# 主角向初期位置移动
$game_player.moveto(6, 4)#修改可视地图大小
# 刷新主角
$game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
$game_map.autoplay
# 刷新地图 (执行并行事件)
$game_map.update
# 切换地图画面
$scene = Scene_Map.new
# $game_screen.weather(3,40, 0)
# $game_player.transparent = true
$game_screen.start_tone_change(Tone.new(0,0,0,0),0)#修改地图光照度
$game_switches[11] = true
$game_switches[15] = true
$scene.efs_title_main
end
#--------------------------------------------------------------------------
# ● 命令 : 继续
#--------------------------------------------------------------------------
def command_continue
# 继续无效的情况下
unless @continue_enabled
# 演奏无效 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到读档画面
$scene = Scene_Load.new
end
#--------------------------------------------------------------------------
# ● 命令 : 退出
#--------------------------------------------------------------------------
def command_shutdown
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# BGM、BGS、ME 的淡入淡出
Audio.bgm_fade(800)
Audio.bgs_fade(800)
Audio.me_fade(800)
# 退出
$scene = nil
end
#--------------------------------------------------------------------------
# ● 战斗测试
#--------------------------------------------------------------------------
def battle_test
# 载入数据库 (战斗测试用)
$data_actors = load_data("Data/BT_Actors.rxdata")
$data_classes = load_data("Data/BT_Classes.rxdata")
$data_skills = load_data("Data/BT_Skills.rxdata")
$data_items = load_data("Data/BT_Items.rxdata")
$data_weapons = load_data("Data/BT_Weapons.rxdata")
$data_armors = load_data("Data/BT_Armors.rxdata")
$data_enemies = load_data("Data/BT_Enemies.rxdata")
$data_troops = load_data("Data/BT_Troops.rxdata")
$data_states = load_data("Data/BT_States.rxdata")
$data_animations = load_data("Data/BT_Animations.rxdata")
$data_tilesets = load_data("Data/BT_Tilesets.rxdata")
$data_common_events = load_data("Data/BT_CommonEvents.rxdata")
$data_system = load_data("Data/BT_System.rxdata")
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
# 生成各种游戏对像
$game_temp = Game_Temp.new
$game_system = Game_System.new
$game_switches = Game_Switches.new
$game_variables = Game_Variables.new
$game_self_switches = Game_SelfSwitches.new
$game_screen = Game_Screen.new
$game_actors = Game_Actors.new
$game_party = Game_Party.new
$game_troop = Game_Troop.new
$game_map = Game_Map.new
$game_player = Game_Player.new
# 设置战斗测试用同伴
$game_party.setup_battle_test_members
# 设置队伍 ID、可以逃走标志、战斗背景
$game_temp.battle_troop_id = $data_system.test_troop_id
$game_temp.battle_can_escape = true
$game_map.battleback_name = $data_system.battleback_name
# 演奏战斗开始 BGM
$game_system.se_play($data_system.battle_start_se)
# 演奏战斗 BGM
$game_system.bgm_play($game_system.battle_bgm)
# 切换到战斗画面
$scene = Scene_Battle.new
end
end

复制代码

#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　处理标题画面的类。
#==============================================================================
class Scene_Map
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def efs_title_main
# 战斗测试的情况下
if $BTEST
battle_test
return
end
# 载入数据库
$data_actors = load_data("Data/Actors.rxdata")
$data_classes = load_data("Data/Classes.rxdata")
$data_skills = load_data("Data/Skills.rxdata")
$data_items = load_data("Data/Items.rxdata")
$data_weapons = load_data("Data/Weapons.rxdata")
$data_armors = load_data("Data/Armors.rxdata")
$data_enemies = load_data("Data/Enemies.rxdata")
$data_troops = load_data("Data/Troops.rxdata")
$data_states = load_data("Data/States.rxdata")
$data_animations = load_data("Data/Animations.rxdata")
$data_tilesets = load_data("Data/Tilesets.rxdata")
$data_common_events = load_data("Data/CommonEvents.rxdata")
$data_system = load_data("Data/System.rxdata")
# 生成系统对像
$game_system = Game_System.new
$game_system_m = Game_System.new
# 判定继续的有效性
# 存档文件一个也不存在的时候也调查
# 有効为 @continue_enabled 为 true、无效为 false
@continue_enabled = false
latest_time = Time.at(0)
for i in 1 ..KGH::SAVE_PAGEMAX*10+10
if FileTest.exist?(KGH::DIR+"Save#{i}.rxdata")
@continue_enabled = true
file = File.open(KGH::DIR+"Save#{i}.rxdata", "r")
time_stamp = file.mtime
characters = Marshal.load(file)
frame_count = Marshal.load(file)
game_system = Marshal.load(file)
if file.mtime > latest_time
latest_time = file.mtime
$game_system = game_system
end
file.close
end
end
$game_system_m = $game_system
#--------------------------------------------------------------------------
# ●窗口部分
#--------------------------------------------------------------------------
# 生成标题图形
#@sprite = Sprite.new
#@sprite.bitmap = RPG::Cache.title($data_system.title_name)
#@sprite.z = 0
#@title = Sprite.new
#@title.bitmap = RPG::Cache.title("TITLE")
#@title.z = 20
#@title.zoom_x = 2.0
#@title.zoom_y = 2.0
#@title.x -= @title.bitmap.width
# 生成命令窗口
@command_window = Window_Title_Command.new
@command_window.z = 20
# @logo = Sprite.new
# @logo.bitmap = RPG::Cache.title("logo_conor")
# @logo.z = 950
# @bar_top = Sprite.new
# @bar_top.x = 0
# @bar_top.y = -35
# @bar_top.bitmap = RPG::Cache.title("black-bar")
# @bar_top.z = 900
# @bar_down = Sprite.new
# @bar_down.x = 0
# @bar_down.y = 480-15
# @bar_down.bitmap = RPG::Cache.title("black-bar")
# @bar_down.z = 900
#
# version_num =
#
# version_num = 1.05
# @version_info = Sprite.new
# @version_info.bitmap = Bitmap.new(100, 25)
# @version_info.x = 640 - @version_info.bitmap.width
# @version_info.y = 480 - @version_info.bitmap.height
# @version_info.z = 999
# @version_info.bitmap.draw_text(0,0,100,25,"v. "+version_num.to_s)
#draw_text
# 继续为有效的情况下、光标停止在继续上
# 无效的情况下、继续的文字显示为灰色
if @continue_enabled
@command_window.index = 2
else
@command_window.disable_item(2)
end
# 演奏标题 BGM
$game_system.bgm_play($data_system.title_bgm)
# 停止演奏 ME、BGS
Audio.me_stop
Audio.bgs_stop
# 执行过渡
Graphics.transition
#while @title.x < 0
# Graphics.update
# Input.update
# @title.zoom_x -= 0.04
#@title.zoom_y -= 0.04
# @title.x += @title.bitmap.width/100*4
#end
# 主循环
# 生成活动块
@spriteset = Spriteset_Map.new
# 生成信息窗口
@message_window = Window_Message.new
# 执行过渡
# 执行过渡
Graphics.transition
loop do
# @scene_map.main
#画面、地图刷新
$game_system.update
$game_screen.update
$game_map.update
#各种刷新
@spriteset.update #if @spriteset!=nil
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
efs_title_update
# 如果画面被切换就中断循环
if $scene != self
break
end
end
Graphics.freeze
# 释放活动块
@spriteset.dispose
# 释放信息窗口
@message_window.dispose
# 标题画面切换中的情况下
# @logo.dispose
# 装备过渡
Graphics.freeze
# 释放命令窗口
@command_window.dispose
# 释放标题图形
#@sprite.dispose
#@title.dispose
# @bar_down.dispose
# @bar_top.dispose
# @version_info.dispose
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def efs_title_update
# 刷新命令窗口
if @command_window.active
@command_window.update
if @command_window.slide_over
update_command
end
end
end
end

复制代码

class Scene_Map
#--------------------------------------------------------------------------
# ● 刷新主菜单
#--------------------------------------------------------------------------
def update_command
if Input.trigger?(Input::C)
Notification.clear
# 命令窗口的光标位置的分支
case @command_window.index
when 0 # new game
command_new_game
when 1 # tutorial
command_tutorial
when 2 # continue
command_continue
when 3 # historyical
command_historical_battle
when 4 # custom battle自定义战斗
command_custom_battle
when 5 # setting
command_setting
when 6 # shutdown
command_shutdown
end
end
end
#--------------------------------------------------------------------------
# ● 命令 : 新游戏
#--------------------------------------------------------------------------
def command_new_game
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 停止 BGM
Audio.bgm_stop
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
# 生成各种游戏对像
$game_temp = Game_Temp.new
$game_system = Game_System.new
$game_switches = Game_Switches.new
$game_variables = Game_Variables.new
$game_self_switches = Game_SelfSwitches.new
$game_screen = Game_Screen.new
$game_actors = Game_Actors.new
$game_party = Game_Party.new
$game_troop = Game_Troop.new
$game_map = Game_Map.new
$game_player = Game_Player.new
# 设置初期同伴位置
$game_party.setup_starting_members
# 设置初期位置的地图
$game_map.setup(20)
# $game_map.setup($data_system.start_map_id)
# 主角向初期位置移动
$game_player.moveto(20, 24)
# $game_player.moveto($data_system.start_x, $data_system.start_y)
# 刷新主角
$game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
$game_map.autoplay
# 刷新地图 (执行并行事件)
$game_map.update
# 切换地图画面
$scene = Scene_Map.new
end
# $game_party.setup_starting_members
# 设置初期位置的地图
# $game_map.setup(5)
# 主角向初期位置移动
# $game_player.moveto(6, 4)#修改可视地图大小
# 刷新主角
# $game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
# $game_map.autoplay
# 刷新地图 (执行并行事件)
# $game_map.update
# 切换地图画面
# $scene = Scene_Map.new
#--------------------------------------------------------------------------
# ● 命令 : 教程
#--------------------------------------------------------------------------
def command_tutorial
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 停止 BGM
Audio.bgm_stop
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
# 生成各种游戏对像
$game_temp = Game_Temp.new
$game_system = Game_System.new
$game_switches = Game_Switches.new
$game_variables = Game_Variables.new
$game_self_switches = Game_SelfSwitches.new
$game_screen = Game_Screen.new
$game_actors = Game_Actors.new
$game_party = Game_Party.new
$game_troop = Game_Troop.new
$game_map = Game_Map.new
$game_player = Game_Player.new
# 设置初期同伴位置
$game_party.setup_starting_members
$scene = Scene_Load_Bar.new(0,24,27,21)
# 设置初期位置的地图
$game_map.setup(24)
# 主角向初期位置移动
$game_player.moveto(27, 21)
# 刷新主角
$game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
$game_map.autoplay
# 刷新地图 (执行并行事件)
$game_map.update
# 切换地图画面
$scene = Scene_Map.new
end
#--------------------------------------------------------------------------
# ● 命令 : 继续
#--------------------------------------------------------------------------
def command_continue
# 继续无效的情况下
unless @continue_enabled
# 演奏无效 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到读档画面
# $scene = Scene_Load_Ex.new
load_file_initialize
#if ! @force_back or @force_back == nil
load_file_main
#p $game_map.id
$scene = Scene_Map.new
Graphics.update
efs_title_update
end
#--------------------------------------------------------------------------
# ● 命令 : 历史战役
#--------------------------------------------------------------------------
def command_historical_battle#定义命令历史字节
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
#$游戏系统。se播放（$数据系统。未指定文件或目录）
p "historical battle"#历史性战役
end
#--------------------------------------------------------------------------
# ● 命令 : 自定义战斗
#--------------------------------------------------------------------------
def command_custom_battle#定义命令_自定义战斗
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
#$游戏系统。se播放（$数据系统。未指定文件或目录
choose_map_main#选择主地图
map_info = @map_info#地图信息=@地图信息
#如果选择随机地图随机士兵
if ! @force_back and map_info[0] == -1#如果！@强制返回并地图信息[0]==-1
make_random_efs_game#生成随机efs_game
return
end
#---------------------------------------------------- ↑↓
#如果@强制后退或@强制后退==无
if ! @force_back or @force_back == nil
#自定义主战场(0,@地图信息[1],@地图信息[2])
custom_battle_main(0,@map_info[1],@map_info[2])
#团队选定部队=@选定部队
team_selected_troops = @selected_units
#如果@强制后退或@强制后退==无
if ! @force_back or @force_back == nil
#自定义主战场(1,@地图信息[1],@地图信息[2])
custom_battle_main(1,@map_info[1],@map_info[2])
#敌人选定部队=@选定部队
enermy_selected_troops = @selected_units
#如果@强制后退或@强制后退==无
if ! @force_back or @force_back == nil
choose_hero_main#选择英雄主
selected_hero = @selected_hero#选定的英雄=@选定的英雄
if ! @force_back or @force_back == nil
team_army = Game_Army_Slg.new(0)
enermy_army = Game_Army_Slg.new(1)
team_army.create_empty_army
enermy_army.create_empty_army
team_army.load_twoD_Array(team_selected_troops,selected_hero)
enermy_army.load_twoD_Array(enermy_selected_troops)
# 切换地图画面
#
team_army.set_groups_name
$custom_battle_next_fighter_team = team_army
$custom_battle_next_fighter_enermy = enermy_army
$custom_battle_next_map_id = map_info[0]
# 停止 BGM
Audio.bgm_stop
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
# 生成各种游戏对像
$game_temp = Game_Temp.new
$game_system = Game_System.new
$game_switches = Game_Switches.new
$game_variables = Game_Variables.new
$game_self_switches = Game_SelfSwitches.new
$game_screen = Game_Screen.new
$game_actors = Game_Actors.new
$game_party = Game_Party.new
$game_troop = Game_Troop.new
$game_map = Game_Map.new
$game_player = Game_Player.new
# 设置初期同伴位置
$game_party.setup_starting_members
# 设置初期位置的地图##############1356622
$game_map.setup(19)
# 主角向初期位置移动
$game_player.moveto(0, 0)
# 刷新主角
$game_player.refresh
# 执行地图设置的 BGM 与 BGS 的自动切换
$game_map.autoplay
# 刷新地图 (执行并行事件)
$game_map.update
# 切换地图画面
$scene = Scene_Map.new
# $scene = Scene_Map.new
#efs_title_main
else # fourth
@force_back = false
Graphics.update
efs_title_update
end
else # third
@force_back = false
Graphics.update
efs_title_update
end
else # second
@force_back = false
Graphics.update
efs_title_update
end
else #1st
@force_back = false
Graphics.update
efs_title_update
end
end
#--------------------------------------------------------------------------
# ● 命令 : 设置
#--------------------------------------------------------------------------
def command_setting
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
p "setting"
end
#--------------------------------------------------------------------------
# ● 命令 : 退出
#--------------------------------------------------------------------------
def command_shutdown
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# BGM、BGS、ME 的淡入淡出
Audio.bgm_fade(800)
Audio.bgs_fade(800)
Audio.me_fade(800)
# 退出
$scene = nil
end
#--------------------------------------------------------------------------
# ● 战斗测试
#--------------------------------------------------------------------------
def battle_test
# 载入数据库 (战斗测试用)
$data_actors = load_data("Data/BT_Actors.rxdata")
$data_classes = load_data("Data/BT_Classes.rxdata")
$data_skills = load_data("Data/BT_Skills.rxdata")
$data_items = load_data("Data/BT_Items.rxdata")
$data_weapons = load_data("Data/BT_Weapons.rxdata")
$data_armors = load_data("Data/BT_Armors.rxdata")
$data_enemies = load_data("Data/BT_Enemies.rxdata")
$data_troops = load_data("Data/BT_Troops.rxdata")
$data_states = load_data("Data/BT_States.rxdata")
$data_animations = load_data("Data/BT_Animations.rxdata")
$data_tilesets = load_data("Data/BT_Tilesets.rxdata")
$data_common_events = load_data("Data/BT_CommonEvents.rxdata")
$data_system = load_data("Data/BT_System.rxdata")
# 重置测量游戏时间用的画面计数器
Graphics.frame_count = 0
# 生成各种游戏对像
$game_temp = Game_Temp.new
$game_system = Game_System.new
$game_switches = Game_Switches.new
$game_variables = Game_Variables.new
$game_self_switches = Game_SelfSwitches.new
$game_screen = Game_Screen.new
$game_actors = Game_Actors.new
$game_party = Game_Party.new
$game_troop = Game_Troop.new
$game_map = Game_Map.new
$game_player = Game_Player.new
# 设置战斗测试用同伴
$game_party.setup_battle_test_members
# 设置队伍 ID、可以逃走标志、战斗背景
$game_temp.battle_troop_id = $data_system.test_troop_id
$game_temp.battle_can_escape = true
$game_map.battleback_name = $data_system.battleback_name
# 演奏战斗开始 BGM
$game_system.se_play($data_system.battle_start_se)
# 演奏战斗 BGM
$game_system.bgm_play($game_system.battle_bgm)
# 切换到战斗画面
$scene = Scene_Battle.new
end
end

复制代码

#==============================================================================
# ■ Window_Title_Command
#------------------------------------------------------------------------------
# 　标题的主菜单。
#==============================================================================
class Window_Title_Command < Window_Base
attr_reader :index
attr_reader :slide_over #滚动结束
#start load option exit
#--------------------------------------------------------------------------
# ● 初始化对像
# actor : 角色
#--------------------------------------------------------------------------
def initialize(index=0)
@index = index
#选项背景
@button_base = Sprite.new
@button_base.bitmap = RPG::Cache.title("title-base-light")
@button_base.x = 1200-680+409
@button_base.y = 56
@cur_back = []
@text_list = []
@able = []
#光标
@item_max = 7
for i in 0...@item_max
@able[i] = true
@cur_back[i] = Sprite.new
@cur_back[i].bitmap = RPG::Cache.title("title-normal")#+i.to_s)
@cur_back[i].x = 1200-680+435
@cur_back[i].y = 81+45*i
@text_list[i] = Sprite.new
@text_list[i].bitmap = RPG::Cache.title("index-"+i.to_s)
@text_list[i].x = 1200-680+435 + 47
@text_list[i].y = 81+45*i + 9
end
@slide_over = false
super(0, 0, 0, 0)
self.opacity = 0
self.active = true
end
def origin_x
return 1200-680+435
end
def origin_y
return 81
end
#--------------------------------------------------------------------------
# ● 一些方法的重载
#--------------------------------------------------------------------------
def dispose
@button_base.dispose
for i in 0...@item_max
@cur_back[i].dispose
@text_list[i].dispose
end
super
end
def z=(z)
super(z)
@button_base.z=z
for i in 0...@item_max
@cur_back[i].z=z
@text_list[i].z=z
end
end
def visible=(visible)
super(visible)
@button_base.visible = visible
for i in 0...@item_max
@cur_back[i].visible = visible
@text_list[i].visible = visible
end
end
def index=(index)
@index=index
end
def disable_item(i)
end
#--------------------------------------------------------------------------
# ● 光标不被选中状态
#--------------------------------------------------------------------------
def back_normal(index)
if index != -1
@cur_back[index].bitmap = RPG::Cache.title("title-normal")#+i.to_s)
@text_list[index].bitmap = RPG::Cache.title("index-"+index.to_s)
end
end
def disable_item(index)
@cur_back[index].bitmap = RPG::Cache.title("title-pressed")#+i.to_s)
@able[index] = false
@text_list[index].bitmap = RPG::Cache.title("index-"+index.to_s+"-black")
#@cur_back[index].color = Color.new(0,0,0,128)
end
#--------------------------------------------------------------------------
# ● 更新光标矩形
#--------------------------------------------------------------------------
def update_cursor_rect
# 光标位置不满 0 的情况下
if @index < 0
for i in 0...@item_max
back_normal(i)
end
return
end
@cur_back[@index].bitmap = RPG::Cache.title("title-highlight")#+i.to_s)
@text_list[@index].bitmap = RPG::Cache.title("index-"+index.to_s+"-hl")
=begin
speed = 40#闪烁速度
if Graphics.frame_count % speed
< speed/2
@cur_back[@index].color = Color.new(255,255,255,100+(Graphics.frame_count%speed)*2)
else
@cur_back[@index].color = Color.new(255,255,255,100+(speed-Graphics.frame_count%speed)*2)
end
=end
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
#@cur_back[i].x = 644#640-188
@slide_over = true
if self.active
# 方向键左被按下的情况下
if Input.repeat?(Input::DOWN)
$game_system.se_play($data_system.cursor_se)
back_normal(@index)
@index = (@index+1)%@item_max
until @able[@index]
@index = (@index+1)%@item_max
end
end
# 方向键右被按下的情况下
if Input.repeat?(Input::UP)
$game_system.se_play($data_system.cursor_se)
back_normal(@index)
@index = (@index+@item_max-1)%@item_max
until @able[@index]
@index = (@index+@item_max-1)%@item_max
end
end
end
# 刷新光标矩形
update_cursor_rect if @slide_over
end
end

复制代码

qq634488405 · 发表于 2023-3-21 08:49:09

金芒芒发表于 2023-3-15 11:11
command_new_game 改成 command_地图_传送
这样命令语句对吗 command_map_moveto ...

出错的那个复制事件脚本

金芒芒 · 发表于 2023-3-21 11:38:10

qq634488405 发表于 2023-3-21 08:49
出错的那个复制事件脚本

#==============================================================================
# ☆★☆ 提取放置物脚本（强化） ☆★☆
#------------------------------------------------------------------------------
# - 美兽
# - 2007.4.12
#------------------------------------------------------------------------------
#  爱护环境，人人有责，现实中切勿乱丢垃圾。
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
#  脚本原理：
#  是从仓库地图中提取事件，将其拷贝放入指定的位置，
#  依此达成随时随地生成新事件的功能，如此可节省大量用RGSS编写事件所消耗的体力，很多地方写的
#  很保守，尽量减少冲突几率。。
#  此为强化版，可实现新事件的保存，但代价是冲突的随之增大，若只想单纯实现ARPG
#  一类的物品掉落，场所移动后便清除，请使用简洁版。
#------------------------------------------------------------------------------
=begin
                              Note：

一：生成物品主方法：
Drop_Item.make_events(map_id,event_id,item_x,item_y,save=false)
map_id ：仓库地图的ID。
event_id ：仓库中对应事件的ID。
item_x、item_y ：新事件的X与Y坐标
save : 是否存储标志;
         默认为false，即不存储，场所移动等转换场景后事件会消失;
         true 为存储，取档、关机、登火星，返回后事件仍存在。

二：删除事件方法：
事件名若包含"delete"字段，则执行完毕会立即自我清除;
注：任何事件皆如此。

三：必掌握语句：
$game_map.events[@event_id]
$game_player
事件的脚本使用，表示“本事件”和“角色”，主要为取得事件的坐标，
取得“本事件”X与Y坐标：$game_map.events[@event_id].x
                        $game_map.events[@event_id].y
取得“角色”X与Y坐标：$game_player.x
                        $game_player.y
例如，在某事件左侧生成2号地图的2号事件并永久存储,写法如下。
x = $game_map.events[@event_id].x
y = $game_map.events[@event_id].y
Drop_Item.make_events(2,2,x-1,y,true)

四：备注：
此脚本用法十分灵活，种植、建设、舍弃、掉宝等功能都可用以达成。

=end
#==============================================================================

module Drop_Item


  def self.pre_load
$temp = Marshal.load(Marshal.dump(self.map_data_load(9)))
  end

  def self.make_events_EFS(item_x,item_y)
   return unless self.is_map?
   if !$game_system.map_events_number
      $game_system.map_events_number = {}
   end
   sum = $game_system.map_events_number
   m_id = $game_map.map_id
   sum[m_id] == nil ? sum[m_id] = 2000 : sum[m_id] += 1

   new_event_id = sum[m_id]

   $temp.events[1].id = new_event_id
   $temp.events[1].x,$temp.events[1].y = item_x,item_y
   #####
   $game_map.events[new_event_id] = Game_Event.new(m_id,$temp.events[1])
   #####
#  refresh_map
  end



  def self.make_events(map_id,event_id,item_x,item_y,save=false)
   return unless self.is_map?
   map = self.map_data_load(map_id)
   temp = Marshal.load(Marshal.dump(map))

   if !$game_system.map_events_number
      $game_system.map_events_number = {}
   end
   sum = $game_system.map_events_number
   m_id = $game_map.map_id
   sum[m_id] == nil ? sum[m_id] = 2000 : sum[m_id] += 1

   new_event_id = sum[m_id]

   temp.events[event_id].id = new_event_id
   temp.events[event_id].x,temp.events[event_id].y = item_x,item_y
   #####
   $game_map.events[new_event_id] = Game_Event.new(m_id,temp.events[event_id])
   #####
   if save
      now_map = self.map_data_load(m_id)
      now_map.events[new_event_id] = temp.events[event_id]
      self.map_data_save(m_id,now_map)
   end
   refresh_map
  end

  def self.map_data_init
   for i in 1..999
      begin
         map = load_data(sprintf("Data/Map%03d.rxdata", i))
      rescue Errno::ENOENT
         next
      end
      $game_system.map_data = Marshal.load(Marshal.dump(map))
   end
  end

  def self.map_data_save(map_id,event)
   $game_system.map_data[$game_map.map_id] = event
  end

  def self.map_data_load(map_id)
   if !$game_system.map_data
      $game_system.map_data = {}
      self.map_data_init
   end
   return $game_system.map_data[map_id]
  end

  def self.delete_events(event_id)
   return unless self.is_map?
   $game_map.events.delete(event_id)
   self.refresh_map
  end

  def self.refresh_map
   return unless self.is_map?
   $scene.spriteset.dispose
   $scene.spriteset = Spriteset_Map.new
  end

  def self.is_map?
   (return true) if $scene.is_a?(Scene_Map)
   return false
  end

end

class Game_Map

  def setup(map_id)
   @map_id = map_id
   @map = Drop_Item.map_data_load(@map_id)
   #复制事件出错
   tileset = $data_tilesets[@map.tileset_id]
   @tileset_name = tileset.tileset_name
   @autotile_names = tileset.autotile_names
   @panorama_name = tileset.panorama_name
   @panorama_hue = tileset.panorama_hue
   @fog_name = tileset.fog_name
   @fog_hue = tileset.fog_hue
   @fog_opacity = tileset.fog_opacity
   @fog_blend_type = tileset.fog_blend_type
   @fog_zoom = tileset.fog_zoom
   @fog_sx = tileset.fog_sx
   @fog_sy = tileset.fog_sy
   @battleback_name = tileset.battleback_name
   @passages = tileset.passages
   @priorities = tileset.priorities
   @terrain_tags = tileset.terrain_tags
   @display_x = 0
   @display_y = 0
   @need_refresh = false
   @events = {}
   for i in @map.events.keys
      @events = Game_Event.new(@map_id, @map.events)
   end
   @common_events = {}
   for i in 1...$data_common_events.size
      @common_events = Game_CommonEvent.new(i)
   end
   @fog_ox = 0
   @fog_oy = 0
   @fog_tone = Tone.new(0, 0, 0, 0)
   @fog_tone_target = Tone.new(0, 0, 0, 0)
   @fog_tone_duration = 0
   @fog_opacity_duration = 0
   @fog_opacity_target = 0
   @scroll_direction = 2
   @scroll_rest = 0
   @scroll_speed = 4
  end

end

class Game_System

  attr_accessor :map_events_number
  attr_accessor :map_data

end

class Scene_Map

  attr_accessor :spriteset

end

金芒芒 · 发表于 2023-3-21 11:42:55

本帖最后由金芒芒于 2023-3-21 11:50 编辑

qq634488405 发表于 2023-3-21 08:49
出错的那个复制事件脚本

其实我就想要通过窗口的第一个命令传送到另一个地图，以为是拿了完成任务的物品，通过物品才可以到下一关，现在的脚本是重新加载了。去了另一个地图物品是被刷新走了

[pre lang="ruby"]#==============================================================================
# ■ Window_Title_Command
#------------------------------------------------------------------------------
# 　标题的主菜单。
#==============================================================================
class Window_Title_Command < Window_Base
  attr_reader :index
  attr_reader :slide_over #滚动结束
  #start load option exit
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #    actor : 角色
  #--------------------------------------------------------------------------
  def initialize(index=0)
@index = index
#选项背景
@button_base = Sprite.new
@button_base.bitmap = RPG::Cache.title("title-base-light")
@button_base.x = 1200-680+409
@button_base.y = 56

@cur_back = []
@text_list = []
@able = []
#光标
@item_max = 7
for i in 0...@item_max
   @able = true
   @cur_back = Sprite.new
   @cur_back.bitmap = RPG::Cache.title("title-normal")#+i.to_s)
   @cur_back.x = 1200-680+435
   @cur_back.y = 81+45*i
   @text_list = Sprite.new
   @text_list.bitmap = RPG::Cache.title("index-"+i.to_s)
   @text_list.x = 1200-680+435 + 47
   @text_list.y = 81+45*i + 9
end
@slide_over = false
super(0, 0, 0, 0)
self.opacity = 0
self.active = true
  end
  def origin_x
return 1200-680+435
  end
  def origin_y
return 81
  end
  #--------------------------------------------------------------------------
  # ● 一些方法的重载
  #--------------------------------------------------------------------------
  def dispose
@button_base.dispose
for i in 0...@item_max
   @cur_back.dispose
   @text_list.dispose
end
super
  end

  def z=(z)
super(z)
@button_base.z=z
for i in 0...@item_max
   @cur_back.z=z
   @text_list.z=z
end
  end
  def visible=(visible)
super(visible)
@button_base.visible = visible
for i in 0...@item_max
   @cur_back.visible = visible
   @text_list.visible = visible
end
  end
  def index=(index)
@index=index
  end
  def disable_item(i)
  end
  #--------------------------------------------------------------------------
  # ● 光标不被选中状态
  #--------------------------------------------------------------------------
  def back_normal(index)
if index != -1
   @cur_back[index].bitmap = RPG::Cache.title("title-normal")#+i.to_s)
   @text_list[index].bitmap = RPG::Cache.title("index-"+index.to_s)
end
  end
  def disable_item(index)
@cur_back[index].bitmap = RPG::Cache.title("title-pressed")#+i.to_s)
@able[index] = false
@text_list[index].bitmap = RPG::Cache.title("index-"+index.to_s+"-black")
#@cur_back[index].color = Color.new(0,0,0,128)
  end
  #--------------------------------------------------------------------------
  # ● 更新光标矩形
  #--------------------------------------------------------------------------
  def update_cursor_rect
# 光标位置不满 0 的情况下
if @index < 0
   for i in 0...@item_max
      back_normal(i)
   end
   return
end
@cur_back[@index].bitmap = RPG::Cache.title("title-highlight")#+i.to_s)
@text_list[@index].bitmap = RPG::Cache.title("index-"+index.to_s+"-hl")
=begin
speed = 40#闪烁速度
if Graphics.frame_count % speed
   < speed/2
   @cur_back[@index].color = Color.new(255,255,255,100+(Graphics.frame_count%speed)*2)
else
   @cur_back[@index].color = Color.new(255,255,255,100+(speed-Graphics.frame_count%speed)*2)
end
=end

  end
  #--------------------------------------------------------------------------
  # ● 刷新画面
  #--------------------------------------------------------------------------
  def update
#@cur_back.x = 644#640-188
   @slide_over = true

if self.active
   # 方向键左被按下的情况下
   if Input.repeat?(Input::DOWN)
      $game_system.se_play($data_system.cursor_se)
      back_normal(@index)
      @index = (@index+1)%@item_max
      until @able[@index]
      @index = (@index+1)%@item_max
      end
   end
   # 方向键右被按下的情况下
   if Input.repeat?(Input::UP)
      $game_system.se_play($data_system.cursor_se)
      back_normal(@index)
      @index = (@index+@item_max-1)%@item_max
      until @able[@index]
      @index = (@index+@item_max-1)%@item_max
      end
   end
end
# 刷新光标矩形
update_cursor_rect if @slide_over
  end

end
[/pre]

或者按下x键开启关闭class Window_Title_Command < Window_Base也可以

qq634488405 · 发表于 2023-3-22 09:08:00

  def self.map_data_init
   for i in 1..999
      begin
         map = load_data(sprintf("Data/Map%03d.rxdata", i))
      rescue Errno::ENOENT
         next
      end
      $game_system.map_data = Marshal.load(Marshal.dump(map))
   end
  end

  def self.map_data_save(map_id,event)
   $game_system.map_data[$game_map.map_id] = event
  end

  def self.map_data_load(map_id)
   if !$game_system.map_data
      $game_system.map_data = {}
      self.map_data_init
   end
   return $game_system.map_data[map_id]
  end

应该是那个Drop_item脚本的问题，这里读取所有地图数据保存到$game_system.map_data的哈希表，但保存的时候用的$game_system.map_data = Marshal.load(Marshal.dump(map))，直接把地图数据保存到map_data了，试试改为$game_system.map_data[i] = Marshal.load(Marshal.dump(map))

金芒芒 · 发表于 2023-3-22 13:59:07

本帖最后由金芒芒于 2023-3-22 14:03 编辑

qq634488405 发表于 2023-3-22 09:08
def self.map_data_init
for i in 1..999
begin

$game_system.map_data = Marshal.load(Marshal.dump(map))，原来脚本就有个，我复制张贴就没有了好乌龙啊
不过这个作用很大看来你是个大佬啊，
但是窗口命令还是不能传送

[已经解决] 【已解决】如何改写成菜单里的传送命令

加入我们，或者，欢迎回来。