Project1

标题: 【不是创意的创意】上下左右都能选择的脚本 [打印本页]
作者: 精灵使者    时间: 2007-3-30 15:53
标题: 【不是创意的创意】上下左右都能选择的脚本
本帖最后由 精灵使者 于 2014-12-20 20:16 编辑

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

  2. #==============================================================================
  3. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
  4. #==============================================================================
  5. #---------------------------------------------------------------------------
  6. #其实就是模仿以前的老游戏的特点，4个键都能选择菜单。
  7. #上=左，下=右，左=上，右=下，另外加入了左右循环功能，强烈推荐使用。
  8. #---------------------------------------------------------------------------


  11. class Window_Selectable
  12.   #--------------------------------------------------------------------------
  13.   # ● 刷新画面
  14.   #--------------------------------------------------------------------------
  15.   def update
  16.     super
  17.     # 可以移动光标的情况下
  18.     if self.active and @item_max > 0 and @index >= 0
  19.       # 方向键下被按下的情况下
  20.       if Input.repeat?(Input::DOWN)
  21.         # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
  22.         # 或光标位置在(项目数-列数)之前的情况下
  23.         if (@column_max == 1 and Input.trigger?(Input::DOWN)) or
  24.            @index < @item_max - @column_max
  25.           # 光标向下移动
  26.           $game_system.se_play($data_system.cursor_se)
  27.           @index = (@index + @column_max) % @item_max
  28.         else
  29.           if @column_max >= 2 and  @index == @item_max - 1
  30.           $game_system.se_play($data_system.cursor_se)
  31.           @index = -1
  32.           end
  33.           # 列数为 2 以上并且、光标位置在(项目数 - 1)之前的情况下
  34.           if @column_max >= 2 and @index < @item_max - 1
  35.            # 光标向右移动
  36.            $game_system.se_play($data_system.cursor_se)
  37.            @index += 1
  38.           end
  39.         end
  40.       end
  41.       # 方向键上被按下的情况下
  42.       if Input.repeat?(Input::UP)
  43.         # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
  44.         # 或光标位置在列之后的情况下
  45.         if (@column_max == 1 and Input.trigger?(Input::UP)) or
  46.            @index >= @column_max
  47.           # 光标向上移动
  48.           $game_system.se_play($data_system.cursor_se)
  49.           @index = (@index - @column_max + @item_max) % @item_max
  50.         else
  51.           if  @column_max >= 2 and @index == 0
  52.           $game_system.se_play($data_system.cursor_se)
  53.           @index = @item_max
  54.           end      
  55.           # 列数为 2 以上并且、光标位置在 0 之后的情况下
  56.           if @column_max >= 2 and @index > 0
  57.           # 光标向左移动
  58.           $game_system.se_play($data_system.cursor_se)
  59.           @index -= 1
  60.           end
  61.         end
  62.       end
  63.       # 方向键右被按下的情况下
  64.       if Input.repeat?(Input::RIGHT)      
  65.         if @column_max >= 2 and @index == @item_max - 1
  66.           $game_system.se_play($data_system.cursor_se)
  67.           @index = -1
  68.         end
  69.          # 列数为 2 以上并且、光标位置在(项目数 - 1)之前的情况下
  70.         if @column_max >= 2 and @index < @item_max - 1
  71.            # 光标向右移动
  72.            $game_system.se_play($data_system.cursor_se)
  73.            @index += 1
  74.         else
  75.           # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
  76.           # 或光标位置在(项目数-列数)之前的情况下
  77.           if (@column_max == 1 and Input.trigger?(Input::RIGHT)) or
  78.            @index < @item_max - @column_max
  79.           # 光标向下移动
  80.           $game_system.se_play($data_system.cursor_se)
  81.           @index = (@index + @column_max) % @item_max
  82.           end
  83.         end  
  84.       end     
  85.       # 方向键左被按下的情况下
  86.       if Input.repeat?(Input::LEFT)
  87.         if  @column_max >= 2 and @index == 0
  88.           $game_system.se_play($data_system.cursor_se)
  89.           @index = @item_max
  90.         end      
  91.        # 列数为 2 以上并且、光标位置在 0 之后的情况下
  92.         if @column_max >= 2 and @index > 0
  93.          # 光标向左移动
  94.           $game_system.se_play($data_system.cursor_se)
  95.           @index -= 1
  96.         else
  97.           # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
  98.           # 或光标位置在列之后的情况下
  99.           if (@column_max == 1 and Input.trigger?(Input::LEFT)) or
  100.            @index >= @column_max
  101.           # 光标向上移动
  102.           $game_system.se_play($data_system.cursor_se)
  103.           @index = (@index - @column_max + @item_max) % @item_max
  104.           end
  105.         end
  106.       end
  107.       # R 键被按下的情况下
  108.       if Input.repeat?(Input::R)
  109.         # 显示的最后行在数据中最后行上方的情况下
  110.         if self.top_row + (self.page_row_max - 1) < (self.row_max - 1)
  111.           # 光标向后移动一页
  112.           $game_system.se_play($data_system.cursor_se)
  113.           @index = [@index + self.page_item_max, @item_max - 1].min
  114.           self.top_row += self.page_row_max
  115.         end
  116.       end
  117.       # L 键被按下的情况下
  118.       if Input.repeat?(Input::L)
  119.         # 显示的开头行在位置 0 之后的情况下
  120.         if self.top_row > 0
  121.           # 光标向前移动一页
  122.           $game_system.se_play($data_system.cursor_se)
  123.           @index = [@index - self.page_item_max, 0].max
  124.           self.top_row -= self.page_row_max
  125.         end
  126.       end
  127.     end
  128.     # 刷新帮助文本 (update_help 定义了继承目标)
  129.     if self.active and @help_window != nil
  130.       update_help
  131.     end
  132.     # 刷新光标矩形
  133.     update_cursor_rect
  134.   end
  135. end

  137. #==============================================================================
  138. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
  139. #==============================================================================
复制代码
作者: 精灵使者    时间: 2007-3-30 15:53
标题: 上下左右都能选择的脚本
这个脚本特点我不用截图了。其实就是模仿以前的游戏的特点，4个键都能选择。
上=左，下=右，左=上，右=下，另外加入了左右循环功能，强烈推荐使用。

  2. #==============================================================================
  3. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
  4. #==============================================================================
  5. #---------------------------------------------------------------------------
  6. #其实就是模仿以前的老游戏的特点，4个键都能选择菜单。
  7. #上=左，下=右，左=上，右=下，另外加入了左右循环功能，强烈推荐使用。
  8. #---------------------------------------------------------------------------


  11. class Window_Selectable
  12.   #--------------------------------------------------------------------------
  13.   # ● 刷新画面
  14.   #--------------------------------------------------------------------------
  15.   def update
  16.     super
  17.     # 可以移动光标的情况下
  18.     if self.active and @item_max > 0 and @index >= 0
  19.       # 方向键下被按下的情况下
  20.       if Input.repeat?(Input::DOWN)
  21.         # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
  22.         # 或光标位置在(项目数-列数)之前的情况下
  23.         if (@column_max == 1 and Input.trigger?(Input::DOWN)) or
  24.            @index < @item_max - @column_max
  25.           # 光标向下移动
  26.           $game_system.se_play($data_system.cursor_se)
  27.           @index = (@index + @column_max) % @item_max
  28.         else
  29.           if @column_max >= 2 and  @index == @item_max - 1
  30.           $game_system.se_play($data_system.cursor_se)
  31.           @index = -1
  32.           end
  33.           # 列数为 2 以上并且、光标位置在(项目数 - 1)之前的情况下
  34.           if @column_max >= 2 and @index < @item_max - 1
  35.            # 光标向右移动
  36.            $game_system.se_play($data_system.cursor_se)
  37.            @index += 1
  38.           end
  39.         end
  40.       end
  41.       # 方向键上被按下的情况下
  42.       if Input.repeat?(Input::UP)
  43.         # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
  44.         # 或光标位置在列之后的情况下
  45.         if (@column_max == 1 and Input.trigger?(Input::UP)) or
  46.            @index >= @column_max
  47.           # 光标向上移动
  48.           $game_system.se_play($data_system.cursor_se)
  49.           @index = (@index - @column_max + @item_max) % @item_max
  50.         else
  51.           if  @column_max >= 2 and @index == 0
  52.           $game_system.se_play($data_system.cursor_se)
  53.           @index = @item_max
  54.           end      
  55.           # 列数为 2 以上并且、光标位置在 0 之后的情况下
  56.           if @column_max >= 2 and @index > 0
  57.           # 光标向左移动
  58.           $game_system.se_play($data_system.cursor_se)
  59.           @index -= 1
  60.           end
  61.         end
  62.       end
  63.       # 方向键右被按下的情况下
  64.       if Input.repeat?(Input::RIGHT)      
  65.         if @column_max >= 2 and @index == @item_max - 1
  66.           $game_system.se_play($data_system.cursor_se)
  67.           @index = -1
  68.         end
  69.          # 列数为 2 以上并且、光标位置在(项目数 - 1)之前的情况下
  70.         if @column_max >= 2 and @index < @item_max - 1
  71.            # 光标向右移动
  72.            $game_system.se_play($data_system.cursor_se)
  73.            @index += 1
  74.         else
  75.           # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
  76.           # 或光标位置在(项目数-列数)之前的情况下
  77.           if (@column_max == 1 and Input.trigger?(Input::RIGHT)) or
  78.            @index < @item_max - @column_max
  79.           # 光标向下移动
  80.           $game_system.se_play($data_system.cursor_se)
  81.           @index = (@index + @column_max) % @item_max
  82.           end
  83.         end  
  84.       end     
  85.       # 方向键左被按下的情况下
  86.       if Input.repeat?(Input::LEFT)
  87.         if  @column_max >= 2 and @index == 0
  88.           $game_system.se_play($data_system.cursor_se)
  89.           @index = @item_max
  90.         end      
  91.        # 列数为 2 以上并且、光标位置在 0 之后的情况下
  92.         if @column_max >= 2 and @index > 0
  93.          # 光标向左移动
  94.           $game_system.se_play($data_system.cursor_se)
  95.           @index -= 1
  96.         else
  97.           # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
  98.           # 或光标位置在列之后的情况下
  99.           if (@column_max == 1 and Input.trigger?(Input::LEFT)) or
  100.            @index >= @column_max
  101.           # 光标向上移动
  102.           $game_system.se_play($data_system.cursor_se)
  103.           @index = (@index - @column_max + @item_max) % @item_max
  104.           end
  105.         end
  106.       end
  107.       # R 键被按下的情况下
  108.       if Input.repeat?(Input::R)
  109.         # 显示的最后行在数据中最后行上方的情况下
  110.         if self.top_row + (self.page_row_max - 1) < (self.row_max - 1)
  111.           # 光标向后移动一页
  112.           $game_system.se_play($data_system.cursor_se)
  113.           @index = [@index + self.page_item_max, @item_max - 1].min
  114.           self.top_row += self.page_row_max
  115.         end
  116.       end
  117.       # L 键被按下的情况下
  118.       if Input.repeat?(Input::L)
  119.         # 显示的开头行在位置 0 之后的情况下
  120.         if self.top_row > 0
  121.           # 光标向前移动一页
  122.           $game_system.se_play($data_system.cursor_se)
  123.           @index = [@index - self.page_item_max, 0].max
  124.           self.top_row -= self.page_row_max
  125.         end
  126.       end
  127.     end
  128.     # 刷新帮助文本 (update_help 定义了继承目标)
  129.     if self.active and @help_window != nil
  130.       update_help
  131.     end
  132.     # 刷新光标矩形
  133.     update_cursor_rect
  134.   end
  135. end

  137. #==============================================================================
  138. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
  139. #==============================================================================
复制代码
作者: 小傻瓜    时间: 2007-3-30 18:56
提示: 作者被禁止或删除 内容自动屏蔽
作者: gpra8764    时间: 2007-3-30 22:52
提示: 作者被禁止或删除 内容自动屏蔽
作者: 轮回者    时间: 2007-3-30 23:55
大概明白一点:
单行选择中 上=左;下=右
就是类似把
if Input.repeat?(Input::LEFT)

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

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

一个细节修改
作者: 精灵使者    时间: 2007-3-31 00:09
我上边好像写过了……这个是为了那个画面选择菜单写的。一般默认为上下，画面选择菜单为左右，所以不方便。用了这个就可以了。
我上边好像写了。
上下也可以选左右菜单，左右也可以选择上下菜单。另外又添进去了以前站中写的左右循环脚本，经检查可以运行。
就是物品栏循环有点奇怪了点……不过不影响使用。
作者: 精灵使者    时间: 2007-3-31 00:10
以下引用gpra8764于2007-3-30 14:52:25的发言：


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

用来干吗？


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

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




欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1