设为首页收藏本站|繁體中文

Project1

 找回密码
 注册会员
搜索
查看: 356|回复: 6

[已经解决] 求鼠标操控的脚本

[复制链接]

Lv1.梦旅人

梦石
0
星屑
50
在线时间
13 小时
注册时间
2017-4-9
帖子
19
发表于 2017-4-22 10:46:40 | 显示全部楼层 |阅读模式

加入我们,或者,欢迎回来。

您需要 登录 才可以下载或查看,没有帐号?注册会员

x
最近在做游戏,看到别的单机游戏能用鼠标操控很是羡慕,现在想要一个在菜单界面和主菜单界面能用鼠标操控也能用键盘操控,求谁能给个这样的脚本?
0]6}VI$~R[CTC~D%T~1U_OI.png

Lv1.梦旅人

梦石
0
星屑
50
在线时间
13 小时
注册时间
2017-4-9
帖子
19
 楼主| 发表于 2017-4-22 10:47:29 | 显示全部楼层
能像我的世界这样用鼠标操控
回复 支持 反对

使用道具 举报

Lv1.梦旅人

梦石
0
星屑
50
在线时间
39 小时
注册时间
2017-3-17
帖子
65
发表于 2017-4-22 18:20:12 | 显示全部楼层
回复 支持 反对

使用道具 举报

Lv1.梦旅人

梦石
0
星屑
50
在线时间
13 小时
注册时间
2017-4-9
帖子
19
 楼主| 发表于 2017-4-23 16:25:21 | 显示全部楼层
sadpug 发表于 2017-4-22 18:20
请善用搜索
直接地扯:https://rpg.blue/forum.php?mod=viewthread&tid=284480
搜索地扯:http://rm.66r ...

那个是VA的,我要VX的。
回复 支持 反对

使用道具 举报

Lv1.梦旅人

梦石
0
星屑
50
在线时间
47 小时
注册时间
2016-8-12
帖子
29
发表于 2017-4-24 20:02:21 | 显示全部楼层
前途无量 发表于 2017-4-22 10:47
能像我的世界这样用鼠标操控

这个我也忘了是哪里来的,如果不能用请找高手
  1. #==============================================================================
  2. # 本脚本来自www.66RPG.com,使用和转载请保留此信息
  3. #==============================================================================

  4. #=================以下两个用来调整战斗时的手感问题,可以自己试试。
  5. $敌人选框扩大 = 20
  6. $角色选框扩大 = 30


  7. #==============================================================================
  8. # API调用
  9. #==============================================================================
  10. $ShowCursor = Win32API.new("user32", "ShowCursor", 'i', 'l')
  11. $GetCursorPos = Win32API.new("user32", "GetCursorPos", 'p', 'i')
  12. $ScreenToClient = Win32API.new("user32", "ScreenToClient", 'ip', 'i')
  13. $GetActiveWindow = Win32API.new("user32", "GetActiveWindow", nil, 'l')
  14. $Window_HWND = $GetActiveWindow.call
  15. $GetKeyState = Win32API.new("user32", "GetKeyState", 'i', 'i')
  16. #$FindWindow = Win32API.new("user32", "FindWindow", 'pp', 'i')
  17. #$HookStart  = Win32API.new("mouse_hook.dll", "HookStart", 'i', nil)
  18. #$HookEnd  = Win32API.new("mouse_hook.dll", "HookEnd", nil, nil)
  19. #$GetMouseStatus  = Win32API.new("mouse_hook.dll", "GetMouseStatus", 'i', 'i')
  20. #$Window_HWND = $FindWindow.call(nil, 'mousetry')

  21. module Mouse  
  22.   LEFT = 0x01
  23.   RIGHT = 0x02

  24.   def self.init(sprite = nil)
  25. #   $HookStart.call($Window_HWND)
  26.     $ShowCursor.call(0)
  27.    
  28.     @show_cursor = false
  29.    
  30.     @mouse_sprite = Sprite.new
  31.     @mouse_sprite.z = 99999
  32.     @mouse_sprite.bitmap = Bitmap.new('Graphics/Mouse/鼠标.png')
  33.     #@mouse_sprite.bitmap.fill_rect(Rect.new(0, 0, 32, 32), Color.new(0, 0, 0))

  34.     @left_press = false
  35.     @right_press = false
  36.     @left_trigger = false
  37.     @right_trigger = false
  38.     @left_repeat = false
  39.     @right_repeat = false
  40.     @click_lock = false
  41.    
  42.     update
  43.   end
  44.   def self.exit
  45.     @mouse_sprite.bitmap.dispose
  46.     @mouse_sprite.dispose
  47.     @show_cursor = true
  48. #    $HookEnd.call
  49.     $ShowCursor.call(1)
  50.   end
  51.   def self.mouse_debug
  52.     return @mouse_debug.bitmap
  53.   end
  54.   def self.update
  55.     left_down = $GetKeyState.call(0x01)
  56.     right_down = $GetKeyState.call(0x02)
  57.    
  58.     @click_lock = false
  59.     mouse_x, mouse_y = self.get_mouse_pos
  60.     if @mouse_sprite != nil
  61.       @mouse_sprite.x = mouse_x
  62.       @mouse_sprite.y = mouse_y
  63.     end
  64.     if left_down[7] == 1
  65.       @left_repeat = (not @left_repeat)
  66.       @left_trigger = (not @left_press)
  67.       @left_press = true
  68.     else
  69.       @left_press = false
  70.       @left_trigger = false
  71.       @left_repeat = false
  72.     end
  73.     if right_down[7] == 1
  74.       @right_repeat = (not @right_repeat)
  75.       @right_trigger = (not @right_press)
  76.       @right_press = true
  77.     else
  78.       @right_press = false
  79.       @right_trigger = false
  80.       @right_repeat = false
  81.     end
  82.   end
  83.   def self.get_mouse_pos
  84.     point_var = [0, 0].pack('ll')
  85.     if $GetCursorPos.call(point_var) != 0
  86.       if $ScreenToClient.call($Window_HWND, point_var) != 0
  87.         x, y = point_var.unpack('ll')
  88.         if (x < 0) or (x > 10000) then x = 0 end
  89.         if (y < 0) or (y > 10000) then y = 0 end
  90.         if x > 640 then x = 640 end
  91.         if y > 480 then y = 480 end
  92.         return x, y
  93.       else
  94.         return 0, 0
  95.       end
  96.     else
  97.       return 0, 0
  98.     end
  99.   end
  100.   def self.press?(mouse_code)
  101.     if mouse_code == LEFT
  102.       if @click_lock
  103.         return false
  104.       else
  105.         return @left_press
  106.       end
  107.     elsif mouse_code == RIGHT
  108.       return @right_press
  109.     else
  110.       return false
  111.     end
  112.   end
  113.   def self.trigger?(mouse_code)
  114.     if mouse_code == LEFT
  115.       if @click_lock
  116.         return false
  117.       else
  118.         return @left_trigger
  119.       end
  120.     elsif mouse_code == RIGHT
  121.       return @right_trigger
  122.     else
  123.       return false
  124.     end
  125.   end
  126.   def self.repeat?(mouse_code)
  127.     if mouse_code == LEFT
  128.       if @click_lock
  129.         return false
  130.       else
  131.         return @left_repeat
  132.       end
  133.     elsif mouse_code == RIGHT
  134.       return @right_repeat
  135.     else
  136.       return false
  137.     end
  138.   end
  139.   def self.click_lock?
  140.     return @click_lock
  141.   end
  142.   def self.click_lock
  143.     @click_lock = true
  144.   end
  145.   def self.click_unlock
  146.     @click_lock = false
  147.   end
  148. end
  149. module Input
  150.   if @self_update == nil
  151.     @self_update = method('update')
  152.     @self_press = method('press?')
  153.     @self_trigger = method('trigger?')
  154.     @self_repeat = method('repeat?')
  155.   end
  156.   def self.update
  157.     @self_update.call
  158.     Mouse.update
  159.   end
  160.   def self.press?(key_code)
  161.     if @self_press.call(key_code)
  162.       return true
  163.     end
  164.     if key_code == C
  165.       return Mouse.press?(Mouse::LEFT)
  166.     elsif key_code == B
  167.       return Mouse.press?(Mouse::RIGHT)
  168.     else
  169.       return @self_press.call(key_code)
  170.     end
  171.   end
  172.   def self.trigger?(key_code)
  173.     if @self_trigger.call(key_code)
  174.       return true
  175.     end
  176.     if key_code == C
  177.       return Mouse.trigger?(Mouse::LEFT)
  178.     elsif key_code == B
  179.       return Mouse.trigger?(Mouse::RIGHT)
  180.     else
  181.       return @self_trigger.call(key_code)
  182.     end
  183.   end
  184.   def self.repeat?(key_code)
  185.     if @self_repeat.call(key_code)
  186.       return true
  187.     end
  188.     if key_code == C
  189.       return Mouse.repeat?(Mouse::LEFT)
  190.     elsif key_code == B
  191.       return Mouse.repeat?(Mouse::RIGHT)
  192.     else
  193.       return @self_repeat.call(key_code)
  194.     end
  195.   end
  196. end

  197. class Window_Selectable
  198.   if @self_alias == nil
  199.     alias self_update update
  200.     @self_alias = true
  201.   end
  202.   def update
  203.     #self.cursor_rect.empty
  204.     self_update
  205.     if self.active and @item_max > 0
  206.       index_var = @index
  207.       tp_index = @index
  208.       mouse_x, mouse_y = Mouse.get_mouse_pos
  209.       mouse_not_in_rect = true
  210.       for i in 0...@item_max
  211.         @index = i
  212.         update_cursor
  213.         top_x = self.cursor_rect.x + self.x + 16
  214.         top_y = self.cursor_rect.y + self.y + 16
  215.         bottom_x = top_x + self.cursor_rect.width
  216.         bottom_y = top_y + self.cursor_rect.height
  217.         
  218.           top_x += self.x_mod
  219.           top_y += self.y_mod
  220.           bottom_x += self.x_mod
  221.           bottom_y += self.y_mod
  222.         
  223.         if (mouse_x > top_x) and (mouse_y > top_y) and
  224.            (mouse_x < bottom_x) and (mouse_y < bottom_y)
  225.           mouse_not_in_rect = false
  226.           if tp_index != @index
  227.             tp_index = @index
  228.             $data_system.sounds[0].play
  229.           end
  230.           break
  231.         end
  232.       end
  233.     if Input.trigger?(Input::F9)
  234.     p top_x,top_y,Mouse.get_mouse_pos
  235.     end
  236.       if mouse_not_in_rect
  237.         @index = index_var
  238.         update_cursor
  239.         Mouse.click_lock
  240.       else
  241.         Mouse.click_unlock               
  242.       end
  243.     end
  244.   end
  245. end




  246. class Window_NameInput
  247.   if @self_alias == nil
  248.     alias self_update update
  249.     @self_alias = true
  250.   end
  251.   def update
  252.     #self.cursor_rect.empty
  253.     self_update
  254.     if self.active
  255.       index_var = @index
  256.       mouse_x, mouse_y = Mouse.get_mouse_pos
  257.       mouse_not_in_rect = true
  258.       for i in (0...HIRAGANA.size).to_a.push(180)
  259.         @index = i
  260.         update_cursor
  261.         top_x = self.cursor_rect.x + self.x + 16
  262.         top_y = self.cursor_rect.y + self.y + 16
  263.         bottom_x = top_x + self.cursor_rect.width
  264.         bottom_y = top_y + self.cursor_rect.height
  265.         #
  266.         if (mouse_x > top_x) and (mouse_y > top_y) and
  267.            (mouse_x < bottom_x) and (mouse_y < bottom_y)
  268.           mouse_not_in_rect = false
  269.           break
  270.         end
  271.       end
  272.       if mouse_not_in_rect
  273.         @index = index_var
  274.         update_cursor
  275.         Mouse.click_lock
  276.       else
  277.         Mouse.click_unlock
  278.       end
  279.     end
  280.   end
  281. end
  282. =begin

  283. class Window_InputNumber
  284.   if @self_alias == nil
  285.     alias self_update update
  286.     @self_alias = true
  287.   end
  288.   def update
  289.     #self.cursor_rect.empty
  290.     self_update
  291.     mouse_x, mouse_y = Mouse.get_mouse_pos
  292.     if self.active and @digits_max > 0
  293.       index_var = @index
  294.       mouse_not_in_rect = true
  295.       for i in 0...@digits_max
  296.         @index = i
  297.         #update_cursor
  298.         top_x = self.cursor_rect.x + self.x + 16
  299.         bottom_x = top_x + self.cursor_rect.width
  300.         #
  301.         if (mouse_x > top_x) and (mouse_x < bottom_x)
  302.           mouse_not_in_rect = false
  303.           break
  304.         end
  305.       end
  306.       if mouse_not_in_rect
  307.         @index = index_var
  308.         #update_cursor
  309.         Mouse.click_lock
  310.       else
  311.         Mouse.click_unlock
  312.       end
  313.     end
  314.     if @last_mouse_y == nil
  315.       @last_mouse_y = mouse_y
  316.     end
  317.     check_pos = (@last_mouse_y - mouse_y).abs
  318.     if check_pos > 10
  319.       #$game_system.se_play($data_system.cursor_se)
  320.       place = 10 ** (@digits_max - 1 - @index)
  321.       n = @Number / place % 10
  322.       @number -= n * place
  323.       n = (n + 1) % 10 if mouse_y < @last_mouse_y
  324.       n = (n + 9) % 10 if mouse_y > @last_mouse_y
  325.       @number += n * place
  326.       refresh
  327.       @last_mouse_y = mouse_y
  328.     end
  329.   end
  330. end
  331. =end

  332. class Scene_File
  333.   if @self_alias == nil
  334.     alias self_update update
  335.     @self_alias = true
  336.   end
  337.   def update
  338.     mouse_x, mouse_y = Mouse.get_mouse_pos
  339.     Mouse.click_lock
  340.     idx = 0
  341.     for i in @savefile_windows
  342.       top_x = i.x + 16
  343.       top_y = i.y + 16
  344.       bottom_x = top_x + i.width
  345.       bottom_y = top_y + i.height
  346.       if (mouse_x > top_x) and (mouse_y > top_y) and
  347.          (mouse_x < bottom_x) and (mouse_y < bottom_y)
  348.         i.selected = true
  349.         if @file_index != idx
  350.           @file_index = idx
  351.           $data_system.sounds[0].play
  352.         end            
  353.         Mouse.click_unlock
  354.       else
  355.         i.selected = false
  356.       end
  357.       idx += 1
  358.     end
  359.     self_update
  360.   end
  361. end

  362. class Game_Player
  363.   if @self_alias == nil
  364.     alias self_update update
  365.     @self_alias = true
  366.   end
  367.   def update
  368.     mouse_x, mouse_y = Mouse.get_mouse_pos
  369.     if @last_move_x == nil
  370.       @last_move_x = false
  371.     end
  372.     if $game_switches[123]
  373.      if Mouse.press?(Mouse::LEFT)
  374.        for event in $game_map.events.values
  375.          if event.screen_x/32 == mouse_x/32 and event.screen_y/32-1 == mouse_y/32
  376.            event.start
  377.          end
  378.        end
  379.      end
  380.      self_update
  381.      return
  382.    end
  383.     if Mouse.press?(Mouse::LEFT)
  384.    #for event in $game_map.events.values
  385.    #if event.screen_x/32 == mouse_x/32 and event.screen_y/32-1 == mouse_y/32
  386.    #event.start
  387.    #end
  388.    #end
  389.       last_moving = moving?
  390.       last_direction = @direction
  391.     #  return unless movable?
  392.     #  return if $game_map.interpreter.running?
  393.       unless moving? or $game_map.interpreter.running?
  394.       last_x = @x
  395.         if @last_move_x
  396.           @last_move_x = false
  397.         elsif mouse_x > screen_x + 16
  398.           move_right
  399.         elsif mouse_x < screen_x - 16
  400.           move_left
  401.         end
  402.         last_y = @y
  403.         if last_x != @x
  404.           @last_move_x = true
  405.         elsif mouse_y > screen_y
  406.           move_down
  407.         elsif mouse_y < screen_y - 32
  408.           move_up
  409.         end
  410. =begin        
  411.         if last_y != @y
  412.           @last_move_x = false
  413.         elsif not @last_move_x
  414.           case last_direction
  415.           when 2
  416.             turn_down
  417.           when 4
  418.             turn_left
  419.           when 6
  420.             turn_right
  421.           when 8
  422.             turn_up
  423.           end        
  424.         end
  425. =end         
  426.       end
  427.     end
  428.     self_update
  429.   end
  430. end
  431. Mouse.init
  432. END { Mouse.exit }


  433. class Window_Base < Window
  434.   attr_accessor :x_mod
  435.   attr_accessor :y_mod
  436.   alias ka_initialize initialize
  437.   def initialize(x, y, width, height)
  438.     ka_initialize(x, y, width, height)
  439.     self.x_mod = 0
  440.     self.y_mod = 0
  441.   end
  442. end
  443. class Window_PartyCommand < Window_Command
  444.   alias ka1_initialize initialize
  445.   def initialize
  446.     ka1_initialize
  447.     self.y_mod = 288
  448.   end
  449. end
  450. class Window_ActorCommand < Window_Command
  451.   alias ka2_initialize initialize
  452.   def initialize
  453.     ka2_initialize
  454.     self.x_mod = -128
  455.     self.y_mod = 288
  456.   end
  457. end

  458. #==============================================================================
  459. # 本脚本来自www.66RPG.com,使用和转载请保留此信息
  460. #==============================================================================
复制代码
回复 支持 反对

使用道具 举报

Lv1.梦旅人

梦石
0
星屑
50
在线时间
47 小时
注册时间
2016-8-12
帖子
29
发表于 2017-4-24 20:10:06 | 显示全部楼层
丶温柔是罪 发表于 2017-4-24 20:02
这个我也忘了是哪里来的,如果不能用请找高手

需要在Graphics/Mouse/  文件夹里加入一个名为  鼠标.png  的鼠标指针图片
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
384
在线时间
64 小时
注册时间
2018-6-17
帖子
56
发表于 2018-8-3 23:32:19 | 显示全部楼层
丶梦旅人  2017-4-24 20:10:06
需要在Graphics/Mouse/  文件夹里加入一个名为  鼠标.png  的鼠标指针图片

那個……用鼠標按存檔會出問題

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

拿上你的纸笔,建造一个属于你的梦想世界,加入吧。
 注册会员
找回密码

站长信箱:fux2@moe9th.com|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2019-1-19 19:57

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表