如何显示光标

破神诛仙

如何在游戏中显示光标（鼠标）？
搜索竟然没有啊

zhixin1997

搜索“鼠标脚本”

忧雪の伤

RMXP没有内置Mouse Module。

1. #==============================================================================
   
2. # ** Mouse Input Module (Revised)
   
3. #------------------------------------------------------------------------------
   
4. #   by DerVVulfman
   
5. #   version 1.2
   
6. #   08-18-2007
   
7. #------------------------------------------------------------------------------
   
8. #   Based on...
   
9. #   Mouse Input Module
   
10. #   by Near Fantastica
    
11. #------------------------------------------------------------------------------
    
12. #   Set_Pos feature by
    
13. #   Freakboy
    
14. #------------------------------------------------------------------------------
    
15. #
    
16. #   THE CALLS:
    
17. #
    
18. #   Mouse.click?
    
19. #   This returns a true/false value  when you test whether a button is clicked.
    
20. #   The values you pass are 1 (for the left mouse button), 2 (for the right) or
    
21. #   3 (for the middle button).
    
22. #
    
23. #   Mouse.press?
    
24. #   This returns a true/false value  when you test  whether a button is pressed
    
25. #   and kept depressed.  The values you pass are 1 (for the left mouse button),
    
26. #   2 (for the right mouse button), or 3 (for the middle).
    
27. #
    
28. #   Mouse.pixels
    
29. #   This returns the  mouse's screen coordinates  in pixels.  Based on a screen
    
30. #   with a 640x480 dimension,  this returns an array of the mouse's position in
    
31. #   index values.  Calling Mouse.pixels returns both x & y positions  in a sin-
    
32. #   gle string,  but calling Mouse.pixels[0] returns the x position (0-639) and
    
33. #   calling Mouse.pixels[1]  returns  the y position (0-439).   If the mouse is
    
34. #   outside of the game's window region, this call returns nil.
    
35. #
    
36. #   Mouse.tiles
    
37. #   This returns  the mouse's screen  coordinates  in map tiles.   Based on the
    
38. #   system's 20x15 tile size,  this returns it in index values  (a 0-19 width &
    
39. #   a 0-14 height).  This functions the same manner as Mouse.pixels.
    
40. #
    
41. #   Mouse.set_pos
    
42. #   This allows you  to forcefully position the mouse at an x/y position within
    
43. #   the game screen by pixel coordinates.  Given the game's normal screen width
    
44. #   of 640x480, adding:  Mouse.set_pos(320,240)  should position the mouse dead
    
45. #   center of the gaming window.
    
46. #
    
47. #   Mouse.update
    
48. #   Add this routine  into your update routines  to update  the mouse position.
    
49. #   It must be called otherwise you won't get valid mouse coordinates.
    
50. #==============================================================================
    
51. 
    
52. module Mouse
    
53.   #--------------------------------------------------------------------------
    
54.   # * Mouse in_area
    
55.   #--------------------------------------------------------------------------
    
56.   def Mouse.area?(x, y, width=32, height=32)
    
57.     return false if @pos == nil
    
58.     return true if @pos[0] >= x and @pos[0] <= (x+width) and @pos[1] >= y and @pos[1] <= (y+height)
    
59.     return false
    
60.   end
    
61.   #--------------------------------------------------------------------------
    
62.   # * Mouse Pixel Position
    
63.   #--------------------------------------------------------------------------
    
64.   def Mouse.pixels
    
65.     return @pos == nil ? [0, 0] : @pos
    
66.   end
    
67.   #--------------------------------------------------------------------------
    
68.   # * Mouse Tile Position
    
69.   #--------------------------------------------------------------------------
    
70.   def Mouse.tiles
    
71.     return nil if @pos == nil
    
72.     x = @pos[0] / 32
    
73.     y = @pos[1] / 32
    
74.     return [x, y]
    
75.   end
    
76.   #--------------------------------------------------------------------------
    
77.   # * Mouse Update
    
78.   #--------------------------------------------------------------------------
    
79.   def Mouse.update
    
80.     @pos = Mouse.pos
    
81.     ## 清空
    
82.     @press,@toggled = 0,0
    
83.     ## 状态记录
    
84.     @press += LKEY   if GetKeyState.call(LKEY) & 0x8000 > 0
    
85.     @press += RKEY   if GetKeyState.call(RKEY) & 0x8000 > 0
    
86.     @press += MKEY   if GetKeyState.call(MKEY) & 0x8000 > 0
    
87.     ## 触发记录
    
88.     @toggled += LKEY if GetKeyState.call(LKEY) & 0x01 > 0
    
89.     @toggled += RKEY if GetKeyState.call(RKEY) & 0x01 > 0
    
90.     @toggled += MKEY if GetKeyState.call(MKEY) & 0x01 > 0
    
91.     ## 单击记录
    
92.     @clicks.shift if @clicks.size >=2
    
93.     @clicks.push @press
    
94.     ## 双击记录
    
95.     if @dblc.size >= 2
    
96.       @dblc.clear
    
97.       @count = 0
    
98.     end
    
99.     if @dblc.size == 1 and @count - @dblc[0][1] > DBLCTIME
    
100.       @dblc.clear
     
101.       @count = 0
     
102.     end
     
103.     if @clicks[0] == 0 and @clicks[1] != 0
     
104.       if @dblc.size == 1 and @dblc[0][0] != @clicks[1]
     
105.         @dblc.clear
     
106.         @count = 0
     
107.       end
     
108.       @dblc.push [@press,@count,@pos]
     
109.     end
     
110.     @count += 1 unless @dblc.empty?
     
111.     ## 移动记录
     
112.     @move_pos.shift if @move_pos.size >= 2
     
113.     @move_pos.push @pos
     
114.     ## 控制鼠标单击效果
     
115.     $click_abled = true
     
116.   end
     
117.   #--------------------------------------------------------------------------
     
118.   # * Automatic functions below
     
119.   #--------------------------------------------------------------------------
     
120.   #
     
121.   #--------------------------------------------------------------------------
     
122.   # * Obtain Mouse position in screen
     
123.   #--------------------------------------------------------------------------
     
124.   def Mouse.global_pos
     
125.     pos = [0, 0].pack('ll')
     
126.     ## 屏幕坐标
     
127.     return GetCursorPos.call(pos) != 0 ? pos.unpack('ll') : nil
     
128.   end
     
129.   #--------------------------------------------------------------------------
     
130.   # * Return Screen mouse position within game window
     
131.   #--------------------------------------------------------------------------
     
132.   def Mouse.pos
     
133.     x, y = Mouse.screen_to_client(*Mouse.global_pos)
     
134.     width, height = Mouse.client_size
     
135.     begin
     
136.       if (x >= 0 and y >= 0 and x < width and y < height)
     
137.         return x, y
     
138.       else
     
139.         return nil
     
140.       end
     
141.     rescue
     
142.       return nil
     
143.     end
     
144.   end
     
145.   #--------------------------------------------------------------------------
     
146.   #  * Pass Screen to Game System
     
147.   #--------------------------------------------------------------------------
     
148.   def Mouse.screen_to_client(x, y)
     
149.     return nil unless x and y
     
150.     pos = [x, y].pack('ll')
     
151.     if ScreenToClient.call(HWND, pos) != 0
     
152.       return pos.unpack('ll')
     
153.     else
     
154.       return nil
     
155.     end
     
156.   end
     
157.   #--------------------------------------------------------------------------
     
158.   # * Get Game Window Size
     
159.   #--------------------------------------------------------------------------
     
160.   def Mouse.client_size
     
161.     rect = [0, 0, 0, 0].pack('l4')
     
162.     GetClientRect.call(HWND, rect)
     
163.     right, bottom = rect.unpack('l4')[2..3]
     
164.     return right, bottom
     
165.   end
     
166.   #--------------------------------------------------------------------------
     
167.   # * Get Window Position
     
168.   #--------------------------------------------------------------------------
     
169.   def Mouse.client_pos
     
170.     rect = [0, 0, 0, 0].pack('l4')
     
171.     GetWindowRect.call(HWND, rect)
     
172.     left, upper = rect.unpack('l4')[0..1]
     
173.     return left+4, upper+30
     
174.   end
     
175.   #--------------------------------------------------------------------------
     
176.   # ## 设定鼠标坐标
     
177.   #--------------------------------------------------------------------------
     
178.   def self.set_pos(x = 0, y = 0)
     
179.     width, height = Mouse.client_size
     
180.     if (x.between?(0, width) && y.between?(0, height))
     
181.       px = Mouse.client_pos[0] + x
     
182.       py = Mouse.client_pos[1] + y
     
183.       Win32API.new('user32', 'SetCursorPos', 'ii', 'l').call(px, py)
     
184.     end
     
185.   end
     
186.   #--------------------------------------------------------------------------
     
187.   # ## 触发?
     
188.   #--------------------------------------------------------------------------
     
189.   def self.toggled?(key)
     
190.     return @toggled & key != 0
     
191.   end
     
192.   #--------------------------------------------------------------------------
     
193.   # ## 按下?
     
194.   #--------------------------------------------------------------------------
     
195.   def Mouse.press?(key)
     
196.     return @press & key != 0
     
197.   end
     
198.   #--------------------------------------------------------------------------
     
199.   # ## 单击?
     
200.   #--------------------------------------------------------------------------
     
201.   def self.click?(key)
     
202.     return false if key == LKEY and !$click_abled
     
203.     return @clicks[0] & key == 0 && @clicks[1] & key != 0
     
204.   end
     
205.   #--------------------------------------------------------------------------
     
206.   # ## 双击?
     
207.   #--------------------------------------------------------------------------
     
208.   def self.dbl_click?(key)
     
209.     return false if @dblc.size < 2
     
210.     ## 键值有效
     
211.     if @dblc[1][0] & key != 0 and @dblc[0][0] & key != 0
     
212.       ## 间隔有效
     
213.       if @dblc[1][1] - @dblc[0][1] < DBLCTIME
     
214.         ## 坐标有效
     
215.         if @dblc[1][2] == @dblc[0][2]
     
216.           return @clicks[0] & key == 0 && @clicks[1] & key != 0
     
217.         end
     
218.       end
     
219.     end
     
220.     return false
     
221.   end
     
222.   #--------------------------------------------------------------------------
     
223.   # ## 经过?
     
224.   #     obj       : 对象实例
     
225.   #                 **支持Sprite,Window,Viewport,Rect,Plane,可补充
     
226.   #--------------------------------------------------------------------------
     
227.   def Mouse.over?(obj)
     
228.     case obj
     
229.     when Sprite
     
230.       x = obj.x-obj.ox; y = obj.y-obj.oy
     
231.       unless obj.viewport.nil?
     
232.         x += obj.viewport.rect.x
     
233.         y += obj.viewport.rect.y
     
234.       end
     
235.       return Mouse.area?(x, y, obj.width, obj.height)
     
236.     when Window
     
237.       x = obj.x;y = obj.y
     
238.       unless obj.viewport.nil?
     
239.         x += obj.viewport.rect.x
     
240.         y += obj.viewport.rect.y
     
241.       end
     
242.       return Mouse.area?(x, y, obj.width, obj.height)
     
243.     when Viewport
     
244.       return Mouse.area?(obj.rect.x, obj.rect.y, obj.rect.width, obj.rect.height)
     
245.     when Rect
     
246.       return Mouse.area?(obj.x, obj.y, obj.width, obj.height)
     
247.     when Plane
     
248.       x = obj.x;y = obj.y
     
249.       unless obj.viewport.nil?
     
250.         x += obj.viewport.rect.x
     
251.         y += obj.viewport.rect.y
     
252.       end
     
253.       return Mouse.area?(x, y, obj.width, obj.height)
     
254.     end
     
255.   end
     
256.   #--------------------------------------------------------------------------
     
257.   # ## 移动?
     
258.   #--------------------------------------------------------------------------
     
259.   def self.move?
     
260.     return false if @move_pos.size < 2
     
261.     return @move_pos[1] != @move_pos[0]
     
262.   end
     
263.   #--------------------------------------------------------------------------
     
264.   # ## 滚轮
     
265.   #--------------------------------------------------------------------------
     
266.   def self.scroll
     
267.     msg = "\0"*32
     
268.     PeekMessage.call(msg,0,0,0,PM_NOREMOVE)
     
269.     r = unpack_msg(msg)
     
270.     return unless r[0] == WM_MOUSEWHEEL
     
271.     return word2signed_short(hiword(r[1]))
     
272.   end
     
273.   #--------------------------------------------------------------------------
     
274.   # ## 窗体信息
     
275.   #--------------------------------------------------------------------------
     
276.   def self.unpack_msg(buffer)
     
277.     msg = []
     
278.     msg << unpack_dword(buffer, 4*1)
     
279.     msg << unpack_dword(buffer, 4*2)
     
280.     return msg
     
281.   end
     
282.   #--------------------------------------------------------------------------
     
283.   # ## 转带符号整型
     
284.   #--------------------------------------------------------------------------
     
285.   def self.word2signed_short(value)
     
286.     return value if (value & 0x8000)==0
     
287.     return -1*((~value&0x7fff) + 1)
     
288.   end
     
289.   #--------------------------------------------------------------------------
     
290.   # ## 低位
     
291.   #--------------------------------------------------------------------------
     
292.   def self.loword(dword)
     
293.     return dword & 0x0000ffff
     
294.   end
     
295.   #--------------------------------------------------------------------------
     
296.   # ## 高位
     
297.   #--------------------------------------------------------------------------
     
298.   def self.hiword(dword)
     
299.     return (dword & 0xffff0000) / 0x10000
     
300.   end
     
301.   #--------------------------------------------------------------------------
     
302.   # ## 双字节
     
303.   #--------------------------------------------------------------------------
     
304.   def self.unpack_dword(buffer, offset=0)
     
305.     ret=buffer[offset+0]&0x000000ff
     
306.     ret|=(buffer[offset+1]<<(8*1)) & 0x0000ff00
     
307.     ret|=(buffer[offset+2]<<(8*2)) & 0x00ff0000
     
308.     ret|=(buffer[offset+3]<<(8*3)) & 0xff000000
     
309.     return ret
     
310.   end
     
311.   #--------------------------------------------------------------------------
     
312.   # ## 常量
     
313.   #--------------------------------------------------------------------------
     
314.   GetKeyState      = Win32API.new('user32','GetKeyState',['i'],'i')
     
315.   ScreenToClient   = Win32API.new('user32', 'ScreenToClient', 'lp', 'i')
     
316.   GetCursorPos     = Win32API.new('user32', 'GetCursorPos', 'p', 'i')
     
317.   GetWindowRect    = Win32API.new('user32', 'GetWindowRect', 'lp', 'i')
     
318.   GetClientRect    = Win32API.new('user32', 'GetClientRect', 'lp', 'i')
     
319.   GetDblClickTime  = Win32API.new('user32','GetDoubleClickTime','','l')
     
320.   PeekMessage      = Win32API.new('user32','PeekMessage','pllll','l')
     
321.   
     
322.   WM_MOUSEWHEEL    = 0x20A
     
323.   PM_NOREMOVE      = 0x0
     
324.   
     
325.   HWND             = get_hwnd
     
326.   LKEY,RKEY,MKEY   = 1,2,4
     
327.   DBLCTIME         = (GetDblClickTime.call * 60.0 / 1000).round
     
328.   #--------------------------------------------------------------------------
     
329.   # ## 内部变量
     
330.   #--------------------------------------------------------------------------
     
331.   @count    = 0     ## 双击时间计数
     
332.   @dblc     = []    ## 双击记录[key,wait,[mouse_x,mouse_y]]
     
333.   @move_pos = []    ## 移动记录
     
334.   @clicks   = []    ## 单击记录
     
335. end

复制代码

这其实才是好脚本，比那些站上流传的鼠标脚本好多了。
不过……要自己写图标刷新。

破神诛仙

为什么第325行会ERROR啊
55555555555555555555

忧雪の伤

1. #==============================================================================
   
2. # [XP/VX] 精确获取窗口句柄 by 紫苏
   
3. #==============================================================================
   
4. # ■ Kernel
   
5. #==============================================================================
   
6. module Kernel
   
7.   #--------------------------------------------------------------------------
   
8.   # ● 需要的 Windows API 函数
   
9.   #--------------------------------------------------------------------------
   
10.   GetWindowThreadProcessId = Win32API.new("user32", "GetWindowThreadProcessId", "LP", "L")
    
11.   GetWindow = Win32API.new("user32", "GetWindow", "LL", "L")
    
12.   GetClassName = Win32API.new("user32", "GetClassName", "LPL", "L")
    
13.   GetCurrentThreadId = Win32API.new("kernel32", "GetCurrentThreadId", "V", "L")
    
14.   GetForegroundWindow = Win32API.new("user32", "GetForegroundWindow", "V", "L")
    
15.   #--------------------------------------------------------------------------
    
16.   # ● 获取窗口句柄
    
17.   #--------------------------------------------------------------------------
    
18.   def get_hwnd
    
19.     # 获取调用线程（RM 的主线程）的进程标识
    
20.     threadID = GetCurrentThreadId.call
    
21.     # 获取 Z 次序中最靠前的窗口
    
22.     hWnd = GetWindow.call(GetForegroundWindow.call, 0)
    
23.     # 枚举所有窗口
    
24.     while hWnd != 0
    
25.       # 如果创建该窗口的线程标识匹配本线程标识
    
26.       if threadID == GetWindowThreadProcessId.call(hWnd, 0)
    
27.         # 分配一个 11 个字节的缓冲区
    
28.         className = " " * 11
    
29.         # 获取该窗口的类名
    
30.         GetClassName.call(hWnd, className, 12)
    
31.         # 如果匹配 RGSS Player 则跳出循环
    
32.         break if className == "RGSS Player"
    
33.       end
    
34.       # 获取下一个窗口
    
35.       hWnd = GetWindow.call(hWnd, 2)
    
36.     end
    
37.     return hWnd
    
38.   end
    
39. end
    
40. 
    
41. #==============================================================================
    
42. # ** Mouse Input Module (Revised)
    
43. #------------------------------------------------------------------------------
    
44. #   by DerVVulfman
    
45. #   version 1.2
    
46. #   08-18-2007
    
47. #------------------------------------------------------------------------------
    
48. #   Based on...
    
49. #   Mouse Input Module
    
50. #   by Near Fantastica
    
51. #------------------------------------------------------------------------------
    
52. #   Set_Pos feature by
    
53. #   Freakboy
    
54. #------------------------------------------------------------------------------
    
55. #
    
56. #   THE CALLS:
    
57. #
    
58. #   Mouse.click?
    
59. #   This returns a true/false value  when you test whether a button is clicked.
    
60. #   The values you pass are 1 (for the left mouse button), 2 (for the right) or
    
61. #   3 (for the middle button).
    
62. #
    
63. #   Mouse.press?
    
64. #   This returns a true/false value  when you test  whether a button is pressed
    
65. #   and kept depressed.  The values you pass are 1 (for the left mouse button),
    
66. #   2 (for the right mouse button), or 3 (for the middle).
    
67. #
    
68. #   Mouse.pixels
    
69. #   This returns the  mouse's screen coordinates  in pixels.  Based on a screen
    
70. #   with a 640x480 dimension,  this returns an array of the mouse's position in
    
71. #   index values.  Calling Mouse.pixels returns both x & y positions  in a sin-
    
72. #   gle string,  but calling Mouse.pixels[0] returns the x position (0-639) and
    
73. #   calling Mouse.pixels[1]  returns  the y position (0-439).   If the mouse is
    
74. #   outside of the game's window region, this call returns nil.
    
75. #
    
76. #   Mouse.tiles
    
77. #   This returns  the mouse's screen  coordinates  in map tiles.   Based on the
    
78. #   system's 20x15 tile size,  this returns it in index values  (a 0-19 width &
    
79. #   a 0-14 height).  This functions the same manner as Mouse.pixels.
    
80. #
    
81. #   Mouse.set_pos
    
82. #   This allows you  to forcefully position the mouse at an x/y position within
    
83. #   the game screen by pixel coordinates.  Given the game's normal screen width
    
84. #   of 640x480, adding:  Mouse.set_pos(320,240)  should position the mouse dead
    
85. #   center of the gaming window.
    
86. #
    
87. #   Mouse.update
    
88. #   Add this routine  into your update routines  to update  the mouse position.
    
89. #   It must be called otherwise you won't get valid mouse coordinates.
    
90. #==============================================================================
    
91. 
    
92. module Mouse
    
93.   #--------------------------------------------------------------------------
    
94.   # * Mouse in_area
    
95.   #--------------------------------------------------------------------------
    
96.   def Mouse.area?(x, y, width=32, height=32)
    
97.     return false if @pos == nil
    
98.     return true if @pos[0] >= x and @pos[0] <= (x+width) and @pos[1] >= y and @pos[1] <= (y+height)
    
99.     return false
    
100.   end
     
101.   #--------------------------------------------------------------------------
     
102.   # * Mouse Pixel Position
     
103.   #--------------------------------------------------------------------------
     
104.   def Mouse.pixels
     
105.     return @pos == nil ? [0, 0] : @pos
     
106.   end
     
107.   #--------------------------------------------------------------------------
     
108.   # * Mouse Tile Position
     
109.   #--------------------------------------------------------------------------
     
110.   def Mouse.tiles
     
111.     return nil if @pos == nil
     
112.     x = @pos[0] / 32
     
113.     y = @pos[1] / 32
     
114.     return [x, y]
     
115.   end
     
116.   #--------------------------------------------------------------------------
     
117.   # * Mouse Update
     
118.   #--------------------------------------------------------------------------
     
119.   def Mouse.update
     
120.     @pos = Mouse.pos
     
121.     ## 清空
     
122.     @press,@toggled = 0,0
     
123.     ## 状态记录
     
124.     @press += LKEY   if GetKeyState.call(LKEY) & 0x8000 > 0
     
125.     @press += RKEY   if GetKeyState.call(RKEY) & 0x8000 > 0
     
126.     @press += MKEY   if GetKeyState.call(MKEY) & 0x8000 > 0
     
127.     ## 触发记录
     
128.     @toggled += LKEY if GetKeyState.call(LKEY) & 0x01 > 0
     
129.     @toggled += RKEY if GetKeyState.call(RKEY) & 0x01 > 0
     
130.     @toggled += MKEY if GetKeyState.call(MKEY) & 0x01 > 0
     
131.     ## 单击记录
     
132.     @clicks.shift if @clicks.size >=2
     
133.     @clicks.push @press
     
134.     ## 双击记录
     
135.     if @dblc.size >= 2
     
136.       @dblc.clear
     
137.       @count = 0
     
138.     end
     
139.     if @dblc.size == 1 and @count - @dblc[0][1] > DBLCTIME
     
140.       @dblc.clear
     
141.       @count = 0
     
142.     end
     
143.     if @clicks[0] == 0 and @clicks[1] != 0
     
144.       if @dblc.size == 1 and @dblc[0][0] != @clicks[1]
     
145.         @dblc.clear
     
146.         @count = 0
     
147.       end
     
148.       @dblc.push [@press,@count,@pos]
     
149.     end
     
150.     @count += 1 unless @dblc.empty?
     
151.     ## 移动记录
     
152.     @move_pos.shift if @move_pos.size >= 2
     
153.     @move_pos.push @pos
     
154.     ## 控制鼠标单击效果
     
155.     $click_abled = true
     
156.   end
     
157.   #--------------------------------------------------------------------------
     
158.   # * Automatic functions below
     
159.   #--------------------------------------------------------------------------
     
160.   #
     
161.   #--------------------------------------------------------------------------
     
162.   # * Obtain Mouse position in screen
     
163.   #--------------------------------------------------------------------------
     
164.   def Mouse.global_pos
     
165.     pos = [0, 0].pack('ll')
     
166.     ## 屏幕坐标
     
167.     return GetCursorPos.call(pos) != 0 ? pos.unpack('ll') : nil
     
168.   end
     
169.   #--------------------------------------------------------------------------
     
170.   # * Return Screen mouse position within game window
     
171.   #--------------------------------------------------------------------------
     
172.   def Mouse.pos
     
173.     x, y = Mouse.screen_to_client(*Mouse.global_pos)
     
174.     width, height = Mouse.client_size
     
175.     begin
     
176.       if (x >= 0 and y >= 0 and x < width and y < height)
     
177.         return x, y
     
178.       else
     
179.         return nil
     
180.       end
     
181.     rescue
     
182.       return nil
     
183.     end
     
184.   end
     
185.   #--------------------------------------------------------------------------
     
186.   #  * Pass Screen to Game System
     
187.   #--------------------------------------------------------------------------
     
188.   def Mouse.screen_to_client(x, y)
     
189.     return nil unless x and y
     
190.     pos = [x, y].pack('ll')
     
191.     if ScreenToClient.call(HWND, pos) != 0
     
192.       return pos.unpack('ll')
     
193.     else
     
194.       return nil
     
195.     end
     
196.   end
     
197.   #--------------------------------------------------------------------------
     
198.   # * Get Game Window Size
     
199.   #--------------------------------------------------------------------------
     
200.   def Mouse.client_size
     
201.     rect = [0, 0, 0, 0].pack('l4')
     
202.     GetClientRect.call(HWND, rect)
     
203.     right, bottom = rect.unpack('l4')[2..3]
     
204.     return right, bottom
     
205.   end
     
206.   #--------------------------------------------------------------------------
     
207.   # * Get Window Position
     
208.   #--------------------------------------------------------------------------
     
209.   def Mouse.client_pos
     
210.     rect = [0, 0, 0, 0].pack('l4')
     
211.     GetWindowRect.call(HWND, rect)
     
212.     left, upper = rect.unpack('l4')[0..1]
     
213.     return left+4, upper+30
     
214.   end
     
215.   #--------------------------------------------------------------------------
     
216.   # ## 设定鼠标坐标
     
217.   #--------------------------------------------------------------------------
     
218.   def self.set_pos(x = 0, y = 0)
     
219.     width, height = Mouse.client_size
     
220.     if (x.between?(0, width) && y.between?(0, height))
     
221.       px = Mouse.client_pos[0] + x
     
222.       py = Mouse.client_pos[1] + y
     
223.       Win32API.new('user32', 'SetCursorPos', 'ii', 'l').call(px, py)
     
224.     end
     
225.   end
     
226.   #--------------------------------------------------------------------------
     
227.   # ## 触发?
     
228.   #--------------------------------------------------------------------------
     
229.   def self.toggled?(key)
     
230.     return @toggled & key != 0
     
231.   end
     
232.   #--------------------------------------------------------------------------
     
233.   # ## 按下?
     
234.   #--------------------------------------------------------------------------
     
235.   def Mouse.press?(key)
     
236.     return @press & key != 0
     
237.   end
     
238.   #--------------------------------------------------------------------------
     
239.   # ## 单击?
     
240.   #--------------------------------------------------------------------------
     
241.   def self.click?(key)
     
242.     return false if key == LKEY and !$click_abled
     
243.     return @clicks[0] & key == 0 && @clicks[1] & key != 0
     
244.   end
     
245.   #--------------------------------------------------------------------------
     
246.   # ## 双击?
     
247.   #--------------------------------------------------------------------------
     
248.   def self.dbl_click?(key)
     
249.     return false if @dblc.size < 2
     
250.     ## 键值有效
     
251.     if @dblc[1][0] & key != 0 and @dblc[0][0] & key != 0
     
252.       ## 间隔有效
     
253.       if @dblc[1][1] - @dblc[0][1] < DBLCTIME
     
254.         ## 坐标有效
     
255.         if @dblc[1][2] == @dblc[0][2]
     
256.           return @clicks[0] & key == 0 && @clicks[1] & key != 0
     
257.         end
     
258.       end
     
259.     end
     
260.     return false
     
261.   end
     
262.   #--------------------------------------------------------------------------
     
263.   # ## 经过?
     
264.   #     obj       : 对象实例
     
265.   #                 **支持Sprite,Window,Viewport,Rect,Plane,可补充
     
266.   #--------------------------------------------------------------------------
     
267.   def Mouse.over?(obj)
     
268.     case obj
     
269.     when Sprite
     
270.       x = obj.x-obj.ox; y = obj.y-obj.oy
     
271.       unless obj.viewport.nil?
     
272.         x += obj.viewport.rect.x
     
273.         y += obj.viewport.rect.y
     
274.       end
     
275.       return Mouse.area?(x, y, obj.width, obj.height)
     
276.     when Window
     
277.       x = obj.x;y = obj.y
     
278.       unless obj.viewport.nil?
     
279.         x += obj.viewport.rect.x
     
280.         y += obj.viewport.rect.y
     
281.       end
     
282.       return Mouse.area?(x, y, obj.width, obj.height)
     
283.     when Viewport
     
284.       return Mouse.area?(obj.rect.x, obj.rect.y, obj.rect.width, obj.rect.height)
     
285.     when Rect
     
286.       return Mouse.area?(obj.x, obj.y, obj.width, obj.height)
     
287.     when Plane
     
288.       x = obj.x;y = obj.y
     
289.       unless obj.viewport.nil?
     
290.         x += obj.viewport.rect.x
     
291.         y += obj.viewport.rect.y
     
292.       end
     
293.       return Mouse.area?(x, y, obj.width, obj.height)
     
294.     end
     
295.   end
     
296.   #--------------------------------------------------------------------------
     
297.   # ## 移动?
     
298.   #--------------------------------------------------------------------------
     
299.   def self.move?
     
300.     return false if @move_pos.size < 2
     
301.     return @move_pos[1] != @move_pos[0]
     
302.   end
     
303.   #--------------------------------------------------------------------------
     
304.   # ## 滚轮
     
305.   #--------------------------------------------------------------------------
     
306.   def self.scroll
     
307.     msg = "\0"*32
     
308.     PeekMessage.call(msg,0,0,0,PM_NOREMOVE)
     
309.     r = unpack_msg(msg)
     
310.     return unless r[0] == WM_MOUSEWHEEL
     
311.     return word2signed_short(hiword(r[1]))
     
312.   end
     
313.   #--------------------------------------------------------------------------
     
314.   # ## 窗体信息
     
315.   #--------------------------------------------------------------------------
     
316.   def self.unpack_msg(buffer)
     
317.     msg = []
     
318.     msg << unpack_dword(buffer, 4*1)
     
319.     msg << unpack_dword(buffer, 4*2)
     
320.     return msg
     
321.   end
     
322.   #--------------------------------------------------------------------------
     
323.   # ## 转带符号整型
     
324.   #--------------------------------------------------------------------------
     
325.   def self.word2signed_short(value)
     
326.     return value if (value & 0x8000)==0
     
327.     return -1*((~value&0x7fff) + 1)
     
328.   end
     
329.   #--------------------------------------------------------------------------
     
330.   # ## 低位
     
331.   #--------------------------------------------------------------------------
     
332.   def self.loword(dword)
     
333.     return dword & 0x0000ffff
     
334.   end
     
335.   #--------------------------------------------------------------------------
     
336.   # ## 高位
     
337.   #--------------------------------------------------------------------------
     
338.   def self.hiword(dword)
     
339.     return (dword & 0xffff0000) / 0x10000
     
340.   end
     
341.   #--------------------------------------------------------------------------
     
342.   # ## 双字节
     
343.   #--------------------------------------------------------------------------
     
344.   def self.unpack_dword(buffer, offset=0)
     
345.     ret=buffer[offset+0]&0x000000ff
     
346.     ret|=(buffer[offset+1]<<(8*1)) & 0x0000ff00
     
347.     ret|=(buffer[offset+2]<<(8*2)) & 0x00ff0000
     
348.     ret|=(buffer[offset+3]<<(8*3)) & 0xff000000
     
349.     return ret
     
350.   end
     
351.   #--------------------------------------------------------------------------
     
352.   # ## 常量
     
353.   #--------------------------------------------------------------------------
     
354.   GetKeyState      = Win32API.new('user32','GetKeyState',['i'],'i')
     
355.   ScreenToClient   = Win32API.new('user32', 'ScreenToClient', 'lp', 'i')
     
356.   GetCursorPos     = Win32API.new('user32', 'GetCursorPos', 'p', 'i')
     
357.   GetWindowRect    = Win32API.new('user32', 'GetWindowRect', 'lp', 'i')
     
358.   GetClientRect    = Win32API.new('user32', 'GetClientRect', 'lp', 'i')
     
359.   GetDblClickTime  = Win32API.new('user32','GetDoubleClickTime','','l')
     
360.   PeekMessage      = Win32API.new('user32','PeekMessage','pllll','l')
     
361.   
     
362.   WM_MOUSEWHEEL    = 0x20A
     
363.   PM_NOREMOVE      = 0x0
     
364.   
     
365.   HWND             = get_hwnd
     
366.   LKEY,RKEY,MKEY   = 1,2,4
     
367.   DBLCTIME         = (GetDblClickTime.call * 60.0 / 1000).round
     
368.   #--------------------------------------------------------------------------
     
369.   # ## 内部变量
     
370.   #--------------------------------------------------------------------------
     
371.   @count    = 0     ## 双击时间计数
     
372.   @dblc     = []    ## 双击记录[key,wait,[mouse_x,mouse_y]]
     
373.   @move_pos = []    ## 移动记录
     
374.   @clicks   = []    ## 单击记录
     
375. end

复制代码

- -，原来这货还带着精确获取。