请求解决商店菜单翻页问题。

存档不能

1. 
   
2. #==============================================================================
   
3. # ■ Window_ShopBuy
   
4. #------------------------------------------------------------------------------
   
5. # 　商店画面、浏览显示可以购买的商品的窗口。
   
6. #==============================================================================
   
7. 
   
8. class Window_ShopBuy < Window_Selectable
   
9.   #--------------------------------------------------------------------------
   
10.   # ● 初始化对像
    
11.   #     shop_goods : 商品
    
12.   #--------------------------------------------------------------------------
    
13.   def initialize(shop_goods)
    
14.     super(40, 128, 358, 272)
    
15.     @shop_goods = shop_goods  
    
16.     @column_max = 5
    
17.     refresh
    
18.     self.index = 0
    
19.   end
    
20.   #--------------------------------------------------------------------------
    
21.   # ● 获取物品
    
22.   #--------------------------------------------------------------------------
    
23.   def item     
    
24.     return @data[self.index]
    
25.   end
    
26.   #--------------------------------------------------------------------------
    
27.   # ● 刷新
    
28.   #--------------------------------------------------------------------------
    
29.   def refresh
    
30.     if self.contents != nil
    
31.       self.contents.dispose
    
32.       self.contents = nil
    
33.     end
    
34.     @data = []
    
35.     for goods_item in @shop_goods
    
36.       case goods_item[0]
    
37.       when 0
    
38.         item = $data_items[goods_item[1]]
    
39.       when 1
    
40.         item = $data_weapons[goods_item[1]]
    
41.       when 2
    
42.         item = $data_armors[goods_item[1]]
    
43.       end
    
44.       if item != nil
    
45.         @data.push(item)
    
46.       end
    
47.     end     
    
48.     # 如果项目数不是 0 就生成位图、描绘全部项目
    
49.     @item_max = @data.size
    
50.     if @item_max > 0
    
51.       self.contents = Bitmap.new(width - 32, row_max * 47)
    
52.       for i in 0...@item_max
    
53.         draw_item(i)
    
54.       end
    
55.     end
    
56.   end
    
57.   #--------------------------------------------------------------------------
    
58.   # ● 描绘羡慕
    
59.   #     index : 项目编号
    
60.   #--------------------------------------------------------------------------
    
61.   def draw_item(index)
    
62.     item = @data[index]   
    
63.     # 获取物品所持数
    
64.     case item
    
65.     when RPG::Item
    
66.       number = $game_party.item_number(item.id)
    
67.       item_max = $item_max[@item.id] if $item_max[@item.id] != nil      
    
68.     when RPG::Weapon
    
69.       number = $game_party.weapon_number(item.id)
    
70.       item_max = $item_max[@item.id] if $item_max[@item.id] != nil
    
71.     when RPG::Armor
    
72.       number = $game_party.armor_number(item.id)
    
73.       item_max = $item_max[@item.id] if $item_max[@item.id] != nil
    
74.     end
    
75.     # 价格在所持金以下、并且所持数不是 99 的情况下为普通文字颜色
    
76.     # 除此之外的情况设置为无效文字色
    
77.     if item.price <= $game_party.gold and number < item_max
    
78.       self.contents.font.color = normal_color
    
79.     else
    
80.       self.contents.font.color = disabled_color
    
81.     end
    
82.     x = (index % 5) * 57
    
83.     y = ((index/5))*47
    
84.     rect = Rect.new(x-20, y, self.width - 32, 32)
    
85.     self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    
86.     bitmap = RPG::Cache.icon(item.icon_name)
    
87.     opacity = self.contents.font.color == normal_color ? 255 : 128
    
88.     self.contents.font.size = 16
    
89.     self.contents.blt(x, y + 4, bitmap, Rect.new(0, 0, 24, 24), opacity)
    
90.     #self.contents.draw_text(x + 28, y, 212, 32, item.name, 0)  
    
91.     self.contents.draw_text(x-58, y + 22, 88, 32,  item.price.to_s, 2)
    
92.   end
    
93.   #--------------------------------------------------------------------------
    
94.   # ● 刷新帮助文本
    
95.   #--------------------------------------------------------------------------
    
96.   def update_help
    
97.     @help_window.set_text(self.item == nil ? "" : self.item.description,1,self.item == nil ? 0 : self.item.xhp)
    
98.   end
    
99.   #--------------------------------------------------------------------------
    
100.   # ● 刷新光标矩形
     
101.   #--------------------------------------------------------------------------
     
102.    def update_cursor_rect
     
103.     if [url=home.php?mod=space&uid=370741]@Index[/url] < 0
     
104.       self.cursor_rect.empty
     
105.     else
     
106.       self.cursor_rect.set((index % 5) * 55 , ((index/5)) * 47, 40, 30)
     
107.     end
     
108.   end
     
109. end
     

复制代码

我改了商店的购买物品的排列，改为5列4行、最多显示20个的模式，但是光标在最下面（即指向第二十个物品）时不会自动翻页，反而继续向下一行（但是画面没显示出该行）移动
希望能增加翻页功能，并且保持上下左右键都能移动光标 ，最重要的是上面脚本中的物品图标和价格的位置不能变。

恐惧剑刃

1. #==============================================================================
   
2. # ■ Window_ShopBuy
   
3. #------------------------------------------------------------------------------
   
4. # 　商店画面、浏览显示可以购买的商品的窗口。
   
5. #==============================================================================
   
6. 
   
7. class Window_ShopBuy < Window_Selectable
   
8.   #请看65行脚本
   
9.   #--------------------------------------------------------------------------
   
10.   # ● 初始化对像
    
11.   #     shop_goods : 商品
    
12.   #--------------------------------------------------------------------------
    
13.   def initialize(shop_goods)
    
14.     #都五列了当然要把宽调大点，你说的翻页其实只要调小高度就可以了
    
15.     super(0, 128, 368, 32 * 4 + 32)#X坐标、Y坐标、宽度、高度
    
16.     self.z = 123
    
17.     @column_max = 1#列数，直接改这里，1也不能省略
    
18.     @shop_goods = shop_goods
    
19.     refresh
    
20.     self.index = 0
    
21.   end
    
22.   #--------------------------------------------------------------------------
    
23.   # ● 获取物品
    
24.   #--------------------------------------------------------------------------
    
25.   def item
    
26.     return @data[self.index]
    
27.   end
    
28.   #--------------------------------------------------------------------------
    
29.   # ● 刷新
    
30.   #--------------------------------------------------------------------------
    
31.   def refresh
    
32.     if self.contents != nil
    
33.       self.contents.dispose
    
34.       self.contents = nil
    
35.     end
    
36.     @data = []
    
37.     for goods_item in @shop_goods
    
38.       case goods_item[0]
    
39.       when 0
    
40.         item = $data_items[goods_item[1]]
    
41.       when 1
    
42.         item = $data_weapons[goods_item[1]]
    
43.       when 2
    
44.         item = $data_armors[goods_item[1]]
    
45.       end
    
46.       if item != nil
    
47.         @data.push(item)
    
48.       end
    
49.     end
    
50.     # 如果项目数不是 0 就生成位图、描绘全部项目
    
51.     @item_max = @data.size
    
52.     if @item_max > 0
    
53.       self.contents = Bitmap.new(width - 32, row_max * 32)
    
54.       for i in 0...@item_max
    
55.         draw_item(i)
    
56.       end
    
57.     end
    
58.   end
    
59.   #--------------------------------------------------------------------------
    
60.   # ● 描绘项目
    
61.   #     index : 项目编号
    
62.   #--------------------------------------------------------------------------
    
63.   def draw_item(index)
    
64.   ###################################################
    
65.   icon_x = 0#图标的X坐标附加值，向右为正，向左为负
    
66.   icon_y = 0#图标的Y坐标附加值，向下为正，向上为负
    
67.   #name_x = 0#物品名的X坐标附加值，向右为正，向左为负
    
68.   #name_y = 0#物品名的Y坐标附加值，向下为正，向上为负
    
69.   price_x = 0#物品价格的X坐标附加值，向右为正，向左为负
    
70.   price_y = 0#物品价格的Y坐标附加值，向下为正，向上为负
    
71.   ##################################################
    
72.     item = @data[index]
    
73.     # 获取物品所持数
    
74.     case item
    
75.     when RPG::Item
    
76.       number = $game_party.item_number(item.id)
    
77.     when RPG::Weapon
    
78.       number = $game_party.weapon_number(item.id)
    
79.     when RPG::Armor
    
80.       number = $game_party.armor_number(item.id)
    
81.     end
    
82.     # 价格在所持金以下、并且所持数不是 99 的情况下为普通文字颜色
    
83.     # 除此之外的情况设置为无效文字色
    
84.     if item.price <= $game_party.gold and number < 99
    
85.       self.contents.font.color = normal_color
    
86.     else
    
87.       self.contents.font.color = disabled_color
    
88.     end
    
89.     #################################
    
90.     x = 4 + index % @column_max * (95 + 32)
    
91.     y = index / @column_max * 32
    
92.     self.contents.font.size = 15#字体大小
    
93.     #################################
    
94.     rect = Rect.new(x, y, self.width - 32, 32)
    
95.     self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    
96.     bitmap = RPG::Cache.icon(item.icon_name)
    
97.     opacity = self.contents.font.color == normal_color ? 255 : 128
    
98.     self.contents.blt(x + icon_x, y + 4 + icon_y, bitmap, Rect.new(0, 0, 24, 24), opacity)
    
99.     #self.contents.draw_text(x + 28 + name_x, y + name_y, 212, 32, item.name, 0)
    
100.     self.contents.draw_text(x + 240 + price_x, y + price_y, 88, 32, item.price.to_s, 2)
     
101.   end
     
102.   #--------------------------------------------------------------------------
     
103.   # ● 刷新帮助文本
     
104.   #--------------------------------------------------------------------------
     
105.   def update_help
     
106.     @help_window.set_text(self.item == nil ? "" : self.item.description)
     
107.   end
     
108. end
     

复制代码

RyanBern

楼主想要的结果已经改完。
下面是代码，楼主更改失败的原因是Window_Selectable中默认一行的高度是32，而楼主并未作出更改。
另外你那个$item_max应该是你自定义的Hash，应该是限制各种物品最大拥有数的，在前面已经定义过但是在这里没有给出。

1. #==============================================================================
   
2. # ■ Window_Selectable
   
3. #------------------------------------------------------------------------------
   
4. # 　拥有光标的移动以及滚动功能的窗口类。
   
5. #==============================================================================
   
6. 
   
7. class Window_Selectable < Window_Base
   
8.   #--------------------------------------------------------------------------
   
9.   # ● 定义实例变量
   
10.   #--------------------------------------------------------------------------
    
11.   attr_reader   :index                    # 光标位置
    
12.   attr_reader   :help_window              # 帮助窗口
    
13.   attr_accessor :row_height               # 行高
    
14.   #--------------------------------------------------------------------------
    
15.   # ● 初始画对像
    
16.   #     x      : 窗口的 X 坐标
    
17.   #     y      : 窗口的 Y 坐标
    
18.   #     width  : 窗口的宽
    
19.   #     height : 窗口的高
    
20.   #     row_height : 行高 默认是32
    
21.   #--------------------------------------------------------------------------
    
22.   def initialize(x, y, width, height, row_height=32)
    
23.     super(x, y, width, height)
    
24.     @item_max = 1
    
25.     @column_max = 1
    
26.     [url=home.php?mod=space&uid=370741]@Index[/url] = -1
    
27.     @row_height = row_height
    
28.   end
    
29.   #--------------------------------------------------------------------------
    
30.   # ● 设置光标的位置
    
31.   #     index : 新的光标位置
    
32.   #--------------------------------------------------------------------------
    
33.   def index=(index)
    
34.     @index = index
    
35.     # 刷新帮助文本 (update_help 定义了继承目标)
    
36.     if self.active and @help_window != nil
    
37.       update_help
    
38.     end
    
39.     # 刷新光标矩形
    
40.     update_cursor_rect
    
41.   end
    
42.   #--------------------------------------------------------------------------
    
43.   # ● 获取行数
    
44.   #--------------------------------------------------------------------------
    
45.   def row_max
    
46.     # 由项目数和列数计算出行数
    
47.     return (@item_max + @column_max - 1) / @column_max
    
48.   end
    
49.   #--------------------------------------------------------------------------
    
50.   # ● 获取开头行
    
51.   #--------------------------------------------------------------------------
    
52.   def top_row
    
53.     # 将窗口内容的传送源 Y 坐标、1 行的高 row_height 等分
    
54.     return self.oy / @row_height
    
55.   end
    
56.   #--------------------------------------------------------------------------
    
57.   # ● 设置开头行
    
58.   #     row : 显示开头的行
    
59.   #--------------------------------------------------------------------------
    
60.   def top_row=(row)
    
61.     # row 未满 0 的场合更正为 0
    
62.     if row < 0
    
63.       row = 0
    
64.     end
    
65.     # row 超过 row_max - 1 的情况下更正为 row_max - 1
    
66.     if row > row_max - 1
    
67.       row = row_max - 1
    
68.     end
    
69.     # row 1 行高的 32 倍、窗口内容的传送源 Y 坐标
    
70.     self.oy = row * @row_height
    
71.   end
    
72.   #--------------------------------------------------------------------------
    
73.   # ● 获取 1 页可以显示的行数
    
74.   #--------------------------------------------------------------------------
    
75.   def page_row_max
    
76.     # 窗口的高度，设置画面的高度减去 32 ，除以 1 行的高度 row_height
    
77.     return (self.height - 32) / @row_height
    
78.   end
    
79.   #--------------------------------------------------------------------------
    
80.   # ● 获取 1 页可以显示的项目数
    
81.   #--------------------------------------------------------------------------
    
82.   def page_item_max
    
83.     # 将行数 page_row_max 乘上列数 @column_max
    
84.     return page_row_max * @column_max
    
85.   end
    
86.   #--------------------------------------------------------------------------
    
87.   # ● 帮助窗口的设置
    
88.   #     help_window : 新的帮助窗口
    
89.   #--------------------------------------------------------------------------
    
90.   def help_window=(help_window)
    
91.     @help_window = help_window
    
92.     # 刷新帮助文本 (update_help 定义了继承目标)
    
93.     if self.active and @help_window != nil
    
94.       update_help
    
95.     end
    
96.   end
    
97.   #--------------------------------------------------------------------------
    
98.   # ● 更新光标举行
    
99.   #--------------------------------------------------------------------------
    
100.   def update_cursor_rect
     
101.     # 光标位置不满 0 的情况下
     
102.     if @index < 0
     
103.       self.cursor_rect.empty
     
104.       return
     
105.     end
     
106.     # 获取当前的行
     
107.     row = @index / @column_max
     
108.     # 当前行被显示开头行前面的情况下
     
109.     if row < self.top_row
     
110.       # 从当前行向开头行滚动
     
111.       self.top_row = row
     
112.     end
     
113.     # 当前行被显示末尾行之后的情况下
     
114.     if row > self.top_row + (self.page_row_max - 1)
     
115.       # 从当前行向末尾滚动
     
116.       self.top_row = row - (self.page_row_max - 1)
     
117.     end
     
118.     # 计算光标的宽
     
119.     cursor_width = self.width / @column_max - 32
     
120.     # 计算光标坐标
     
121.     x = @index % @column_max * (cursor_width + 32)
     
122.     y = @index / @column_max * @row_height - self.oy
     
123.     # 更新国标矩形
     
124.     self.cursor_rect.set(x, y, cursor_width, @row_height)
     
125.   end
     
126.   #--------------------------------------------------------------------------
     
127.   # ● 刷新画面
     
128.   #--------------------------------------------------------------------------
     
129.   def update
     
130.     super
     
131.     # 可以移动光标的情况下
     
132.     if self.active and @item_max > 0 and @index >= 0
     
133.       # 方向键下被按下的情况下
     
134.       if Input.repeat?(Input::DOWN)
     
135.         # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
     
136.         # 或光标位置在(项目数-列数)之前的情况下
     
137.         if (@column_max == 1 and Input.trigger?(Input::DOWN)) or
     
138.            @index < @item_max - @column_max
     
139.           # 光标向下移动
     
140.           $game_system.se_play($data_system.cursor_se)
     
141.           @index = (@index + @column_max) % @item_max
     
142.         end
     
143.       end
     
144.       # 方向键上被按下的情况下
     
145.       if Input.repeat?(Input::UP)
     
146.         # 列数不是 1 并且方向键的下的按下状态不是重复的情况、
     
147.         # 或光标位置在列之后的情况下
     
148.         if (@column_max == 1 and Input.trigger?(Input::UP)) or
     
149.            @index >= @column_max
     
150.           # 光标向上移动
     
151.           $game_system.se_play($data_system.cursor_se)
     
152.           @index = (@index - @column_max + @item_max) % @item_max
     
153.         end
     
154.       end
     
155.       # 方向键右被按下的情况下
     
156.       if Input.repeat?(Input::RIGHT)
     
157.         # 列数为 2 以上并且、光标位置在(项目数 - 1)之前的情况下
     
158.         if @column_max >= 2 and @index < @item_max - 1
     
159.           # 光标向右移动
     
160.           $game_system.se_play($data_system.cursor_se)
     
161.           @index += 1
     
162.         end
     
163.       end
     
164.       # 方向键左被按下的情况下
     
165.       if Input.repeat?(Input::LEFT)
     
166.         # 列数为 2 以上并且、光标位置在 0 之后的情况下
     
167.         if @column_max >= 2 and @index > 0
     
168.           # 光标向左移动
     
169.           $game_system.se_play($data_system.cursor_se)
     
170.           @index -= 1
     
171.         end
     
172.       end
     
173.       # R 键被按下的情况下
     
174.       if Input.repeat?(Input::R)
     
175.         # 显示的最后行在数据中最后行上方的情况下
     
176.         if self.top_row + (self.page_row_max - 1) < (self.row_max - 1)
     
177.           # 光标向后移动一页
     
178.           $game_system.se_play($data_system.cursor_se)
     
179.           @index = [@index + self.page_item_max, @item_max - 1].min
     
180.           self.top_row += self.page_row_max
     
181.         end
     
182.       end
     
183.       # L 键被按下的情况下
     
184.       if Input.repeat?(Input::L)
     
185.         # 显示的开头行在位置 0 之后的情况下
     
186.         if self.top_row > 0
     
187.           # 光标向前移动一页
     
188.           $game_system.se_play($data_system.cursor_se)
     
189.           @index = [@index - self.page_item_max, 0].max
     
190.           self.top_row -= self.page_row_max
     
191.         end
     
192.       end
     
193.     end
     
194.     # 刷新帮助文本 (update_help 定义了继承目标)
     
195.     if self.active and @help_window != nil
     
196.       update_help
     
197.     end
     
198.     # 刷新光标矩形
     
199.     update_cursor_rect
     
200.   end
     
201. end
     
202. 
     
203. #==============================================================================
     
204. # ■ Window_ShopBuy
     
205. #------------------------------------------------------------------------------
     
206. # 　商店画面、浏览显示可以购买的商品的窗口。
     
207. #==============================================================================
     
208. 
     
209. class Window_ShopBuy < Window_Selectable
     
210.   #--------------------------------------------------------------------------
     
211.   # ● 初始化对像
     
212.   #     shop_goods : 商品
     
213.   #--------------------------------------------------------------------------
     
214.   def initialize(shop_goods)
     
215.     super(0, 128, 368, 352, 64)
     
216.     @shop_goods = shop_goods
     
217.     @column_max = 5
     
218.     refresh
     
219.     self.index = 0
     
220.   end
     
221.   #--------------------------------------------------------------------------
     
222.   # ● 获取物品
     
223.   #--------------------------------------------------------------------------
     
224.   def item     
     
225.     return @data[self.index]
     
226.   end
     
227.   #--------------------------------------------------------------------------
     
228.   # ● 刷新
     
229.   #--------------------------------------------------------------------------
     
230.   def refresh
     
231.     if self.contents != nil
     
232.       self.contents.dispose
     
233.       self.contents = nil
     
234.     end
     
235.     @data = []
     
236.     for goods_item in @shop_goods
     
237.       case goods_item[0]
     
238.       when 0
     
239.         item = $data_items[goods_item[1]]
     
240.       when 1
     
241.         item = $data_weapons[goods_item[1]]
     
242.       when 2
     
243.         item = $data_armors[goods_item[1]]
     
244.       end
     
245.       if item != nil
     
246.         @data.push(item)
     
247.       end
     
248.     end     
     
249.     # 如果项目数不是 0 就生成位图、描绘全部项目
     
250.     @item_max = @data.size
     
251.     if @item_max > 0
     
252.       self.contents = Bitmap.new(width - 32, row_max * 64)
     
253.       for i in 0...@item_max
     
254.         draw_item(i)
     
255.       end
     
256.     end
     
257.   end
     
258.   #--------------------------------------------------------------------------
     
259.   # ● 描绘羡慕
     
260.   #     index : 项目编号
     
261.   #--------------------------------------------------------------------------
     
262.   def draw_item(index)
     
263.     item = @data[index]   
     
264.     # 获取物品所持数
     
265.     case item
     
266.     when RPG::Item
     
267.       number = $game_party.item_number(item.id)
     
268.       item_max = $item_max[@item.id] if $item_max[@item.id] != nil      
     
269.     when RPG::Weapon
     
270.       number = $game_party.weapon_number(item.id)
     
271.       item_max = $item_max[@item.id] if $item_max[@item.id] != nil
     
272.     when RPG::Armor
     
273.       number = $game_party.armor_number(item.id)
     
274.       item_max = $item_max[@item.id] if $item_max[@item.id] != nil
     
275.     end
     
276.     # 价格在所持金以下、并且所持数不是 99 的情况下为普通文字颜色
     
277.     # 除此之外的情况设置为无效文字色
     
278.     if item.price <= $game_party.gold and number < item_max
     
279.       self.contents.font.color = normal_color
     
280.     else
     
281.       self.contents.font.color = disabled_color
     
282.     end
     
283.     x = (index % 5) * 73
     
284.     y = (index / 5) * 64
     
285.     bitmap = RPG::Cache.icon(item.icon_name)
     
286.     opacity = self.contents.font.color == normal_color ? 255 : 128
     
287.     self.contents.font.size = 18
     
288.     self.contents.blt(x + 10, y + 4, bitmap, Rect.new(0, 0, 24, 24), opacity)
     
289.     #self.contents.draw_text(x + 28, y, 212, 32, item.name, 0)  
     
290.     self.contents.draw_text(x - 56, y + 32, 96, 24,  item.price.to_s, 2)
     
291.   end
     
292.   #--------------------------------------------------------------------------
     
293.   # ● 刷新帮助文本
     
294.   #--------------------------------------------------------------------------
     
295.   def update_help
     
296.     @help_window.set_text(self.item == nil ? "" : self.item.description)
     
297.   end
     
298. end

复制代码

不知楼主是否满意呢？