鼠标输入模块 修复press判定的bug

zh99998

原鼠标输入模块中press判定有bug，以下为修复后的：

1. #==============================================================================
   
2. # ** 鼠标输入模块
   
3. #------------------------------------------------------------------------------
   
4. #   微调 by zh99998
   
5. #   版本 1.2a
   
6. #   06-30-2010
   
7. #   修复press判定
   
8. #   基于沉影的鼠标系统修改版alpha
   
9. #------------------------------------------------------------------------------
   
10. #   by DerVVulfman
    
11. #   版本 1.2
    
12. #   08-18-2007
    
13. #------------------------------------------------------------------------------
    
14. #   建立在鼠标输入模块...
    
15. #
    
16. #   by Near Fantastica
    
17. #------------------------------------------------------------------------------
    
18. #   Set_Pos feature by
    
19. #   Freakboy
    
20. #------------------------------------------------------------------------------
    
21. #
    
22. #   CALLS:
    
23. #
    
24. #   Mouse.click?
    
25. #   判断鼠标是否真的按下(Ture/False).
    
26. #   这个值控制您按下的是左/右键,还是中键
    
27. 
    
28. #
    
29. #   Mouse.press?
    
30. #   判断鼠标是否真的按下/保持按下状态
    
31. #   这个值控制您按下的是左/右键,还是中键
    
32. #   Mouse.pixels
    
33. #   Mouse.pixels
    
34. #   这个值返回鼠标所在的坐标(640*480大小),如果鼠标超出游戏画面,这个值为空
    
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. 
    
53. module Mouse
    
54.   #--------------------------------------------------------------------------
    
55.   # ## 常量
    
56.   #--------------------------------------------------------------------------
    
57.   GetAsyncKeyState = Win32API.new("user32","GetAsyncKeyState",['i'],'i')
    
58.   GetKeyState = Win32API.new("user32","GetKeyState",['i'],'i')
    
59.   
    
60.   ScreenToClient = Win32API.new('user32', 'ScreenToClient', 'lp', 'i')
    
61.   
    
62.   GetCursorPos = Win32API.new('user32', 'GetCursorPos', 'p', 'i')
    
63.   GetClientRect = Win32API.new('user32', 'GetClientRect', 'lp', 'i')
    
64.   
    
65.   #--------------------------------------------------------------------------
    
66.   # * Mouse Click
    
67.   #     button      : button
    
68.   #--------------------------------------------------------------------------
    
69.   def Mouse.click?(button)
    
70.     return false if button == 1 and !$click_abled
    
71.     return true if @keys.include?(button)
    
72.     return false
    
73.   end  
    
74.   #--------------------------------------------------------------------------
    
75.   # * Mouse Pressed
    
76.   #     button      : button
    
77.   #--------------------------------------------------------------------------
    
78.   def Mouse.press?(button)
    
79.     return true if @press.include?(button)
    
80.     return false
    
81.   end
    
82.   #--------------------------------------------------------------------------
    
83.   # * Mouse Pressed
    
84.   #     button      : button
    
85.   #--------------------------------------------------------------------------
    
86.   def Mouse.area?(x, y, width=32, height=32)
    
87.     return false if @pos == nil
    
88.     return true if @pos[0] >= x and @pos[0] <= (x+width) and @pos[1] >= y and @pos[1] <= (y+height)
    
89.     return false
    
90.   end
    
91.   #--------------------------------------------------------------------------
    
92.   # * Mouse Pixel Position
    
93.   #--------------------------------------------------------------------------
    
94.   def Mouse.pixels
    
95.     return @pos == nil ? [0, 0] : @pos
    
96.   end
    
97.   #--------------------------------------------------------------------------
    
98.   # * Mouse Tile Position
    
99.   #--------------------------------------------------------------------------
    
100.   def Mouse.tiles
     
101.     return nil if @pos == nil
     
102.     x = @pos[0] / 32
     
103.     y = @pos[1] / 32
     
104.     return [x, y]
     
105.   end
     
106.   #--------------------------------------------------------------------------
     
107.   # * Set Mouse Position
     
108.   #--------------------------------------------------------------------------
     
109.   def Mouse.set_pos(x_pos=0, y_pos=0)
     
110.     width, height = Mouse.client_size
     
111.     if (x_pos.between?(0, width) && y_pos.between?(0, height))
     
112.       x = Mouse.client_pos[0] + x_pos; y = Mouse.client_pos[1] + y_pos
     
113.       Win32API.new('user32', 'SetCursorPos', 'NN', 'N').call(x, y)
     
114.     end
     
115.   end
     
116.   #--------------------------------------------------------------------------
     
117.   # * Mouse Update
     
118.   #--------------------------------------------------------------------------
     
119.   def Mouse.update
     
120.     @pos            = Mouse.pos
     
121.     @keys, @press   = [], []
     
122.     @keys.push(1)   if GetAsyncKeyState.call(1) & 0X01 == 1
     
123.     @keys.push(2)   if GetAsyncKeyState.call(2) & 0X01 == 1
     
124.     @keys.push(3)   if GetAsyncKeyState.call(4) & 0X01 == 1
     
125.     @press.push(1)  if GetKeyState.call(1) > 1
     
126.     @press.push(2)  if GetKeyState.call(2) > 1
     
127.     @press.push(3)  if GetKeyState.call(4) > 1
     
128.     ## 鼠标双击
     
129.     @wait ||= 0
     
130.     @wait += 1 if @key != nil
     
131.     (@key = nil; @wait = 0) if @wait > 30 # 双击时间
     
132.   end  
     
133.   #--------------------------------------------------------------------------
     
134.   # * Automatic functions below
     
135.   #--------------------------------------------------------------------------
     
136.   #
     
137.   #--------------------------------------------------------------------------
     
138.   # * Obtain Mouse position in screen
     
139.   #--------------------------------------------------------------------------
     
140.   def Mouse.global_pos
     
141.     pos = [0, 0].pack('ll')
     
142.     if GetCursorPos.call(pos) != 0
     
143.       return pos.unpack('ll')
     
144.     else
     
145.       return nil
     
146.     end
     
147.   end
     
148.   #--------------------------------------------------------------------------
     
149.   # * Return Screen mouse position within game window
     
150.   #--------------------------------------------------------------------------
     
151.   def Mouse.pos
     
152.     x, y = Mouse.screen_to_client(*Mouse.global_pos)
     
153.     width, height = Mouse.client_size
     
154.     begin
     
155.       if (x >= 0 and y >= 0 and x < width and y < height)
     
156.         return x, y
     
157.       else
     
158.         return nil
     
159.       end
     
160.     rescue
     
161.       return nil
     
162.     end
     
163.   end
     
164.   #--------------------------------------------------------------------------
     
165.   #  * Pass Screen to Game System
     
166.   #--------------------------------------------------------------------------
     
167.   def Mouse.screen_to_client(x, y)
     
168.     return nil unless x and y
     
169.     pos = [x, y].pack('ll')
     
170.     if ScreenToClient.call(HWND, pos) != 0
     
171.       return pos.unpack('ll')
     
172.     else
     
173.       return nil
     
174.     end
     
175.   end
     
176.   #--------------------------------------------------------------------------
     
177.   # * Get Game Window Size
     
178.   #--------------------------------------------------------------------------
     
179.   def Mouse.client_size
     
180.     rect = [0, 0, 0, 0].pack('l4')
     
181.     GetClientRect.call(HWND, rect)
     
182.     right, bottom = rect.unpack('l4')[2..3]
     
183.     return right, bottom
     
184.   end
     
185.   #--------------------------------------------------------------------------
     
186.   # * Get Window Position
     
187.   #--------------------------------------------------------------------------
     
188.   def Mouse.client_pos
     
189.     rect = [0, 0, 0, 0].pack('l4')
     
190.     ## 用户区
     
191.     GetClientRect.call(HWND, rect)
     
192.     left, upper = rect.unpack('l4')[0..1]
     
193.     return left, upper
     
194.   end
     
195.   #--------------------------------------------------------------------------
     
196.   # ## 句柄
     
197.   #--------------------------------------------------------------------------
     
198.   def Mouse.get_hwnd
     
199.     game_name = "\0" * 256
     
200.     Win32API.new('kernel32', 'GetPrivateProfileStringA', 'pppplp', 'l').call('Game','Title','',game_name,255,".\\Game.ini")
     
201.     game_name.delete!("\0")
     
202.     return Win32API.new('user32', 'FindWindowA', 'pp', 'l').call('RGSS Player',game_name)
     
203.   end
     
204.   #--------------------------------------------------------------------------
     
205.   # ## 双击
     
206.   #--------------------------------------------------------------------------
     
207.   def self.double_click?(key)
     
208.     if @keys.include?(key)
     
209.       @key !=key ? (@key = key; return false) : (@key = nil; return true)
     
210.     end
     
211.   end
     
212.   ## 句柄常量
     
213.   HWND = Mouse.get_hwnd
     
214.   
     
215.   ###############
     
216.   GetMessage = Win32API.new('user32','GetMessage','plll','l')
     
217.   
     
218.   Point = Struct.new(:x, :y)
     
219.   Message = Struct.new(:message, :wparam, :lparam, :pt)
     
220.   Param = Struct.new(:x, :y, :scroll)
     
221.   
     
222.   def self.scroll
     
223.     msg = "\0"*32
     
224.     GetMessage.call(msg,0,0,0)
     
225.     r = wmcallback(unpack_msg(msg))
     
226.     return r unless r.nil?
     
227.   end
     
228.   
     
229.   def wmcallback(msg)
     
230.     return unless msg.message == Scroll
     
231.     param = Param.new
     
232.     param.x = word2signed_short(loword(msg.lparam))
     
233.     param.y = word2signed_short(hiword(msg.lparam))
     
234.     param.scroll = word2signed_short(hiword(msg.wparam))
     
235.     return [param.x,param.y,param.scroll]
     
236.   end
     
237.   
     
238.   def hiword(dword)
     
239.     ###return ((dword&0xffff0000)>>16)&0x0000ffff
     
240.     return (dword & 0xffff0000) / 0x10000
     
241.   end
     
242.   
     
243.   def loword(dword)
     
244.     return dword&0x0000ffff
     
245.   end
     
246. end
     
247. 
     

复制代码

改动在于Mouse.update中@press.push部分

1.     @press.push(1)  if GetKeyState.call(1) > 1
   
2.     @press.push(2)  if GetKeyState.call(2) > 1
   
3.     @press.push(3)  if GetKeyState.call(4) > 1

复制代码

脚本基于沉影的鼠标系统修改alpha