文字版主菜单~~

zhong · 发表于 2007-2-23 06:20:12

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

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

x

这个菜单是我看到了亿万星辰的签名后试着做的,当时它让我想起多年以前打过的金庸群侠传,于是我就尝试看自己能不能做一个类似的....我脚本不是很好,所以可能写的不够简洁,而且这个菜单还比不上默认的华丽,就是一个彻头彻尾的文字版 =_=~~这个东西我想应该有bug,如果发现了请不吝指出~~谢谢~~(里面的"遣散"功能需10号开关打开时才能用)
截图:

范例:http://rpg.blue/upload_program/files/文字主菜单.rar

里面的主要脚本是这个,不过直接放到游戏去会出错,还要在其他脚本做一些简单调整,具体看范例..

#==============================================================================
# ■ Scene_Menu
#------------------------------------------------------------------------------
# 　处理菜单画面的类。
#==============================================================================
class Scene_Menu
#--------------------------------------------------------------------------
# ● 初始化对像
# menu_index : 命令光标的初期位置
#--------------------------------------------------------------------------
def initialize(menu_index = 0)
@menu_index = menu_index
end
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
######################################################################
@switches = 10 #控制是否启用队伍遣散的开关
######################################################################
# 生成命令窗口
s1 = $data_system.words.item
s2 = $data_system.words.skill
s3 = $data_system.words.equip
s4 = "状态"
s5 = "遣散"
s6 = "系统"
@command_window = Window_Command.new(80, [s1, s2, s3, s4, s5,s6])
@command_window.index = @menu_index
@command_window.opacity = 150
@command_window.y =30
@command_window.x =30
#窗口在角色位置附近
#@command_window.x = $game_player.screen_x - 90
#@command_window.y = $game_player.screen_y - 200
#生成地图背景,透明窗口用
@spriteset = Spriteset_Map.new
# 同伴人数为 0 的情况下
if $game_party.actors.size == 0
# 物品、特技、装备、状态无效化
@command_window.disable_item(0)
@command_window.disable_item(1)
@command_window.disable_item(2)
@command_window.disable_item(3)
end
# 执行过渡
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果切换画面就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
# 释放窗口
@command_window.dispose
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
# 刷新窗口
@command_window.update
# 命令窗口被激活的情况下: 调用 update_command
if @command_window.active
update_command
return
end
end
#--------------------------------------------------------------------------
# ● 刷新画面 (命令窗口被激活的情况下)
#--------------------------------------------------------------------------
def update_command
#定义储存角色名字的数组,用以制作动态选择框
@a_name = []
for i in 0...$game_party.actors.size
actor = $game_party.actors[i]
@a_name.push(actor.name)
end
# 按下 B 键的情况下
if Input.trigger?(Input::B)
# 演奏取消 SE
$game_system.se_play($data_system.cancel_se)
# 切换的地图画面
$scene = Scene_Map.new
return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 同伴人数为 0、存档、游戏结束以外的场合
if $game_party.actors.size == 0 and @command_window.index < 4
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 命令窗口的光标位置分支
case @command_window.index
when 0 # 物品
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到物品画面
$scene = Scene_Item.new
when 1 # 特技
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor = Window_Command.new(160,@a_name)#生成角色选择窗口
@command_actor.opacity = 150
@command_actor.x = 110
@command_actor.y = 45
# 激活角色选择窗口窗口
@command_window.active = false
@command_actor.active = true
#角色名字窗口被激活时
if@command_actor.active
update_command_actor
return
end
when 2 # 装备
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor = Window_Command.new(160,@a_name)#生成角色选择窗口
@command_actor.opacity = 150
@command_actor.x =110
@command_actor.y = 77
# 激活角色选择窗口窗口
@command_window.active = false
@command_actor.active = true
#角色名字窗口被激活时
if @command_actor.active
update_command_actor
return
end
when 3 # 状态
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor = Window_Command.new(160,@a_name)#生成角色选择窗口
@command_actor.opacity = 150
@command_actor.x = 110
@command_actor.y = 109
# 激活角色选择窗口窗口
@command_window.active = false
@command_actor.active = true
#角色名字窗口被激活时
if@command_actor.active
update_command_actor
return
end
when 4 #遣散
# 开关关闭时和队伍人数小于1时的情况下
if $game_switches[@switches] == false
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
@l_name = []
for i in 1...$game_party.actors.size
actor = $game_party.actors[i]
@l_name.push(actor.name)
end
if @l_name == [] #如果只有1号角色时
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
else
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor = Window_Command.new(160,@l_name)#生成角色选择窗口
@command_actor.opacity = 150
@command_actor.x = 110
@command_actor.y = 141
#激活遣散角色窗口
@command_window.active = false
@command_actor.active = true
if@command_actor.active
update_command_actor
return
end
end
when 5 # 系统
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor = Window_Command.new(160,["存档","读档","退出"])#生成系统窗口
@command_actor.opacity = 150
@command_actor.x = 110
@command_actor.y = 173
#激活遣散角色窗口
@command_window.active = false
@command_actor.active = true
if @command_actor.active
update_command_actor
return
end
end
return
end
end
####################################################################
#●第二级窗口循环
####################################################################
def update_command_actor
# 执行过渡
Graphics.transition
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
a_update
# 如果切换画面就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
# 释放窗口
@command_actor.dispose
end
#############################################################################
#●第二级窗口刷新
#############################################################################
def a_update
#刷新
@command_actor.update
# 按下 B 键的情况下
if Input.trigger?(Input::B)
# 演奏取消 SE
$game_system.se_play($data_system.cancel_se)
case @command_window.index
when 1 #特技
$scene = Scene_Menu.new(1)#切到文字菜单窗口的第2行(特技窗口)
when 2 #装备
$scene = Scene_Menu.new(2)#切到文字菜单窗口的第3行(装备窗口)
when 3 #状态
$scene = Scene_Menu.new(3)# 切换到状态框
when 4 #遣散
$scene = Scene_Menu.new(4)# 切换到遣散那行
when 5 #系统
$scene = Scene_Menu.new(5)#切换到系统那行
end
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 同伴人数为 0的场合
if $game_party.actors.size == 0
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
#状态窗口被激活的情况下: 调用 update_status
if @status = true
update_status
return
end
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor.active = false
@status = true
return
end
end
#--------------------------------------------------------------------------
# ● 刷新画面 (状态窗口被激活的情况下)
#--------------------------------------------------------------------------
def update_status
# 按下 B 键的情况下
if Input.trigger?(Input::B)
# 演奏取消 SE
$game_system.se_play($data_system.cancel_se)
# 激活命令窗口
@command_window.active = true
@command_actor.active = false
return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 命令窗口的光标位置分支
case @command_window.index
when 1 # 特技
# 本角色的行动限制在 2 以上的情况下
if $game_party.actors[@command_actor.index].restriction >= 2
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到特技画面
$scene = Scene_Skill.new(@command_actor.index)
when 2 # 装备
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换的装备画面
$scene = Scene_Equip.new(@command_actor.index)
when 3 # 状态
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到状态画面
$scene = Scene_Status.new(@command_actor.index)
when 4 #遣散
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
b = @command_actor.index + 1
#获取选框中角色的id
n = $game_party.actors[b].id
$game_party.remove_actor(n)
Audio.se_play("Audio/SE/013-Move01", 100, 100)#播放走的声效
$scene = Scene_Menu.new(4)
when 5 #系统
case @command_actor.index
when 0 #存档
# 禁止存档的情况下
if $game_system.save_disabled
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到存档画面
$scene = Scene_Save.new
when 1 #读档
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到存档画面
$scene = Scene_Load2.new
when 2 #退出
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到游戏结束画面
$scene = Scene_End.new
end
end
return
end
end
end

复制代码

zhong · 发表于 2007-2-23 06:20:12

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

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

x

这个菜单是我看到了亿万星辰的签名后试着做的,当时它让我想起多年以前打过的金庸群侠传,于是我就尝试看自己能不能做一个类似的....我脚本不是很好,所以可能写的不够简洁,而且这个菜单还比不上默认的华丽,就是一个彻头彻尾的文字版 =_=~~这个东西我想应该有bug,如果发现了请不吝指出~~谢谢~~(里面的"遣散"功能需10号开关打开时才能用)
截图:

范例:http://rpg.blue/upload_program/files/文字主菜单.rar

里面的主要脚本是这个,不过直接放到游戏去会出错,还要在其他脚本做一些简单调整,具体看范例..

#==============================================================================
# ■ Scene_Menu
#------------------------------------------------------------------------------
# 　处理菜单画面的类。
#==============================================================================
class Scene_Menu
#--------------------------------------------------------------------------
# ● 初始化对像
# menu_index : 命令光标的初期位置
#--------------------------------------------------------------------------
def initialize(menu_index = 0)
@menu_index = menu_index
end
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
######################################################################
@switches = 10 #控制是否启用队伍遣散的开关
######################################################################
# 生成命令窗口
s1 = $data_system.words.item
s2 = $data_system.words.skill
s3 = $data_system.words.equip
s4 = "状态"
s5 = "遣散"
s6 = "系统"
@command_window = Window_Command.new(80, [s1, s2, s3, s4, s5,s6])
@command_window.index = @menu_index
@command_window.opacity = 150
@command_window.y =30
@command_window.x =30
#窗口在角色位置附近
#@command_window.x = $game_player.screen_x - 90
#@command_window.y = $game_player.screen_y - 200
#生成地图背景,透明窗口用
@spriteset = Spriteset_Map.new
# 同伴人数为 0 的情况下
if $game_party.actors.size == 0
# 物品、特技、装备、状态无效化
@command_window.disable_item(0)
@command_window.disable_item(1)
@command_window.disable_item(2)
@command_window.disable_item(3)
end
# 执行过渡
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果切换画面就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
# 释放窗口
@command_window.dispose
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
# 刷新窗口
@command_window.update
# 命令窗口被激活的情况下: 调用 update_command
if @command_window.active
update_command
return
end
end
#--------------------------------------------------------------------------
# ● 刷新画面 (命令窗口被激活的情况下)
#--------------------------------------------------------------------------
def update_command
#定义储存角色名字的数组,用以制作动态选择框
@a_name = []
for i in 0...$game_party.actors.size
actor = $game_party.actors[i]
@a_name.push(actor.name)
end
# 按下 B 键的情况下
if Input.trigger?(Input::B)
# 演奏取消 SE
$game_system.se_play($data_system.cancel_se)
# 切换的地图画面
$scene = Scene_Map.new
return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 同伴人数为 0、存档、游戏结束以外的场合
if $game_party.actors.size == 0 and @command_window.index < 4
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 命令窗口的光标位置分支
case @command_window.index
when 0 # 物品
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到物品画面
$scene = Scene_Item.new
when 1 # 特技
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor = Window_Command.new(160,@a_name)#生成角色选择窗口
@command_actor.opacity = 150
@command_actor.x = 110
@command_actor.y = 45
# 激活角色选择窗口窗口
@command_window.active = false
@command_actor.active = true
#角色名字窗口被激活时
if@command_actor.active
update_command_actor
return
end
when 2 # 装备
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor = Window_Command.new(160,@a_name)#生成角色选择窗口
@command_actor.opacity = 150
@command_actor.x =110
@command_actor.y = 77
# 激活角色选择窗口窗口
@command_window.active = false
@command_actor.active = true
#角色名字窗口被激活时
if @command_actor.active
update_command_actor
return
end
when 3 # 状态
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor = Window_Command.new(160,@a_name)#生成角色选择窗口
@command_actor.opacity = 150
@command_actor.x = 110
@command_actor.y = 109
# 激活角色选择窗口窗口
@command_window.active = false
@command_actor.active = true
#角色名字窗口被激活时
if@command_actor.active
update_command_actor
return
end
when 4 #遣散
# 开关关闭时和队伍人数小于1时的情况下
if $game_switches[@switches] == false
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
@l_name = []
for i in 1...$game_party.actors.size
actor = $game_party.actors[i]
@l_name.push(actor.name)
end
if @l_name == [] #如果只有1号角色时
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
else
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor = Window_Command.new(160,@l_name)#生成角色选择窗口
@command_actor.opacity = 150
@command_actor.x = 110
@command_actor.y = 141
#激活遣散角色窗口
@command_window.active = false
@command_actor.active = true
if@command_actor.active
update_command_actor
return
end
end
when 5 # 系统
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor = Window_Command.new(160,["存档","读档","退出"])#生成系统窗口
@command_actor.opacity = 150
@command_actor.x = 110
@command_actor.y = 173
#激活遣散角色窗口
@command_window.active = false
@command_actor.active = true
if @command_actor.active
update_command_actor
return
end
end
return
end
end
####################################################################
#●第二级窗口循环
####################################################################
def update_command_actor
# 执行过渡
Graphics.transition
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
a_update
# 如果切换画面就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
# 释放窗口
@command_actor.dispose
end
#############################################################################
#●第二级窗口刷新
#############################################################################
def a_update
#刷新
@command_actor.update
# 按下 B 键的情况下
if Input.trigger?(Input::B)
# 演奏取消 SE
$game_system.se_play($data_system.cancel_se)
case @command_window.index
when 1 #特技
$scene = Scene_Menu.new(1)#切到文字菜单窗口的第2行(特技窗口)
when 2 #装备
$scene = Scene_Menu.new(2)#切到文字菜单窗口的第3行(装备窗口)
when 3 #状态
$scene = Scene_Menu.new(3)# 切换到状态框
when 4 #遣散
$scene = Scene_Menu.new(4)# 切换到遣散那行
when 5 #系统
$scene = Scene_Menu.new(5)#切换到系统那行
end
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 同伴人数为 0的场合
if $game_party.actors.size == 0
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
#状态窗口被激活的情况下: 调用 update_status
if @status = true
update_status
return
end
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
@command_actor.active = false
@status = true
return
end
end
#--------------------------------------------------------------------------
# ● 刷新画面 (状态窗口被激活的情况下)
#--------------------------------------------------------------------------
def update_status
# 按下 B 键的情况下
if Input.trigger?(Input::B)
# 演奏取消 SE
$game_system.se_play($data_system.cancel_se)
# 激活命令窗口
@command_window.active = true
@command_actor.active = false
return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 命令窗口的光标位置分支
case @command_window.index
when 1 # 特技
# 本角色的行动限制在 2 以上的情况下
if $game_party.actors[@command_actor.index].restriction >= 2
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到特技画面
$scene = Scene_Skill.new(@command_actor.index)
when 2 # 装备
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换的装备画面
$scene = Scene_Equip.new(@command_actor.index)
when 3 # 状态
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到状态画面
$scene = Scene_Status.new(@command_actor.index)
when 4 #遣散
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
b = @command_actor.index + 1
#获取选框中角色的id
n = $game_party.actors[b].id
$game_party.remove_actor(n)
Audio.se_play("Audio/SE/013-Move01", 100, 100)#播放走的声效
$scene = Scene_Menu.new(4)
when 5 #系统
case @command_actor.index
when 0 #存档
# 禁止存档的情况下
if $game_system.save_disabled
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到存档画面
$scene = Scene_Save.new
when 1 #读档
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到存档画面
$scene = Scene_Load2.new
when 2 #退出
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
# 切换到游戏结束画面
$scene = Scene_End.new
end
end
return
end
end
end

复制代码

天狼星1110 · 发表于 2007-2-23 06:23:17

对"sxxx"和"when xxx"的改动吧...应该算是十分简单的东东..
无论如何，有尝试总是好的{/qiang}继续加油呵{/qiang}探索无限
顺便汗一下这个标题

文字版主菜单~~

汗|||一开始还以为跟文字区的版主有关{/hx}

zhong · 发表于 2007-2-24 01:56:12

以下引用天狼星1110于2007-2-22 22:23:17的发言：

对"sxxx"和"when xxx"的改动吧...应该算是十分简单的东东..
无论如何，有尝试总是好的继续加油呵探索无限
顺便汗一下这个标题
文字版主菜单~~
汗|||一开始还以为跟文字区的版主有关

[本贴由作者于 2007-2-22 22:24:41 最后编辑]

嗯~~~~当时我写这个标题时也考虑过有人可能会误会是与文字区有关的东西~~~~{/gg}

无忧 · 发表于 2007-2-28 02:01:54

提示: 作者被禁止或删除内容自动屏蔽

柳柳 · 发表于 2007-2-28 02:04:22

汗，不知为什么看成了无字版主菜单，还以为是把文字全改用图片呢，想看看是否华丽……
后来发现只是自己眼花而已。{/gg}

楼主有没有兴趣尝试一下无字版主菜单？

zhong · 发表于 2007-2-28 02:24:52

以下引用柳柳于2007-2-27 18:04:22的发言：

汗，不知为什么看成了无字版主菜单，还以为是把文字全改用图片呢，想看看是否华丽……
后来发现只是自己眼花而已。

楼主有没有兴趣尝试一下无字版主菜单？

{/gg}无字版,我也曾考虑过,不过就算做出来也只会是一个中看不中用的东西,谁会为了一个菜单花费n张图片的空间啊~~~~~{/gg}

神思 · 发表于 2007-2-28 02:25:32

以下引用zhong于2007-2-27 18:24:52的发言：

以下引用柳柳于2007-2-27 18:04:22的发言：

汗，不知为什么看成了无字版主菜单，还以为是把文字全改用图片呢，想看看是否华丽……
后来发现只是自己眼花而已。

楼主有没有兴趣尝试一下无字版主菜单？

无字版,我也曾考虑过,不过就算做出来也只会是一个中看不中用的东西,谁会为了一个菜单花费n张图片的空间啊~~~~~

只要华丽的起来``会有人干的```~~{/dy}
LZ加油吧```~~~

zhong · 发表于 2007-2-28 02:32:58

呵呵~~~有空可以试试~~..{/cy}

帐号		自动登录	找回密码
密码			注册会员

文字版主菜单~~

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

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

RMVX自由创作大赛亚军

第2届短篇游戏比赛亚军

第5届短篇游戏比赛冠军

贵宾