请问如何设定鼠标在区域里触发事件跟随或远离？ 1vip

doubyen · 发表于 2015-8-12 15:42:09

本帖最后由 doubyen 于 2015-8-15 18:55 编辑

上次高手帮改过一个“鼠标接触图片自动触发事件”的脚本；
现在我有新的悬赏！！
我想在这个脚本的基础上设定鼠标在一个区域里触发事件的自动跟随或自动远离？！
我研究了半天无果…… 附图：

请问该怎么改？？还是要改动脚本？？

改好满意会附上悬赏呵

下面这个是“鼠标接触图片自动触发事件”的脚本
##################################################################################################################
#===========================================================
#===================
# 本脚本来自http://rpg.blue/web/，使用和转载请保留此信息
# 非原装鼠标脚本
#==============================================================================

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

#==============================================================================
# API调用
#==============================================================================
$ShowCursor = Win32API.new("user32", "ShowCursor", 'i', 'l')
$GetCursorPos = Win32API.new("user32", "GetCursorPos", 'p', 'i')
$ScreenToClient = Win32API.new("user32", "ScreenToClient", 'ip', 'i')
$GetActiveWindow = Win32API.new("user32", "GetActiveWindow", nil, 'l')
$Window_HWND = $GetActiveWindow.call
$GetKeyState = Win32API.new("user32", "GetKeyState", 'i', 'i')
#$FindWindow = Win32API.new("user32", "FindWindow", 'pp', 'i')#
#$HookStart  = Win32API.new("mouse_hook.dll", "HookStart", 'i', nil)#
#$HookEnd  = Win32API.new("mouse_hook.dll", "HookEnd", nil, nil)#
#$GetMouseStatus  = Win32API.new("mouse_hook.dll", "GetMouseStatus", 'i', 'i')#
#$Window_HWND = $FindWindow.call(nil, 'mousetry')#

module Mouse
  LEFT = 0x01
  RIGHT = 0x02

  def self.init(sprite = nil)
#$HookStart.call($Window_HWND)#
$ShowCursor.call(0)

@show_cursor = false

@mouse_sprite = Sprite.new
@mouse_sprite.z = 99999
@mouse_sprite.bitmap = Bitmap.new("Graphics/Icons/002-Weapon02")
@mouse_sprite2 = Sprite.new
@mouse_sprite2.z = @mouse_sprite.z - 1
#@mouse_sprite.bitmap.fill_rect(Rect.new(0, 0, 32, 32), Color.new(0, 0, 0))
@left_press = false
@right_press = false
@left_trigger = false
@right_trigger = false
@left_repeat = false
@right_repeat = false
@click_lock = false

update
  end
#-----------------------------------------------#----------------------------------------
  def self.exit
@mouse_sprite.bitmap.dispose
@mouse_sprite.dispose
@show_cursor = true
# $HookEnd.call#
$ShowCursor.call(1)
  end
  def self.mouse_debug
return @mouse_debug.bitmap
  end
  def self.update
left_down = $GetKeyState.call(0x01)
right_down = $GetKeyState.call(0x02)
if $build == true
   $cursor_pic = Bitmap.new("Graphics/Icons/002-Weapon01")
   @mouse_sprite2.bitmap=Bitmap.new("Graphics/Icons/002-Weapon01")
   @mouse_sprite2.ox=$cursor_pic.width-32
   @mouse_sprite2.oy=$cursor_pic.height-32
else
   @mouse_sprite2.bitmap=Bitmap.new(32,32)
end
@click_lock = false
mouse_x, mouse_y = self.get_mouse_pos
@mouse_sprite.x = mouse_x
@mouse_sprite.y = mouse_y
@mouse_sprite2.x = (mouse_x/32)*32
@mouse_sprite2.y = (mouse_y/32)*32
if $build  == false
@mouse_sprite2.opacity=255
else
@mouse_sprite2.opacity=160
end
if left_down[7] == 1
   @left_repeat = (not @left_repeat)
   @left_trigger = (not @left_press)
   @left_press = true
else
   @left_press = false
   @left_trigger = false
   @left_repeat = false
end
if right_down[7] == 1
   @right_repeat = (not @right_repeat)
   @right_trigger = (not @right_press)
   @right_press = true
else
   @right_press = false
   @right_trigger = false
   @right_repeat = false
end
  end
  def self.get_mouse_pos
point_var = [0, 0].pack('ll')
if $GetCursorPos.call(point_var) != 0
   if $ScreenToClient.call($Window_HWND, point_var) != 0
      x, y = point_var.unpack('ll')
      if (x < 0) or (x > 10000) then x = 0 end
      if (y < 0) or (y > 10000) then y = 0 end
      if x > 1275 then x = 1275 end
      if y > 795 then y = 795 end
      return x, y
   else
      return 0, 0
   end
else
   return 0, 0
end
  end
  def self.press?(mouse_code)
if mouse_code == LEFT
   if @click_lock
      return false
   else
      return @left_press
   end
elsif mouse_code == RIGHT
   return @right_press
else
   return false
end
  end
  def self.trigger?(mouse_code)
if mouse_code == LEFT
   if @click_lock
      return false
   else
      return @left_trigger
   end
elsif mouse_code == RIGHT
   return @right_trigger
else
   return false
end
  end
  def self.repeat?(mouse_code)
if mouse_code == LEFT
   if @click_lock
      return false
   else
      return @left_repeat
   end
elsif mouse_code == RIGHT
   return @right_repeat
else
   return false
end
  end
  def self.click_lock?
return @click_lock
  end
  def self.click_lock
@click_lock = true
  end
  def self.click_unlock
@click_lock = false
  end
end
module Input
  if @self_update == nil
@self_update = method('update')
@self_press = method('press?')
@self_trigger = method('trigger?')
@self_repeat = method('repeat?')

  end
  def self.update
@self_update.call
Mouse.update
  end
  def self.press?(key_code)
if @self_press.call(key_code)
   return true
end
if key_code == C
   return Mouse.press?(Mouse::LEFT)
elsif key_code == B
   return Mouse.press?(Mouse::RIGHT)
else
   return @self_press.call(key_code)
end
  end
  def self.trigger?(key_code)
if @self_trigger.call(key_code)
   return true
end
if key_code == C
   return Mouse.trigger?(Mouse::LEFT)
elsif key_code == B
   return Mouse.trigger?(Mouse::RIGHT)
else
   return @self_trigger.call(key_code)
end
  end
  def self.repeat?(key_code)
if @self_repeat.call(key_code)
   return true
end
if key_code == C
   return Mouse.repeat?(Mouse::LEFT)
elsif key_code == B
   return Mouse.repeat?(Mouse::RIGHT)
else
   return @self_repeat.call(key_code)
end
  end
end

class Window_Selectable
  if @self_alias == nil
alias self_update update
@self_alias = true
  end
  def update
#self.cursor_rect.empty
self_update
if self.active and @item_max > 0
   index_var = @index
   tp_index = @index
   mouse_x, mouse_y = Mouse.get_mouse_pos
   mouse_not_in_rect = true
   for i in 0...@item_max
      @index = i
      update_cursor_rect
      top_x = self.cursor_rect.x + self.x + 16
      top_y = self.cursor_rect.y + self.y + 16
      bottom_x = top_x + self.cursor_rect.width
      bottom_y = top_y + self.cursor_rect.height
      if (mouse_x > top_x) and (mouse_y > top_y) and
         (mouse_x < bottom_x) and (mouse_y < bottom_y)
      mouse_not_in_rect = false
      if tp_index != @index
         tp_index = @index
         $game_system.se_play($data_system.cursor_se)
      end
      break
      end
   end
   if mouse_not_in_rect
      @index = index_var
      update_cursor_rect
      Mouse.click_lock
   else
      Mouse.click_unlock
   end
end
  end
end
class Window_NameInput
  if @self_alias == nil
alias self_update update
@self_alias = true
  end
  def update
#self.cursor_rect.empty
self_update
if self.active
   index_var = @index
   mouse_x, mouse_y = Mouse.get_mouse_pos
   mouse_not_in_rect = true
   for i in (0...CHARACTER_TABLE.size).to_a.push(180)
      @index = i
      update_cursor_rect
      top_x = self.cursor_rect.x + self.x + 16
      top_y = self.cursor_rect.y + self.y + 16
      bottom_x = top_x + self.cursor_rect.width
      bottom_y = top_y + self.cursor_rect.height
      #
      if (mouse_x > top_x) and (mouse_y > top_y) and
         (mouse_x < bottom_x) and (mouse_y < bottom_y)
      mouse_not_in_rect = false
      break
      end
   end
   if mouse_not_in_rect
      @index = index_var
      update_cursor_rect
      Mouse.click_lock
   else
      Mouse.click_unlock
   end
end
  end
end
class Window_InputNumber
  if @self_alias == nil
alias self_update update
@self_alias = true
  end
  def update
#self.cursor_rect.empty
self_update
mouse_x, mouse_y = Mouse.get_mouse_pos
if self.active and @digits_max > 0
   index_var = @index
   mouse_not_in_rect = true
   for i in 0...@digits_max
      @index = i
      update_cursor_rect
      top_x = self.cursor_rect.x + self.x + 16
      bottom_x = top_x + self.cursor_rect.width
      #
      if (mouse_x > top_x) and (mouse_x < bottom_x)
      mouse_not_in_rect = false
      break
      end
   end
   if mouse_not_in_rect
      @index = index_var
      update_cursor_rect
      Mouse.click_lock
   else
      Mouse.click_unlock
   end
end
if @last_mouse_y == nil
   @last_mouse_y = mouse_y
end
check_pos = (@last_mouse_y - mouse_y).abs
if check_pos > 10
   $game_system.se_play($data_system.cursor_se)
   place = 10 ** (@digits_max - 1 - @index)
   n = @number / place % 10
   @number -= n * place
   n = (n + 1) % 10 if mouse_y < @last_mouse_y
   n = (n + 9) % 10 if mouse_y > @last_mouse_y
   @number += n * place
   refresh
   @last_mouse_y = mouse_y
end
  end
end
class Scene_File
  if @self_alias == nil
alias self_update update
@self_alias = true
  end
  def update
mouse_x, mouse_y = Mouse.get_mouse_pos
Mouse.click_lock
idx = 0
for i in @savefile_windows
   top_x = i.x + 16
   top_y = i.y + 16
   bottom_x = top_x + i.width
   bottom_y = top_y + i.height
   if (mouse_x > top_x) and (mouse_y > top_y) and
      (mouse_x < bottom_x) and (mouse_y < bottom_y)
      i.selected = true
      if @file_index != idx
      @file_index = idx
      $game_system.se_play($data_system.cursor_se)
      end
      Mouse.click_unlock
   else
      i.selected = false
   end
   idx += 1
end
self_update
  end
end
class Arrow_Enemy
  if @self_alias == nil
alias self_update update
@self_alias = true
  end
  def update
mouse_x, mouse_y = Mouse.get_mouse_pos
idx = 0
for i in $game_troop.enemies do
   if i.exist?
      top_x = i.screen_x - self.ox
      top_y = i.screen_y - self.oy
      bottom_x = top_x + self.src_rect.width
      bottom_y = top_y + self.src_rect.height
      if (mouse_x > top_x - $敌人选框扩大) and (mouse_y > top_y - $敌人选框扩大) and
         (mouse_x < bottom_x + $敌人选框扩大) and (mouse_y < bottom_y + $敌人选框扩大)
      if @index != idx
         $game_system.se_play($data_system.cursor_se)
         @index = idx
      end
      end
   end
   idx += 1
end
self_update
  end
end
class Arrow_Actor
  if @self_alias == nil
alias self_update update
@self_alias = true
  end
  def update
mouse_x, mouse_y = Mouse.get_mouse_pos
idx = 0
for i in $game_party.actors do
   if i.exist?
      top_x = i.screen_x - self.ox
      top_y = i.screen_y - self.oy
      bottom_x = top_x + self.src_rect.width
      bottom_y = top_y + self.src_rect.height
      if (mouse_x > top_x - $角色选框扩大) and (mouse_y > top_y - $角色选框扩大) and
         (mouse_x < bottom_x + $角色选框扩大) and (mouse_y < bottom_y + $角色选框扩大)
      if @index != idx
         $game_system.se_play($data_system.cursor_se)
         @index = idx
      end
      end
   end
   idx += 1
end
self_update
  end
end
class Game_Player
  if @self_alias == nil
alias self_update update
@self_alias = true
  end
  def update
mouse_x, mouse_y = Mouse.get_mouse_pos

if @last_move_x == nil
   @last_move_x = false
end


   #if Mouse.trigger?(Mouse::RIGHT)

   self_update

if Mouse.press?(Mouse::LEFT) or  $game_switches[4] == true
   last_moving = moving?
   last_direction = @direction
   unless moving? or $game_system.map_interpreter.running? or
         @move_route_forcing or $game_temp.message_window_showing
      last_x = @x
      if @last_move_x
      @last_move_x = false
   elsif mouse_x > screen_x + 16
      move_right
      @wait_count = 10
      elsif mouse_x < screen_x - 16
      move_left
      @wait_count = 10
      end
      last_y = @y
   if last_x != @x
      @last_move_x = true
   elsif mouse_y > screen_y
move_down
@wait_count = 10
      elsif mouse_y < screen_y - 32
      move_up
      @wait_count = 10
      end
      if last_y != @y
      @last_move_x = false
      elsif not @last_move_x
      case last_direction
      when 2
         turn_down
      when 4
         turn_left
      when 6
         turn_right
      when 8
         turn_up
      end
      end
   end
end
self_update
  end
end

Mouse.init
END { Mouse.exit }

#==============================================================================
# 本脚本来自http://rpg.blue/web/，使用和转载请保留此信息
#==============================================================================
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
#格式：显示的cmd图片的命名格式为：
# cmd调用公共事件编号_名字
# cmd调用公共事件编号_名字_2 # 此为鼠标经过的图片
#
#即，带有cmd的为可以点击的图片，点击后执行相应的公共事件.....
#不带cmd的图片没任何影响。。。
#==============================================================================
class Game_Picture

def name=(str)
@name = str
end

end

class Sprite_Picture

alias update_old update
def update
update_old
return if @picture_name == "" or @picture_name[/cmd/].nil?
mx,my = Mouse.get_mouse_pos
lx = self.x - self.ox
rx = lx + self.bitmap.width
ty = self.y - self.oy
by = ty + self.bitmap.height
if mx < lx or mx > rx or my < ty or my > by or
   self.bitmap.get_pixel(mx-lx,my-ty).alpha == 0
   @picture.name = @picture.name.split(/_/)[0]+"_"[email protected](/_/)[1]
   return
end
if @picture.name.split(/_/)[2].nil?
# Audio.se_play("Audio/SE/sound00.wav")
   @picture.name = @picture.name + "_2"
      @picture.name.split(/_/)[0].sub(/cmd([0-9]+)/,"")
   $game_temp.common_event_id = $1.to_i
end
end

end

##################################################################################################################

luoxduo · 发表于 2015-8-12 15:42:10

doubyen 发表于 2015-8-15 06:51
感谢luoxduo的耐心回复，看来我们理解的不一样…… 我也做了范例，呈上

之前luoxduo提到过在不 ...

嗯...不改变原有的鼠标脚本是可以的，
不过我还是另外添加了一小段新脚本来帮助事件更顺畅的行走。
（不用修改原来的鼠标脚本，把新添的脚本加入即可）

不知道这次有没有正确理解 doubyen 君的意思，
只是把上一个范例简单修改（套路一样，对象不同），具体新范例都有注释。

还有，需要把事件搬回你原来的工程里，才能测试效果，
因为“move_toward_event(x)”是您原来工程的脚本内容哦。

luoxduo · 发表于 2015-8-13 14:59:16

本帖最后由 luoxduo 于 2015-8-13 15:01 编辑

首先，根据lz的思路，要先获取鼠标的坐标，需要小小修改下脚本

##################################################################################################################
#===========================================================
#===================
# 本脚本来自http://rpg.blue/web/，使用和转载请保留此信息
# 非原装鼠标脚本
#==============================================================================
#=================以下两个用来调整战斗时的手感问题，可以自己试试。
$敌人选框扩大 = 20
$角色选框扩大 = 30
#==============================================================================
# API调用
#==============================================================================
$ShowCursor = Win32API.new("user32", "ShowCursor", 'i', 'l')
$GetCursorPos = Win32API.new("user32", "GetCursorPos", 'p', 'i')
$ScreenToClient = Win32API.new("user32", "ScreenToClient", 'ip', 'i')
$GetActiveWindow = Win32API.new("user32", "GetActiveWindow", nil, 'l')
$Window_HWND = $GetActiveWindow.call
$GetKeyState = Win32API.new("user32", "GetKeyState", 'i', 'i')
#$FindWindow = Win32API.new("user32", "FindWindow", 'pp', 'i')#
#$HookStart = Win32API.new("mouse_hook.dll", "HookStart", 'i', nil)#
#$HookEnd = Win32API.new("mouse_hook.dll", "HookEnd", nil, nil)#
#$GetMouseStatus = Win32API.new("mouse_hook.dll", "GetMouseStatus", 'i', 'i')#
#$Window_HWND = $FindWindow.call(nil, 'mousetry')#
module Mouse
LEFT = 0x01
RIGHT = 0x02
def self.init(sprite = nil)
#$HookStart.call($Window_HWND)#
$ShowCursor.call(0)
@show_cursor = false
@mouse_sprite = Sprite.new
@mouse_sprite.z = 99999
@mouse_sprite.bitmap = Bitmap.new("Graphics/Icons/002-Weapon02")
@mouse_sprite2 = Sprite.new
@mouse_sprite2.z = @mouse_sprite.z - 1
#@mouse_sprite.bitmap.fill_rect(Rect.new(0, 0, 32, 32), Color.new(0, 0, 0))
@left_press = false
@right_press = false
@left_trigger = false
@right_trigger = false
@left_repeat = false
@right_repeat = false
@click_lock = false
update
end
#-----------------------------------------------#----------------------------------------
def self.exit
@mouse_sprite.bitmap.dispose
@mouse_sprite.dispose
@show_cursor = true
# $HookEnd.call#
$ShowCursor.call(1)
end
def self.mouse_debug
return @mouse_debug.bitmap
end
def self.update
left_down = $GetKeyState.call(0x01)
right_down = $GetKeyState.call(0x02)
if $build == true
$cursor_pic = Bitmap.new("Graphics/Icons/002-Weapon01")
@mouse_sprite2.bitmap=Bitmap.new("Graphics/Icons/002-Weapon01")
@mouse_sprite2.ox=$cursor_pic.width-32
@mouse_sprite2.oy=$cursor_pic.height-32
else
@mouse_sprite2.bitmap=Bitmap.new(32,32)
end
@click_lock = false
mouse_x, mouse_y = self.get_mouse_pos
@mouse_sprite.x = mouse_x
@mouse_sprite.y = mouse_y
@mouse_sprite2.x = (mouse_x/32)*32
@mouse_sprite2.y = (mouse_y/32)*32
if $build == false
@mouse_sprite2.opacity=255
else
@mouse_sprite2.opacity=160
end
if left_down[7] == 1
@left_repeat = (not @left_repeat)
@left_trigger = (not @left_press)
@left_press = true
else
@left_press = false
@left_trigger = false
@left_repeat = false
end
if right_down[7] == 1
@right_repeat = (not @right_repeat)
@right_trigger = (not @right_press)
@right_press = true
else
@right_press = false
@right_trigger = false
@right_repeat = false
end
end
def self.get_mouse_pos
point_var = [0, 0].pack('ll')
if $GetCursorPos.call(point_var) != 0
if $ScreenToClient.call($Window_HWND, point_var) != 0
x, y = point_var.unpack('ll')
if (x < 0) or (x > 10000) then x = 0 end
if (y < 0) or (y > 10000) then y = 0 end
if x > 1275 then x = 1275 end
if y > 795 then y = 795 end
return x, y
else
return 0, 0
end
else
return 0, 0
end
end
def self.press?(mouse_code)
if mouse_code == LEFT
if @click_lock
return false
else
return @left_press
end
elsif mouse_code == RIGHT
return @right_press
else
return false
end
end
def self.trigger?(mouse_code)
if mouse_code == LEFT
if @click_lock
return false
else
return @left_trigger
end
elsif mouse_code == RIGHT
return @right_trigger
else
return false
end
end
def self.repeat?(mouse_code)
if mouse_code == LEFT
if @click_lock
return false
else
return @left_repeat
end
elsif mouse_code == RIGHT
return @right_repeat
else
return false
end
end
def self.click_lock?
return @click_lock
end
def self.click_lock
@click_lock = true
end
def self.click_unlock
@click_lock = false
end
end
module Input
if @self_update == nil
@self_update = method('update')
@self_press = method('press?')
@self_trigger = method('trigger?')
@self_repeat = method('repeat?')
end
def self.update
@self_update.call
Mouse.update
end
def self.press?(key_code)
if @self_press.call(key_code)
return true
end
if key_code == C
return Mouse.press?(Mouse::LEFT)
elsif key_code == B
return Mouse.press?(Mouse::RIGHT)
else
return @self_press.call(key_code)
end
end
def self.trigger?(key_code)
if @self_trigger.call(key_code)
return true
end
if key_code == C
return Mouse.trigger?(Mouse::LEFT)
elsif key_code == B
return Mouse.trigger?(Mouse::RIGHT)
else
return @self_trigger.call(key_code)
end
end
def self.repeat?(key_code)
if @self_repeat.call(key_code)
return true
end
if key_code == C
return Mouse.repeat?(Mouse::LEFT)
elsif key_code == B
return Mouse.repeat?(Mouse::RIGHT)
else
return @self_repeat.call(key_code)
end
end
end
class Window_Selectable
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
#self.cursor_rect.empty
self_update
if self.active and @item_max > 0
index_var = @index
tp_index = @index
mouse_x, mouse_y = Mouse.get_mouse_pos
#
$mouse_x = mouse_x
$mouse_y = mouse_y
#
mouse_not_in_rect = true
for i in 0...@item_max
@index = i
update_cursor_rect
top_x = self.cursor_rect.x + self.x + 16
top_y = self.cursor_rect.y + self.y + 16
bottom_x = top_x + self.cursor_rect.width
bottom_y = top_y + self.cursor_rect.height
if (mouse_x > top_x) and (mouse_y > top_y) and
(mouse_x < bottom_x) and (mouse_y < bottom_y)
mouse_not_in_rect = false
if tp_index != @index
tp_index = @index
$game_system.se_play($data_system.cursor_se)
end
break
end
end
if mouse_not_in_rect
@index = index_var
update_cursor_rect
Mouse.click_lock
else
Mouse.click_unlock
end
end
end
end
class Window_NameInput
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
#self.cursor_rect.empty
self_update
if self.active
index_var = @index
mouse_x, mouse_y = Mouse.get_mouse_pos
#
$mouse_x = mouse_x
$mouse_y = mouse_y
#
mouse_not_in_rect = true
for i in (0...CHARACTER_TABLE.size).to_a.push(180)
@index = i
update_cursor_rect
top_x = self.cursor_rect.x + self.x + 16
top_y = self.cursor_rect.y + self.y + 16
bottom_x = top_x + self.cursor_rect.width
bottom_y = top_y + self.cursor_rect.height
#
if (mouse_x > top_x) and (mouse_y > top_y) and
(mouse_x < bottom_x) and (mouse_y < bottom_y)
mouse_not_in_rect = false
break
end
end
if mouse_not_in_rect
@index = index_var
update_cursor_rect
Mouse.click_lock
else
Mouse.click_unlock
end
end
end
end
class Window_InputNumber
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
#self.cursor_rect.empty
self_update
mouse_x, mouse_y = Mouse.get_mouse_pos
#
$mouse_x = mouse_x
$mouse_y = mouse_y
#
if self.active and @digits_max > 0
index_var = @index
mouse_not_in_rect = true
for i in 0...@digits_max
@index = i
update_cursor_rect
top_x = self.cursor_rect.x + self.x + 16
bottom_x = top_x + self.cursor_rect.width
#
if (mouse_x > top_x) and (mouse_x < bottom_x)
mouse_not_in_rect = false
break
end
end
if mouse_not_in_rect
@index = index_var
update_cursor_rect
Mouse.click_lock
else
Mouse.click_unlock
end
end
if @last_mouse_y == nil
@last_mouse_y = mouse_y
end
check_pos = (@last_mouse_y - mouse_y).abs
if check_pos > 10
$game_system.se_play($data_system.cursor_se)
place = 10 ** (@digits_max - 1 - @index)
n = @number / place % 10
@number -= n * place
n = (n + 1) % 10 if mouse_y < @last_mouse_y
n = (n + 9) % 10 if mouse_y > @last_mouse_y
@number += n * place
refresh
@last_mouse_y = mouse_y
end
end
end
class Scene_File
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
mouse_x, mouse_y = Mouse.get_mouse_pos
#
$mouse_x = mouse_x
$mouse_y = mouse_y
#
Mouse.click_lock
idx = 0
for i in @savefile_windows
top_x = i.x + 16
top_y = i.y + 16
bottom_x = top_x + i.width
bottom_y = top_y + i.height
if (mouse_x > top_x) and (mouse_y > top_y) and
(mouse_x < bottom_x) and (mouse_y < bottom_y)
i.selected = true
if @file_index != idx
@file_index = idx
$game_system.se_play($data_system.cursor_se)
end
Mouse.click_unlock
else
i.selected = false
end
idx += 1
end
self_update
end
end
class Arrow_Enemy
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
mouse_x, mouse_y = Mouse.get_mouse_pos
#
$mouse_x = mouse_x
$mouse_y = mouse_y
#
idx = 0
for i in $game_troop.enemies do
if i.exist?
top_x = i.screen_x - self.ox
top_y = i.screen_y - self.oy
bottom_x = top_x + self.src_rect.width
bottom_y = top_y + self.src_rect.height
if (mouse_x > top_x - $敌人选框扩大) and (mouse_y > top_y - $敌人选框扩大) and
(mouse_x < bottom_x + $敌人选框扩大) and (mouse_y < bottom_y + $敌人选框扩大)
if @index != idx
$game_system.se_play($data_system.cursor_se)
@index = idx
end
end
end
idx += 1
end
self_update
end
end
class Arrow_Actor
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
mouse_x, mouse_y = Mouse.get_mouse_pos
#
$mouse_x = mouse_x
$mouse_y = mouse_y
#
idx = 0
for i in $game_party.actors do
if i.exist?
top_x = i.screen_x - self.ox
top_y = i.screen_y - self.oy
bottom_x = top_x + self.src_rect.width
bottom_y = top_y + self.src_rect.height
if (mouse_x > top_x - $角色选框扩大) and (mouse_y > top_y - $角色选框扩大) and
(mouse_x < bottom_x + $角色选框扩大) and (mouse_y < bottom_y + $角色选框扩大)
if @index != idx
$game_system.se_play($data_system.cursor_se)
@index = idx
end
end
end
idx += 1
end
self_update
end
end
class Game_Player
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
mouse_x, mouse_y = Mouse.get_mouse_pos
#
$mouse_x = mouse_x
$mouse_y = mouse_y
#
if @last_move_x == nil
@last_move_x = false
end
#if Mouse.trigger?(Mouse::RIGHT)
self_update
if Mouse.press?(Mouse::LEFT) or $game_switches[4] == true
last_moving = moving?
last_direction = @direction
unless moving? or $game_system.map_interpreter.running? or
@move_route_forcing or $game_temp.message_window_showing
last_x = @x
if @last_move_x
@last_move_x = false
elsif mouse_x > screen_x + 16
move_right
@wait_count = 10
elsif mouse_x < screen_x - 16
move_left
@wait_count = 10
end
last_y = @y
if last_x != @x
@last_move_x = true
elsif mouse_y > screen_y
move_down
@wait_count = 10
elsif mouse_y < screen_y - 32
move_up
@wait_count = 10
end
if last_y != @y
@last_move_x = false
elsif not @last_move_x
case last_direction
when 2
turn_down
when 4
turn_left
when 6
turn_right
when 8
turn_up
end
end
end
end
self_update
end
end
Mouse.init
END { Mouse.exit }

复制代码

这样子，$mouse_x和$mouse_y就分别代表鼠标在画面的x，y坐标了。

然后，lz图示的效果有错误。。条件

“x<6，x>8”“y<13，y>15”

结果x，y两个数都不存在。
应该是：

“x>6，x<8”“y>13，y<15”

最后，要达到“区域里触发事件的自动跟随或自动远离”的效果，有个简单的方法：
在需要效果的事件里，移动规则→类型→自定义→移动路线→脚本
插入两次脚本

move_toward_player if $mouse_x > 6 and $mouse_x < 8 and $mouse_y > 13 and $mouse_y < 15 #接近

复制代码

move_away_from_player if $mouse_x < 6 or $mouse_x > 8 or $mouse_y < 13 or $mouse_y > 15 #远离

复制代码

if "后面的内容"是开启if"前面的内容“的条件，move_toward_player是接近，move_away_from_player 是远离，and是和，or是或。
嗯...lz图示的条件范围太窄啦，不好测试效果，把它改成

move_toward_player if $mouse_x > 600 and $mouse_x < 640 and $mouse_y > 400 and $mouse_y < 480 #接近

复制代码

move_away_from_player if $mouse_x < 600 or $mouse_x > 640 or $mouse_y < 400 or $mouse_y > 480 #远离

复制代码

lz试试把鼠标放到窗口画面右下角，是不是有效果啦。。

九幽鬼少 · 发表于 2015-8-13 15:56:55

本帖最后由九幽鬼少于 2015-8-13 16:06 编辑

其实一个傻方法在地图上设置一个事件并行处理
事件内容一个脚本

xxx,yyy = Mouse.get_mouse_pos
if xxx > 0 and yyy > 0 and xxx < 50 and yyy < 50
p 1 #要执行的内容
end

复制代码

第一个0代表范围的x
第二个0代表范围的x
第一个50代表范围的宽度
第二个50代表范围的高度

也可以这样子

doubyen · 发表于 2015-8-14 10:04:49

九幽鬼少发表于 2015-8-13 15:56
其实一个傻方法在地图上设置一个事件并行处理
事件内容一个脚本第一个0代表范围的x
第二个0代表范围 ...

可能我的图有误导性，设置移动路线上并不是要角色也就是事件靠近主角，而是要靠近或远离鼠标位置，这个程序我不知道怎么实现？？

九幽鬼少 · 发表于 2015-8-14 10:15:31

doubyen 发表于 2015-8-14 10:04
可能我的图有误导性，设置移动路线上并不是要角色也就是事件靠近主角，而是要靠近或远离鼠标位置，这个程 ...

鼠标在指定范围内让事件远离鼠标位置？

doubyen · 发表于 2015-8-14 12:07:56

九幽鬼少发表于 2015-8-14 10:15
鼠标在指定范围内让事件远离鼠标位置？

接近或是远离，这两种效果我都需要呵呵^_^

luoxduo · 发表于 2015-8-14 15:46:57

本帖最后由 luoxduo 于 2015-8-14 15:52 编辑

doubyen 发表于 2015-8-14 12:07
接近或是远离，这两种效果我都需要呵呵^_^

(;´Д`)居然无视我的答案，好吧

要靠近或远离鼠标位置

我的方法需要修改脚本。（瞎改的，虽然不修改也可以达成...但是每次使用前都要调入太麻烦啊）

脚本太刷屏

方法：需要靠近鼠标的话，在事件移动路线中的脚本 move_kjsb
需要远离鼠标的话，在事件移动路线中的脚本 move_ylsb

另外，$sb_x和$sb_y分别代表鼠标在地图上的x（横轴）和y（竖轴）坐标
$mouse_x和$mouse_y分别代表鼠标在画面上的x（横轴）和y（竖轴）坐标

最后，想达到 lz 的终极效果，请您参考并灵活应用楼上的所有回答~

doubyen · 发表于 2015-8-14 16:55:54

luoxduo 发表于 2015-8-14 15:46
(;´Д`)居然无视我的答案，好吧

刚发现，看一下先~~

doubyen · 发表于 2015-8-14 17:02:14

luoxduo 发表于 2015-8-14 15:46
(;´Д`)居然无视我的答案，好吧

刚发现，看一下先~~，如果不修改脚本，是否可以直接调入move_kjsb/move_ylsb ??

帐号		自动登录	找回密码
密码			注册会员

[已经解决] 请问如何设定鼠标在区域里触发事件跟随或远离？ 1vip

最佳答案

开拓者

[已经解决] 请问如何设定 鼠标在区域里触发事件跟随或远离？ 1vip

最佳答案

开拓者

[已经解决] 请问如何设定鼠标在区域里触发事件跟随或远离？ 1vip