鼠标卷屏效果

幻の飞鱼

自己的《断指守卫》需要这个效果就做了

MS以前看到有人要，也不知道有人做过没

自己做的时候才发现，原来这么简单就可以了- -||寒一下

使用的时候还需要配合一个鼠标脚本，主战上任何一个脚本似乎都可以

范例：http://rpg.blue/upload_program/files/鼠标卷屏.rar

1. class Scene_Map
   
2.   alias old update
   
3.   def update
   
4.     @by = 32 #感应鼠标边缘的范围
   
5.     @speed = 64 #移动速度
   
6.     mx,my = Mouse.get_mouse_pos
   
7.     move_r if mx>640-@by
   
8.     move_l if mx<@by
   
9.     move_u if my<@by
   
10.     move_d if my>480-@by
    
11.     old
    
12.   end
    
13.   def move_r
    
14.     $game_map.scroll_right(@speed)
    
15.   end  
    
16.   def move_l
    
17.     $game_map.scroll_left(@speed)
    
18.   end  
    
19.   def move_u
    
20.     $game_map.scroll_up(@speed)
    
21.   end  
    
22.   def move_d
    
23.     $game_map.scroll_down(@speed)
    
24.   end  
    
25. 
    
26. end

复制代码

幻の飞鱼

自己的《断指守卫》需要这个效果就做了

MS以前看到有人要，也不知道有人做过没

自己做的时候才发现，原来这么简单就可以了- -||寒一下

使用的时候还需要配合一个鼠标脚本，主战上任何一个脚本似乎都可以

范例：http://rpg.blue/upload_program/files/鼠标卷屏.rar

1. class Scene_Map
   
2.   alias old update
   
3.   def update
   
4.     @by = 32 #感应鼠标边缘的范围
   
5.     @speed = 64 #移动速度
   
6.     mx,my = Mouse.get_mouse_pos
   
7.     move_r if mx>640-@by
   
8.     move_l if mx<@by
   
9.     move_u if my<@by
   
10.     move_d if my>480-@by
    
11.     old
    
12.   end
    
13.   def move_r
    
14.     $game_map.scroll_right(@speed)
    
15.   end  
    
16.   def move_l
    
17.     $game_map.scroll_left(@speed)
    
18.   end  
    
19.   def move_u
    
20.     $game_map.scroll_up(@speed)
    
21.   end  
    
22.   def move_d
    
23.     $game_map.scroll_down(@speed)
    
24.   end  
    
25. 
    
26. end

复制代码

神思

其实可以把ClipCursor这个函数给考虑进去``这样鼠标就不会离开窗口了`

1. class String
   
2.   MultiByteToWideChar = Win32API.new("kernel32", "MultiByteToWideChar", "llplpl", "l")
   
3.   WideCharToMultiByte = Win32API.new("kernel32", "WideCharToMultiByte", "llplplpp", "l")
   
4.   CP_ACP = 0
   
5.   CP_UTF8 = 65001
   
6.   #--------------------------------------------------------------------------
   
7.   # ● UTF-8转JIS
   
8.   #--------------------------------------------------------------------------
   
9.   def to_jis
   
10.    
    
11.     # UTF-8 -> Unicode
    
12.     len = MultiByteToWideChar.call(CP_UTF8, 0, self, -1, nil, 0);
    
13.     buf = "\0" * (len*2)
    
14.     MultiByteToWideChar.call(CP_UTF8, 0, self, -1, buf, buf.size/2);
    
15. 
    
16.     # Unicode -> S-JIS
    
17.     len = WideCharToMultiByte.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil);
    
18.     ret = "\0" * len
    
19.     WideCharToMultiByte.call(CP_ACP, 0, buf, -1, ret, ret.size, nil, nil);
    
20.    
    
21.     return ret
    
22.   end
    
23. end
    
24. # 窗口名字
    
25. WindowClassName = "鼠标卷屏".to_jis
    
26. ClipCursor = Win32API.new("user32", "ClipCursor", "p", "l")
    
27. ClientToScreen = Win32API.new("user32", "ClientToScreen", "lp", "l")
    
28. FindWindow = Win32API.new("user32", "FindWindow", "pp", "l")
    
29. HWnd = FindWindow.call("RGSS Player",WindowClassName)
    
30. xy = [0, 0].pack("l*")
    
31. ClientToScreen.call(HWnd, xy)
    
32. x,y = xy.unpack("l*")
    
33. rect = [x, y, 640+x, 480+y].pack("l*")
    
34. ClipCursor.call(rect)
    
35. 
    
36. 
    
37. 
    
38. 
    
39. 
    
40. class Scene_Map
    
41. alias old update
    
42. def update
    
43.    @by = 32 #感应鼠标边缘的范围
    
44.    @speed = 64 #移动速度
    
45.    mx,my = Mouse.get_mouse_pos
    
46.    move_r if mx>640-@by
    
47.    move_l if mx<@by
    
48.    move_u if my<@by
    
49.    move_d if my>480-@by
    
50.    old
    
51. end
    
52. def move_r
    
53.    $game_map.scroll_right(@speed)
    
54. end  
    
55. def move_l
    
56.    $game_map.scroll_left(@speed)
    
57. end  
    
58. def move_u
    
59.    $game_map.scroll_up(@speed)
    
60. end  
    
61. def move_d
    
62.    $game_map.scroll_down(@speed)
    
63. end  
    
64. 
    
65. end
    

复制代码

另外```LZ进步的飞快啊````{/qiang}{/qiang}

幻の飞鱼

谢了，偶抛砖引玉了，收回去加工游戏去
不过那个ClipCursor又是API啊，完全看不懂- -||{/gg}

PS：点不到最小化和X了，不过似乎不是大问题，都可以用键盘代替

莫浪语

别吓我 ，我的即使战略{/se}

beiduo

非常实用的脚本，谢谢！

墨霖

{/pz}花眼了~~~