如何在存读档窗口使用鼠标滚轮？

紫苏

感谢，您的意思是必须把相应的功能封装在dll中，并在脚本中调用是吗？是否有具体的例子呢？
hongqizhen 发表于 2010-8-18 12:23

在脚本里还是在 DLL 里调用取决于设计者，通常在解释性语言里调用更方便维护和调试，所以可以采取这个选择，但是替换窗口过程的过程最好还是写在 DLL 里，因为如果要在 Ruby 里操作本地函数和函数指针，还需要进行一系列地址偏移的计算
如果目前 XP 的鼠标脚本里没有这个功能就说明没有人写过，要是不急可以等我明天下了 VS 再帮你写一个

fux2

我到现在也不知道滚轮的键值是多少。

紫苏

rm_mouse_wheel.rar (21.14 KB, 下载次数: 162)

2010-8-20 11:15 上传

点击文件名下载附件

附件里是预编译的 DLL，目标环境是 x86

将 DLL 放在游戏根目录，然后在 RM 里加入如下脚本：

1. class Class
   
2.   def ===(aClass)
   
3.     return self == aClass
   
4.   end
   
5. end
   
6. 
   
7. module Mouse
   
8.   def self.on_wheel(delta, keys, x, y)
   
9.     case $scene.class
   
10.     when Scene_Title, Scene_End
    
11.       command_window = $scene.instance_eval { @command_window }
    
12.       item_max = command_window.instance_eval { @item_max }
    
13.       command_window and
    
14.       command_window.index =
    
15.         [0, [item_max - 1, command_window.index - delta / 120].min].max
    
16.     when Scene_Item
    
17.       # ...
    
18.     end
    
19.   end
    
20.   if !defined? Wheel
    
21.     Wheel = Win32API.new('rm_mouse_wheel', 'intercept', 'v', 'v')
    
22.     Wheel.call
    
23.   end
    
24. end

复制代码

其中 on_wheel 就是处理滚轮的回调函数，可以在里面扩充不同场景的处理，这里实现了在标题和结束场景时滚轮移动窗口光标的功能
参数列表中，delta 是滚动的范围；keys 是滚动同时还有什么虚拟键按下；x 是滚动时的屏幕鼠标 x 坐标；x 是滚动时的屏幕鼠标 y 坐标
具体用法可以参考：
http://msdn.microsoft.com/en-us/library/ms645617(VS.85).aspx

DLL 源代码：

1. 
   
2. #include <windows.h>
   
3. #include <stdio.h>
   
4. 
   
5. typedef DWORD (*EVALFUNC)(LPCSTR);
   
6. 
   
7. LONG oldWndProc;
   
8. EVALFUNC eval;
   
9. 
   
10. LRESULT CALLBACK WindowProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
    
11.     switch(uMsg) {
    
12.     case WM_MOUSEWHEEL:
    
13.         char buf[128];
    
14.         sprintf(buf, "Mouse.respond_to? :on_wheel and Mouse.on_wheel(%hd,%hd,%hd,%hd)",
    
15.             wParam >> 16 & 0xffff, wParam & 0xffff, lParam & 0xffff, lParam >> 16 & 0xffff);
    
16.         eval(buf);
    
17.         return TRUE;
    
18.     default:
    
19.         return CallWindowProc((WNDPROC)oldWndProc, hWnd, uMsg, wParam, lParam);
    
20.     }
    
21. }
    
22. 
    
23. void intercept() {
    
24.     HMODULE hRGSS;
    
25.     DWORD threadId = GetCurrentThreadId();
    
26.     HWND hWnd = GetWindow(GetForegroundWindow(), GW_HWNDFIRST);
    
27.     do {
    
28.         if(threadId == GetWindowThreadProcessId(hWnd, NULL)) {
    
29.             char className[12];
    
30.             GetClassName(hWnd, className, 12);
    
31.             if(!strcmp(className, "RGSS Player")) break;
    
32.         }
    
33.         hWnd = GetWindow(hWnd, GW_HWNDNEXT);
    
34.     } while(hWnd);
    
35.     oldWndProc = SetWindowLong(hWnd, GWL_WNDPROC, (LONG)WindowProc);
    
36.     if(!(hRGSS = LoadLibrary("rgss102j.dll")))
    
37.         hRGSS = LoadLibrary("rgss103j.dll");
    
38.     eval = (EVALFUNC)GetProcAddress(hRGSS, "RGSSEval");
    
39. }
    

复制代码

紫苏

因为我只顺手写了两个比较简单的 o(╯□╰)o
用这个替换好了，顺便改进了一下代码，这样一来所有 Window_Selectable 都能响应滚轮了：

1. class Class
   
2.   def ===(aClass)
   
3.     return self == aClass
   
4.   end
   
5. end
   
6. 
   
7. module Mouse
   
8.   # 累积 delta 值上限
   
9.   ACC_DELTA = 120
   
10.   def self.on_wheel(delta, keys, x, y)
    
11.     # 此次滚动是否产生了效果
    
12.     effect = false
    
13.     # 累积 delta
    
14.     @delta += delta
    
15.     if @delta.abs >= ACC_DELTA
    
16.       delta_idx = - @delta / ACC_DELTA
    
17.       # 进行特定场景的特殊处理
    
18.       case $scene.class
    
19.       when Scene_Save, Scene_Load
    
20.         savefile_windows = $scene.instance_eval {
    
21.           @savefile_windows[@file_index].selected = false
    
22.           @file_index = (@file_index + delta_idx) % 4
    
23.           @savefile_windows[@file_index].selected = true
    
24.         }
    
25.         effect = true
    
26.       end
    
27.       # 枚举 Window_Selectable 可选择窗口对象
    
28.       ObjectSpace.each_object(Window_Selectable) { |o|
    
29.         # 光标索引上限
    
30.         limit = o.instance_eval { @item_max }
    
31.         # 如果可选择窗口未被释放、已激活、可见
    
32.         if not o.disposed? and o.active and o.visible
    
33.           # 移动光标
    
34.           o.index = (o.index + delta_idx) % limit
    
35.           effect = true
    
36.         end
    
37.       }
    
38.       # 如果产生了效果就播放移动光标 SE
    
39.       effect and $game_system.se_play($data_system.cursor_se)
    
40. 
    
41.       # 清空累积的 delta
    
42.       @delta = 0
    
43.     end
    
44.   end
    
45.   # 如果第一次定义 Wheel 常量
    
46.   if !defined? Wheel
    
47.     # 初始化滚轮相关数据
    
48.     Wheel = Win32API.new('rm_mouse_wheel', 'intercept', 'v', 'v')
    
49.     Wheel.call
    
50.     @delta = 0
    
51.   end
    
52. end

复制代码

以上代码作废，如果要用于默认工程可以用以下代码（20 楼给出的代码是针对楼主的存取档脚本所写的）：

1. module Mouse
   
2.   # 累积 delta 值上限
   
3.   WHEEL_DELTA = 120
   
4.   def self.on_wheel(delta, keys, x, y)
   
5.     # 此次滚动是否产生了效果
   
6.     effect = false
   
7.     # 累积 delta
   
8.     @@delta += delta
   
9.     if @@delta.abs >= WHEEL_DELTA
   
10.       delta_idx = - @@delta / WHEEL_DELTA
    
11.       # 进行特定场景的特殊处理
    
12.       case $scene
    
13.       when Scene_File
    
14.         savefile_windows = $scene.instance_eval {
    
15.           @savefile_windows[@file_index].selected = false
    
16.           @file_index = (@file_index + delta_idx) % 4
    
17.           @savefile_windows[@file_index].selected = true
    
18.         }
    
19.         effect = true
    
20.       end
    
21.       # 枚举 Window_Selectable 可选择窗口对象
    
22.       ObjectSpace.each_object(Window_Selectable) { |o|
    
23.         # 光标索引上限
    
24.         limit = o.instance_eval { @item_max }
    
25.         # 如果可选择窗口未被释放、已激活、可见
    
26.         if not o.disposed? and o.active and o.visible
    
27.           # 移动光标
    
28.           o.index = (o.index + delta_idx) % limit
    
29.           effect = true
    
30.         end
    
31.       }
    
32.       # 如果产生了效果就播放移动光标 SE
    
33.       effect and $game_system.se_play($data_system.cursor_se)
    
34. 
    
35.       # 重新累积 delta
    
36.       @@delta %= WHEEL_DELTA
    
37.     end
    
38.   end
    
39.   # 如果第一次定义 Wheel 常量
    
40.   if !defined? Wheel
    
41.     # 初始化滚轮相关数据
    
42.     Wheel = Win32API.new('rm_mouse_wheel', 'intercept', 'v', 'v')
    
43.     Wheel.call
    
44.     @@delta = 0
    
45.   end
    
46. end

复制代码

紫苏

*需求*存档改为 16 个的脚本

紫苏

经测试发现退出游戏（不过是否异常退出）时卡死是由于我那个根除 Hangup 的脚本没有捕获到异常导致的，原因是这个脚本修改了 Class#===，而这个继承自 Module#=== 的方法是被 Ruby 的异常处理机制使用了的（可能是获取回溯信息），这个脚本的重载方法使得 Module#=== 失去了原有的效果，导致异常处理不正常
最后更新版：

1. module Mouse
   
2.   # 累积 delta 值上限
   
3.   WHEEL_DELTA = 120
   
4.   def self.on_wheel(delta, keys, x, y)
   
5.     # 此次滚动是否产生了效果
   
6.     effect = false
   
7.     # 累积 delta
   
8.     @@delta += delta
   
9.     if @@delta.abs >= WHEEL_DELTA
   
10.       delta_idx = - @@delta / WHEEL_DELTA
    
11.       # 进行特定场景的特殊处理
    
12.       case $scene
    
13.       when Scene_File
    
14.         savefile_windows = $scene.instance_eval {
    
15.           @savefile_windows[@file_index - @offset].selected = false
    
16.           @file_index = (@file_index + delta_idx) % System::SAVEFILE_AMOUNT
    
17.           # 更新存档页面偏移量
    
18.           if @file_index - @offset >= 4
    
19.             @offset = @file_index - 3
    
20.             refresh_savefile_windows
    
21.           elsif @offset - @file_index >= 1
    
22.             @offset = @file_index
    
23.             refresh_savefile_windows
    
24.           end
    
25.           @savefile_windows[@file_index - @offset].selected = true
    
26.         }
    
27.         effect = true
    
28.       end
    
29.       # 枚举 Window_Selectable 可选择窗口对象
    
30.       ObjectSpace.each_object(Window_Selectable) { |o|
    
31.         # 光标索引上限
    
32.         limit = o.instance_eval { @item_max }
    
33.         # 如果可选择窗口未被释放、已激活、可见
    
34.         if not o.disposed? and o.active and o.visible
    
35.           # 移动光标
    
36.           o.index = (o.index + delta_idx) % limit
    
37.           effect = true
    
38.         end
    
39.       }
    
40.       # 如果产生了效果就播放移动光标 SE
    
41.       effect and $game_system.se_play($data_system.cursor_se)
    
42. 
    
43.       # 重新累积 delta
    
44.       @@delta %= WHEEL_DELTA
    
45.     end
    
46.   end
    
47.   # 如果第一次定义 Wheel 常量
    
48.   if !defined? Wheel
    
49.     # 初始化滚轮相关数据
    
50.     Wheel = Win32API.new('rm_mouse_wheel', 'intercept', 'v', 'v')
    
51.     Wheel.call
    
52.     @@delta = 0
    
53.   end
    
54. end

复制代码