【不是创意的创意】上下左右都能选择的脚本

精灵使者 · 发表于 2007-3-30 15:53:42

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

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

x

本帖最后由精灵使者于 2014-12-20 20:16 编辑

这个脚本特点我不用截图了。其实就是模仿以前的游戏的特点，4个键都能选择。
上=左，下=右，左=上，右=下，另外加入了左右循环功能，强烈推荐使用。

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
#---------------------------------------------------------------------------
#其实就是模仿以前的老游戏的特点，4个键都能选择菜单。
#上=左，下=右，左=上，右=下，另外加入了左右循环功能，强烈推荐使用。
#---------------------------------------------------------------------------
class Window_Selectable
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
super
# 可以移动光标的情况下
if self.active and @item_max > 0 and @index >= 0
# 方向键下被按下的情况下
if Input.repeat?(Input::DOWN)
# 列数不是 1 并且方向键的下的按下状态不是重复的情况、
# 或光标位置在(项目数-列数)之前的情况下
if (@column_max == 1 and Input.trigger?(Input::DOWN)) or
@index < @item_max - @column_max
# 光标向下移动
$game_system.se_play($data_system.cursor_se)
@index = (@index + @column_max) % @item_max
else
if @column_max >= 2 and @index == @item_max - 1
$game_system.se_play($data_system.cursor_se)
@index = -1
end
# 列数为 2 以上并且、光标位置在(项目数 - 1)之前的情况下
if @column_max >= 2 and @index < @item_max - 1
# 光标向右移动
$game_system.se_play($data_system.cursor_se)
@index += 1
end
end
end
# 方向键上被按下的情况下
if Input.repeat?(Input::UP)
# 列数不是 1 并且方向键的下的按下状态不是重复的情况、
# 或光标位置在列之后的情况下
if (@column_max == 1 and Input.trigger?(Input::UP)) or
@index >= @column_max
# 光标向上移动
$game_system.se_play($data_system.cursor_se)
@index = (@index - @column_max + @item_max) % @item_max
else
if @column_max >= 2 and @index == 0
$game_system.se_play($data_system.cursor_se)
@index = @item_max
end
# 列数为 2 以上并且、光标位置在 0 之后的情况下
if @column_max >= 2 and @index > 0
# 光标向左移动
$game_system.se_play($data_system.cursor_se)
@index -= 1
end
end
end
# 方向键右被按下的情况下
if Input.repeat?(Input::RIGHT)
if @column_max >= 2 and @index == @item_max - 1
$game_system.se_play($data_system.cursor_se)
@index = -1
end
# 列数为 2 以上并且、光标位置在(项目数 - 1)之前的情况下
if @column_max >= 2 and @index < @item_max - 1
# 光标向右移动
$game_system.se_play($data_system.cursor_se)
@index += 1
else
# 列数不是 1 并且方向键的下的按下状态不是重复的情况、
# 或光标位置在(项目数-列数)之前的情况下
if (@column_max == 1 and Input.trigger?(Input::RIGHT)) or
@index < @item_max - @column_max
# 光标向下移动
$game_system.se_play($data_system.cursor_se)
@index = (@index + @column_max) % @item_max
end
end
end
# 方向键左被按下的情况下
if Input.repeat?(Input::LEFT)
if @column_max >= 2 and @index == 0
$game_system.se_play($data_system.cursor_se)
@index = @item_max
end
# 列数为 2 以上并且、光标位置在 0 之后的情况下
if @column_max >= 2 and @index > 0
# 光标向左移动
$game_system.se_play($data_system.cursor_se)
@index -= 1
else
# 列数不是 1 并且方向键的下的按下状态不是重复的情况、
# 或光标位置在列之后的情况下
if (@column_max == 1 and Input.trigger?(Input::LEFT)) or
@index >= @column_max
# 光标向上移动
$game_system.se_play($data_system.cursor_se)
@index = (@index - @column_max + @item_max) % @item_max
end
end
end
# R 键被按下的情况下
if Input.repeat?(Input::R)
# 显示的最后行在数据中最后行上方的情况下
if self.top_row + (self.page_row_max - 1) < (self.row_max - 1)
# 光标向后移动一页
$game_system.se_play($data_system.cursor_se)
@index = [@index + self.page_item_max, @item_max - 1].min
self.top_row += self.page_row_max
end
end
# L 键被按下的情况下
if Input.repeat?(Input::L)
# 显示的开头行在位置 0 之后的情况下
if self.top_row > 0
# 光标向前移动一页
$game_system.se_play($data_system.cursor_se)
@index = [@index - self.page_item_max, 0].max
self.top_row -= self.page_row_max
end
end
end
# 刷新帮助文本 (update_help 定义了继承目标)
if self.active and @help_window != nil
update_help
end
# 刷新光标矩形
update_cursor_rect
end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

精灵使者 · 发表于 2007-3-30 15:53:42

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

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

x

这个脚本特点我不用截图了。其实就是模仿以前的游戏的特点，4个键都能选择。
上=左，下=右，左=上，右=下，另外加入了左右循环功能，强烈推荐使用。

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
#---------------------------------------------------------------------------
#其实就是模仿以前的老游戏的特点，4个键都能选择菜单。
#上=左，下=右，左=上，右=下，另外加入了左右循环功能，强烈推荐使用。
#---------------------------------------------------------------------------
class Window_Selectable
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
super
# 可以移动光标的情况下
if self.active and @item_max > 0 and @index >= 0
# 方向键下被按下的情况下
if Input.repeat?(Input::DOWN)
# 列数不是 1 并且方向键的下的按下状态不是重复的情况、
# 或光标位置在(项目数-列数)之前的情况下
if (@column_max == 1 and Input.trigger?(Input::DOWN)) or
@index < @item_max - @column_max
# 光标向下移动
$game_system.se_play($data_system.cursor_se)
@index = (@index + @column_max) % @item_max
else
if @column_max >= 2 and @index == @item_max - 1
$game_system.se_play($data_system.cursor_se)
@index = -1
end
# 列数为 2 以上并且、光标位置在(项目数 - 1)之前的情况下
if @column_max >= 2 and @index < @item_max - 1
# 光标向右移动
$game_system.se_play($data_system.cursor_se)
@index += 1
end
end
end
# 方向键上被按下的情况下
if Input.repeat?(Input::UP)
# 列数不是 1 并且方向键的下的按下状态不是重复的情况、
# 或光标位置在列之后的情况下
if (@column_max == 1 and Input.trigger?(Input::UP)) or
@index >= @column_max
# 光标向上移动
$game_system.se_play($data_system.cursor_se)
@index = (@index - @column_max + @item_max) % @item_max
else
if @column_max >= 2 and @index == 0
$game_system.se_play($data_system.cursor_se)
@index = @item_max
end
# 列数为 2 以上并且、光标位置在 0 之后的情况下
if @column_max >= 2 and @index > 0
# 光标向左移动
$game_system.se_play($data_system.cursor_se)
@index -= 1
end
end
end
# 方向键右被按下的情况下
if Input.repeat?(Input::RIGHT)
if @column_max >= 2 and @index == @item_max - 1
$game_system.se_play($data_system.cursor_se)
@index = -1
end
# 列数为 2 以上并且、光标位置在(项目数 - 1)之前的情况下
if @column_max >= 2 and @index < @item_max - 1
# 光标向右移动
$game_system.se_play($data_system.cursor_se)
@index += 1
else
# 列数不是 1 并且方向键的下的按下状态不是重复的情况、
# 或光标位置在(项目数-列数)之前的情况下
if (@column_max == 1 and Input.trigger?(Input::RIGHT)) or
@index < @item_max - @column_max
# 光标向下移动
$game_system.se_play($data_system.cursor_se)
@index = (@index + @column_max) % @item_max
end
end
end
# 方向键左被按下的情况下
if Input.repeat?(Input::LEFT)
if @column_max >= 2 and @index == 0
$game_system.se_play($data_system.cursor_se)
@index = @item_max
end
# 列数为 2 以上并且、光标位置在 0 之后的情况下
if @column_max >= 2 and @index > 0
# 光标向左移动
$game_system.se_play($data_system.cursor_se)
@index -= 1
else
# 列数不是 1 并且方向键的下的按下状态不是重复的情况、
# 或光标位置在列之后的情况下
if (@column_max == 1 and Input.trigger?(Input::LEFT)) or
@index >= @column_max
# 光标向上移动
$game_system.se_play($data_system.cursor_se)
@index = (@index - @column_max + @item_max) % @item_max
end
end
end
# R 键被按下的情况下
if Input.repeat?(Input::R)
# 显示的最后行在数据中最后行上方的情况下
if self.top_row + (self.page_row_max - 1) < (self.row_max - 1)
# 光标向后移动一页
$game_system.se_play($data_system.cursor_se)
@index = [@index + self.page_item_max, @item_max - 1].min
self.top_row += self.page_row_max
end
end
# L 键被按下的情况下
if Input.repeat?(Input::L)
# 显示的开头行在位置 0 之后的情况下
if self.top_row > 0
# 光标向前移动一页
$game_system.se_play($data_system.cursor_se)
@index = [@index - self.page_item_max, 0].max
self.top_row -= self.page_row_max
end
end
end
# 刷新帮助文本 (update_help 定义了继承目标)
if self.active and @help_window != nil
update_help
end
# 刷新光标矩形
update_cursor_rect
end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

小傻瓜 · 发表于 2007-3-30 18:56:24

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

gpra8764 · 发表于 2007-3-30 22:52:25

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

轮回者 · 发表于 2007-3-30 23:55:39

大概明白一点:
单行选择中上=左;下=右
就是类似把

if Input.repeat?(Input::LEFT)

改成

if Input.repeat?(Input::LEFT) or Input.repeat?(Input::UP)

虽然可能会有点出入,但差不多就是这个意思.

一个细节修改

精灵使者 · 发表于 2007-3-31 00:09:37

我上边好像写过了……这个是为了那个画面选择菜单写的。一般默认为上下，画面选择菜单为左右，所以不方便。用了这个就可以了。
我上边好像写了。
上下也可以选左右菜单，左右也可以选择上下菜单。另外又添进去了以前站中写的左右循环脚本，经检查可以运行。
就是物品栏循环有点奇怪了点……不过不影响使用。

精灵使者 · 发表于 2007-3-31 00:10:29

以下引用gpra8764于2007-3-30 14:52:25的发言：

以下引用小傻瓜于2007-3-30 10:56:24的发言：

用来干吗？

是啊，又没有说明，又没有截图……

我代码上边的一行字就是说明。
上=左，下=右……

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

[原创发布] 【不是创意的创意】上下左右都能选择的脚本

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

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

开拓者

贵宾