Project1

标题: 【VA】脚本Spawn Event [打印本页]

---

作者: 杂兵天下    时间: 2012-3-13 17:36
标题: 【VA】脚本Spawn Event


YF的脚本真如“大音希声扫阴翳”，犹如“拨开云雾见青天”，使我等网民看到了希望，看到了未来！晴天霹雳、醍醐灌顶或许不足以形容大师脚本的万一；巫山行云、长江流水更难以比拟大师的才气！黄钟大吕，振聋发聩！你烛照天下，明见万里；雨露苍生，泽被万方！透过你深邃的脚本，我仿佛看到了你鹰视狼顾、龙行虎步的伟岸英姿；仿佛看到了你手执如椽大笔、写天下脚本的智慧神态；仿佛看见了你按剑四顾、指点江山的英武气概！

我在R界打滚这么多年，所谓阅人无数，就算没有见过猪走路，也总明白猪肉是啥味道的。一看到YF的气势，我就觉得YF同在6R里灌水的那帮小混混有着本质的差别！那神奇的脚本功效，那熟悉的脚本格式，还有字里行间高屋建瓴的辞藻。没用的，YF，就算你怎么换马甲都是没有用的，你的亿万拥戴者早已经把你认出来了，你一定就是传说中的Yanfly大神。自从6R复活之后，我就已经心灰意冷，对R界也没抱什么希望了，传说已经幻灭，神话已经终结，留在R界还有什么意思？没想到，没想到，今天可以再睹YF的风范，我激动得忍不住就在屏幕前流下了眼泪。是啊，只要在YF的带领下，R界就有希望了。我的内心再一次沸腾了，我胸腔里的血再一次燃烧了。YF的几句话虽然简单，却概括扼要，一语道出了我们苦想多年仍不可解的几个重大问题的根本。YF就好比R界的明灯，YF就好比R界的方向，YF就好比R界的栋梁。有YF在，R界的明天必将更好！

YF的脚本实在是写得太好了。文笔流畅，修辞得体，深得柳柳九夜遗风，更将VictorYami之风格发扬得入木三分，能在有生之年看见YF的这个脚本。实在是我三生之幸啊。看完YF的这个脚本之后，我竟产生出一种无以名之的悲痛感——啊，这么好的脚本，如果将来我再也看不到了，那我该怎么办？那我该怎么办？直到我毫不犹豫地把YF的这个脚本收藏了，我内心的那种激动才逐渐平静下来。可是我立刻想到，这么好的脚本，倘若别人看不到，那么不是浪费YF的心血吗？经过痛苦的思想斗争，我终于下定决心，牺牲小我，奉献大我。我要拿出这帖子奉献给6R各位水客赏阅，我要把这个帖子一直往上顶，往上顶！顶到所有人都看到为止！
http://yanflychannel.wordpress.c ... cripts/spawn-event/

RUBY 代码复制

#==============================================================================
# 
# ▼ Yanfly Engine Ace - Spawn Event v1.00
# -- Last Updated: 2012.02.08
# -- Level: Normal, Hard
# -- Requires: n/a
# 
#==============================================================================
 
$imported = {} if $imported.nil?
$imported["YEA-SpawnEvent"] = true
 
#==============================================================================
# ▼ Updates
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# 2012.02.08 - Started Script and Finished.
# 
#==============================================================================
# ▼ Introduction
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# For those who would like to spawn pre-made events from the current map or
# even other maps, this script allows you to do so. With the option of spawning
# the events at specific locations or a random spot marked by a certain region,
# you can have events spawn using simple script calls. The events remain until
# a map change.
# 
#==============================================================================
# ▼ Instructions
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# To install this script, open up your script editor and copy/paste this script
# to an open slot below ▼ Materials/素材 but above ▼ Main. Remember to save.
# 
# -----------------------------------------------------------------------------
# Script Calls - These commands are used with script calls.
# -----------------------------------------------------------------------------
# spawn_event_location(x, y, event_id)
# spawn_event_location(x, y, event_id, map_id)
# This causes a new event to be created at location x and y on the current map.
# The event to be created will use the event data from event_id. If no map_id
# is used, then the current map's event will be used to spawn the new event.
# The event cannot spawn on top of another event or vehicle. If there is an
# event or vehicle in place, then no event will be spawned at all.
# 
# spawn_event_region(region_id, event_id)
# spawn_event_region(region_id, event_id, map_id)
# This causes a new event to be created at a random location with a matching
# region_id. The event to be created will use the event data from event_id. If
# no map_id is used, then the current map's event will be used to spawn the
# new event. If the region_id does not exist on the current map, then no event
# will be spawned. The event will not spawn on top of another event nor on top
# of a vehicle. If there is not enough room to spawn an event, then no event
# will be spawned at all. This process takes slightly longer on larger maps.
# 
#==============================================================================
# ▼ Compatibility
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# This script is made strictly for RPG Maker VX Ace. It is highly unlikely that
# it will run with RPG Maker VX without adjusting.
# 
#==============================================================================
 
#==============================================================================
# ■ Game_Map
#==============================================================================
 
class Game_Map
 
  #--------------------------------------------------------------------------
  # new method: spawn_event
  #--------------------------------------------------------------------------
  def spawn_event(dx, dy, event_id, map_id)
    return if $game_player.collide_with_characters?(dx, dy)
    return if dx == $game_player.x && dy == $game_player.y
    map_id = @map_id if map_id == 0
    map = load_data(sprintf("Data/Map%03d.rvdata2", map_id))
    event = generated_event(map, event_id)
    return if event.nil?
    key_id = @events.keys.max + 1
    @events[key_id] = Game_Event.new(@map_id, event)
    @events[key_id].moveto(dx, dy)
    SceneManager.scene.spriteset.refresh_characters
  end
 
  #--------------------------------------------------------------------------
  # new method: generated_event
  #--------------------------------------------------------------------------
  def generated_event(map, event_id)
    for key in map.events
      event = key[1]
      next if event.nil?
      return event if event.id == event_id
    end
    return nil
  end
 
  #--------------------------------------------------------------------------
  # new method: spawn_event_region
  #--------------------------------------------------------------------------
  def spawn_event_region(reg_id, event_id, map_id)
    tile = get_random_region_tile(reg_id)
    return if tile.nil?
    spawn_event(tile[0], tile[1], event_id, map_id)
  end
 
  #--------------------------------------------------------------------------
  # new method: get_random_region_tile
  #--------------------------------------------------------------------------
  def get_random_region_tile(reg_id)
    tiles = []
    for i in 0...width
      for j in 0...height
        next unless (region_id(i, j) == reg_id) or (reg_id == 0)
        next if $game_player.collide_with_characters?(i, j)
        next if i == $game_player.x && j == $game_player.y
        tiles.push([i, j])
      end
    end
    return tiles.sample
  end
 
end # Game_Map
 
#==============================================================================
# ■ Game_Interpreter
#==============================================================================
 
class Game_Interpreter
 
  #--------------------------------------------------------------------------
  # new method: spawn_event_location
  #--------------------------------------------------------------------------
  def spawn_event_location(dx, dy, event_id, map_id = 0)
    return unless SceneManager.scene_is?(Scene_Map)
    $game_map.spawn_event(dx, dy, event_id, map_id)
  end
 
  #--------------------------------------------------------------------------
  # new method: spawn_event_region
  #--------------------------------------------------------------------------
  def spawn_event_region(region_id, event_id, map_id = 0)
    return unless SceneManager.scene_is?(Scene_Map)
    $game_map.spawn_event_region(region_id, event_id, map_id)
  end
 
end # Game_Interpreter
 
#==============================================================================
# ■ Scene_Map
#==============================================================================
 
class Scene_Map < Scene_Base
 
  #--------------------------------------------------------------------------
  # public instance variables
  #--------------------------------------------------------------------------
  attr_accessor :spriteset
 
end # Scene_Map
 
#==============================================================================
# 
# ▼ End of File
# 
#==============================================================================

#==============================================================================


# 


# ▼ Yanfly Engine Ace - Spawn Event v1.00


# -- Last Updated: 2012.02.08


# -- Level: Normal, Hard


# -- Requires: n/a


# 


#==============================================================================


 


$imported = {} if $imported.nil?


$imported["YEA-SpawnEvent"] = true


 


#==============================================================================


# ▼ Updates


# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


# 2012.02.08 - Started Script and Finished.


# 


#==============================================================================


# ▼ Introduction


# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


# For those who would like to spawn pre-made events from the current map or


# even other maps, this script allows you to do so. With the option of spawning


# the events at specific locations or a random spot marked by a certain region,


# you can have events spawn using simple script calls. The events remain until


# a map change.


# 


#==============================================================================


# ▼ Instructions


# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


# To install this script, open up your script editor and copy/paste this script


# to an open slot below ▼ Materials/素材 but above ▼ Main. Remember to save.


# 


# -----------------------------------------------------------------------------


# Script Calls - These commands are used with script calls.


# -----------------------------------------------------------------------------


# spawn_event_location(x, y, event_id)


# spawn_event_location(x, y, event_id, map_id)


# This causes a new event to be created at location x and y on the current map.


# The event to be created will use the event data from event_id. If no map_id


# is used, then the current map's event will be used to spawn the new event.


# The event cannot spawn on top of another event or vehicle. If there is an


# event or vehicle in place, then no event will be spawned at all.


# 


# spawn_event_region(region_id, event_id)


# spawn_event_region(region_id, event_id, map_id)


# This causes a new event to be created at a random location with a matching


# region_id. The event to be created will use the event data from event_id. If


# no map_id is used, then the current map's event will be used to spawn the


# new event. If the region_id does not exist on the current map, then no event


# will be spawned. The event will not spawn on top of another event nor on top


# of a vehicle. If there is not enough room to spawn an event, then no event


# will be spawned at all. This process takes slightly longer on larger maps.


# 


#==============================================================================


# ▼ Compatibility


# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


# This script is made strictly for RPG Maker VX Ace. It is highly unlikely that


# it will run with RPG Maker VX without adjusting.


# 


#==============================================================================


 


#==============================================================================


# ■ Game_Map


#==============================================================================


 


class Game_Map


 


  #--------------------------------------------------------------------------


  # new method: spawn_event


  #--------------------------------------------------------------------------


  def spawn_event(dx, dy, event_id, map_id)


    return if $game_player.collide_with_characters?(dx, dy)


    return if dx == $game_player.x && dy == $game_player.y


    map_id = @map_id if map_id == 0


    map = load_data(sprintf("Data/Map%03d.rvdata2", map_id))


    event = generated_event(map, event_id)


    return if event.nil?


    key_id = @events.keys.max + 1


    @events[key_id] = Game_Event.new(@map_id, event)


    @events[key_id].moveto(dx, dy)


    SceneManager.scene.spriteset.refresh_characters


  end


 


  #--------------------------------------------------------------------------


  # new method: generated_event


  #--------------------------------------------------------------------------


  def generated_event(map, event_id)


    for key in map.events


      event = key[1]


      next if event.nil?


      return event if event.id == event_id


    end


    return nil


  end


 


  #--------------------------------------------------------------------------


  # new method: spawn_event_region


  #--------------------------------------------------------------------------


  def spawn_event_region(reg_id, event_id, map_id)


    tile = get_random_region_tile(reg_id)


    return if tile.nil?


    spawn_event(tile[0], tile[1], event_id, map_id)


  end


 


  #--------------------------------------------------------------------------


  # new method: get_random_region_tile


  #--------------------------------------------------------------------------


  def get_random_region_tile(reg_id)


    tiles = []


    for i in 0...width


      for j in 0...height


        next unless (region_id(i, j) == reg_id) or (reg_id == 0)


        next if $game_player.collide_with_characters?(i, j)


        next if i == $game_player.x && j == $game_player.y


        tiles.push([i, j])


      end


    end


    return tiles.sample


  end


 


end # Game_Map


 


#==============================================================================


# ■ Game_Interpreter


#==============================================================================


 


class Game_Interpreter


 


  #--------------------------------------------------------------------------


  # new method: spawn_event_location


  #--------------------------------------------------------------------------


  def spawn_event_location(dx, dy, event_id, map_id = 0)


    return unless SceneManager.scene_is?(Scene_Map)


    $game_map.spawn_event(dx, dy, event_id, map_id)


  end


 


  #--------------------------------------------------------------------------


  # new method: spawn_event_region


  #--------------------------------------------------------------------------


  def spawn_event_region(region_id, event_id, map_id = 0)


    return unless SceneManager.scene_is?(Scene_Map)


    $game_map.spawn_event_region(region_id, event_id, map_id)


  end


 


end # Game_Interpreter


 


#==============================================================================


# ■ Scene_Map


#==============================================================================


 


class Scene_Map < Scene_Base


 


  #--------------------------------------------------------------------------


  # public instance variables


  #--------------------------------------------------------------------------


  attr_accessor :spriteset


 


end # Scene_Map


 


#==============================================================================


# 


# ▼ End of File


# 


#==============================================================================

spawn_event_location(x, y, event_id, map_id)表示从仓库地图map_id中提取编号为event_id的事件到当前地图的x,y位置上。
spawn_event_region(0, event_id, map_id)表示从仓库地图map_id中提取编号为event_id的事件到当前地图随机位置上。
spawn_event_region(region_id, event_id, map_id)表示从仓库地图map_id中提取编号为event_id的事件到当前地图的区域region_id中的随机位置上。

---

作者: www.μ.com    时间: 2012-3-13 17:46
前辈过谦了，这么好的脚本..把新任版主叫回来吧，加分。
@无双sxa

---

作者: 杂兵天下    时间: 2012-3-13 17:52


下面我稍微将将此脚本的重大作用。
首先，可以随机生成敌人，免去费劲地到处复制明雷。
其次，可以随机生成宝箱，让开到宝箱真的变成运气的体现了。
第三，可以用作极多小游戏的框架（比如说，打地鼠？）
第四，可以用此系统快速的排布战棋，ZTBS杂兵战也能变得策略化。
第五，可以方便的制作出带有大量陷阱的迷宫。
第六，可以让不同区域的明雷不同，方便制作鱼、鸟等怪物。
第七，可以制作出随机的魔法阵，产生像仙三问路篇（囧）一样的复杂迷宫。
第八，可以制作出空中飞舞的火球，产生魔幻世界大战的辉煌效果。
第九，可以制作出ARPG中的随机放置敌人效果。
第十，如果运用得好，可以制造出大量效果，请大家仔细思考。

---

作者: 无双sxa    时间: 2012-3-13 17:54


楼主的确是很棒的，也不要看低自己什么的。谁说没有希望啥的，有信念支撑谁都能有希望的，会不会都是种潜力，实干才知道能不能做到。
另外，没有神，因此没有神作，没有神脚本。

---

作者: 杂兵天下    时间: 2012-3-13 20:55
标题: 【补丁】Spawn Event与雪流星即时遇敌的共存补丁（更新）

1. 
   
2. #==============================================================================
   
3. # ■ Patch Of 雪流星即时遇敌 and Yanfly Engine Ace - Spawn Event v1.00
   
4. #==============================================================================
   
5. $imported = {} if $imported.nil?
   
6. if $imported["YEA-SpawnEvent"]
   
7.   #============================================================================
   
8.   # ■ Game_Event Patch Of 雪流星即时遇敌
   
9.   #============================================================================
   
10.   class Game_Event < Game_Character
    
11.     attr_accessor :id #create a attr_accessor of event id
    
12.   end
    
13.   
    
14.   #============================================================================
    
15.   # ■ Game_Map Patch Of 雪流星即时遇敌
    
16.   #============================================================================
    
17. 
    
18.   class Game_Map
    
19. 
    
20.     #------------------------------------------------------------------------
    
21.     # alias method: spawn_event
    
22.     #------------------------------------------------------------------------
    
23.     alias spawn_event_before_patch_of_xlx_instantcounter spawn_event
    
24.     def spawn_event(dx, dy, event_id, map_id)
    
25.       spawn_event_before_patch_of_xlx_instantcounter(dx, dy, event_id, map_id)
    
26.       key_id = @events.keys.max#get the key id of the new event
    
27.       @events[key_id].id = key_id#edit the event store id to the real id
    
28.     end
    
29.   end
    
30. end
    
31. 
    
32. class Game_Player < Game_Character
    
33.   #--------------------------------------------------------------------------
    
34.   # ● 执行遇敌处理
    
35.   #--------------------------------------------------------------------------
    
36.   def encounter
    
37.     return false if $game_map.interpreter.running?
    
38.     return false if $game_system.encounter_disabled
    
39.     return false if @encounter_count > 0
    
40.     make_encounter_count
    
41.     troop_id = make_encounter_troop_id
    
42.     return false unless $data_troops[troop_id]
    
43.     if $game_map.anlei
    
44.       BattleManager.setup(troop_id)
    
45.       BattleManager.on_encounter
    
46.       SceneManager.goto(Scene_Battle)
    
47.     else
    
48.       spawn_event_region(0, troop_id, 11, true, $game_map.daditu)#请把11改为仓库地图的ID
    
49.     end
    
50.     return true
    
51.   end
    
52. end
    
53. class Scene_Map < Scene_Base
    
54.   #--------------------------------------------------------------------------
    
55.   # ● 监听遇敌事件
    
56.   #--------------------------------------------------------------------------
    
57.   def update_encounter
    
58.     $game_player.encounter
    
59.   end
    
60. end
    
61. def spawn_event_region(region_id, event_id, map_id = 0, pas = false, pangbian = false)
    
62.   return unless SceneManager.scene_is?(Scene_Map)
    
63.   $game_map.spawn_event_region(region_id, event_id, map_id, pas, pangbian)
    
64. end
    
65. module RPG
    
66.   class Map
    
67.     def daditu
    
68.       self.note.split(/[\r\n]+/).each { |line|
    
69.         return true if line == "<大地图>"
    
70.       }
    
71.       return false
    
72.     end
    
73.     def anlei
    
74.       self.note.split(/[\r\n]+/).each { |line|
    
75.         return true if line == "<暗雷>"
    
76.       }
    
77.       return false
    
78.     end
    
79.   end
    
80. end
    
81. class Game_Map
    
82.   def daditu
    
83.     return @map.daditu
    
84.   end
    
85.   def anlei
    
86.     return @map.anlei
    
87.   end
    
88.   alias spawn_event_region_beforepatch_jatc spawn_event_region
    
89.   def spawn_event_region(reg_id, event_id, map_id, pas = false, pangbian = false)
    
90.     if pas or pangbian
    
91.       tile = get_random_region_tile(reg_id,pas,pangbian)
    
92.       return if tile.nil?
    
93.       spawn_event(tile[0], tile[1], event_id, map_id)
    
94.     else
    
95.       spawn_event_region_beforepatch_jatc(reg_id, event_id, map_id)
    
96.     end
    
97.   end
    
98.   def get_random_region_tile(reg_id,pas = false,pangbian = false)
    
99.     if pangbian
    
100.       a = $game_player.x - [18,encounter_step].max
     
101.       b = $game_player.x + [18,encounter_step].max
     
102.       c = $game_player.y - [13,encounter_step].max
     
103.       d = $game_player.y + [13,encounter_step].max
     
104.     else
     
105.       a = 0
     
106.       b = width
     
107.       c = 0
     
108.       d = width
     
109.     end
     
110.     tiles = []
     
111.     for i in a...b
     
112.       for j in c...d
     
113.         next unless (region_id(i, j) == reg_id) or (reg_id == 0)
     
114.         next if $game_player.collide_with_characters?(i, j)
     
115.         next if i == $game_player.x && j == $game_player.y
     
116.         unless $game_map.passable?(i,j,2)
     
117.           unless $game_map.passable?(i,j,4)
     
118.             unless $game_map.passable?(i,j,6)
     
119.               unless $game_map.passable?(i,j,8)
     
120.                 next if pas
     
121.               end
     
122.             end
     
123.           end
     
124.         end
     
125.         tiles.push([i, j])
     
126.       end
     
127.     end
     
128.     return tiles.sample
     
129.   end
     
130. end

复制代码

打补丁后，用spawn event生成的敌人也可以即时遇敌了！
一定要把补丁放在spawn event的后面！！！
在Kimu的地盘发补丁感觉不放心，所以还是发到这里了
在脚本中把11改为仓库地图ID。然后把此仓库地图中事件ID与敌人ID对应，做一些明雷事件。
然后在地图属性里设置遇敌。
会自动改暗雷为明雷。
如果要暗雷，请在地图备注里写<暗雷>
如果明雷遇敌的地图太大了，备注里写<大地图>
会自动优化处理，只在角色身边生成明雷。
但这样的效果其实不如全局生成好，所以地图不是太大（根据测试时卡的程度决定）还是不要用此选项。

---

作者: 姬文翔    时间: 2012-3-14 19:20
话说我看到Yanfly这个名字时误以为是yangff很长时间……

---

作者: 精灵使者    时间: 2012-3-14 22:43
其实美兽以前有一个“爱护环境人人有责”的帖子，就是说生成事件的。

---

作者: ArcDriver    时间: 2012-3-19 19:43
好东西收下了，多谢楼主亲分享XD

P.S.其实总觉得楼主亲就是Yami大神，是错觉么XD

---

作者: ohyee    时间: 2012-5-1 19:29
哇嘎嘎嘎嘎 ，见到宝贝了……

好好研究研究，可能我之前做的会因为这个脚本改完…………（泪奔）
为什么没有再点遇到你啊，我亲爱的楼主……

---

作者: 夜飞尔-流星    时间: 2013-7-23 19:36
能告诉我们一下怎么用吗？
工程里有这个脚本但是不会用.

---

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1