鼠标脚本选项页的滚动……

q2571875

看看，试试。

趙雲

啊，如果早看到这个帖子的话……
不过貌似水的脚本不够完善呢，这是偶超级繁琐的版本，用偶的VX版临时改的
，不过没有键盘问题，鼠标点击窗口上下方的箭头翻页。
以下覆盖鼠标脚本中 class Window_Selectable部分

1. class Window_Selectable
   
2.   
   
3. if @self_alias == nil
   
4.    alias self_update update
   
5.    @self_alias = true
   
6. end
   
7. def update
   
8.    self_update
   
9.    
   
10.    if self.active and @item_max > 0
    
11.      index_var = @index
    
12.      tp_index = @index
    
13.      mouse_x, mouse_y = Mouse.get_mouse_pos
    
14.      mouse_not_in_rect = true
    
15.      for i in (top_row * @column_max)...[@item_max ,top_row * @column_max + page_item_max].min
    
16.        @index = i
    
17.        update_cursor_rect
    
18.        top_x = self.cursor_rect.x + self.x + 16
    
19.        top_y = self.cursor_rect.y + self.y + 16
    
20.        bottom_x = top_x + self.cursor_rect.width
    
21.        bottom_y = top_y + self.cursor_rect.height
    
22.        if (mouse_x > top_x) and (mouse_y > top_y) and
    
23.           (mouse_x < bottom_x) and (mouse_y < bottom_y)
    
24.          mouse_not_in_rect = false
    
25.          if tp_index != @index
    
26.            tp_index = @index
    
27.            $game_system.se_play($data_system.cursor_se)
    
28.          end
    
29.          break
    
30.        end
    
31.      end
    
32.      if mouse_not_in_rect
    
33.        @index = index_var
    
34.        update_cursor_rect
    
35.        Mouse.click_lock
    
36.        if  Mouse.kk_trigger?(Mouse::LEFT)
    
37.           x1 = self.x + self.contents.width / 2 + 8
    
38.           y1 = self.y + self.contents.height - 16
    
39.           y2 = self.y - 4
    
40.           rect_down = Rect.new(x1,y1,24,24)
    
41.           rect_up = Rect.new(x1,y2,24,24)
    
42.           #p Mouse.get_mouse_pos , rect_down
    
43.           if Mouse.in?(rect_down)
    
44.             if self.top_row + (self.page_row_max - 1) < (self.row_max - 1)
    
45.               # 光标向后移动一页
    
46.               $game_system.se_play($data_system.cursor_se)
    
47.               @index = [@index + self.page_item_max, @item_max - 1].min
    
48.               self.top_row += self.page_row_max
    
49.             end
    
50.           end
    
51.           if Mouse.in?(rect_up)
    
52.             if self.top_row > 0
    
53.               # 光标向前移动一页
    
54.               $game_system.se_play($data_system.cursor_se)
    
55.               @index = [@index - self.page_item_max, 0].max
    
56.               self.top_row -= self.page_row_max
    
57.             end
    
58.           end
    
59.         end      
    
60.      else
    
61.        Mouse.click_unlock               
    
62.      end
    
63.    end
    
64. end
    
65. end

复制代码

以下放进Mouse 类 def self.press?(mouse_code) 之上

1. def self.kk_trigger?(mouse_code)
   
2.    if mouse_code == LEFT
   
3.        return @left_trigger
   
4.    elsif mouse_code == RIGHT
   
5.      return @right_trigger
   
6.    else
   
7.      return false
   
8.    end
   
9. end
   
10. 
    
11. def self.in?(rect)
    
12.   mouse_x, mouse_y = Mouse.get_mouse_pos
    
13.   return (mouse_x > rect.x and mouse_x < rect.x + rect.width and mouse_y > rect.y and mouse_y < rect.y + rect.height)
    
14. end

复制代码

水迭澜

哦……主要是那个箭头太小了，我觉得点起来很麻烦= =bbb
很久没动过那个脚本了……OTZ

趙雲

点击范围扩大成24*24了，个人感觉手感还行。{/wx}

风雪优游

发布完毕,+2VIP
http://rpg.blue/web/htm/news1021.htm
请LZ自行修改标签!!!

水迭澜

哈阿?
标签不是改了灭?

幻の飞鱼

印象中有一个传说中支持滚轮的鼠标
把翻页用滚轮应该粉无敌的

enghao_lim

以下引用幻の飞鱼于2008-3-16 11:16:22的发言：
印象中有一个传说中支持滚轮的鼠标
把翻页用滚轮应该粉无敌的

这个我曾经有一个，不过在删除RM的时候一起被清掉了，唯一还记得的是那好像是在一个日语网站翻出来的。

电眼娃娃∮轩

- -?哪个脚本具体插入到哪个位置哦