Project1
标题:
区域扩充
[打印本页]
作者:
feizhaodan
时间:
2012-3-1 18:12
标题:
区域扩充
本帖最后由 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,分别代表从右向左移动时的默认上下移动量。
说明:
shuoming1.jpg
(15.55 KB, 下载次数: 46)
下载附件
保存到相册
2012-10-8 16:54 上传
shuoming.jpg
(4.02 KB, 下载次数: 43)
下载附件
保存到相册
2012-10-8 16:54 上传
若如图配置,则当尝试从右向左通行1号区域的最左边的图块时,则会向下移动,而通行2号区域则会向上移动。反而从左向右移动时,因为只有一个方向有区域,所以会向那个区域移动。
作者:
仲秋启明
时间:
2012-3-1 18:25
附加:区域控制事件
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代表区域编号
复制代码
作者:
xuzhengchi
时间:
2012-3-1 18:28
非常实用的脚本~弱弱的问句题外话:帮助文档汉化的怎么样了?
作者:
诗人的眼泪
时间:
2012-3-25 14:03
找到好东东。哈哈哈哈
‘‘──诗人的眼泪于2012-3-26 22:22补充以下内容
怎么才能让区域任何方向都无法通行呢?2468都不输按理来说不是无法通行。可是为什么变成任何方向都可以通行
’’
作者:
wangzhihui
时间:
2012-11-2 11:50
好神奇。。。。。
作者:
badtea
时间:
2023-9-2 20:49
功能更复杂了,也更有用了
欢迎光临 Project1 (https://rpg.blue/)
Powered by Discuz! X3.1