Project1

标题: 求助鼠标问题和菜单光标过长问题 [打印本页]

作者: 5591888 时间: 2011-7-26 15:31
标题: 求助鼠标问题和菜单光标过长问题
本帖最后由 5591888 于 2011-7-26 21:03 编辑

如图鼠标不是正对着人物点击就没有用求解决
鼠标就是说
我使用鼠标移动
当我移动到人物傍边时如果是正面对着NPC 侧可以左键点他就可以对话
但是有时候我从NPC身边经过不是正面对着他的时候点左键就没有反应

如果菜单光标过长
请问在哪里修改啊？dsu_plus_rewardpost_czw

作者: zhixin1997 时间: 2011-7-26 16:03
脚本问题- -

作者: 5591888 时间: 2011-7-26 16:04
求帮忙啊脚本怎么弄啊

作者: Wind2010 时间: 2011-7-26 18:09
LZ用了什么脚本？

作者: 忧雪の伤 时间: 2011-7-26 18:25
鼠标问题表示听不懂。
光标问题请用self.cursor_rect.set(x, y, width, height)。
（嘛，虽然我认为说出这些远远不能让你明白……

作者: 5591888 时间: 2011-7-26 20:55
我用的鼠标四方向寻路
#==============================================================================
# ■ Find_Path
#------------------------------------------------------------------------------
# 　寻路算法--完整鼠标系统（四方向）专用版
# By whbm
#==============================================================================
class Find_Path
#--------------------------------------------------------------------------
def initialize  #初始化
@open_list = []
@close_lise = []
@path = []
end  #结束初始化
#--------------------------------------------------------------------------
def fp_passable?(x, y, d, tr_x = -2, tr_y = -2)  #开始判定通行
return false if (tr_x == @unable_xa or
               tr_x == @unable_xb or
               tr_y == @unable_ya or
               tr_y == @unable_yb)
if $game_player.passable?(x, y, d)
return true
else
return false
end
end  #结束判定通行
#--------------------------------------------------------------------------
def get_g(now_point)  #开始计算G值
d = now_point[2]
return 0 if d == 5
father_point = get_father_point(now_point)
g = father_point[3] + 10
return g
end  #结束计算G值
#--------------------------------------------------------------------------
def get_h(now_point)  #开始计算H值
now_x = now_point[0]
now_y = now_point[1]
#print @trg_x,now_x,@trg_y,now_y
h = (@trg_x - now_x).abs + (@trg_y - now_y).abs
return h * 10
end  #结束计算H值
#--------------------------------------------------------------------------
def get_f(now_point)  #开始计算F值
f = now_point[3] + now_point[4]
return f
end  #结束计算F值
#--------------------------------------------------------------------------
def get_point(x, y) #取已知坐标点
if @open_list.size != 0
@open_list.each do |point|
   if point[0] == x and point[1] == y
   return point
   break
   end
end
end
if @close_list.size != 0
@close_list.each do |point|
   if point[0] == x and point[1] == y
   return point
   break
   end
end
end
end  #结束取已知坐标点
#--------------------------------------------------------------------------
def get_father_point(now_point)  #取已知点的父节点
d = now_point[2]
return now_point if d == 5
x = now_point[0] + (d == 6 ? 1 : (d == 4 ? -1 : 0))
y = now_point[1] + (d == 2 ? 1 : (d == 8 ? -1 : 0))
return get_point(x, y)
end  #结束取已知点的父节点
#--------------------------------------------------------------------------
def new_point(x, y, d)  #开始建立新节点
#print x,y,d
point = [x, y, d]
point.push get_g(point)
point.push get_h(point)
point.push get_f(point)
return point
end  #结束建立新节点
#--------------------------------------------------------------------------
def get_direction(self_x, self_y, trg_x, trg_y)
  if trg_x > self_x
if trg_y - self_y > -  ( trg_x - self_x ) and
   trg_y - self_y < ( trg_x - self_x )
   return 6
end
if trg_y - self_y > ( trg_x - self_x )
   return 2
end
if trg_y - self_y < - ( trg_x - self_x )
   return 8
end
  end
  if trg_x < self_x
if trg_y - self_y > - ( self_x - trg_x ) and
   trg_y - self_y < ( self_x - trg_x )
   return 4
end
if trg_y - self_y > ( self_x - trg_x )
   return 2
end
if trg_y - self_y < - ( self_x - trg_x )
   return 8
end
  end
end
#--------------------------------------------------------------------------
def get_d_x_y(x, y, d)
  d_x = x + (d == 6 ? 1 : (d == 4 ? -1 : 0))
  d_y = y + (d == 2 ? 1 : (d == 8 ? -1 : 0))
  return d_x, d_y
end
#--------------------------------------------------------------------------
def find_short_path_other(self_x, self_y, trg_x, trg_y,
                        real_self_x, real_self_y, real_trg_x, real_trg_y)
  @self_x = self_x
  @self_y = self_y
  @now_x = self_x
  @now_y = self_y
  @trg_x = trg_x
  @trg_y = trg_y
  @path = []
  direction = get_direction(real_self_x, real_self_y, real_trg_x, real_trg_y)
  @now_trg_x, @now_trg_y = get_d_x_y(@self_x, @self_y, direction)
  while fp_passable?(@now_x, @now_y, direction)
@path.push direction
@now_x = @now_trg_x
@now_y = @now_trg_y
@now_trg_x, @now_trg_y = get_d_x_y(@now_x, @now_y, direction)
  end
  return @path
end
#--------------------------------------------------------------------------
def find_short_path(self_x, self_y, trg_x, trg_y,
                  real_self_x, real_self_y, real_trg_x, real_trg_y)  #开始搜索路径

return find_short_path_other(self_x, self_y, trg_x, trg_y,
                           real_self_x, real_self_y, real_trg_x, real_trg_y) if not
               (fp_passable?(trg_x, trg_y + 1, 8) or
               fp_passable?(trg_x + 1, trg_y, 4) or
               fp_passable?(trg_x - 1, trg_y, 6) or
               fp_passable?(trg_x, trg_y - 1, 2)) and @goal_type != 1


  #根据屏幕限定搜索面积..加速
@unable_xa = $game_map.display_x / 128 - 1
@unable_ya = $game_map.display_y / 128 - 1
@unable_xb = $game_map.display_x / 128 + 20
@unable_yb = $game_map.display_y / 128 + 20

@self_x = self_x
@self_y = self_y
@now_x = self_x
@now_y = self_y
@trg_x = trg_x
@trg_y = trg_y
@open_list = []
@close_list = []
#准备搜索
#print @self_x,@self_y
@now_point = new_point(@self_x, @self_y, 5) #令起始点为当前点
@open_list.push @now_point #将当前点加入关闭列表
#开始搜索
begin
loop do
check_trg = check_around_point(@now_point)
if check_trg == true
   @path = get_path
   break
end
@now_point = get_lowest_f_point
if @now_point == [] or @now_point == nil
   @path = []
   break
end
end
rescue Hangup
  retry
end
return @path
end  #结束搜索路径
#--------------------------------------------------------------------------
def find_player_short_path(trg_x, trg_y,
                        real_trg_x, real_trg_y)  #寻找角色的最短路径
self_x = $game_player.x
self_y = $game_player.y
real_self_x = $game_player.screen_x
real_self_y = $game_player.screen_y
@goal_type, event = $game_map.check_event_custom_exist(real_trg_x, real_trg_y)
if @goal_type == 1
trg_x = event.x
trg_y = event.y
end
return find_short_path(self_x, self_y, trg_x, trg_y,
                     real_self_x, real_self_y, real_trg_x, real_trg_y)
end  #结束角色的寻找路径
#--------------------------------------------------------------------------
def get_path  #取得最终的路径
path = []
now_point = @open_list[@open_list.size - 1]
path.push(10 - now_point[2])
last_point = now_point
loop do
now_point = get_father_point(now_point)
break if now_point[2] == 5
path.push(10 - now_point[2])
end
return path.reverse
end  #结束取得最终的路径
#--------------------------------------------------------------------------
def get_lowest_f_point  #开始取得最低F值的点
if @open_list == []
return []
end
last_lowest_f_point = @open_list[0]
@open_list.each do |point|
last_lowest_f_point = point if point[5] < last_lowest_f_point[5]
end
return last_lowest_f_point
end  #结束取得最低F值点
#--------------------------------------------------------------------------
def check_around_point(point)  #开始检查已知点的八方节点
for d in [2, 4, 6, 8]
x = point[0] + (d == 6 ? 1 : (d == 4 ? -1 : 0))
y = point[1] + (d == 2 ? 1 : (d == 8 ? -1 : 0))
if in_close_list?(x, y) #在关闭列表中
   next
elsif in_open_list?(x, y) #在开启列表中
   get_new_g_point = new_point(x, y, 10 - d)
   get_last_g_point = get_point(x, y)
   if get_new_g_point[3] >= get_last_g_point[3]
   next
   else
   #如果改变父节点是新G值更小则确定改变
   @open_list[@open_list.index(get_last_g_point)] = get_new_g_point
   end
else
   if fp_passable?(point[0], point[1], d, x, y)
   # 如果不在开启列表中、且不在关闭列表中、且通行则添加它到新八周节点
   @open_list.push new_point(x, y, 10 - d)
   #如果将目标点添加到了开启列表中就返回true
   return true if x == @trg_x and y == @trg_y
   return true if @goal_type == 1 and ([1, -1].include?(x - @trg_x) and y - @trg_y == 0) or ([1, -1].include?(y - @trg_y) and x - @trg_x == 0)
   end
end
end
#此刻没有找到目标点并将当前点加入关闭列表并在开启列表中删除
@close_list.push point
@open_list.delete(point)
#此刻没找到目标点并返回false
return false
end  #结束计算已知点的八方节点
#--------------------------------------------------------------------------
def in_open_list?(x, y)  #开始检查谋点是否在开启列表中
@open_list.each do |point|
return true if point[0] == x and point[1] == y
end
return false
end  #结束检查谋点是否在开启列表中
#--------------------------------------------------------------------------
def in_close_list?(x, y)  #开始检查谋点是否在关闭列表中
@close_list.each do |point|
return true if point[0] == x and point[1] == y
end
return false
end  #结束检查谋点是否在关闭列表中
#--------------------------------------------------------------------------
end

另一个也是鼠标的

#==============================================================================
# ■ 完整鼠标系统(四方向)
#------------------------------------------------------------------------------
# 　使用时务必配合专用寻路算法
# By whbm
#==============================================================================
#下面做一下介绍与使用说明：
# 在屏幕上单击鼠标的时候，会自动进行寻路，这里为了速度更快并且为了进行迷
#宫时的难度寻路被限定在当时的屏幕内部。（否则玩家直接点到终点，呵呵....知道
#后果了吧）
# 在角色移动过程中再次单击鼠标（即双击）并在单击第二次鼠标的时候不松手，
#角色将会跟随鼠标方向移动。（这个应该好理解，不用多说吧）当角色贴着欲被启动
#的事件的时候，单击NPC即可启动事件。若未贴着，将会产生自动寻路到NPC附近的某
#点，那时在单击NPC即可。
# 当鼠标停在某些事件上时候会发现有不同的图标，设置方法为：宝箱事件请在事
#件的执行内容中添加注释，注释内容为 Item 注意大小写。NPC事件请在事件的执行
#内容中添加注释注释内容为 NPC 注意大小写。若不箱改变某事件的图标，则不要写
#那两个注释。
# 当把脚本转到您工程的时候千万别忘了那个寻路用的脚本。
#==============================================================================
class Game_Event
  attr_accessor :flag
end
#==============================================================================
# ■ Game_Map
#------------------------------------------------------------------------------
# 　处理地图的类。包含卷动以及可以通行的判断功能。
# 本类的实例请参考 $game_map 。
#==============================================================================
class Game_Map
  #--------------------------------------------------------------------------
  # ● 检查鼠标处是否有自定义的事件并返回类型
  #--------------------------------------------------------------------------
  def check_event_custom(mouse_x, mouse_y)
for event in $game_map.events.values #循环所有事件检查
   event_width = RPG::Cache.character(event.character_name,event.character_hue).width / 4
   event_height = RPG::Cache.character(event.character_name,event.character_hue).height / 4
   if mouse_x > event.screen_x - event_width / 2 and mouse_x < event.screen_x + event_width / 2 and mouse_y + 32 > event.screen_y + 32 - event_height and mouse_y + 32 < event.screen_y + 32
      for i in 0...event.list.size
      if event.list[i].parameters[0] == "Item" #类型判断
         event.flag = 1
      elsif event.list[i].parameters[0] == "Npc" #类型判断
         event.flag = 2
      else
         event.flag = 0 if $game_player.get_mouse_sta != 2 #无标志
      end
      return event.flag #返回事件类型标志
      end
   end
end
return 0 if $game_player.get_mouse_sta != 2 #如果不是在跟随鼠标状态，则返回无标志
return $mouse_icon_id #使鼠标图不变化
  end
  #--------------------------------------------------------------------------
  # ● 检查鼠标处是否有事件可以开启
  #--------------------------------------------------------------------------
  def check_event_custom_start(mouse_x, mouse_y)
for event in $game_map.events.values #循环所有事件检查
   #事件角色图片宽度、高度
   event_width = RPG::Cache.character(event.character_name,event.character_hue).width/4
   event_height = RPG::Cache.character(event.character_name,event.character_hue).height/4
   #判断是否鼠标在事件上
   if mouse_x > event.screen_x - event_width / 2 and mouse_x < event.screen_x + event_width / 2 and mouse_y + 32 > event.screen_y + 32 - event_height and mouse_y + 32 < event.screen_y + 32
      way_x = $game_player.x - event.x
      way_y = $game_player.y - event.y
      if ([1, -1].include?($game_player.x-event.x) and $game_player.y-event.y == 0) or ([1, -1].include?($game_player.y-event.y) and $game_player.x-event.x == 0)
      for i in 0...event.list.size
         if ["Item","Npc"].include?(event.list[i].parameters[0]) #当事件属于自定义事件
            #判断主角朝向
            if way_x == -1
            p_direction = 6 if way_y == 0
            elsif way_x == 0
            p_direction = 2 if way_y == -1
            p_direction = 8 if way_y == 1
            else
            p_direction = 4 if way_y == 0
            end
            event.start #开启事件
            return 1, p_direction #返回即将开启事件以及角色朝向
         end
      end
      end
   end
end
return 0, 5 #返回不会开启事件以及角色朝向不变
  end
  #--------------------------------------------------------------------------
  # ● 检查鼠标处是否存在自定义事件 for 寻路
  #--------------------------------------------------------------------------
  def check_event_custom_exist(mouse_x, mouse_y)
for event in $game_map.events.values #循环所有事件检查
   #事件角色图片宽度、高度
   event_width = RPG::Cache.character(event.character_name,event.character_hue).width/4
   event_height = RPG::Cache.character(event.character_name,event.character_hue).height/4
   if mouse_x > event.screen_x - event_width / 2 and mouse_x < event.screen_x + event_width / 2 and mouse_y + 32 > event.screen_y + 32 - event_height and mouse_y + 32 < event.screen_y + 32
      for i in 0...event.list.size
      return 1, event if ["Item", "Npc"].include?(event.list[i].parameters[0]) #返回存在自定义事件以及事件体
      end
   end
end
return 0, event #返回不存在自定义事件，以及事件体
  end
end

#=================以下两个用来调整战斗时的手感问题，可以自己试试。
$敌人选框扩大 = 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')
module Mouse
LEFT = 0x01
RIGHT = 0x02

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

@show_cursor = false

@mouse_sprite = Sprite.new
@mouse_sprite.z = 99999
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/001-Weapon01.png')

@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
$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 Graphics.frame_count * 3 / Graphics.frame_rate != @total_sec
   @total_sec = Graphics.frame_count * 3 / Graphics.frame_rate
   @a = !@a
end
if $scene.is_a?(Scene_Map) == false
   $mouse_icon_id = 0
end
if $mouse_icon_id != $mouse_icon_id_last
   case $mouse_icon_id
   when 1
   if @a
      @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/GetItem1')
   else
      @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/GetItem2')
   end
   when 2
   if @a
      @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/TalkTo1')
   else
      @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/TalkTo2')
   end
   when 11
   @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_LOWER_LEFT')
   when 12
   @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_DOWN')
   when 13
   @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_LOWER_RIGHT')
   when 14
   @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_LEFT')
   when 16
   @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_RIGHT')
   when 17
   @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_UPPER_LEFT')
   when 18
   @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_UP')
   when 19
   @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_UPPER_RIGHT')
   when 0
   @mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/888')
   end
   $mouse_icon_id_last = $mouse_icon_id
end
@click_lock = false
mouse_x, mouse_y = self.get_mouse_pos
if @mouse_sprite != nil
   @mouse_sprite.x = mouse_x
   @mouse_sprite.y = mouse_y
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 > 640 then x = 640 end
   if y > 480 then y = 480 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_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
   @jw = [(self.top_row + self.page_item_max), @item_max].min
   for i in self.top_row...@jw
   @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_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_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
#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
# 　处理主角的类。事件启动的判定、以及地图的滚动等功能。
# 本类的实例请参考 $game_player。
# 鼠标控制角色的主程序
#==============================================================================
class Game_Player
if @self_alias == nil
alias self_update update
@self_alias = true
end
#--------------------------------------------------------------------------
# ● 得到鼠标的状态
#--------------------------------------------------------------------------
def get_mouse_sta
return @mouse_sta
end
#--------------------------------------------------------------------------
# ● 完整鼠标系统
#--------------------------------------------------------------------------
def update
mouse_x, mouse_y = Mouse.get_mouse_pos
@mtp_x = mouse_x
@mtp_y = mouse_y
unless $game_system.map_interpreter.running? and @mouse_sta == 2 #鼠标状态不为跟随状态
   #得到鼠标图标方向
   $mouse_icon_id = $game_map.check_event_custom(mouse_x,mouse_y)  if not [11, 12, 13, 14, 16, 17, 18, 19].include?($mouse_icon_id)
else
   #令鼠标图标为正常
   $mouse_icon_id = 0 if @mouse_sta != 2
end

#单击鼠标时进行判断寻路或跟随
if Mouse.trigger?(Mouse::LEFT) #当点击鼠标时
   unless $game_system.map_interpreter.running? or
         @move_route_forcing or $game_temp.message_window_showing #各种无效情况的排除
   #初始化
   @mouse_sta = 1
   p_direction = 5
   #检查鼠标处能否开启事件
   event_start,p_direction = $game_map.check_event_custom_start(mouse_x, mouse_y)
   #若在移动中再次点击鼠标左键（即双击左键)，则改鼠标状态为跟随状态
   @mouse_sta = 2 if @paths_id != nil and @paths_id != @paths.size
   if @mouse_sta != 2
      #鼠标状态不为跟随状态则取数据并初始化路径
      trg_x = (mouse_x + $game_map.display_x / 4) / 32
      trg_y = (mouse_y + $game_map.display_y / 4) / 32
      @paths = []
      @paths_id = 0
      if event_start == 0 #若不能开启事件
         if trg_x != $game_player.x or trg_y != $game_player.y #若目标不为自身则开始寻路
         find_path = Find_Path.new
         @paths = find_path.find_player_short_path(trg_x, trg_y, @mtp_x, @mtp_y)
         end
      else #若能开启事件则改变角色朝向
         @direction = p_direction
      end
   end
   end
end

#开始移动
if @mouse_sta != nil and @mouse_sta == 1 #若鼠标状态为寻路状态
   unless moving? or $game_system.map_interpreter.running? or
         @move_route_forcing or $game_temp.message_window_showing #排除无效情况
   if @paths_id != nil and @paths != nil and @paths_id <= @paths.size #若没有完成路径
      case @paths[@paths_id] #判断路径
      when 6
         @last_move_x = true
         move_right
         @paths_id += 1
         @direction = 6
      when 4
         @last_move_x = true
         move_left
         @paths_id += 1
         @direction = 4
      when 2
         @last_move_x = false
         move_down
         @direction = 2
         @paths_id += 1
      when 8
         @last_move_x = false
         move_up
         @direction = 8
         @paths_id += 1
      end
   end
   end
elsif @paths != nil and @mouse_sta == 2 #当鼠标状态为跟随，且在移动中
   if Mouse.press?(Mouse::LEFT) #持续按住鼠标
   unless moving? or $game_system.map_interpreter.running? or
            @move_route_forcing or $game_temp.message_window_showing #排除无效情况
      #跟随方向判断并跟随
      if @mtp_x > self.screen_x
         if @mtp_y - self.screen_y > - ( @mtp_x - self.screen_x ) and
            @mtp_y - self.screen_y < @mtp_x - self.screen_x
         move_right
         $mouse_icon_id = 16
         @direction = 6
         end
         if @mtp_y - self.screen_y > @mtp_x - self.screen_x
         move_down
         $mouse_icon_id = 12
         @direction = 2
         end
         if @mtp_y - self.screen_y < - ( @mtp_x - self.screen_x )
         move_up
         $mouse_icon_id = 18
         @direction = 8
         end
      end
      if @mtp_x < self.screen_x
         if @mtp_y - self.screen_y > - ( self.screen_x - @mtp_x ) and
            @mtp_y - self.screen_y < self.screen_x - @mtp_x
         move_left
         $mouse_icon_id = 14
         @direction = 4
         end
         if @mtp_y - self.screen_y > self.screen_x - @mtp_x
         move_down
         $mouse_icon_id = 12
         @direction = 2
         end
         if @mtp_y - self.screen_y < - ( self.screen_x - @mtp_x )
         move_up
         $mouse_icon_id = 18
         @direction = 8
         end
      end
   end
   else #没状态的情况
   $mouse_icon_id = 0
   @mouse_sta = 0
   @paths_id = @paths.size #终止寻路移动
   end
end
self_update
end
end
Mouse.init
END { Mouse.exit }

作者: 灵魂の补给 时间: 2011-7-27 12:11
- - 那个是根据双脚确定触发位置
- - 不过你可以考虑用指着人就对话，只不过不用靠近，不知用否？:lol在我帖子里有。。
- - 找到菜单窗口。。。修改那个。。
算了，不说了

欢迎光临 Project1 (https://rpg.blue/)