求教夏娜大人的"在游戏运行中制作事件"腳本的事件指定方法

sai90306 · 发表于 2012-5-15 20:13:36

本帖最后由 sai90306 于 2012-5-16 00:40 编辑

接續http://rpg.blue/thread-232181-1-1.html的問題

夏娜大人的"在游戏运行中制作事件"腳本
裡面創造的事件能不能指定為某地圖上的一個已經做好的事件?

例如e = RPG::Event.new(x,y)改為...類似e = 地圖編號.地圖事件ID 這樣@@

附上hys111111大大調整後的在游戏运行中制作事件腳本:

# 脚本说明：
# ● 在游戏运行中制作事件
# By：灼眼的夏娜
class Game_Map
attr_reader :map
end
class Game_Character
attr_accessor :character_name
end
class Scene_Map
def conjure(map_id,x,y,name,character_name)
   @map = Game_Map.new.setup(map_id)
   @map.events[$game_map.events.size+1] = Game_Event.new(map_id,produce_event(x,y,name,character_name))
   @map.map.events[$game_map.events.size] = produce_event(x,y,name,character_name)
   @spriteset.dispose
   @spriteset = Spriteset_Map.new
end
def produce_event(map_id,x,y,name,character_name)
   e = RPG::Event.new(x,y)
   e.id = @map.events.size
   e.name = name
   e.pages = [RPG::Event::Page.new]
   e.pages[0].graphic = RPG::Event::Page::Graphic.new
   e.pages[0].graphic.character_name = character_name
   e.pages[0].step_anime = true
   e.pages[0].through = true
   #
   # 事件的一些其他属性大家可以自行设置
   #
   return e
end
end

具體是想將def produce_event(map_id,x,y,name,character_name)的部分
改為讀取地圖數據然後指定該地圖事件ID...一類的功能

hys111111 · 发表于 2012-5-15 21:27:14

本帖最后由 hys111111 于 2012-5-15 21:29 编辑

Interpreter是很恐怖的东西，
可以这样子添加：

e.pages[0].list[0].code = 101
e.pages[0].list[0].parameters = ["文章"]#像显示文章就填数值得了，这个是数组来到的

复制代码

补充解释：
pages[0]#事件第0页
list[0]#第一个执行的
list[1]#第二个执行的

附加说明：
各事件指令中都分配有如下表那样代码。Interpreter 类根据这些代码来辨别事件指令，并调用各自进行处理的方法。

101: 显示文章
102: 显示选择项
103: 数值输入的处理
104: 更改文章选项
105: 按钮输入的处理
106: 等待
108: 注释
111: 条件分歧
112: 循环
113: 中断循环
115: 中断事件处理
116: 暂时消除事件
117: 公共事件
118: 标签
119: 标签跳转
121: 开关操作
122: 变量操作
123: 独立开关操作
124: 计时器操作
125: 增减金钱
126: 增减物品
127: 增减武器
128: 增减防具
129: 替换队员
131: 更改窗口外观
132: 更改战斗 BGM
133: 更改战斗结束 ME
134: 更改禁止存档
135: 更改禁止菜单
136: 更改禁止遇敌
201: 场所移动
202: 设置事件位置
203: 画面卷动
204: 更改地图设置
205: 更改雾的色调
206: 更改雾的不透明度
207: 显示动画
208: 更改透明状态
209: 设置移动路线
210: 等待移动结束
221: 准备渐变
222: 执行渐变
223: 更改画面色调
224: 画面闪烁
225: 画面震动
231: 显示图片
232: 移动图片
233: 旋转图片
234: 更改图片色调
235: 图片消失
236: 天气设置
241: 演奏 BGM
242: 淡出 BGM
245: 演奏 BGS
246: 淡出 BGS
247: 记忆 BGM / BGS
248: 还原 BGM / BGS
249: 演奏 ME
250: 演奏 SE
251: 停止 SE
301: 战斗处理
302: 商店处理
303: 名称输入处理
311: 增减 HP
312: 增减 SP
313: 更改状态
314: 完全回复
315: 增减 EXP
316: 增减等级
317: 增减能力值
318: 增减特技
319: 变更装备
320: 更改角色姓名
321: 更改角色职业
322: 更改角色图形
331: 增减敌人 HP
332: 增减敌人 SP
333: 更改敌人状态
334: 敌人出现
335: 敌人变身
336: 敌人完全回复
337: 显示动画
338: 伤害处理
339: 强制行动
340: 战斗中断
351: 呼叫菜单画面
352: 呼叫存档画面
353: 游戏结束
354: 返回标题画面
355: 脚本

事件代码就是上述这些，但也不是全部，比如「显示文章」指令下面的第二行分配的是 401 代码，这些存在特殊的情况。但是，事件指令的处理本身因为在预置的 Interpreter 类中完成，所以没必要在意这样的内部代码。只要事先记住这些就 OK 了。

sai90306 · 发表于 2012-5-15 21:36:11

本帖最后由 sai90306 于 2012-5-16 00:42 编辑

hys111111 发表于 2012-5-15 21:27
Interpreter是很恐怖的东西，
可以这样子添加：补充解释：
pages[0]#事件第0页

美獸大人的腳本中有調用事件的方法只是我看不太明白

def self.make_events(map_id,event_id,item_x,item_y,save=false)
return unless self.is_map?
map = self.map_data_load(map_id)
temp = Marshal.load(Marshal.dump(map))
if !$game_system.map_events_number
$game_system.map_events_number = {}
end
sum = $game_system.map_events_number
m_id = $game_map.map_id
sum[m_id] == nil ? sum[m_id] = 2000 : sum[m_id] += 1
new_event_id = sum[m_id]
temp.events[event_id].id = new_event_id
temp.events[event_id].x,temp.events[event_id].y = item_x,item_y
$game_map.events[new_event_id] = Game_Event.new(m_id,temp.events[event_id])
if save
now_map = self.map_data_load(m_id)
now_map.events[new_event_id] = temp.events[event_id]
self.map_data_save(m_id,now_map)
end
refresh_map
end

复制代码

我試著改了
def self.make_events(map_id,event_id,item_x,item_y,save=false)
為 def self.make_events(map_id,event_id, target_map, item_x,item_y,save=false)
然後改
m_id = $game_map.map_id
為 m_id = target_map

然後事件調用指令:
Drop_Item.make_events(1,1,2,0,0,true)
也就是將1號地圖的1號事件複製到2號地圖的0,0位置
然後去2號地圖看確實實現了!
不過囧的是...原本發動這個指令的1號地圖也在相同的位置0,0產生了1號事件的複製品...

xszhu123 · 发表于 2012-5-15 23:20:36

路过！！！
不发表意见……

hys111111 · 发表于 2012-5-16 12:42:24

本帖最后由 hys111111 于 2012-5-16 19:00 编辑

哦，需要这样了……

def self.make_events(map_id,event_id,item_x,item_y,save=false)
return unless self.is_map?
map = self.map_data_load(map_id)
temp = Marshal.load(Marshal.dump(map))
if !$game_system.map_events_number
$game_system.map_events_number = {}
end
sum = $game_system.map_events_number
m_id = $game_map.map_id
sum[m_id] == nil ? sum[m_id] = 2000 : sum[m_id] += 1
new_event_id = sum[m_id]
temp.events[event_id].id = new_event_id
temp.events[event_id].x,temp.events[event_id].y = item_x,item_y
$game_map.events[new_event_id] = Game_Event.new(m_id,temp.events[event_id])
$game_map.events[new_event_id].page = temp.events[event_id].page#添加部分
if save
now_map = self.map_data_load(m_id)
now_map.events[new_event_id] = temp.events[event_id]
self.map_data_save(m_id,now_map)
end
refresh_map
end

复制代码

sai90306 · 发表于 2012-5-16 19:10:36

本帖最后由 sai90306 于 2012-5-16 19:26 编辑

hys111111 发表于 2012-5-16 12:42
哦，需要这样了……

我內個...用很蠢的方法好像做出效果了...hys大要不要試試看效果@@?
主要加了一個tmap_id的輸入值
效果是出來了...不過完全脫夏娜大人的腳本了已經完全是美獸大人腳本了

然後就是80行那個刪除總覺得的先做出來再把多餘的刪除不是很好的做法感覺太浪費資源...不過以我的水平只能做到這樣了

#=begin
#==============================================================================
# ☆★☆ 提取放置物腳本（強化） ☆★☆
#------------------------------------------------------------------------------
# - 美獸
# - 2007.4.12
#------------------------------------------------------------------------------
# 愛護環境，人人有責，現實中切勿亂丟垃圾。
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
# 腳本原理：
# 是從倉庫地圖中提取事件，將其拷貝放入指定的位置，
# 依此達成隨時隨地生成新事件的功能，如此可節省大量用RGSS編寫事件所消耗的體力，很多地方寫的
# 很保守，盡量減少衝突幾率。。
# 此為強化版，可實現新事件的保存，但代價是衝突的隨之增大，若只想單純實現ARPG
# 一類的物品掉落，場所移動後便清除，請使用簡潔版。
#------------------------------------------------------------------------------
=begin
Note：
一：生成物品主方法：
Drop_Item.make_events(map_id,event_id,item_x,item_y,save=false)
map_id ：倉庫地圖的ID。
event_id ：倉庫中對應事件的ID。
item_x、item_y ：新事件的X與Y坐標
save : 是否存儲標誌;
默認為false，即不存儲，場所移動等轉換場景後事件會消失;
true 為存儲，取檔、關機、登火星，返回後事件仍存在。
二：刪除事件方法：
事件名若包含"delete"字段，則執行完畢會立即自我清除;
註：任何事件皆如此。
三：必掌握語句：
$game_map.events[@event_id]
$game_player
事件的腳本使用，表示「本事件」和「角色」，主要為取得事件的坐標，
取得「本事件」X與Y坐標：$game_map.events[@event_id].event.x
$game_map.events[@event_id].event.y
取得「角色」X與Y坐標：$game_player.x
$game_player.y
例如，在某事件左側生成2號地圖的2號事件並永久存儲,寫法如下。
x = $game_map.events[@event_id].event.x
y = $game_map.events[@event_id].event.y
Drop_Item.make_events(2,2,x-1,y,true)
或
x = $game_map.events[@event_id].x
y = $game_map.events[@event_id].y
Drop_Item.make_events(2,2,x-1,y,true)
四：備註：
此腳本用法十分靈活，種植、建設、捨棄、掉寶等功能都可用以達成。
=end
#==============================================================================
module Drop_Item
def self.make_events(map_id,event_id,tmap_id,item_x,item_y,save=false)
return unless self.is_map?
map = self.map_data_load(map_id)
temp = Marshal.load(Marshal.dump(map))
if !$game_system.map_events_number
$game_system.map_events_number = {}
end
sum = $game_system.map_events_number
$drop_item_target_map_id = tmap_id
m_id = $drop_item_target_map_id
sum[m_id] == nil ? sum[m_id] = 2000 : sum[m_id] += 1
new_event_id = sum[m_id]
temp.events[event_id].id = new_event_id
temp.events[event_id].x,temp.events[event_id].y = item_x,item_y
$game_map.events[new_event_id] = Game_Event.new(m_id,temp.events[event_id])
if save
now_map = self.map_data_load(m_id)
now_map.events[new_event_id] = temp.events[event_id]
self.map_data_save(m_id,now_map)
end
$game_map.events.delete(new_event_id)
refresh_map
end
def self.map_data_init
for i in 1..999
begin
map = load_data(sprintf("Data/Map%03d.rxdata", i))
rescue Errno::ENOENT
next
end
$game_system.map_data[i] = Marshal.load(Marshal.dump(map))
end
end
def self.map_data_save(map_id,event)
$game_system.map_data[$drop_item_target_map_id] = event
end
def self.map_data_load(map_id)
if !$game_system.map_data
$game_system.map_data = {}
self.map_data_init
end
return $game_system.map_data[map_id]
end
def self.delete_events(event_id)
return unless self.is_map?
$game_map.events.delete(event_id)
self.refresh_map
end
def self.refresh_map
return unless self.is_map?
$scene.spriteset.dispose
$scene.spriteset = Spriteset_Map.new
end
def self.is_map?
(return true) if $scene.is_a?(Scene_Map)
return false
end
end
class Game_Map
def setup(map_id)
@map_id = map_id
#@map = load_data(sprintf("Data/Map%03d.rxdata", @map_id))
@map = Drop_Item.map_data_load(@map_id)
tileset = $data_tilesets[@map.tileset_id]
@tileset_name = tileset.tileset_name
@autotile_names = tileset.autotile_names
@panorama_name = tileset.panorama_name
@panorama_hue = tileset.panorama_hue
@fog_name = tileset.fog_name
@fog_hue = tileset.fog_hue
@fog_opacity = tileset.fog_opacity
@fog_blend_type = tileset.fog_blend_type
@fog_zoom = tileset.fog_zoom
@fog_sx = tileset.fog_sx
@fog_sy = tileset.fog_sy
@battleback_name = tileset.battleback_name
@passages = tileset.passages
@priorities = tileset.priorities
@terrain_tags = tileset.terrain_tags
@display_x = 0
@display_y = 0
@need_refresh = false
@events = {}
for i in @map.events.keys
@events[i] = Game_Event.new(@map_id, @map.events[i])
end
@common_events = {}
for i in 1...$data_common_events.size
@common_events[i] = Game_CommonEvent.new(i)
end
@fog_ox = 0
@fog_oy = 0
@fog_tone = Tone.new(0, 0, 0, 0)
@fog_tone_target = Tone.new(0, 0, 0, 0)
@fog_tone_duration = 0
@fog_opacity_duration = 0
@fog_opacity_target = 0
@scroll_direction = 2
@scroll_rest = 0
@scroll_speed = 4
end
end
class Interpreter
def command_end
@list = nil
if @main and @event_id > 0
if $game_map.events[@event_id].event.name[/delete/].nil?
$game_map.events[@event_id].unlock
else
if $scene.is_a?(Scene_Map)
Drop_Item.delete_events(@event_id)
now_map = Drop_Item.map_data_load($drop_item_target_map_id)
now_map.events.delete(@event_id)
Drop_Item.map_data_save($drop_item_target_map_id,now_map)
end
end
end
end
end
class Game_System
attr_accessor :map_events_number
attr_accessor :map_data
end
class Scene_Map
attr_accessor :spriteset
end
#=end

复制代码

��

hys111111 · 发表于 2012-5-17 13:01:09

本帖最后由 hys111111 于 2012-5-17 13:01 编辑

sai90306 发表于 2012-5-16 19:10
我內個...用很蠢的方法好像做出效果了...hys大要不要試試看效果@@?
主要加了一個tmap_id的輸入值
效果是 ...

80行不需要删除，避免出现两个重复的事件。
另外，这个脚本我看不出其他问题了……

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

[已经解决] 求教夏娜大人的"在游戏运行中制作事件"腳本的事件指定方法

点评

点评

评分

点评

评分

点评

评分

点评

点评

评分

开拓者