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

Project1

 找回密码
 注册会员
搜索
查看: 1840|回复: 0
打印 上一主题 下一主题

[已经过期] 鼠标如何实现伪八方向行走

 关闭 [复制链接]

Lv1.梦旅人

梦石
0
星屑
75
在线时间
26 小时
注册时间
2009-11-27
帖子
156
跳转到指定楼层
1
发表于 2011-11-19 20:52:04 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
  1. $mouse_move

  2. $敌人选框扩大 = 15
  3. $角色选框扩大 = 20


  4. #==============================================================================
  5. # API调用
  6. #==============================================================================
  7. $ShowCursor = Win32API.new("user32", "ShowCursor", 'i', 'l')
  8. $GetCursorPos = Win32API.new("user32", "GetCursorPos", 'p', 'i')
  9. $ScreenToClient = Win32API.new("user32", "ScreenToClient", 'ip', 'i')
  10. $GetActiveWindow = Win32API.new("user32", "GetActiveWindow", nil, 'l')
  11. $Window_HWND = $GetActiveWindow.call
  12. $GetKeyState = Win32API.new("user32", "GetKeyState", 'i', 'i')
  13. module Mouse  
  14.   LEFT = 0x01
  15.   RIGHT = 0x02

  16.   def self.init(sprite = nil)
  17.     $ShowCursor.call(0)
  18.    
  19.     @show_cursor = false
  20.    
  21.     @mouse_sprite = Sprite.new
  22.     @mouse_sprite.z = 99999
  23.     @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/sb.png')

  24.     @left_press = false
  25.     @right_press = false
  26.     @left_trigger = false
  27.     @right_trigger = false
  28.     @left_repeat = false
  29.     @right_repeat = false
  30.     @click_lock = false
  31.    
  32.     update
  33.   end
  34.   def self.exit
  35.     @mouse_sprite.bitmap.dispose
  36.     @mouse_sprite.dispose
  37.     @show_cursor = true
  38.     $ShowCursor.call(1)
  39.   end
  40.   def self.mouse_debug
  41.     return @mouse_debug.bitmap
  42.   end
  43.   def self.update
  44.     left_down = $GetKeyState.call(0x01)
  45.     right_down = $GetKeyState.call(0x02)
  46.    
  47.     @click_lock = false
  48.     mouse_x, mouse_y = self.get_mouse_pos
  49.     if @mouse_sprite != nil
  50.       @mouse_sprite.x = mouse_x
  51.       @mouse_sprite.y = mouse_y
  52.     end
  53.     if left_down[7] == 1
  54.       @left_repeat = (not @left_repeat)
  55.       @left_trigger = (not @left_press)
  56.       @left_press = true
  57.     else
  58.       @left_press = false
  59.       @left_trigger = false
  60.       @left_repeat = false
  61.     end
  62.     if right_down[7] == 1
  63.       @right_repeat = (not @right_repeat)
  64.       @right_trigger = (not @right_press)
  65.       @right_press = true
  66.     else
  67.       @right_press = false
  68.       @right_trigger = false
  69.       @right_repeat = false
  70.     end
  71.    
  72.   if @mouse_sprite != nil
  73.      if @old_x != @mouse_sprite.x or @old_y != @mouse_sprite.y or
  74.        Mouse.press?(Mouse::LEFT) or
  75.        Mouse.press?(Mouse::RIGHT)
  76.        @waittime = 80
  77.        @mouse_sprite.opacity = 255
  78.        ###########
  79.        $mouse_move = true
  80.        ###########
  81.      end
  82.      @waittime -= 1 if @waittime != 0
  83.      @mouse_sprite.opacity -= 8 if @waittime == 0 and @mouse_sprite.opacity > 0
  84.      @old_x = @mouse_sprite.x
  85.      @old_y = @mouse_sprite.y
  86.       ###########
  87.       if @mouse_sprite.opacity < 100 or @waittime < 40
  88.         $mouse_move = false
  89.       end
  90.       ###########
  91.     end
  92.    
  93.   end
  94.   def self.get_mouse_pos
  95.     point_var = [0, 0].pack('ll')
  96.     if $GetCursorPos.call(point_var) != 0
  97.       if $ScreenToClient.call($Window_HWND, point_var) != 0
  98.         x, y = point_var.unpack('ll')
  99.         if (x < 0) or (x > 10000) then x = 0 end
  100.         if (y < 0) or (y > 10000) then y = 0 end
  101.         if x > 640 then x = 640 end
  102.         if y > 480 then y = 480 end
  103.         return x, y
  104.       else
  105.         return 0, 0
  106.       end
  107.     else
  108.       return 0, 0
  109.     end
  110.   end
  111.   def self.press?(mouse_code)
  112.     if mouse_code == LEFT
  113.       if @click_lock
  114.         return false
  115.       else
  116.         return @left_press
  117.       end
  118.     elsif mouse_code == RIGHT
  119.       return @right_press
  120.     else
  121.       return false
  122.     end
  123.   end
  124.   def self.trigger?(mouse_code)
  125.     if mouse_code == LEFT
  126.       if @click_lock
  127.         return false
  128.       else
  129.         return @left_trigger
  130.       end
  131.     elsif mouse_code == RIGHT
  132.       return @right_trigger
  133.     else
  134.       return false
  135.     end
  136.   end
  137.   def self.repeat?(mouse_code)
  138.     if mouse_code == LEFT
  139.       if @click_lock
  140.         return false
  141.       else
  142.         return @left_repeat
  143.       end
  144.     elsif mouse_code == RIGHT
  145.       return @right_repeat
  146.     else
  147.       return false
  148.     end
  149.   end
  150.   def self.click_lock?
  151.     return @click_lock
  152.   end
  153.   def self.click_lock
  154.     @click_lock = true
  155.   end
  156.   def self.click_unlock
  157.     @click_lock = false
  158.   end
  159. end
  160. module Input
  161.   if @self_update == nil
  162.     @self_update = method('update')
  163.     @self_press = method('press?')
  164.     @self_trigger = method('trigger?')
  165.     @self_repeat = method('repeat?')
  166.   end
  167.   def self.update
  168.     @self_update.call
  169.     Mouse.update
  170.   end
  171.   def self.press?(key_code)
  172.     if @self_press.call(key_code)
  173.       return true
  174.     end
  175.     if key_code == C
  176.       return Mouse.press?(Mouse::LEFT)
  177.     elsif key_code == B
  178.       return Mouse.press?(Mouse::RIGHT)
  179.     else
  180.       return @self_press.call(key_code)
  181.     end
  182.   end
  183.   def self.trigger?(key_code)
  184.     if @self_trigger.call(key_code)
  185.       return true
  186.     end
  187.     if key_code == C
  188.       return Mouse.trigger?(Mouse::LEFT)
  189.     elsif key_code == B
  190.       return Mouse.trigger?(Mouse::RIGHT)
  191.     else
  192.       return @self_trigger.call(key_code)
  193.     end
  194.   end
  195.   def self.repeat?(key_code)
  196.     if @self_repeat.call(key_code)
  197.       return true
  198.     end
  199.     if key_code == C
  200.       return Mouse.repeat?(Mouse::LEFT)
  201.     elsif key_code == B
  202.       return Mouse.repeat?(Mouse::RIGHT)
  203.     else
  204.       return @self_repeat.call(key_code)
  205.     end
  206.   end
  207. end
  208. class Window_Selectable
  209. if @self_alias == nil
  210.    alias self_update update
  211.    @self_alias = true
  212. end
  213. def update
  214.    self_update
  215.    if self.active and @item_max > 0
  216.      index_var = @index
  217.      tp_index = @index
  218.      mouse_x, mouse_y = Mouse.get_mouse_pos
  219.      mouse_not_in_rect = true
  220.      for i in 0...@item_max
  221.        @index = i
  222.        update_cursor_rect if $mouse_move#####
  223.        top_x = self.cursor_rect.x + self.x + 16
  224.        top_y = self.cursor_rect.y + self.y + 16
  225.        bottom_x = top_x + self.cursor_rect.width
  226.        bottom_y = top_y + self.cursor_rect.height
  227.        if (mouse_x > top_x) and (mouse_y > top_y) and
  228.           (mouse_x < bottom_x) and (mouse_y < bottom_y)
  229.          mouse_not_in_rect = false if $mouse_move#####
  230.          if tp_index != @index
  231.            tp_index = @index if $mouse_move#####
  232.            $game_system.se_play($data_system.cursor_se)
  233.          end
  234.          break
  235.        end
  236.      end
  237.      if mouse_not_in_rect
  238.        @index = index_var
  239.        update_cursor_rect if $mouse_move#####
  240.        Mouse.click_lock
  241.      else
  242.        Mouse.click_unlock               
  243.      end
  244.    end
  245. end
  246. end
  247. class Window_NameInput
  248. if @self_alias == nil
  249.    alias self_update update
  250.    @self_alias = true
  251. end
  252. def update
  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...CHARACTER_TABLE.size).to_a.push(180)
  259.        @index = i
  260.        update_cursor_rect if $mouse_move#####
  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.        if (mouse_x > top_x) and (mouse_y > top_y) and
  266.           (mouse_x < bottom_x) and (mouse_y < bottom_y)
  267.          mouse_not_in_rect = false if $mouse_move#####
  268.          break
  269.        end
  270.      end
  271.      if mouse_not_in_rect
  272.        @index = index_var
  273.        update_cursor_rect if $mouse_move#####
  274.        Mouse.click_lock
  275.      else
  276.        Mouse.click_unlock
  277.      end
  278.    end
  279. end
  280. end
  281. class Window_InputNumber
  282. if @self_alias == nil
  283.    alias self_update update
  284.    @self_alias = true
  285. end
  286. def update
  287.    self_update
  288.    mouse_x, mouse_y = Mouse.get_mouse_pos
  289.    if self.active and @digits_max > 0
  290.      index_var = @index
  291.      mouse_not_in_rect = true
  292.      for i in 0...@digits_max
  293.        @index = i
  294.        update_cursor_rect if $mouse_move#####
  295.        top_x = self.cursor_rect.x + self.x + 16
  296.        bottom_x = top_x + self.cursor_rect.width
  297.        if (mouse_x > top_x) and (mouse_x < bottom_x)
  298.          mouse_not_in_rect = false if $mouse_move#####
  299.          break
  300.        end
  301.      end
  302.      if mouse_not_in_rect
  303.        @index = index_var
  304.        update_cursor_rect if $mouse_move#####
  305.        Mouse.click_lock
  306.      else
  307.        Mouse.click_unlock
  308.      end
  309.    end
  310.    if @last_mouse_y == nil
  311.      @last_mouse_y = mouse_y
  312.    end
  313.    check_pos = (@last_mouse_y - mouse_y).abs
  314.    if check_pos > 10
  315.      $game_system.se_play($data_system.cursor_se)
  316.      place = 10 ** (@digits_max - 1 - @index)
  317.      n = @number / place % 10
  318.      @number -= n * place
  319.      n = (n + 1) % 10 if mouse_y < @last_mouse_y
  320.      n = (n + 9) % 10 if mouse_y > @last_mouse_y
  321.      @number += n * place
  322.      refresh
  323.      @last_mouse_y = mouse_y
  324.    end
  325. end
  326. end
  327. class Scene_File
  328.   if @self_alias == nil
  329.     alias self_update update
  330.     @self_alias = true
  331.   end
  332.   def update
  333.     mouse_x, mouse_y = Mouse.get_mouse_pos
  334.     Mouse.click_lock
  335.     idx = 0
  336.     for i in @savefile_windows
  337.       top_x = i.x + 16
  338.       top_y = i.y + 16
  339.       bottom_x = top_x + i.width
  340.       bottom_y = top_y + i.height
  341.       if (mouse_x > top_x) and (mouse_y > top_y) and
  342.          (mouse_x < bottom_x) and (mouse_y < bottom_y)
  343.         i.selected = true
  344.         if @file_index != idx
  345.           @file_index = idx
  346.           $game_system.se_play($data_system.cursor_se)
  347.         end            
  348.         Mouse.click_unlock
  349.       else
  350.         i.selected = false
  351.       end
  352.       idx += 1
  353.     end
  354.     self_update
  355.   end
  356. end
  357. class Arrow_Enemy
  358.   if @self_alias == nil
  359.     alias self_update update
  360.     @self_alias = true
  361.   end
  362.   def update
  363.     mouse_x, mouse_y = Mouse.get_mouse_pos
  364.     idx = 0
  365.     for i in $game_troop.enemies do
  366.       if i.exist?
  367.         top_x = i.screen_x - self.ox
  368.         top_y = i.screen_y - self.oy
  369.         bottom_x = top_x + self.src_rect.width
  370.         bottom_y = top_y + self.src_rect.height
  371.         if (mouse_x > top_x - $敌人选框扩大) and (mouse_y > top_y - $敌人选框扩大) and
  372.            (mouse_x < bottom_x + $敌人选框扩大) and (mouse_y < bottom_y + $敌人选框扩大)
  373.           if @index != idx
  374.             $game_system.se_play($data_system.cursor_se)
  375.             @index = idx
  376.           end
  377.         end
  378.       end
  379.       idx += 1
  380.     end
  381.     self_update
  382.   end
  383. end
  384. class Arrow_Actor
  385.   if @self_alias == nil
  386.     alias self_update update
  387.     @self_alias = true
  388.   end
  389.   def update
  390.     mouse_x, mouse_y = Mouse.get_mouse_pos
  391.     idx = 0
  392.     for i in $game_party.actors do
  393.       if i.exist?
  394.         top_x = i.screen_x - self.ox
  395.         top_y = i.screen_y - self.oy
  396.         bottom_x = top_x + self.src_rect.width
  397.         bottom_y = top_y + self.src_rect.height
  398.         if (mouse_x > top_x - $角色选框扩大) and (mouse_y > top_y - $角色选框扩大) and
  399.            (mouse_x < bottom_x + $角色选框扩大) and (mouse_y < bottom_y + $角色选框扩大)
  400.           if @index != idx
  401.             $game_system.se_play($data_system.cursor_se)
  402.             @index = idx
  403.           end
  404.         end
  405.       end
  406.       idx += 1
  407.     end
  408.     self_update
  409.   end
  410. end
  411. class Game_Player
  412.   if @self_alias == nil
  413.     alias self_update update
  414.     @self_alias = true
  415.   end
  416.   def update
  417.     mouse_x, mouse_y = Mouse.get_mouse_pos

  418.     if @last_move_x == nil
  419.       @last_move_x = false
  420.     end
  421.     if Mouse.press?(Mouse::LEFT)
  422.       last_moving = moving?
  423.       last_direction = @direction
  424.       unless moving? or $game_system.map_interpreter.running? or
  425.              @move_route_forcing or $game_temp.message_window_showing
  426.         last_x = @x
  427.         if @last_move_x
  428.           @last_move_x = false
  429.         elsif mouse_x > screen_x + 16
  430.           #move_right
  431.         elsif mouse_x < screen_x - 16
  432.           #move_left
  433.         end
  434.         last_y = @y
  435.         if last_x != @x
  436.           @last_move_x = true
  437.         elsif mouse_y > screen_y
  438.           #move_down
  439.         elsif mouse_y < screen_y - 32
  440.           #move_up
  441.         end
  442.         if last_y != @y
  443.           @last_move_x = false
  444.         elsif not @last_move_x
  445.           case last_direction
  446.           when 2
  447.             turn_down
  448.           when 4
  449.             turn_left
  450.           when 6
  451.             turn_right
  452.           when 8
  453.             turn_up
  454.           end
  455.         end
  456.       end
  457.     end
  458.     self_update
  459.   end
  460. end
  461. Mouse.init
  462. END { Mouse.exit }
复制代码
请问,如何把这个脚本改成可以八方向行走的,如何判断鼠标的位置来进行其他4个斜方向的行走
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

站长信箱:[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2024-11-24 05:24

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

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