《全方向移动》

美兽 · 发表于 2008-10-12 05:17:27

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

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

x

功能：

八方向以及遇障碍物自动偏向。

脚本：

#==============================================================================
# ■ 全方向移动
#==============================================================================
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
last_real_x = @real_x
last_real_y = @real_y
last_moving = moving?
#全方向移动
all_move_by_input
super
update_scroll(last_real_x, last_real_y)
update_vehicle
update_nonmoving(last_moving)
end
#--------------------------------------------------------------------------
# ● 判断是否接触事件（不可通行情况下）
# x : X 坐标
# y : Y 坐标
#--------------------------------------------------------------------------
def all_check_event_trigger_touch(x, y)
return false if $game_map.interpreter.running?
result = false
allEvents = $game_map.events_xy(x, y)
result = true unless allEvents.empty?
for event in allEvents
if [1,2].include?(event.trigger) and event.priority_type == 1
event.start
end
end
return result
end
#--------------------------------------------------------------------------
# ● 处理输入方向键后的移动
#--------------------------------------------------------------------------
def all_move_by_input
return unless movable?
return if $game_map.interpreter.running?
move_dir(Input.dir8)
end
#--------------------------------------------------------------------------
# ● 转向判断
#--------------------------------------------------------------------------
def dir_fact(x1, y1, x2, y2, d1, d2)
dir = 0
dir +=1 if passable?(x1, y1) #右下
dir +=2 if passable?(x2, y2) #左下
if dir > 0
return (rand(10) > 4 ? move_dir(d1) : move_dir(d2)) if dir == 3
return move_dir(d2) if dir == 2
return move_dir(d1) if dir == 1
end
end
#--------------------------------------------------------------------------
# ● 移动方向
#--------------------------------------------------------------------------
def move_dir(d)
return all_move_lower_left if d == 1
return all_move_down if d == 2
return all_move_lower_right if d == 3
return all_move_left if d == 4
return all_move_right if d == 6
return all_move_upper_left if d == 7
return all_move_up if d == 8
return all_move_upper_right if d == 9
end
#--------------------------------------------------------------------------
# ● 向下移动
# turn_ok : 此地可以更改朝向
#--------------------------------------------------------------------------
def all_move_down(turn_ok = true)
if passable?(@x, @y+1) # 可以通过
turn_down
@y = $game_map.round_y(@y+1)
@real_y = (@y-1)*256
increase_steps
@move_failed = false
else # 下方向不可通过
if all_check_event_trigger_touch(@x, @y+1) # 判断接触的事件启动
turn_down if turn_ok
@move_failed = true
return
end
dir_fact(@x+1, @y+1, @x-1, @y+1, 3, 1)
end
end
#--------------------------------------------------------------------------
# ● 向左移动
# turn_ok : 此地可以更改朝向
#--------------------------------------------------------------------------
def all_move_left(turn_ok = true)
if passable?(@x-1, @y) # 可以通过
turn_left
@x = $game_map.round_x(@x-1)
@real_x = (@x+1)*256
increase_steps
@move_failed = false
else # 不可以通过
if all_check_event_trigger_touch(@x-1, @y) # 判断接触的事件启动
turn_left if turn_ok
@move_failed = true
return
end
dir_fact(@x-1, @y+1, @x-1, @y-1, 1, 7)
end
end
#--------------------------------------------------------------------------
# ● 向右移动
# turn_ok : 此地可以更改朝向
#--------------------------------------------------------------------------
def all_move_right(turn_ok = true)
if passable?(@x+1, @y) # 可以通过
turn_right
@x = $game_map.round_x(@x+1)
@real_x = (@x-1)*256
increase_steps
@move_failed = false
else # 不可以通过
if all_check_event_trigger_touch(@x+1, @y) # 判断接触的事件启动
turn_right if turn_ok
@move_failed = true
return
end
dir_fact(@x+1, @y-1, @x+1, @y+1, 9, 3)
end
end
#--------------------------------------------------------------------------
# ● 向上移动
# turn_ok : 此地可以更改朝向
#--------------------------------------------------------------------------
def all_move_up(turn_ok = true)
if passable?(@x, @y-1) # 可以通过
turn_up
@y = $game_map.round_y(@y-1)
@real_y = (@y+1)*256
increase_steps
@move_failed = false
else # 不可以通过
if all_check_event_trigger_touch(@x, @y-1) # 判断接触的事件启动
turn_up if turn_ok
@move_failed = true
return
end
dir_fact(@x-1, @y-1, @x+1, @y-1, 7, 9)
end
end
#--------------------------------------------------------------------------
# ● 左下移动
#--------------------------------------------------------------------------
def all_move_lower_left
unless @direction_fix
@direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
end
if (passable?(@x, @y+1) and passable?(@x-1, @y+1)) or
(passable?(@x-1, @y) and passable?(@x-1, @y+1))
@x -= 1
@y += 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ● 向右下移动
#--------------------------------------------------------------------------
def all_move_lower_right
unless @direction_fix
@direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
end
if (passable?(@x, @y+1) and passable?(@x+1, @y+1)) or
(passable?(@x+1, @y) and passable?(@x+1, @y+1))
@x += 1
@y += 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ● 向左上移动
#--------------------------------------------------------------------------
def all_move_upper_left
unless @direction_fix
@direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
end
if (passable?(@x, @y-1) and passable?(@x-1, @y-1)) or
(passable?(@x-1, @y) and passable?(@x-1, @y-1))
@x -= 1
@y -= 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ● 向右上移动
#--------------------------------------------------------------------------
def all_move_upper_right
unless @direction_fix
@direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
end
if (passable?(@x, @y-1) and passable?(@x+1, @y-1)) or
(passable?(@x+1, @y) and passable?(@x+1, @y-1))
@x += 1
@y -= 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end
end

复制代码

范例：
http://rpg.blue/upload_program/d ... 81011_104188782.rar

截图：（注意红圈内的移动方式）

偶尔杀人越货 · 发表于 2008-10-12 05:42:23

  def all_move_lower_right
unless @direction_fix
   @direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
end
if (passable?(@x, @y+1) and passable?(@x+1, @y+1)) or
   (passable?(@x+1, @y) and passable?(@x+1, @y+1))
   @x += 1
   @y += 1
   increase_steps
   @move_failed = false
else
   @move_failed = true
end
  end
感覺側向的一定不應該是x+1y+1，累加起來是移動了1.414。看起來會失去立體感
0.7，0.7還差不多
故國這樣接觸判斷什么的就麻煩了……
1：1
缺點就是在人物移動的快或者人物比較小的時候會比較明顯
優點
不會遇到事件決出和同行度判定問題

美兽 · 发表于 2008-10-12 05:45:08

以下引用偶尔杀人越货于2008-10-11 21:42:23的发言：

def all_move_lower_right
unless @direction_fix
   @direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
end
if (passable?(@x, @y+1) and passable?(@x+1, @y+1)) or
   (passable?(@x+1, @y) and passable?(@x+1, @y+1))
   @x += 1
   @y += 1
   increase_steps
   @move_failed = false
else
   @move_failed = true
end
end
感覺側向的一定不應該是x+1y+1，累加起來是移動了1.414。看起來會失去立體感
0.7，0.7還差不多

恩，我试了一下GBA的《鬼眼狂刀》，《守护英雄》以及SFC的《天地创造》，斜方向都是1，1，只是降低了移动速度，不过这点暂时不是大的问题，后期可能会对地图进行改造，暂时先这样。

偶尔杀人越货 · 发表于 2008-10-12 06:00:55

順帶提一句
使用x+1，y+0.6，斜向時累計+0.7的視覺效果比較好
不過在平面游戲這些都可以忽略

美兽 · 发表于 2008-10-12 06:04:08

1：1
缺點就是在人物移動的快或者人物比較小的時候會比較明顯
優點
不會遇到事件決出和同行度判定問題

呵呵，手感方面参考的是这个游戏，仔细测试，会发现他的地图设置存在很多取巧之处，RM模仿时，限制较多。

kissye · 发表于 2008-10-12 06:08:52

提示: 作者被禁止或删除内容自动屏蔽

美兽 · 发表于 2008-10-12 06:12:32

以下引用kissye于2008-10-11 22:08:52的发言：

那个,报告一下fps
最低24,最高45左右
不过我的电脑是很差,泪>_<

……不至于吧，
为降低消耗，甚至整合一部分方法，运算效率几乎与默认相同，

我一直是60— —

kissye · 发表于 2008-10-12 06:37:04

提示: 作者被禁止或删除内容自动屏蔽

越前リョーマ · 发表于 2008-10-12 07:21:48

又是个高级功能……
拜膜一下。

holiday · 发表于 2008-10-12 09:19:11

好东西要顶，希望能支持像xp那样的八方向行走图。

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

《全方向移动》

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

第1届短篇游戏比赛亚军

开拓者

贵宾

第3届短篇游戏大赛主流游戏组亚军

第5届短篇游戏比赛亚军