区域扩充

feizhaodan · 发表于 2012-3-1 18:12:32

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

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

x

本帖最后由 feizhaodan 于 2012-10-8 17:32 编辑

因为在RMVA里面地图也有了备注栏，所以试着活用了一下。
所有的功能都与区域有关。

#==============================================================================
# ■ Game_Map
#------------------------------------------------------------------------------
# 　管理地图的类。拥有卷动地图以及判断通行度的功能。
# 本类的实例请参考 $game_map 。
# 添加内容：添加读取地图备注内容并更改一部分通行判定。alias:2个，新定义:2个
#==============================================================================
class Game_Map
#--------------------------------------------------------------------------
# ● セットアップ
# map_id : マップ ID
# enable : 所属レイヤーの変更
#--------------------------------------------------------------------------
alias region_effect_setup setup
def setup(map_id)
@encountwalk_region = {}
@passagechange_region = {}
@canjump_region = {}
@region_switch = {}
@forcemove_region = {}
@move_diag_region = {}
region_effect_setup(map_id)
@map.note.each_line{|line|
case line
when /\<(?:遇敌步数更改|ENCOUNTWALK_REGION)[ ]**(\d+)(?:\,(\d+))*\>/
@encountwalk_region[$1.to_i] = $2 == nil ? 0 : $2.to_i
when /\<(?:更改通行区域|PASSAGECHANGE_REGION)[ ]*(\d+)(?:\,(\d+))*\>/
push_passage_region($1.to_i,$2)
when /\<(?:可跳跃区域|JUMP_REGION)[ ]*(\d+)(?:\,([2468]+))*\>/
push_jump_region($1.to_i,$2)
when /\<(?:区域开关|REGION_SWITCH)[ ]*(\d+)(?:\,(\d+))*\>/
@region_switch[$1.to_i] = $2.to_i
when /\<(?:强制移动区域|FORCEMOVE_REGION)[ ]*(\d+)(?:\,([2468]+))*\>/
@forcemove_region[$1.to_i] = $2.to_i
when /\<(?:斜向移动|MOVE_DIAG)[ ]*(\d+)(?:\,([28]+))\>/
@move_diag_region[$1.to_i] = $2.to_i
end
}
end
#--------------------------------------------------------------------------
# ● 添加通行区域
#--------------------------------------------------------------------------
def push_passage_region(region_id,direction)
directions = []
if direction
direction.scan(/./){|d|
case d
when /2/
directions.push(0x0001)
when /4/
directions.push(0x0002)
when /6/
directions.push(0x0004)
when /8/
directions.push(0x0008)
end
}
end
@passagechange_region[region_id] = directions
end
#--------------------------------------------------------------------------
# ● 添加跳跃区域
#--------------------------------------------------------------------------
def push_jump_region(region_id,direction)
directions = []
if direction
direction.scan(/./){|d|
case d
when /2/
directions.push(2)
when /4/
directions.push(4)
when /6/
directions.push(6)
when /8/
directions.push(8)
end
}
else
directions = [2,4,6,8]
end
@canjump_region[region_id] = directions
end
alias region_change_check_passage check_passage
#--------------------------------------------------------------------------
# ● 通行检查
# alias:添加区域通行判定
#--------------------------------------------------------------------------
def check_passage(x, y, bit)
change = @passagechange_region[region_id(x,y)]
return change.include?(bit) if change
return region_change_check_passage(x,y,bit)
end
attr_reader :encountwalk_region
attr_reader :canjump_region
attr_reader :region_switch
attr_reader :forcemove_region
attr_reader :move_diag_region
end
#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
# 　处理玩家人物的类。拥有事件启动的判定、地图的卷动等功能。
# 本类的实例请参考 $game_player 。
# 添加内容:添加有关移动的处理内容。 alias:3个新定义:3个
#==============================================================================
class Game_Player < Game_Character
alias _Kine_no_encount_region_encounter_progress_value encounter_progress_value
#--------------------------------------------------------------------------
# ● 获取遇敌进行值
# alias:在结果添加区域遇敌值
#--------------------------------------------------------------------------
def encounter_progress_value
value = _Kine_no_encount_region_encounter_progress_value
v2 = $game_map.encountwalk_region[region_id]
value = v2 if v2
value
end
alias jump_move_by_input move_by_input
#--------------------------------------------------------------------------
# ● 由方向键移动
# alias:添加强制移动区域与跳跃处理
#--------------------------------------------------------------------------
def move_by_input
@input_jump = false
return if force_move_by_region
jump_move_by_input
unless @move_succeed
jump_by_input(Input.dir4)
end
end
#--------------------------------------------------------------------------
# ● 由方向键跳跃
#--------------------------------------------------------------------------
def jump_by_input(d)
return if d == 0
x1 = $game_map.x_with_direction(@x,d)
y1 = $game_map.y_with_direction(@y,d)
x2 = $game_map.x_with_direction(x1,d)
y2 = $game_map.y_with_direction(y1,d)
if can_jump?(x1,x2,y1,y2,d)
jump(x2 - @x,y2 - @y)
@input_jump = true
@move_succeed = true
end
end
#--------------------------------------------------------------------------
# ● 可以跳跃？
#--------------------------------------------------------------------------
def can_jump?(x1,x2,y1,y2,d)
return false unless movable?
return false unless [2,4,6,8].any?{|di| map_passable?(x2,y2,di)}
return false if $game_map.canjump_region[$game_map.region_id(x1,y1)] == nil
return false unless $game_map.canjump_region[$game_map.region_id(x1,y1)].include?(d)
return true
end
#--------------------------------------------------------------------------
# ● 由区域强制移动
#--------------------------------------------------------------------------
def force_move_by_region
return false if !movable? || $game_map.interpreter.running?
if $game_map.forcemove_region.include?(region_id)
move_straight($game_map.forcemove_region[region_id])
return true
end
return false
end
alias region_switch_update update
#--------------------------------------------------------------------------
# ● 更新画面
# alias:添加区域开关控制内容
#--------------------------------------------------------------------------
def update
last_region_id = region_id
region_switch_update
if last_region_id != region_id
$game_map.region_switch.each{|k,v|
$game_switches[v] = region_id == k
}
end
end
end
#==============================================================================
# ■ Game_CharacterBase
#------------------------------------------------------------------------------
# 　管理地图人物的基本类。是所有地图人物类的共通父类。拥有坐标、图片等基本信息。
#==============================================================================
class Game_CharacterBase
#--------------------------------------------------------------------------
# ● 径向移动
# d : 方向（2,4,6,8）
# turn_ok : 是否可以改变方向
#--------------------------------------------------------------------------
alias move_diag_region_move_straight move_straight
def move_straight(d, turn_ok = true)
if $game_map.move_diag_region.keys.include?(region_id)
if [4,6].include?(d)
x2 = $game_map.round_x_with_direction(@x,d)
d2 = $game_map.move_diag_region[region_id]
[d2,10-d2].collect{|yd| $game_map.round_y_with_direction(@y,yd)}.each do |y2|
if $game_map.region_id(x2,y2) == region_id
vert = d
horz = y2 - @y > 0 ? 2 : 8
return move_diagonal(vert,horz)
end
end
end
end
move_diag_region_move_straight(d,turn_ok)
end
end

复制代码

现在有六个功能。
1：更改特定区域内的遇敌步数增加量。
使用方法：
在地图的备注栏内输入

<遇敌步数更改区域ID,更改后的增加量>

复制代码

在区域ID输入要使生效的区域ID，更改后的增加量如说明。
比如，本来走一步+1的位置，设置了这个区域后，将会增加你设置的量。
可以省略为：

<遇敌步数更改区域ID>

复制代码

这个则将该区域内的遇敌步数改为0。

2，更改放置了区域的图块的通行度
在地图的备注栏内输入

<更改通行区域区域ID,方向>

复制代码

区域ID如上，方向可以输入的数字为2468
2代表向下，4代表向左，6代表向右，8代表向上，可以同时输入多个。若什么数字也没有输入默认为全方向通行。若想要让该图块无法行走请输入2468以外的数字。
比如，你想让放置区域2的图块可以向上向左走，则输入

<更改通行区域 2,86>

复制代码

3，设置特定区域可以跳过
这个比较像雪流星前辈发布的飞檐走壁 - 仿黄金太阳中跳格子 VA 版。
不同的是，雪流星前辈的是自动判定，而这个是手动设置。
在想要生效的地图的备注栏内输入

<可跳跃区域区域ID,方向>

复制代码

区域ID，方向都和上一项相同。
放置位置为你想要可以跳过的位置。如宽为一个河，想要可以跳过则放在河上，而不是两岸。

4，进入特定区域打开特定开关。
在想要生效的地图的备注栏内输入

<区域开关区域ID,开关ID>

复制代码

区域ID如上，开关ID则是在玩家进入该区域时打开的开关的ID。
在玩家离开该区域时自动关闭。

5，进入特定区域时强制时玩家向特定方向移动
在想要生效的地图的备注栏输入

<强制移动区域区域ID,方向>

复制代码

区域ID，方向如上。不同的是，方向只能够输入一个。再多就无效。

6，使特定格子成为斜向通行 New!
在想要生效的地图的备注栏输入

<斜向移动区域ID,方向>

复制代码

区域ID如上，方向只可以使用2和8，分别代表从右向左移动时的默认上下移动量。
说明：

若如图配置，则当尝试从右向左通行1号区域的最左边的图块时，则会向下移动，而通行2号区域则会向上移动。反而从左向右移动时，因为只有一个方向有区域，所以会向那个区域移动。

badtea · 发表于 2023-9-2 20:49:01

功能更复杂了，也更有用了

wangzhihui · 发表于 2012-11-2 11:50:01

好神奇。。。。。

诗人的眼泪 · 发表于 2012-3-25 14:03:48

找到好东东。哈哈哈哈

‘‘──诗人的眼泪于2012-3-26 22:22补充以下内容

怎么才能让区域任何方向都无法通行呢？2468都不输按理来说不是无法通行。可是为什么变成任何方向都可以通行
’’

xuzhengchi · 发表于 2012-3-1 18:28:21

非常实用的脚本~弱弱的问句题外话：帮助文档汉化的怎么样了？

仲秋启明 · 发表于 2012-3-1 18:25:02

附加：区域控制事件

class Game_Player < Game_Character
#--------------------------------------------------------------------------
# ● 获取区域 ID
#--------------------------------------------------------------------------
def region_id
$game_map.region_id(@x, @y)
end
end

复制代码

调用方式：

area = $game_player.region_id
$game_map.events[X].start if area == M #X代表地图上事件编号 M代表区域编号

复制代码

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

[RMVA发布] 区域扩充

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

点评

评分

点评

评分

点评

贵宾