八方向靠近主角/远离主角算法（附上小翅膀）
=.=为了弄支持纸娃娃的小翅膀，我特意写了八方向的算法。#--------------------------------------------------------------------------# ● 接近主角#--------------------------------------------------------------------------def move_toward_player # 求得与主角的坐标差 sx = @x - $game_player.x sy = @y - $game_player.y # 坐标相等情况下 if sx == 0 and sy == 0 return end # 求得差的绝对值 abs_sx = sx.abs abs_sy = sy.abs # 横距离与纵距离相等的情况下 if abs_sx == abs_sy #if sx > 0 # if sy > 0 # move_upper_left # elsif sy < 0 # move_lower_left # end #elsif sx < 0 #if sy > 0 #move_upper_right #elsif sy < 0 #move_lower_right #end #end rand(2) == 0 ? abs_sx += 1 : abs_sy += 1 end # 横侧距离长的情况下 if abs_sx > abs_sy # 左右方向优先。向主角移动 # sx > 0 ? move_left : move_right if sx > 0 if sy > 0 move_upper_left elsif sy < 0 move_lower_left else move_left end else if sy > 0 move_upper_right elsif sy < 0 move_lower_right else move_right end end if not moving? and sy != 0 sy > 0 ? move_up : move_down end # 竖侧距离长的情况下 else abs_sx < abs_sy # 上下方向优先。向主角移动 #sy > 0 ? move_up : move_down if sy > 0 if sx > 0 move_upper_left elsif sx < 0 move_upper_right else move_up end else if sx > 0 move_lower_left elsif sx < 0 move_lower_right else move_down end end if not moving? and sx != 0 sx > 0 ? move_left : move_right end endend#--------------------------------------------------------------------------# ● 远离主角#--------------------------------------------------------------------------def move_away_from_player # 求得与主角的坐标差 sx = @x - $game_player.x sy = @y - $game_player.y # 坐标相等情况下 if sx == 0 and sy == 0 return end # 求得差的绝对值 abs_sx = sx.abs abs_sy = sy.abs # 横侧距离长的情况下 if abs_sx > abs_sy # 左右方向优先。向主角移动 # sx > 0 ? move_left : move_right if sx > 0 if sy > 0 move_lower_right elsif sy < 0 move_upper_right else move_right end else if sy > 0 move_lower_left elsif sy < 0 move_upper_left else move_left end end if not moving? and sy != 0 sy > 0 ? move_down : move_up end # 竖侧距离长的情况下 else abs_sx < abs_sy # 上下方向优先。向主角移动 #sy > 0 ? move_up : move_down if sy > 0 if sx > 0 move_lower_right elsif sx < 0 move_lower_left else move_down end else if sx > 0 move_upper_right elsif sx < 0 move_upper_left else move_up end end if not moving? and sx != 0 sx > 0 ? move_right : move_left end endend复制代码附上工程：本帖来自P1论坛作者奶油Da蛋糕，因Project1站服务器在国外有时候访问缓慢不方便作者交流学习，经联系P1站长fux2同意署名转载一起分享游戏制作经验，共同为国内独立游戏作者共同创造良好交流环境，原文地址：https://rpg.blue/forum.php?mod=viewthread&tid=133599若有侵权，发帖作者可联系底部站长QQ在线咨询功能删除，谢谢。
页:
[1]