【脚本】事件复制

joe5491 · 发表于 2013-4-5 02:37:41

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

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

x

本帖最后由 joe5491 于 2013-4-6 23:56 编辑

有没有想过要用把A地图的事件复制到B地图上过呢？
还是把A地图上的某事件复制出N个呢？
或是复制完的脚本想要保存在地图上呢？
现在有了事件复制脚本，以上问题皆可解决！！！

p.s.使用方式自行看脚本的注解

某月某日修了某個bug....

#========================================================
#★ 事件複製 -by joe59491
#========================================================
#========參數設定========================================
$Eve_Control = 18 #是否要關閉自動回復地圖上的事件的開關編號
#========================================================
#========使用說明========================================
#複製事件
#Eve_To_Map.new(新X座標,新Y座標,複製事件所在地圖的編號,複製事件編號)
#新事件编号是从200开始算起的，如果你这张地图内有超过200普通事件，会爆，记得改一下下面的脚本
#预设一张图最多复制100个事件（够多了吧？）
#刪除事件（全部，針對複製的）
#Dis_Eve.new
#儲存事件（非自動，針對複製的）
#Save_Eve.new
#讀取事件（非自動，針對複製的）
#Load_Eve.new
#p.s. 當開關關閉時，會事件會被保留，否則會消失。
#========================================================
class Game_Character
attr_accessor :id # ID
end
class Eve_To_Map
def initialize(x, y, map_id, eve_id)
map = load_data(sprintf("Data/Map%03d.rxdata", map_id))
#p map.events[7]
for i in 200..300
if $game_map.events[i] == nil
$game_map.events[i] = Game_Event.new($game_map.map_id, map.events[eve_id])
$game_map.events[i].moveto(x,y)
$game_map.events[i].id=i
$scene.spriteset.dispose
$scene.spriteset = Spriteset_Map.new
break
end
end
end
end
class Game_Map
attr_accessor :SEve
alias initialize_seve initialize
def initialize
@SEve=[0]
initialize_seve
end
alias update_seve update
def update
if $game_map.need_refresh
#p
end
update_seve
end
end
class Save_Eve
def initialize
$game_map.SEve[$game_map.map_id]=[0]
for i in 200..300
if $game_map.events[i] != nil
$game_map.SEve[$game_map.map_id][i-200] = $game_map.events[i]
end
end
end
end
class Load_Eve
def initialize
if $game_map.SEve[$game_map.map_id]!=nil
for i in 0..100
if $game_map.SEve[$game_map.map_id][i] != nil and $game_map.SEve[$game_map.map_id][i] != 0
$game_map.events[i+200]=$game_map.SEve[$game_map.map_id][i]
end
end
$scene.spriteset = Spriteset_Map.new
end
end
end
class Dis_Eve
def initialize
for i in 200..300
if $game_map.events[i] != nil
$game_map.events[i].erase
end
end
end
end
class Interpreter
alias command_201_seve command_201
def command_201
if !$game_switches[$Eve_Control]
Save_Eve.new
end
command_201_seve
end
end
class Scene_Map
attr_accessor :spriteset
alias transfer_player_seve transfer_player
def transfer_player
transfer_player_seve
if !$game_switches[$Eve_Control]
Load_Eve.new
end
end
end

复制代码

LBQ · 发表于 2013-4-5 08:32:37

记得有《扔东西脚本》这个东西的吧。。。

chd114 · 发表于 2013-4-6 20:47:12

$Eve_Control = 18 #是否要關閉自動回復地圖上的事件的開關編號

复制代码

是什么意思···打开之后复制的事件会被全部还原？

chd114 · 发表于 2013-4-6 20:54:26

$scene.spriteset = Spriteset_Map.new

复制代码

37行有错误求解释···

joe5491 · 发表于 2013-4-6 21:59:54

chd114 发表于 2013-4-6 20:54
37行有错误求解释···

使用多功能事件吧...這是他的前身...有bug沒修掉...
多功能事件內已經包含了這腳本的所有功能....

傳送點：http://rpg.blue/thread-304023-1-1.html

viktor · 发表于 2013-4-6 23:22:48

nice。复制事件的确是事件党常用的功能呢~

其实我的机关陷阱样例里面也有复制事件（链接见签名）
里面是这样写的：

module EventHelper
def self.get_rpg_event(event_id, map_id=$game_map.map_id)
map = $game_map.instance_variable_get(:@map)
if map_id != $game_map.map_id
map = load_data(sprintf("Data/Map%03d.rvdata2", map_id))
end
return map.events[event_id]
end
end
class Game_Event
attr_accessor :id
attr_accessor :erased
end
class Game_Map
# rpg_evt：需要刷新的事件RPG::Event, 用上面的get_rpg_event获得
# xy：坐标
# dir：朝向
# ss：需要打开的独立开关列表("ABCD")
def spawn_event(rpg_evt, x, y, dir=2, ss="")
new_id = 1 + @map.events.keys.max
new_evt = RPG::Event.new(x, y)
new_evt.id = new_id
new_evt.pages = rpg_evt.pages
@map.events[new_id] = new_evt
@events[new_id] = Game_Event.new(@map_id, new_evt)
@events[new_id].set_direction(dir)
ss.each_char{|c| $game_self_switches[[@map_id, new_id, c]] = true }
# 刷新图块
refresh_tile_events
SceneManager.scene.instance_eval { @spriteset.refresh_characters }
end
end

复制代码

Judgement · 发表于 2013-4-19 16:44:45

{:2_253:}那个……LZ，其实我对你范例里面的arpg系统也很感兴趣，因为刚好我最近在做的某解密类用到了技能解密……如果改成可以快捷键使用的话就方便多了，于是可以给个原版么？

joe5491 · 发表于 2013-4-19 17:01:39

Judgement 发表于 2013-4-19 16:44
那个……LZ，其实我对你范例里面的arpg系统也很感兴趣，因为刚好我最近在做的某解密类用到了技能 ...

其實範例裡面已經有ARPG系統了....

只是....你要自己寫快捷技能的腳本（雖然我有），因為我手邊的ARPG腳本已經被我整合的不像樣了...(神馬網路腳本，中文輸入腳本、彈幕遊戲腳本之類的...)

自已想辦法研究看看吧...

p.s.話說真正原版在這：http://forum.gamer.com.tw/G2.php?bsn=04918&sn=2056（我兩年前下載的...）

Judgement · 发表于 2013-4-19 17:19:05

joe5491 发表于 2013-4-19 17:01
其實範例裡面已經有ARPG系統了....

只是....你要自己寫快捷技能的腳本（雖然我有），因為我手邊的ARPG腳 ...

{:2_254:} 不懂是因为IP问题还是下载链接失效了，下不了

joe5491 · 发表于 2013-4-19 22:01:43

本帖最后由 joe5491 于 2013-4-19 22:05 编辑

Judgement 发表于 2013-4-19 17:19
不懂是因为IP问题还是下载链接失效了，下不了

2008年的東西了，還能期望原載點還存活嗎....

p.s.五年了...還好我兩年前有先下載....

好吧，翻出來的原始檔案....

arpgclass.rar (210.33 KB, 下载次数: 54)

不過字體之類的要自行解決....然後其實功能真的不是很齊全....（最基本ARPG）

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

[原创发布] 【脚本】事件复制

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

点评

点评

点评

开拓者