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

精灵使者

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

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

复制代码

精灵使者

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

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

复制代码

轮回者

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

if Input.repeat?(Input::LEFT)

改成

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

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

一个细节修改

精灵使者

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

精灵使者

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


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

用来干吗？


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

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