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

じ☆ve冰风

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

1. #==============================================================================# 本脚本来自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  endend#==============================================================================# 本脚本来自www.66RPG.com，使用和转载请保留此信息#============================================================================== 复制代码

复制代码

             本帖来自P1论坛作者轮回者，因Project1站服务器在国外有时候访问缓慢不方便作者交流学习，经联系P1站长fux2同意署名转载一起分享游戏制作经验，共同为国内独立游戏作者共同创造良好交流环境，原文地址：https://rpg.blue/forum.php?mod=viewthread&tid=49005  若有侵权，发帖作者可联系底部站长QQ在线咨询功能删除，谢谢。