新四方通行脚本 v2.0

雪流星 · 发表于 2009-1-31 11:26:44

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

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

x

脚本更新：

* 2009/1/31
  - 功能增加：事件页通行度判定
* 2009/2/2
  - 功能增加：自动元件 □ 通行度设定
  - 功能增加：桥元件通行判定
  - 脚本更新：添加了大量默认图块元件的通行度
* 2009/2/5
  - 错误修复：「设置移动路线」会无效的BUG已修复
  - 脚本更新：把 □ 通行度设定为 -0b1111
* 2009/2/12
  - 功能增加：无法通行处不能触发事件
  - 功能增加：加入草木繁茂处、柜台属性的判定跟设定
  - 功能增加：通行度等资料存进文件中，设定好了就不会变（除非用编辑器）
  - 脚本整合：加入地形标记的设定和判定
  - 脚本更新：放出编辑器

设置说明：

在
@map_id_passage_X = {}
这段之中设定， X 代表图块名（A～E）

格示为：通行度设定 => [图块ID]

通行度设定为： 0b下左右上
0 代表不可通行
1 代表可通行
例如：
0b1001 表示上下可通行，左右不可通行
0b0110 表示左右可通行，上下不可通行

在事件的内容中用注释可以设定不同事件页的通行度
设定方式与上面一样
没有设定的以「穿透」判断通行度（也就是没有四方通行的判定）
详细看范例内设定

自动元件 □ 通行度设定方法
在编辑器（也就是VX中）的通行设定为 ○
然後在脚本中的通行设定为 -0b1111
那麽就会判定为 □

桥元件通行判定
通行设定为「上下通行」或「左右通行」的判定为桥元件
桥元件并列的时候可以互相通行
详细见范例

脚本中已经设定好 B 图块第3行的全部桥的通行度

第一次运行的时候先把「设定部分」的
「$重设四方通行文件」跟「$重设地形标记文件」改成 true
就会在 Data 文件夹里面自动生成通行、地形标记等等...的文件

范例尚未更新
范例：按我下载

设定部分：

class Game_Map
$重设四方通行文件 = false
def reset_map_files
#--------------------------------------------------------------------------
# ★ A 图块元件通行设定
#--------------------------------------------------------------------------
map_id_passage_A_preset = {
0b1011 => [], # 左方不可通行
0b1110 => [], # 上方不可通行
0b1101 => [], # 右方不可通行
0b0111 => [], # 下方不可通行
0b1001 => [134, 135, 142, 143] + (193..208).to_a, # 上下通行
0b0110 => [], # 左右通行
0b1010 => [], # 右下通行
0b1100 => [], # 左下通行
0b0101 => [], # 左上通行
0b0011 => [], # 右上通行
0b1000 => [], # 下方可以通行
0b0010 => [], # 右方可以通行
0b0001 => [], # 上方可以通行
0b0100 => [], # 左方可以通行
0b0000 => [], # 全部不可通行
0b1111 => [], # 全部可以通行
# 设定墙壁上方通行度为 □
-0b1111 => ((81..88).to_a + (97..104).to_a + (113..120).to_a),
# 编辑器中设定为不可通行
-100 => [],
}
#--------------------------------------------------------------------------
# ★ B 图块元件通行设定
#--------------------------------------------------------------------------
map_id_passage_B_preset = {
0b1011 => [], # 左方不可通行
0b1110 => [], # 上方不可通行
0b1101 => [], # 右方不可通行
0b0111 => [], # 下方不可通行
# 上下通行
0b1001 => [17, 18, 20, 22, 142, 143, 223, 239],
# 左右通行
0b0110 => [16, 19, 21, 23, 215, 231],
0b1010 => [], # 右下通行
0b1100 => [], # 左下通行
0b0101 => [], # 左上通行
0b0011 => [], # 右上通行
0b1000 => [], # 下方可以通行
0b0010 => [], # 右方可以通行
0b0001 => [], # 上方可以通行
0b0100 => [], # 左方可以通行
0b0000 => [], # 全部不可通行
0b1111 => [], # 全部可以通行
# 编辑器中设定为不可通行
-100 => [1],
}
#--------------------------------------------------------------------------
# ★ C 图块元件通行设定
#--------------------------------------------------------------------------
map_id_passage_C_preset = {
0b1011 => [], # 左方不可通行
0b1110 => [], # 上方不可通行
0b1101 => [], # 右方不可通行
0b0111 => [], # 下方不可通行
0b1001 => [4, 5, 6, 7, 12, 13, 14, 15], # 上下通行
0b0110 => [], # 左右通行
0b1010 => [], # 右下通行
0b1100 => [], # 左下通行
0b0101 => [], # 左上通行
0b0011 => [], # 右上通行
0b1000 => [], # 下方可以通行
0b0010 => [1, 3, 8, 10], # 右方可以通行
0b0001 => [28, 29, 30, 23], # 上方可以通行
0b0100 => [0, 2, 9, 11], # 左方可以通行
0b0000 => [], # 全部不可通行
0b1111 => [], # 全部可以通行
# 编辑器中设定为不可通行
-100 => [],
}
#--------------------------------------------------------------------------
# ★ D 图块元件通行设定
#--------------------------------------------------------------------------
map_id_passage_D_preset = {
0b1011 => [], # 左方不可通行
0b1110 => [], # 上方不可通行
0b1101 => [], # 右方不可通行
0b0111 => (8..11).to_a + (88..92).to_a, # 下方不可通行
0b1001 => [], # 上下通行
0b0110 => [], # 左右通行
0b1010 => [], # 右下通行
0b1100 => [], # 左下通行
0b0101 => [], # 左上通行
0b0011 => [], # 右上通行
0b1000 => [], # 下方可以通行
0b0010 => [], # 右方可以通行
0b0001 => [], # 上方可以通行
0b0100 => [], # 左方可以通行
0b0000 => [], # 全部不可通行
0b1111 => [], # 全部可以通行
# 编辑器中设定为不可通行
-100 => [],
}
#--------------------------------------------------------------------------
# ★ E 图块元件通行设定
#--------------------------------------------------------------------------
map_id_passage_E_preset = {
0b1011 => [], # 左方不可通行
0b1110 => [], # 上方不可通行
0b1101 => [], # 右方不可通行
0b0111 => [], # 下方不可通行
0b1001 => [], # 上下通行
0b0110 => [], # 左右通行
0b1010 => [], # 右下通行
0b1100 => [], # 左下通行
0b0101 => [], # 左上通行
0b0011 => [], # 右上通行
0b1000 => [], # 下方可以通行
0b0010 => [], # 右方可以通行
0b0001 => [], # 上方可以通行
0b0100 => [], # 左方可以通行
0b0000 => [], # 全部不可通行
0b1111 => [], # 全部可以通行
# 编辑器中设定为不可通行
-100 => [],
}
#--------------------------------------------------------------------------
# ★ 自动元件通行设定（不可更改）
#--------------------------------------------------------------------------
map_autotile_passage_preset = {
0b1011 => [0, 1, 2, 3], # 左方不可通行
0b1110 => [4, 5, 6, 7], # 上方不可通行
0b1101 => [8, 9, 10, 11], # 右方不可通行
0b0111 => [12, 13, 14, 15], # 下方不可通行
0b1001 => [16], # 上下通行
0b0110 => [17], # 左右通行
0b1010 => [18, 19], # 右下通行
0b1100 => [20, 21], # 左下通行
0b0101 => [22, 23], # 左上通行
0b0011 => [24, 25], # 右上通行
0b1000 => [26], # 下方可以通行
0b0010 => [27], # 右方可以通行
0b0001 => [28], # 上方可以通行
0b0100 => [29], # 左方可以通行
0b0000 => [30], # 全部不可通行
0b1111 => (32..47).to_a # 全部可以通行
}
map_counter_tiles_preset = [[],
# A图块
[],
# B图块
[],
# C图块
[342, 343]+(350..356).to_a,
# D图块
[],
# E图块
[]
]
map_bush_tiles_preset = [[],
# A图块
[],
# B图块
[100, 101, 102, 103],
# C图块
[],
# D图块
[],
# E图块
[]
]
for set in 1..5
for id in 0..256
if set == 1
tid = get_true_id(id)
pass = @passages[tid] # 获取通行属性
else
pass = @passages[id] # 获取通行属性
end
if pass & 0x01 == 0x01 # x: 不可通行
tile = [nil, "A", "B", "C", "D", "E"]
temp_set = eval("map_id_passage_#{tile[set]}_preset")
temp_set[-100].push(id)
end
if pass & 0x40 == 0x40
map_bush_tiles_preset[set].push(id)
end
if pass & 0x80 == 0x80
map_counter_tiles_preset[set].push(id)
end
end
end
passage_all_maps_blah = [map_id_passage_A_preset, map_id_passage_B_preset,
map_id_passage_C_preset, map_id_passage_D_preset, map_id_passage_E_preset,
map_autotile_passage_preset]
save_data(passage_all_maps_blah, "Data/Passage.rvdata")
save_data(map_bush_tiles_preset, "Data/Bush.rvdata")
save_data(map_counter_tiles_preset, "Data/Counter.rvdata")
p ("重设四方通行文件完毕")
end
def get_true_id(id)
if id > 128
return id +1407
else
return (id*48) + 2000
end
end
def above?(id)
return @passages[id] & 0x10 == 0x10
end
end
class Game_Character
$重设地形标记文件 = false
@map_tile_tag_A = {
0 => [],
1 => [],
2 => [],
3 => [],
4 => [],
5 => [],
6 => [],
7 => []
}
@map_tile_tag_B = {
0 => [],
1 => [],
2 => [],
3 => [],
4 => [],
5 => [],
6 => [],
7 => []
}
@map_tile_tag_C = {
0 => [],
1 => [],
2 => [],
3 => [],
4 => [],
5 => [],
6 => [],
7 => []
}
@map_tile_tag_D = {
0 => [],
1 => [],
2 => [],
3 => [],
4 => [],
5 => [],
6 => [],
7 => []
}
@map_tile_tag_E = {
0 => [],
1 => [],
2 => [],
3 => [],
4 => [],
5 => [],
6 => [],
7 => []
}
tile_tag = [@map_tile_tag_A, @map_tile_tag_B,
@map_tile_tag_C, @map_tile_tag_D, @map_tile_tag_E]
if $重设地形标记文件
save_data(tile_tag, "Data/TerrainTags.rvdata")
p ("重设地形标记文件完毕")
exit
end
end

复制代码

四方通行部分：

class Game_Map
alias setup_4_passage setup
def setup(map_id)
setup_4_passage(map_id)
reset_map_files if $重设四方通行文件
loaded_passages = load_data("Data/Passage.rvdata")
@map_id_passage_A = loaded_passages[0]
@map_id_passage_B = loaded_passages[1]
@map_id_passage_C = loaded_passages[2]
@map_id_passage_D = loaded_passages[3]
@map_id_passage_E = loaded_passages[4]
@map_autotile_passage = loaded_passages[5]
end
#--------------------------------------------------------------------------
# ● 获取ID
#--------------------------------------------------------------------------
def get_tile_id(x, y)
a = data[x, y, 0]-2000
map_tile_id_0 = (a >= 0) ? a/48 : (a+593)
map_tile_id_1 = (data[x, y, 1]-2000) / 48
map_tile_id_2 = (data[x, y, 2])
map_tile_id_0 = 0 if map_tile_id_0 == -42 # A
map_tile_id_1 = 0 if map_tile_id_1 == -42 # I
map_tile_id_2 = 0 if map_tile_id_2 == -42 # B～E
# 图块 ID 矫正
map_tile_id_0 = map_tile_id_1 if map_tile_id_1 > 0
unless @events.nil?
for event in @events.values
if event.pos?(x, y) and event.tile_id > 0
# 若是事件使用地图元件，使用该地图元件的ID
map_tile_id_2 = event.tile_id
end
end
end
# 返回 [底层ID, 上层ID]
return [map_tile_id_0, map_tile_id_2]
end
#--------------------------------------------------------------------------
# ● 根据通行设定获取通行度
# value : 数值
# pas : 通行度哈希表
#--------------------------------------------------------------------------
def get_passage(value, pas)
for i in pas.keys
# 找到通行度就返回
return i if pas[i].include?(value)
end
# 找不到设定即返回“全部可以通行”
return 0b1111
end
def set_passage(id, value, pas)
return if value > 15 or value < 0
for i in pas.keys
pas[i].delete(id) if pas.include?(id)
pas[i].push(id) if i == value
end
end
def autotile?(x, y)
return get_tile_id(x,y)[0] < 129
end
#--------------------------------------------------------------------------
# ● 四方向通行判断
#--------------------------------------------------------------------------
def passable_dir?(x, y, d)
# 通行判定优先度：
# 事件内设定 > 事件元件 > B层 > A层
return false unless passable?(x, y, 0x01)
id = get_tile_id(x,y)
case id[1]
when 0
# 获取图块Ａ部分的通行度
passage = get_passage(id[0], @map_id_passage_A) if ( (1..256) === id[0])
# 是自动元件且通行设定为 □
if autotile?(x, y) and passage == -0b1111
a = data[x, y, 0]
passage = get_passage(a%48, @map_autotile_passage)
end
when 1..255
# 获取图块Ｂ部分的通行度
passage = get_passage(id[1], @map_id_passage_B)
when 256..511
# 获取图块Ｃ部分的通行度
passage = get_passage(id[1]-256, @map_id_passage_C)
when 512..767
# 获取图块Ｄ部分的通行度
passage = get_passage(id[1]-512, @map_id_passage_D)
when 768..1023
# 获取图块Ｅ部分的通行度
passage = get_passage(id[1]-768, @map_id_passage_E)
end
# 获取事件内的通行设定
e = $game_map.events_xy(x, y)
unless e.empty?
e.size.times{ |i|
# 一获取通行设定就跳出循环
if e[i].passage
passage = e[i].passage
break
end
}
end
# 判断桥的通行
passage = passable_bridge(id[1], x, y, d, passage) if bridge?(passage)
return (passage[(d/2)-1] == 1)
end
#--------------------------------------------------------------------------
# ● 桥元件通行判断
#--------------------------------------------------------------------------
def passable_bridge(id, x, y, d, pas)
# 不是桥元件就直接返回原通行度
return pas unless bridge?(pas)
# 是自动元件的情况返回原通行度
return pas if autotile?(x, y) and get_tile_id(x,y)[1] == 0
case d
when 2; temp_id = get_tile_id(x,y-1)
when 4; temp_id = get_tile_id(x+1,y)
when 6; temp_id = get_tile_id(x-1,y)
when 8; temp_id = get_tile_id(x,y+1)
end
return 0b1111 if temp_id.include?(id)
return pas
end
def bridge?(pas)
return (pas == 0b1001 or pas == 0b0110)
end
#--------------------------------------------------------------------------
# ● 判断草木繁茂处
# x : X 坐标
# y : Y 坐标
#--------------------------------------------------------------------------
alias pass_4_direction_bush? bush?
def bush?(x, y)
return false unless valid?(x, y)
id = get_tile_id(x, y)
map_bush_tiles = load_data("Data/Bush.rvdata")
case id[1]
when 0
return true if map_bush_tiles[1].include?(id[0])
when 1...1023
return true if map_bush_tiles[id[1]/256+2].include?(id[1])
end
pass_4_direction_bush?(x, y)
end
#--------------------------------------------------------------------------
# ● 判断柜台属性
# x : X 坐标
# y : Y 坐标
#--------------------------------------------------------------------------
alias pass_4_direction_counter? counter?
def counter?(x, y)
return false unless valid?(x, y)
id = get_tile_id(x, y)
map_counter_tiles = load_data("Data/Counter.rvdata")
case id[1]
when 0
return true if map_counter_tiles[1].include?(id[0])
when 1...1023
return true if map_counter_tiles[id[1]/256+2].include?(id[1])
end
pass_4_direction_counter?(x, y)
end
end
class Game_Character
#--------------------------------------------------------------------------
# ● 通行判断
#--------------------------------------------------------------------------
def map_passable?(x, y, d=@move_direction)
return (map_passable_here?(x, y) and map_passable_there?(x, y, d))
end
#--------------------------------------------------------------------------
# ● 本地通行判断
#--------------------------------------------------------------------------
def map_passable_here?(x, y, d=@move_direction)
return $game_map.passable_dir?(x, y, d)
end
#--------------------------------------------------------------------------
# ● 前方通行判断
#--------------------------------------------------------------------------
def map_passable_there?(x, y, d_o)
d = 10 - d_o # 反向判断
# 修正座标
case d
when 2; y += 1
when 4; x -= 1
when 6; x += 1
when 8; y -= 1
end
x = $game_map.round_x(x) # 横向循环校正
y = $game_map.round_y(y) # 纵向循环校正
return $game_map.passable_dir?(x, y, d)
end
alias passage_4_dir_move_down move_down
def move_down(turn_ok = true)
@move_direction = 2
passage_4_dir_move_down(turn_ok)
end
alias passage_4_dir_move_left move_left
def move_left(turn_ok = true)
@move_direction = 4
passage_4_dir_move_left(turn_ok)
end
alias passage_4_dir_move_right move_right
def move_right(turn_ok = true)
@move_direction = 6
passage_4_dir_move_right(turn_ok)
end
alias passage_4_dir_move_up move_up
def move_up(turn_ok = true)
@move_direction = 8
passage_4_dir_move_up(turn_ok)
end
end
class Game_Event < Game_Character
#--------------------------------------------------------------------------
# ● 接触事件启动判定
#--------------------------------------------------------------------------
alias passage_4_dir_check_event_trigger_touch check_event_trigger_touch
def check_event_trigger_touch(x, y)
return false if !map_passable?(x, y)
passage_4_check_event_trigger_touch(x, y)
end
def passage
return false if @list[0].code != 108 # 第一个指令不是“注释”时返回 false
pas = @list[0].parameters[0]
return false if pas !~ /0b\d{4}/ # 如果不是设定通行度就返回 false
return pas.to_i(2)
end
end
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# ● 判断前方事件是否被触发
#--------------------------------------------------------------------------
alias passage_4_dir_check_event_trigger_there check_event_trigger_there
def check_event_trigger_there(triggers)
return false if !map_passable?(@x, @y)
passage_4_dir_check_event_trigger_there(triggers)
end
#--------------------------------------------------------------------------
# ● 判断接触事件是否被触发
#--------------------------------------------------------------------------
alias passage_4_dir_check_event_trigger_touch check_event_trigger_touch
def check_event_trigger_touch(x, y)
return false if !map_passable?(x, y)
passage_4_dir_check_event_trigger_touch(x, y)
end
#--------------------------------------------------------------------------
# ● 通行判断
#--------------------------------------------------------------------------
alias passage_4_dir_map_passable? map_passable?
def map_passable?(x, y)
# 在交通工具中的话，使用默认脚本
in_vehicle? ? passage_4_dir_map_passable?(x, y) : super
end
#--------------------------------------------------------------------------
# ● 判断行走通行度
#--------------------------------------------------------------------------
def can_walk?(x, y)
last_vehicle_type = @vehicle_type # 移除交通工具类型
@vehicle_type = -1 # 暂时设置为行走
result = passage_4_dir_map_passable?(x, y) # 判断是否可以通行
@vehicle_type = last_vehicle_type # 回复交通工具类型
return result
end
end

复制代码

地形标记部分

class Game_Character
alias terrain_tag_ini initialize
def initialize
terrain_tag_ini
loaded_passages = load_data("Data/TerrainTags.rvdata")
@map_tile_tag_A = loaded_passages[0]
@map_tile_tag_B = loaded_passages[1]
@map_tile_tag_C = loaded_passages[2]
@map_tile_tag_D = loaded_passages[3]
@map_tile_tag_E = loaded_passages[4]
end
#--------------------------------------------------------------------------
# ● 获取地形标志
#--------------------------------------------------------------------------
def terrain_tag
# 计算图块ID数值
a = $game_map.data[@x, @y, 0]-2000
map_tile_id_0 = (a >= 0) ? a/48 : (a+593)
map_tile_id_1 = ($game_map.data[@x, @y, 1]-2000) / 48
map_tile_id_2 = ($game_map.data[@x, @y, 2])
map_tile_id_0 = 0 if map_tile_id_0 == -42 # A
map_tile_id_1 = 0 if map_tile_id_1 == -42 # I
map_tile_id_2 = 0 if map_tile_id_2 == -42 # B～E
# 图块 ID 矫正
map_tile_id_0 = map_tile_id_1 if map_tile_id_1 > 0
for event in $game_map.events.values
if event.pos?(@x, @y) and event.tile_id > 0
map_tile_id_2 = event.tile_id
end
end
$map_tile_id_2 = map_tile_id_2
case map_tile_id_2
when 0
# 获取图块Ａ部分的地形标志
return get_tag(map_tile_id_0, @map_tile_tag_A) if ( (1..256) === map_tile_id_0)
return @map_tile_tag_A[map_tile_id_0] if ( (1..256) === map_tile_id_0)
when 1..255
# 获取图块Ｂ部分的地形标志
return get_tag(map_tile_id_2, @map_tile_tag_B)
return @map_tile_tag_B[map_tile_id_2]
when 256..511
# 获取图块Ｃ部分的地形标志
return get_tag(map_tile_id_2, @map_tile_tag_C)
return @map_tile_tag_C[map_tile_id_2-256]
when 511..767
# 获取图块Ｄ部分的地形标志
return get_tag(map_tile_id_2, @map_tile_tag_D)
return @map_tile_tag_D[map_tile_id_2-512]
when 768..1023
# 获取图块Ｅ部分的地形标志
return get_tag(map_tile_id_2, @map_tile_tag_E)
return @map_tile_tag_E[map_tile_id_2-768]
else
# 黑屏区未定义(尚未规划任何)图块区域回传0
return 0
end
end
def get_tag(id, tag_table)
for i in tag_table.keys
# 找到通行度就返回
return i if tag_table[i].include?(id)
end
# 找不到设定即返回 0
return 0
end
def set_tag(id, value, tag_table)
return if value > 7 or value < 0
for i in tag_table.keys
tag_table[i].delete(id) if tag_table.include?(id)
tag_table[i].push(id) if i == value
end
end
end

复制代码

雪流星 · 发表于 2009-1-31 11:32:39

调用编辑器方法：
$scene = Scene_Tile.new

编辑器窗口部分：

class Window_Tile < Window_Selectable
attr_writer :tile_ltr
def initialize
super(120, 0, 288, 1056, 0)
@item_max = 256
@column_max = 8
@tile_ltr = "A"
@cur_opa_inc = true
self.index = 0
create_contents
self.height = 416
@contents_fake = Sprite.new
@contents_fake.bitmap = Bitmap.new(self.contents.width, self.contents.height)
@contents_fake.x = self.x + 16
@contents_fake.y = self.y + 16
@contents_fake.z = 9999
@contents_fake.src_rect.height = self.height-32
# 从文件中载入地形标记跟通行度
loaded_tags = load_data(Tile::TagDir)
@tile_A_terrain_tag = loaded_tags[0]
@tile_B_terrain_tag = loaded_tags[1]
@tile_C_terrain_tag = loaded_tags[2]
@tile_D_terrain_tag = loaded_tags[3]
@tile_E_terrain_tag = loaded_tags[4]
loaded_passages = load_data(Tile::PasDir)
@map_id_passage_A = loaded_passages[0]
@map_id_passage_B = loaded_passages[1]
@map_id_passage_C = loaded_passages[2]
@map_id_passage_D = loaded_passages[3]
@map_id_passage_E = loaded_passages[4]
@tags = eval("@tile_#{@tile_ltr}_terrain_tag")
@pass = eval("@map_id_passage_#{@tile_ltr}")
@map_counter_tiles = load_data("Data/Counter.rvdata")
@map_bush_tiles = load_data("Data/Bush.rvdata")
@cursor_sprite = Sprite.new
@cursor_sprite.bitmap = Cache.system("Window")
@cursor_sprite.src_rect = Rect.new(64, 64, 32, 32)
load_tilemap
refresh
end
def refresh
self.contents.clear
@contents_fake.bitmap.clear
draw_tile
draw_cursor
end
def update
super
if Input.repeat?(Input::DOWN) or Input.repeat?(Input::UP) or
Input.repeat?(Input::LEFT) or Input.repeat?(Input::RIGHT) or
Input.repeat?(Input::L) or Input.repeat?(Input::R)
@contents_fake.src_rect.y = self.oy
draw_cursor
end
cursor_flash
@tags = eval("@tile_#{@tile_ltr}_terrain_tag")
@pass = eval("@map_id_passage_#{@tile_ltr}")
end
def cursor_movable?
return false if Input.trigger?(Input::A)
super
end
def draw_cursor
@cur_opa_inc = true
@cursor_sprite.opacity = 255
@cursor_sprite.x = self.cursor_rect.x + self.x + 16
@cursor_sprite.y = self.cursor_rect.y + 16
@cursor_sprite.z = self.z + 100
end
def cursor_flash
if @cur_opa_inc
if @cursor_sprite.opacity < 255
@cursor_sprite.opacity += 15
else
@cur_opa_inc = false
end
else
if @cursor_sprite.opacity > 0
@cursor_sprite.opacity -= 15
else
@cur_opa_inc = true
end
end
end
def draw_tile
self.contents.clear
if @tile_ltr == "A"
create_tile_A
else
rect = Rect.new(0, 0, 256, 512)
i = {"B" => 5, "C" => 6, "D" => 7, "E" => 8}
self.contents.blt(0, 0, @tile_bitmaps[i[@tile_ltr]], rect)
rect.x += 256
self.contents.blt(0, 512, @tile_bitmaps[i[@tile_ltr]], rect)
end
end
def draw_tile_this(mode)
@contents_fake.bitmap.clear
@tags = eval("@tile_#{@tile_ltr}_terrain_tag")
@pass = eval("@map_id_passage_#{@tile_ltr}")
257.times {|i|
x = (i%8) * 32
y = (i/8) * 32
case mode
when "tags"
t = $game_player.get_tag(i, @tags)
@contents_fake.bitmap.font.color = Color.new(255, 255, 255)
@contents_fake.bitmap.draw_text(x, y, 32, 32, t, 1)
when "4dir"
if @tile_ltr == "A"
i2 = i - 1
x = (i2%8) * 32
y = (i2/8) * 32
end
draw_tile_4_direction(x, y, i)
when "bush"
if @tile_ltr == "A"
a = self.bush[1].include?(i+1)
else
j = Tile::TILESETS.index(@tile_ltr)
a = self.bush[j+1].include?(i+(j-1)*256)
end
t = a ? "～" : "＝"
@contents_fake.bitmap.font.color = a ? Color.new(0, 255, 0) : Color.new(255, 255, 255)
@contents_fake.bitmap.draw_text(x, y, 32, 32, t, 1)
when "counter"
if @tile_ltr == "A"
a = self.counter[1].include?(i+1)
else
j = Tile::TILESETS.index(@tile_ltr)
a = self.counter[j+1].include?(i+(j-1)*256)
end
t = a ? "╬" : "⊕"
@contents_fake.bitmap.font.color = a ? Color.new(255, 255, 0) : Color.new(255, 255, 255)
@contents_fake.bitmap.draw_text(x, y, 32, 32, t, 1)
end
}
end
def draw_tile_4_direction(x, y, i=@index)
@contents_fake.bitmap.clear_rect(x, y, 32, 32)
@contents_fake.bitmap.font.bold = true
@contents_fake.bitmap.font.shadow = false
temp_pas = pass(i)
if temp_pas == -100
@contents_fake.bitmap.font.color = Color.new(255, 0, 0)
@contents_fake.bitmap.draw_text(x , y, 32, 32, "╳", 1)
elsif temp_pas == -0b1111
@contents_fake.bitmap.font.color = Color.new(0, 0, 255)
@contents_fake.bitmap.draw_text(x , y, 32, 32, "□", 1)
else
if $game_map.above?(i)# ☆: 不影響通行判定
@contents_fake.bitmap.font.color = Color.new(255, 255, 128)
@contents_fake.bitmap.draw_text(x , y, 32, 32, "☆", 1)
end
str = ["", "↑", "•", "←", "•", "→", "•", "↓", "•"]
@contents_fake.bitmap.font.color = str[2-temp_pas[0]] == "•" ? Color.new(128, 0, 0) : Color.new(0, 128, 0)
@contents_fake.bitmap.draw_text(x+6 , y-8, 32, 32, str[2-temp_pas[0]])
@contents_fake.bitmap.font.color = str[4-temp_pas[1]] == "•" ? Color.new(128, 0, 0) : Color.new(0, 128, 0)
@contents_fake.bitmap.draw_text(x-2 , y , 32, 32, str[4-temp_pas[1]])
@contents_fake.bitmap.font.color = str[6-temp_pas[2]] == "•" ? Color.new(128, 0, 0) : Color.new(0, 128, 0)
@contents_fake.bitmap.draw_text(x+14, y , 32, 32, str[6-temp_pas[2]])
@contents_fake.bitmap.font.color = str[8-temp_pas[3]] == "•" ? Color.new(128, 0, 0) : Color.new(0, 128, 0)
@contents_fake.bitmap.draw_text(x+6 , y+8, 32, 32, str[8-temp_pas[3]])
end
@contents_fake.bitmap.font.bold = false
@contents_fake.bitmap.font.shadow = true
end
def create_tile_A
@tile_A = Bitmap.new(256, 1024)
for i in 0..4
temp_bmp = @tile_bitmaps[i]
case i
when 0
16.times do |j|
x = j % 8 * 32
x += 64 if j%8>=2 and j%8<=3
x -= 64 if j%8>=4 and j%8<=5
x += 32 if j==1
x -= 32 if j==4
y = j / 8 * 32
bx = j % 4 * 128+64
by = j / 4 * 96
if j == 0
rect = Rect.new(16, 48, 32, 32)
3.times{|k| @tile_A.blt(x+(k+1)*32, y, temp_bmp, rect)}
end
rect = Rect.new(bx, by, 32, 32)
@tile_A.blt(x, y, temp_bmp, rect)
end
when 1
32.times do |j|
x = j % 8 * 32
y = j / 8 * 32
bx = x * 2
by = y * 3
if [0, 3].include?(j%8)
rect = Rect.new(bx+16, by+48, 32, 32)
2.times{|k| @tile_A.blt(x+(k+1)*32, y+64, temp_bmp, rect)}
end
rect = Rect.new(bx, by, 32, 32)
@tile_A.blt(x, y+64, temp_bmp, rect)
end
when 2
32.times do |j|
x = j % 8 * 32
y = j / 8 * 32
rect = Rect.new(0, 0, 32, 32)
@tile_A.blt(x, y+192, get_corners(x*2, y*2, temp_bmp), rect)
end
when 3
48.times do |j|
x = j % 8 * 32
y = j / 8 * 32
bx = x*2
if (j/8)%2 == 0
by = j / 8 * 80
rect = Rect.new(bx, by, 32, 32)
@tile_A.blt(x, y+320, temp_bmp, rect)
else
by = (j/8-1) * 80+96
rect = Rect.new(0, 0, 32, 32)
@tile_A.blt(x, y+320, get_corners(bx, by, temp_bmp), rect)
end
end
when 4
rect = Rect.new(0, 0, 256, 512)
@tile_A.blt(0, 512, temp_bmp, rect)
end
end
rect = Rect.new(0, 0, 256, 1024)
self.contents.blt(0, 0, @tile_A, rect)
end
def get_corners(bx, by, bmp)
temp_bmp = Bitmap.new(32, 32)
rect = Rect.new(bx, by, 16, 16)
temp_bmp.blt(0, 0, bmp, rect)
rect = Rect.new(bx+48, by, 16, 16)
temp_bmp.blt(16, 0, bmp, rect)
rect = Rect.new(bx, by+48, 16, 16)
temp_bmp.blt(0, 16, bmp, rect)
rect = Rect.new(bx+48, by+48, 16, 16)
temp_bmp.blt(16, 16, bmp, rect)
return temp_bmp
end
def cannot_set_tag
return true if @tile_ltr == "A" and @index == 136
return true if @tile_ltr == "B" and @index == 0
return false
end
def cannot_set_bush
return true if @tile_ltr == "A" and [18, 21, 26, 29, 34, 37, 42, 45].include?(@index+1)
return false
end
def cannot_set_counter
return true if @tile_ltr == "A" and [24, 32, 40, 48].include?(@index+1)
return false
end
def cannot_set_pass(i=@index)
i += 1 if @tile_ltr == "A"
return true if (pass(i) == -100)
return true if (pass(i) == -0b1111)
return false
end
#--------------------------------------------------------------------------
# ● 獲取通行
#--------------------------------------------------------------------------
def pass(i=@index)
@pass = eval("@map_id_passage_#{@tile_ltr}")
return $game_map.get_passage(i, @pass)
end
#--------------------------------------------------------------------------
# ● 设置通行
#--------------------------------------------------------------------------
def pass=(pas)
@pass = eval("@map_id_passage_#{@tile_ltr}")
$game_map.set_passage(@index, pas, @pass)
end
#--------------------------------------------------------------------------
# ● 獲取地形标记
#--------------------------------------------------------------------------
def tags
return $game_player.get_tag(@index, @tags)
end
#--------------------------------------------------------------------------
# ● 设置地形标记
#--------------------------------------------------------------------------
def tags=(tg)
$game_player.set_tag(@index, tg, @tags)
end
def item_rect(index)
rect = Rect.new(0, 0, 32, 32)
rect.x = index % @column_max * (rect.width + @spacing)
rect.y = index / @column_max * 32
return rect
end
def bush
return @map_bush_tiles
end
def bush?(i)
j = Tile::TILESETS.index(@tile_ltr)
return @map_bush_tiles[j+1].include?(i)
end
def set_bush(i, tf)
j = Tile::TILESETS.index(@tile_ltr)
k = (i+(j-1)*256)
k = i if @tile_ltr == "A"
a = @map_bush_tiles[j+1].include?(k)
if tf
@map_bush_tiles[j+1].push(k)
else
@map_bush_tiles[j+1].delete(k)
end
@map_bush_tiles[j+1].uniq!
end
def counter
return @map_counter_tiles
end
def set_counter(i, tf)
j = Tile::TILESETS.index(@tile_ltr)
k = (i+(j-1)*256)
k = i if @tile_ltr == "A"
a = @map_counter_tiles[j+1].include?(k)
if tf
@map_counter_tiles[j+1].push(k)
else
@map_counter_tiles[j+1].delete(k)
end
@map_counter_tiles[j+1].uniq!
end
def counter?(i)
j = Tile::TILESETS.index(@tile_ltr)
return @map_counter_tiles[j+1].include?(i)
end
#--------------------------------------------------------------------------
# ● 獲取首行
#--------------------------------------------------------------------------
def top_row
return self.oy / 32
end
#--------------------------------------------------------------------------
# ● 設置首行
# row : 顯示在最上的行
#--------------------------------------------------------------------------
def top_row=(row)
row = 0 if row < 0
row = row_max - 1 if row > row_max - 1
self.oy = row * 32
end
#--------------------------------------------------------------------------
# ● 獲取一頁能顯示的行數
#--------------------------------------------------------------------------
def page_row_max
return (self.height - 32) / 32
end
def load_tilemap
@tile_bitmaps = Array.new(9)
@tile_bitmaps[0] = Cache.system("TileA1")
@tile_bitmaps[1] = Cache.system("TileA2")
@tile_bitmaps[2] = Cache.system("TileA3")
@tile_bitmaps[3] = Cache.system("TileA4")
@tile_bitmaps[4] = Cache.system("TileA5")
@tile_bitmaps[5] = Cache.system("TileB")
@tile_bitmaps[6] = Cache.system("TileC")
@tile_bitmaps[7] = Cache.system("TileD")
@tile_bitmaps[8] = Cache.system("TileE")
end
def output_file
passage_all_maps_blah = [@map_id_passage_A, @map_id_passage_B,
@map_id_passage_C, @map_id_passage_D,
@map_id_passage_E, @map_autotile_passage]
save_data(passage_all_maps_blah, Tile::PasDir)
tile_terrain_tags = [@tile_A_terrain_tag, @tile_B_terrain_tag,
@tile_C_terrain_tag, @tile_D_terrain_tag, @tile_E_terrain_tag]
save_data(tile_terrain_tags, Tile::TagDir)
end
def dispose
super
@contents_fake.dispose
end
end

复制代码

编辑器场景部分：

module Tile
TILESETS = ["A","B","C","D","E"]
TagDir = "Data/TerrainTags.rvdata"
PasDir = "Data/Passage.rvdata"
end
class Scene_Tile < Scene_Base
def start
@function_window = Window_Command.new(120, ["四方通行","地形标记", "草木繁茂处" ,"柜台属性", "全部储存"])
@function_window.index = 0
@function_window.active = true
@tileset_window = Window_Command.new(120, ["A","B","C","D","E"])
@tileset_window.index = 0
@tileset_window.active = false
@tileset_window.y = @function_window.y + @function_window.height
@tile_window = Window_Tile.new
@tile_window.active = false
@help_window = Window_Base.new(392, -16, 168, 448)
@help_window.opacity = 0
@help_window.z = 0
@help_window.contents.font.size = 14
@help_window.contents.draw_text(4, 0, 170, 24, "A, S：切换图块")
@help_window.contents.draw_text(4, 24, 170, 24, "确定键：地形标志+1")
@help_window.contents.draw_text(4, 48, 170, 24, "取消键：地形标志-1")
@help_window.contents.draw_text(4, 72, 170, 24, "D 键：输出为文本")
update_tag
end
def update
@function_window.update
@tile_window.update
@tileset_window.update
@function_window.opacity = @function_window.active ? 255 : 128
@tileset_window.opacity = @tileset_window.active ? 255 : 128
@tile_window.opacity = @tile_window.active ? 255 : 128
if @function_window.active
update_function_window
elsif @tileset_window.active
update_tileset_window
elsif @tile_window.active
update_tile_window
elsif @tile_direction
update_tile_window_directions
end
end
def update_function_window
if Input.trigger?(Input::B)
$scene = Scene_Map.new
elsif Input.trigger?(Input::C)
case @function_window.index
when 0..3
@function_window.active = false
@tileset_window.active = true
when 4
@tile_window.output_file
$scene = Scene_Map.new
end
end
end
def update_tileset_window
if Input.trigger?(Input::B)
Sound.play_cancel
@function_window.active = true
@tileset_window.active = false
elsif Input.trigger?(Input::C)
Sound.play_decision
update_tag
@tile_window.active = true
@tileset_window.active = false
@tile_window.refresh
case @function_window.index
when 0
@tile_window.draw_tile_this("4dir")
when 1
@tile_window.draw_tile_this("tags")
when 2
@tile_window.draw_tile_this("bush")
when 3
@tile_window.draw_tile_this("counter")
end
end
if Input.trigger?(Input::DOWN) or Input.trigger?(Input::UP)
update_tag
@tile_window.refresh
end
end
def update_tile_window
if Input.trigger?(Input::C)
case @function_window.index
when 0
if @tile_window.cannot_set_pass
Sound.play_buzzer
return
else
Sound.play_decision
@tile_window.active = false
@tile_direction = true
end
when 2
if @tile_window.cannot_set_bush
Sound.play_buzzer
return
else
Sound.play_decision
i = @tile_window.index
i += 1 if @tileset_window.index == 0
@tile_window.set_bush(i, !@tile_window.bush?(i))
@tile_window.draw_tile_this("bush")
end
when 3
if @tile_window.cannot_set_counter
Sound.play_buzzer
return
else
Sound.play_decision
i = @tile_window.index
i += 1 if @tileset_window.index == 0
@tile_window.set_counter(i, !@tile_window.counter?(i))
@tile_window.draw_tile_this("counter")
end
end
end
if Input.trigger?(Input::B)
Sound.play_cancel
@tile_window.active = false
@tileset_window.active = true
@tileset_window.refresh
end
if (Input.trigger?(Input::X) or Input.trigger?(Input::Y))
return unless @function_window.index == 1
if @tile_window.cannot_set_tag
Sound.play_buzzer
return
else
Sound.play_decision
@tile_window.tags += 1 if Input.trigger?(Input::Y)
@tile_window.tags -= 1 if Input.trigger?(Input::X)
@tile_window.tags %= 8
@tile_window.draw_tile_this("tags")
end
end
end
def update_tile_window_directions
d = Input.dir4
if Input.trigger?(Input::B)
Sound.play_cancel
@tile_window.active = true
@tile_direction = false
elsif d != 0
pass = @tile_window.pass
d_pass = pass[(d/2)-1]
case d
when 2
@tile_window.pass += d_pass == 0 ? 0b0001 : -0b0001
when 4
@tile_window.pass += d_pass == 0 ? 0b0010 : -0b0010
when 6
@tile_window.pass += d_pass == 0 ? 0b0100 : -0b0100
when 8
@tile_window.pass += d_pass == 0 ? 0b1000 : -0b1000
end
x = (@tile_window.index%8) * 32
y = (@tile_window.index/8) * 32
@tile_window.draw_tile_4_direction(x, y)
Graphics.wait(30)
end
end
def output_text
text_str = ""
Tile::TILESETS.size.times do |i|
ltr = Tile::TILESETS[i]
temp_tag = eval("$tile_#{ltr}_terrain_tag.sort")
text_str += "
MAP_TILE_#{ltr}=#{temp_tag.inspect}
MAP_TILE_#{ltr}.default = 0
"
end
text_file = File.open(Tile::TagDir, "w")
text_file.write(text_str)
p "输出完毕"
exit
end
def update_tag
@tile_window.tile_ltr = Tile::TILESETS[@tileset_window.index]
end
def terminate
@function_window.dispose
@tile_window.dispose
@tileset_window.dispose
@help_window.dispose
end
end

复制代码

Aligatou · 发表于 2009-1-31 16:20:53

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

哈根达斯 · 发表于 2009-1-31 17:44:36

这个不错，远景再次有望

紫丞 · 发表于 2009-1-31 19:08:31

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

雪流星 · 发表于 2009-1-31 19:24:09

脚本更新

加上了范例

范例是完美四方桥

紫丞 · 发表于 2009-1-31 19:59:25

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

雪流星 · 发表于 2009-2-2 15:41:33

脚本更新：
* 2009/2/2
   - 功能增加：自动元件 □ 通行度设定
   - 功能增加：桥元件通行判定
   - 脚本更新：添加了大量默认图块元件的通行度

木葬枫 · 发表于 2009-2-2 18:22:26

果然是求什么来什么－－

雪流星 · 发表于 2009-2-2 19:49:13

以下引用木葬枫于2009-2-2 10:22:26的发言：
果然是求什么来什么－－

http://www.youtube.com/watch?v=Ib0CIfUUcF0

向流星许愿，愿望就会成真 = =!

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

[RMVX发布] 新四方通行脚本 v2.0

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

贵宾

[RMVX发布] 新 四方通行脚本 v2.0

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

贵宾

[RMVX发布] 新四方通行脚本 v2.0