寻找传说中的xp斜四方行走脚本（1vip）

八云紫 · 发表于 2008-5-17 23:43:02

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

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

x

RT，要可以用的哦。（废话 PAI飞）

版务信息：本贴由楼主自主结贴～

小柯 · 发表于 2008-5-17 23:55:32

XP的为什么要发到VX区呢？

#==============================================================================
# ■ 斜行4方向
class Game_Character
#--------------------------------------------------------------------------
# ● 向左下移動
#--------------------------------------------------------------------------
def move_lower_left(turn_enabled = true)
unless @direction_fix
turn_down
end
# 下→左、左→下的通道可以通行的情況下
if (passable?(@x, @y, 2) and passable?(@x, @y + 1, 4)) or
(passable?(@x, @y, 4) and passable?(@x - 1, @y, 2))
# 更新座標
@x -= 1
@y += 1
# 增加步數
increase_steps
else
check_event_trigger_touch(@x-1, @y+1)
end
end
#--------------------------------------------------------------------------
# ● 向右下移動
#--------------------------------------------------------------------------
def move_lower_right(turn_enabled = true)
unless @direction_fix
turn_right
end
# 下→右、右→下的通道可以通行的情況下
if (passable?(@x, @y, 2) and passable?(@x, @y + 1, 6)) or
(passable?(@x, @y, 6) and passable?(@x + 1, @y, 2))
# 更新座標
@x += 1
@y += 1
# 增加步數
increase_steps
else
check_event_trigger_touch(@x+1, @y+1)
end
end
#--------------------------------------------------------------------------
# ● 向左上移動
#--------------------------------------------------------------------------
def move_upper_left(turn_enabled = true)
unless @direction_fix
turn_left
end
# 上→左、左→上的通道可以通行的情況下
if (passable?(@x, @y, 8) and passable?(@x, @y - 1, 4)) or
(passable?(@x, @y, 4) and passable?(@x - 1, @y, 8))
# 更新座標
@x -= 1
@y -= 1
# 增加步數
increase_steps
else
check_event_trigger_touch(@x-1, @y-1)
end
end
#--------------------------------------------------------------------------
# ● 向右上移動
#--------------------------------------------------------------------------
def move_upper_right(turn_enabled = true)
unless @direction_fix
turn_up
end
# 上→右、右→上的通道可以通行的情況下
if (passable?(@x, @y, 8) and passable?(@x, @y - 1, 6)) or
(passable?(@x, @y, 6) and passable?(@x + 1, @y, 8))
# 更新座標
@x += 1
@y -= 1
# 增加步數
increase_steps
else
check_event_trigger_touch(@x+1, @y-1)
end
end
#--------------------------------------------------------------------------
# ● 隨機移動
#--------------------------------------------------------------------------
def move_random
case rand(4)
when 0 # 向左下移動
move_lower_left(false)
when 1 # 向左上移動
move_upper_left(false)
when 2 # 向右下移動
move_lower_right(false)
when 3 # 向右上移動
move_upper_right(false)
end
end
#--------------------------------------------------------------------------
# ● 前進一步
#--------------------------------------------------------------------------
def move_forward
case @direction
when 2
move_lower_left(false)
when 4
move_upper_left(false)
when 6
move_lower_right(false)
when 8
move_upper_right(false)
end
end
#--------------------------------------------------------------------------
# ● 後退一步
#--------------------------------------------------------------------------
def move_backward
# 記憶朝向固定訊息
last_direction_fix = @direction_fix
# 強制固定朝向
@direction_fix = true
# 朝向分歧
case @direction
when 2 # 下
move_upper_right(false)
when 4 # 左
move_lower_right(false)
when 6 # 右
move_upper_left(false)
when 8 # 上
move_lower_left(false)
end
# 還原朝向固定訊息
@direction_fix = last_direction_fix
end
#--------------------------------------------------------------------------
# ● 面向主角的方向
#--------------------------------------------------------------------------
def turn_toward_player
# 求得與主角的座標差值
sx = @x - $game_player.x
sy = @y - $game_player.y
# 座標相等的場合下
if sx == 0 and sy == 0
return
end
if sx < 0 and sy > 0
turn_up
elsif sx > 0 and sy > 0
turn_left
elsif sx > 0 and sy < 0
turn_down
elsif sx < 0 and sy < 0
turn_right
end
end
#--------------------------------------------------------------------------
# ● 背向主角的方向
#--------------------------------------------------------------------------
def turn_away_from_player
# 求得與主角的座標差
sx = @x - $game_player.x
sy = @y - $game_player.y
# 座標相等的場合下
if sx == 0 and sy == 0
return
end
if sx < 0 and sy > 0
turn_down
elsif sx > 0 and sy > 0
turn_right
elsif sx > 0 and sy < 0
turn_up
elsif sx < 0 and sy < 0
turn_left
end
end
end
#==============================================================================
# ■ 正面事件的啟動判定
#------------------------------------------------------------------------------
# 　事件啟動的判定。
# 　本類別的實例請參考 $game_player。
#==============================================================================
class Game_Player < Game_Character
def check_event_trigger_there(triggers)
result = false
# 事件執行中的情況下
if $game_system.map_interpreter.running?
return result
end
# 計算正面座標
##########################################################
case @direction
when 2
new_x = @x-1
new_y = @y+1
when 4
new_x = @x-1
new_y = @y-1
when 6
new_x = @x+1
new_y = @y+1
when 8
new_x = @x+1
new_y = @y-1
end
##########################################################
# 全部事件的循環
for event in $game_map.events.values
# 事件座標與目標一致的情況下
if event.x == new_x and event.y == new_y and
triggers.include?(event.trigger)
# 跳躍中以外的情況下、啟動判定是正面的事件
if not event.jumping? and not event.over_trigger?
event.start
result = true
end
end
end
# 找不到符合條件的事件的情況下
if result == false
# 正面的元件是計數器的情況下
if $game_map.counter?(new_x, new_y)
# 計算 1 元件裡側的座標
##########################################################
case @direction
when 2
new_x = @x-1
new_y = @y+1
when 4
new_x = @x-1
new_y = @y-1
when 6
new_x = @x+1
new_y = @y+1
when 8
new_x = @x+1
new_y = @y-1
end
##########################################################
# 全事件的循環
for event in $game_map.events.values
# 事件座標與目標一致的情況下
if event.x == new_x and event.y == new_y and
triggers.include?(event.trigger)
# 跳躍中以外的情況下、啟動判定是正面的事件
if not event.jumping? and not event.over_trigger?
event.start
result = true
end
end
end
end
end
return result
end
#--------------------------------------------------------------------------
# ● 畫面更新
#--------------------------------------------------------------------------
def update
# 本地變數記錄移動訊息
last_moving = moving?
# 移動中、事件執行中、強制移動路線中、
# 訊息視窗一個也不顯示的時候
unless moving? or $game_system.map_interpreter.running? or
@move_route_forcing or $game_temp.message_window_showing
# 如果方向鍵被按下、主角就朝那個方向移動
######################################################################
case Input.dir4
when 2
move_lower_right
when 4
move_lower_left
when 6
move_upper_right
when 8
move_upper_left
end
######################################################################
end
# 本地變數記憶座標
last_real_x = @real_x
last_real_y = @real_y
super
# 角色向下移動、畫面上的位置在中央下方的情況下
if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y
# 畫面向下捲動
$game_map.scroll_down(@real_y - last_real_y)
end
# 角色向左移動、畫面上的位置在中央左方的情況下
if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X
# 畫面向左捲動
$game_map.scroll_left(last_real_x - @real_x)
end
# 角色向右移動、畫面上的位置在中央右方的情況下
if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X
# 畫面向右捲動
$game_map.scroll_right(@real_x - last_real_x)
end
# 角色向上移動、畫面上的位置在中央上方的情況下
if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y
# 畫面向上捲動
$game_map.scroll_up(last_real_y - @real_y)
end
# 不在移動中的情況下
unless moving?
# 上次主角移動中的情況
if last_moving
# 與同位置的事件接觸就判定為事件啟動
result = check_event_trigger_here([1,2])
# 沒有可以啟動的事件的情況下
if result == false
# 偵錯模式為 ON 並且按下 CTRL 鍵的情況下除外
unless $DEBUG and Input.press?(Input::CTRL)
# 遇敵計數下降
if @encounter_count > 0
@encounter_count -= 1
end
end
end
end
# 按下 C 鍵的情況下
if Input.trigger?(Input::C)
# 判定為同位置以及正面的事件啟動
check_event_trigger_here([0])
check_event_trigger_there([0,1,2])
end
end
end
end

复制代码

系统信息：本贴由楼主认可为正确答案，66RPG感谢您的热情解答～

八云紫 · 发表于 2008-5-17 23:58:09

呀呀，忘记了。在VX区呆久了，呵呵。

小柯 · 发表于 2008-5-17 23:58:45

以下引用八云紫于2008-5-17 15:58:09的发言：

呀呀，忘记了。在VX区呆久了，呵呵。

你试试这个脚本吧。

cheyenne · 发表于 2008-5-17 23:58:48

如果是只有斜四行走没有正四方向的话据说改行走图和一小段脚本就得

小柯 · 发表于 2008-5-18 00:01:03

以下引用cheyenne于2008-5-17 15:58:48的发言：

如果是只有斜四行走没有正四方向的话据说改行走图和一小段脚本就得

可能质感不好吧……

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

寻找传说中的xp斜四方行走脚本（1vip）

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

浏览过的版块

贵宾

开拓者

VX城市地图大赛亚军