设为首页收藏本站|繁體中文

Project1

 找回密码
 注册会员
搜索
查看: 14300|回复: 23
打印 上一主题 下一主题

爱护环境,人人有责——四处留情脚本。

 关闭 [复制链接]

Lv1.梦旅人

月下可怜人

梦石
0
星屑
50
在线时间
10 小时
注册时间
2005-11-23
帖子
4085

第1届短篇游戏比赛亚军

跳转到指定楼层
1
发表于 2007-4-12 23:37:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
下载范例时,注意查毒

换个标题,实际就是个实现乱扔东西的脚本.

想过在牧场种花,种瓜,种豆了吗?
想过杀怪放火顺便搜刮怪脂怪膏了吗?
想过四处留情,千年后桃花依旧吗?

若米,请

  ↓
  ↓
  ↓

#------------------------------------------------------------------------------
#  爱护环境,人人有责,现实中切勿乱丢垃圾。
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
#  脚本原理:
#  是从仓库地图中提取事件,将其拷贝放入指定的位置,
#  依此达成随时随地生成新事件的功能,如此可节省大量用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)

四:备注:
    此脚本用法十分灵活,种植、建设、舍弃、掉宝等功能都可用以达成。   


可存储之强化版。

  1. #==============================================================================
  2. # ☆★☆ 提取放置物脚本(强化) ☆★☆  
  3. #------------------------------------------------------------------------------
  4. # - 美兽
  5. # - 2007.4.12
  6. #------------------------------------------------------------------------------
  7. #  爱护环境,人人有责,现实中切勿乱丢垃圾。
  8. #------------------------------------------------------------------------------
  9. #------------------------------------------------------------------------------
  10. #  脚本原理:
  11. #  是从仓库地图中提取事件,将其拷贝放入指定的位置,
  12. #  依此达成随时随地生成新事件的功能,如此可节省大量用RGSS编写事件所消耗的体力,很多地方写的
  13. #  很保守,尽量减少冲突几率。。
  14. #  此为强化版,可实现新事件的保存,但代价是冲突的随之增大,若只想单纯实现ARPG
  15. #  一类的物品掉落,场所移动后便清除,请使用简洁版。
  16. #------------------------------------------------------------------------------
  17. =begin
  18.                                 Note:
  19.   
  20. 一:生成物品主方法:
  21.     Drop_Item.make_events(map_id,event_id,item_x,item_y,save=false)
  22.     map_id : 仓库地图的ID。
  23.     event_id : 仓库中对应事件的ID。
  24.     item_x、item_y :新事件的X与Y坐标
  25.     save : 是否存储标志;
  26.            默认为false,即不存储,场所移动等转换场景后事件会消失;
  27.            true 为存储,取档、关机、登火星,返回后事件仍存在。
  28.            
  29. 二:删除事件方法:
  30.     事件名若包含"delete"字段,则执行完毕会立即自我清除;
  31.     注:任何事件皆如此。

  32. 三:必掌握语句:
  33.     $game_map.events[@event_id]
  34.     $game_player
  35.     事件的脚本使用,表示“本事件”和“角色”,主要为取得事件的坐标,
  36.     取得“本事件”X与Y坐标:$game_map.events[@event_id].event.x
  37.                             $game_map.events[@event_id].event.y
  38.     取得“角色”X与Y坐标:$game_player.x
  39.                           $game_player.y                           
  40.     例如,在某事件左侧生成2号地图的2号事件并永久存储,写法如下。
  41.     x = $game_map.events[@event_id].event.x
  42.     y = $game_map.events[@event_id].event.y
  43.     Drop_Item.make_events(2,2,x-1,y,true)

  44. 四:备注:
  45.     此脚本用法十分灵活,种植、建设、舍弃、掉宝等功能都可用以达成。   

  46. =end
  47. #==============================================================================


  48. module Drop_Item
  49.   
  50.   def self.make_events(map_id,event_id,item_x,item_y,save=false)
  51.       return unless self.is_map?        
  52.       map = self.map_data_load(map_id)      
  53.       temp = Marshal.load(Marshal.dump(map))      
  54.       if !$game_system.map_events_number
  55.          $game_system.map_events_number = {}
  56.       end  
  57.       sum = $game_system.map_events_number      
  58.       m_id = $game_map.map_id      
  59.       sum[m_id] == nil ? sum[m_id] = 2000 : sum[m_id] += 1
  60.       new_event_id = sum[m_id]      
  61.       temp.events[event_id].id = new_event_id      
  62.       temp.events[event_id].x,temp.events[event_id].y = item_x,item_y      
  63.       $game_map.events[new_event_id] = Game_Event.new(m_id,temp.events[event_id])
  64.       if save
  65.          now_map = self.map_data_load(m_id)
  66.          now_map.events[new_event_id] = temp.events[event_id]
  67.          self.map_data_save(m_id,now_map)
  68.       end  
  69.       refresh_map   
  70.   end
  71.    
  72.   def self.map_data_init   
  73.       for i in 1..999
  74.          begin
  75.            map = load_data(sprintf("Data/Map%03d.rxdata", i))
  76.          rescue Errno::ENOENT
  77.            next
  78.          end
  79.          $game_system.map_data[i] = Marshal.load(Marshal.dump(map))         
  80.       end
  81.   end  
  82.   
  83.   def self.map_data_save(map_id,event)
  84.       $game_system.map_data[$game_map.map_id] = event           
  85.   end   

  86.   def self.map_data_load(map_id)
  87.       if !$game_system.map_data
  88.          $game_system.map_data = {}
  89.          self.map_data_init
  90.       end
  91.       return $game_system.map_data[map_id]      
  92.   end  
  93.    
  94.   def self.delete_events(event_id)
  95.       return unless self.is_map?     
  96.       $game_map.events.delete(event_id)
  97.       self.refresh_map
  98.   end
  99.    
  100.   def self.refresh_map
  101.       return unless self.is_map?
  102.       $scene.spriteset.dispose
  103.       $scene.spriteset = Spriteset_Map.new   
  104.   end
  105.    
  106.   def self.is_map?
  107.       (return true) if $scene.is_a?(Scene_Map)
  108.       return false
  109.   end

  110. end  

  111. class Game_Map
  112.   
  113.   def setup(map_id)
  114.       @map_id = map_id  
  115.       #@map = load_data(sprintf("Data/Map%03d.rxdata", @map_id))
  116.       @map = Drop_Item.map_data_load(@map_id)
  117.       tileset = $data_tilesets[@map.tileset_id]
  118.       @tileset_name = tileset.tileset_name
  119.       @autotile_names = tileset.autotile_names
  120.       @panorama_name = tileset.panorama_name
  121.       @panorama_hue = tileset.panorama_hue
  122.       @fog_name = tileset.fog_name
  123.       @fog_hue = tileset.fog_hue
  124.       @fog_opacity = tileset.fog_opacity
  125.       @fog_blend_type = tileset.fog_blend_type
  126.       @fog_zoom = tileset.fog_zoom
  127.       @fog_sx = tileset.fog_sx
  128.       @fog_sy = tileset.fog_sy
  129.       @battleback_name = tileset.battleback_name
  130.       @passages = tileset.passages
  131.       @priorities = tileset.priorities
  132.       @terrain_tags = tileset.terrain_tags
  133.       @display_x = 0
  134.       @display_y = 0
  135.       @need_refresh = false
  136.       @events = {}
  137.       for i in @map.events.keys
  138.         @events[i] = Game_Event.new(@map_id, @map.events[i])
  139.       end
  140.       @common_events = {}
  141.       for i in 1...$data_common_events.size
  142.         @common_events[i] = Game_CommonEvent.new(i)
  143.       end
  144.       @fog_ox = 0
  145.       @fog_oy = 0
  146.       @fog_tone = Tone.new(0, 0, 0, 0)
  147.       @fog_tone_target = Tone.new(0, 0, 0, 0)
  148.       @fog_tone_duration = 0
  149.       @fog_opacity_duration = 0
  150.       @fog_opacity_target = 0
  151.       @scroll_direction = 2
  152.       @scroll_rest = 0
  153.       @scroll_speed = 4
  154.   end
  155.    
  156. end

  157. class Interpreter
  158.   
  159.   def command_end
  160.       @list = nil
  161.       if @main and @event_id > 0
  162.          if $game_map.events[@event_id].event.name[/delete/].nil?
  163.             $game_map.events[@event_id].unlock            
  164.          else
  165.             if $scene.is_a?(Scene_Map)
  166.                Drop_Item.delete_events(@event_id)
  167.                now_map = Drop_Item.map_data_load($game_map.map_id)
  168.                now_map.events.delete(@event_id)
  169.                Drop_Item.map_data_save($game_map.map_id,now_map)              
  170.             end         
  171.          end         
  172.       end
  173.   end
  174.    
  175. end

  176. class Game_System
  177.   
  178.   attr_accessor :map_events_number            
  179.   attr_accessor :map_data            
  180.    
  181. end  

  182. class Scene_Map
  183.   
  184.   attr_accessor :spriteset            
  185.   
  186. end  
复制代码


低风险之简洁版
  1. #==============================================================================
  2. # ☆★☆ 提取放置物脚本(简洁) ☆★☆  
  3. #------------------------------------------------------------------------------
  4. # - 美兽
  5. # - 2007.4.12
  6. #------------------------------------------------------------------------------
  7. #  爱护环境,人人有责,现实中切勿乱丢垃圾。
  8. #------------------------------------------------------------------------------
  9. #------------------------------------------------------------------------------
  10. #  脚本原理:
  11. #  是从仓库地图中提取事件,将其拷贝放入指定的位置,
  12. #  依此达成随时随地生成新事件的功能,如此可节省大量用RGSS编写事件所消耗的体力,很多地方写的
  13. #  很保守,尽量减少冲突几率。。
  14. #  此为简洁版,场所移动后便清除。
  15. #------------------------------------------------------------------------------
  16. =begin
  17.                                 Note:
  18.   
  19. 一:生成物品主方法:
  20.     Drop_Item.make_events(map_id,event_id,item_x,item_y,save=false)
  21.     map_id : 仓库地图的ID。
  22.     event_id : 仓库中对应事件的ID。
  23.     item_x、item_y :新事件的X与Y坐标
  24.     save : 简洁版该参数无效。
  25.            
  26. 二:删除事件方法:
  27.     事件名若包含"delete"字段,则执行完毕会立即自我清除;
  28.     注:任何事件皆如此。

  29. 三:必掌握语句:
  30.     $game_map.events[@event_id]
  31.     $game_player
  32.     事件的脚本使用,表示“本事件”和“角色”,主要为取得事件的坐标,
  33.     取得“本事件”X与Y坐标:$game_map.events[@event_id].event.x
  34.                             $game_map.events[@event_id].event.y
  35.     取得“角色”X与Y坐标:$game_player.x
  36.                           $game_player.y                           
  37.     例如,在某事件左侧生成2号地图的2号事件并永久存储,写法如下。
  38.     x = $game_map.events[@event_id].event.x
  39.     y = $game_map.events[@event_id].event.y
  40.     Drop_Item.make_events(2,2,x-1,y,true)

  41. 四:备注:
  42.     因场所移动后新生成的事件会被消除,所以该功能相对适合ARPG的怪物掉宝功能。   

  43. =end
  44. #==============================================================================


  45. module Drop_Item
  46.   
  47.   def self.make_events(map_id,event_id,item_x,item_y,save=false)
  48.       return unless self.is_map?        
  49.       map = load_data(sprintf("Data/Map%03d.rxdata", map_id))     
  50.       temp = Marshal.load(Marshal.dump(map))      
  51.       if !$game_system.map_events_number
  52.          $game_system.map_events_number = {}
  53.       end  
  54.       sum = $game_system.map_events_number      
  55.       m_id = $game_map.map_id      
  56.       sum[m_id] == nil ? sum[m_id] = 2000 : sum[m_id] += 1
  57.       new_event_id = sum[m_id]      
  58.       temp.events[event_id].id = new_event_id      
  59.       temp.events[event_id].x,temp.events[event_id].y = item_x,item_y      
  60.       $game_map.events[new_event_id] = Game_Event.new(m_id,temp.events[event_id])
  61.       refresh_map   
  62.   end
  63.    
  64.   def self.delete_events(event_id)
  65.       return unless self.is_map?     
  66.       $game_map.events.delete(event_id)
  67.       self.refresh_map
  68.   end
  69.    
  70.   def self.refresh_map
  71.       return unless self.is_map?
  72.       $scene.spriteset.dispose
  73.       $scene.spriteset = Spriteset_Map.new   
  74.   end
  75.    
  76.   def self.is_map?
  77.       (return true) if $scene.is_a?(Scene_Map)
  78.       return false
  79.   end

  80. end  

  81. class Interpreter
  82.   
  83.   def command_end
  84.       @list = nil
  85.       if @main and @event_id > 0
  86.          if $game_map.events[@event_id].event.name[/delete/].nil?
  87.             $game_map.events[@event_id].unlock            
  88.          else
  89.             if $scene.is_a?(Scene_Map)
  90.                Drop_Item.delete_events(@event_id)            
  91.             end         
  92.          end         
  93.       end
  94.   end
  95.    
  96. end

  97. class Game_System
  98.   
  99.   attr_accessor :map_events_number            
  100.   attr_accessor :map_data            
  101.    
  102. end  

  103. class Scene_Map
  104.   
  105.   attr_accessor :spriteset            
  106.   
  107. end  
复制代码


范例工程:
ftp://[email protected]/个� ... ��_人人有责.rar

截图:



              [本贴由 叶舞枫 于 2007-4-29 19:42:44 进行了编辑]
纵然千里外,我等雁归来。

Lv1.梦旅人

月下可怜人

梦石
0
星屑
50
在线时间
10 小时
注册时间
2005-11-23
帖子
4085

第1届短篇游戏比赛亚军

2
 楼主| 发表于 2007-4-12 23:37:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
下载范例时,注意查毒

换个标题,实际就是个实现乱扔东西的脚本.

想过在牧场种花,种瓜,种豆了吗?
想过杀怪放火顺便搜刮怪脂怪膏了吗?
想过四处留情,千年后桃花依旧吗?

若米,请

  ↓
  ↓
  ↓

#------------------------------------------------------------------------------
#  爱护环境,人人有责,现实中切勿乱丢垃圾。
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
#  脚本原理:
#  是从仓库地图中提取事件,将其拷贝放入指定的位置,
#  依此达成随时随地生成新事件的功能,如此可节省大量用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)

四:备注:
    此脚本用法十分灵活,种植、建设、舍弃、掉宝等功能都可用以达成。   


可存储之强化版。

  1. #==============================================================================
  2. # ☆★☆ 提取放置物脚本(强化) ☆★☆  
  3. #------------------------------------------------------------------------------
  4. # - 美兽
  5. # - 2007.4.12
  6. #------------------------------------------------------------------------------
  7. #  爱护环境,人人有责,现实中切勿乱丢垃圾。
  8. #------------------------------------------------------------------------------
  9. #------------------------------------------------------------------------------
  10. #  脚本原理:
  11. #  是从仓库地图中提取事件,将其拷贝放入指定的位置,
  12. #  依此达成随时随地生成新事件的功能,如此可节省大量用RGSS编写事件所消耗的体力,很多地方写的
  13. #  很保守,尽量减少冲突几率。。
  14. #  此为强化版,可实现新事件的保存,但代价是冲突的随之增大,若只想单纯实现ARPG
  15. #  一类的物品掉落,场所移动后便清除,请使用简洁版。
  16. #------------------------------------------------------------------------------
  17. =begin
  18.                                 Note:
  19.   
  20. 一:生成物品主方法:
  21.     Drop_Item.make_events(map_id,event_id,item_x,item_y,save=false)
  22.     map_id : 仓库地图的ID。
  23.     event_id : 仓库中对应事件的ID。
  24.     item_x、item_y :新事件的X与Y坐标
  25.     save : 是否存储标志;
  26.            默认为false,即不存储,场所移动等转换场景后事件会消失;
  27.            true 为存储,取档、关机、登火星,返回后事件仍存在。
  28.            
  29. 二:删除事件方法:
  30.     事件名若包含"delete"字段,则执行完毕会立即自我清除;
  31.     注:任何事件皆如此。

  32. 三:必掌握语句:
  33.     $game_map.events[@event_id]
  34.     $game_player
  35.     事件的脚本使用,表示“本事件”和“角色”,主要为取得事件的坐标,
  36.     取得“本事件”X与Y坐标:$game_map.events[@event_id].event.x
  37.                             $game_map.events[@event_id].event.y
  38.     取得“角色”X与Y坐标:$game_player.x
  39.                           $game_player.y                           
  40.     例如,在某事件左侧生成2号地图的2号事件并永久存储,写法如下。
  41.     x = $game_map.events[@event_id].event.x
  42.     y = $game_map.events[@event_id].event.y
  43.     Drop_Item.make_events(2,2,x-1,y,true)

  44. 四:备注:
  45.     此脚本用法十分灵活,种植、建设、舍弃、掉宝等功能都可用以达成。   

  46. =end
  47. #==============================================================================


  48. module Drop_Item
  49.   
  50.   def self.make_events(map_id,event_id,item_x,item_y,save=false)
  51.       return unless self.is_map?        
  52.       map = self.map_data_load(map_id)      
  53.       temp = Marshal.load(Marshal.dump(map))      
  54.       if !$game_system.map_events_number
  55.          $game_system.map_events_number = {}
  56.       end  
  57.       sum = $game_system.map_events_number      
  58.       m_id = $game_map.map_id      
  59.       sum[m_id] == nil ? sum[m_id] = 2000 : sum[m_id] += 1
  60.       new_event_id = sum[m_id]      
  61.       temp.events[event_id].id = new_event_id      
  62.       temp.events[event_id].x,temp.events[event_id].y = item_x,item_y      
  63.       $game_map.events[new_event_id] = Game_Event.new(m_id,temp.events[event_id])
  64.       if save
  65.          now_map = self.map_data_load(m_id)
  66.          now_map.events[new_event_id] = temp.events[event_id]
  67.          self.map_data_save(m_id,now_map)
  68.       end  
  69.       refresh_map   
  70.   end
  71.    
  72.   def self.map_data_init   
  73.       for i in 1..999
  74.          begin
  75.            map = load_data(sprintf("Data/Map%03d.rxdata", i))
  76.          rescue Errno::ENOENT
  77.            next
  78.          end
  79.          $game_system.map_data[i] = Marshal.load(Marshal.dump(map))         
  80.       end
  81.   end  
  82.   
  83.   def self.map_data_save(map_id,event)
  84.       $game_system.map_data[$game_map.map_id] = event           
  85.   end   

  86.   def self.map_data_load(map_id)
  87.       if !$game_system.map_data
  88.          $game_system.map_data = {}
  89.          self.map_data_init
  90.       end
  91.       return $game_system.map_data[map_id]      
  92.   end  
  93.    
  94.   def self.delete_events(event_id)
  95.       return unless self.is_map?     
  96.       $game_map.events.delete(event_id)
  97.       self.refresh_map
  98.   end
  99.    
  100.   def self.refresh_map
  101.       return unless self.is_map?
  102.       $scene.spriteset.dispose
  103.       $scene.spriteset = Spriteset_Map.new   
  104.   end
  105.    
  106.   def self.is_map?
  107.       (return true) if $scene.is_a?(Scene_Map)
  108.       return false
  109.   end

  110. end  

  111. class Game_Map
  112.   
  113.   def setup(map_id)
  114.       @map_id = map_id  
  115.       #@map = load_data(sprintf("Data/Map%03d.rxdata", @map_id))
  116.       @map = Drop_Item.map_data_load(@map_id)
  117.       tileset = $data_tilesets[@map.tileset_id]
  118.       @tileset_name = tileset.tileset_name
  119.       @autotile_names = tileset.autotile_names
  120.       @panorama_name = tileset.panorama_name
  121.       @panorama_hue = tileset.panorama_hue
  122.       @fog_name = tileset.fog_name
  123.       @fog_hue = tileset.fog_hue
  124.       @fog_opacity = tileset.fog_opacity
  125.       @fog_blend_type = tileset.fog_blend_type
  126.       @fog_zoom = tileset.fog_zoom
  127.       @fog_sx = tileset.fog_sx
  128.       @fog_sy = tileset.fog_sy
  129.       @battleback_name = tileset.battleback_name
  130.       @passages = tileset.passages
  131.       @priorities = tileset.priorities
  132.       @terrain_tags = tileset.terrain_tags
  133.       @display_x = 0
  134.       @display_y = 0
  135.       @need_refresh = false
  136.       @events = {}
  137.       for i in @map.events.keys
  138.         @events[i] = Game_Event.new(@map_id, @map.events[i])
  139.       end
  140.       @common_events = {}
  141.       for i in 1...$data_common_events.size
  142.         @common_events[i] = Game_CommonEvent.new(i)
  143.       end
  144.       @fog_ox = 0
  145.       @fog_oy = 0
  146.       @fog_tone = Tone.new(0, 0, 0, 0)
  147.       @fog_tone_target = Tone.new(0, 0, 0, 0)
  148.       @fog_tone_duration = 0
  149.       @fog_opacity_duration = 0
  150.       @fog_opacity_target = 0
  151.       @scroll_direction = 2
  152.       @scroll_rest = 0
  153.       @scroll_speed = 4
  154.   end
  155.    
  156. end

  157. class Interpreter
  158.   
  159.   def command_end
  160.       @list = nil
  161.       if @main and @event_id > 0
  162.          if $game_map.events[@event_id].event.name[/delete/].nil?
  163.             $game_map.events[@event_id].unlock            
  164.          else
  165.             if $scene.is_a?(Scene_Map)
  166.                Drop_Item.delete_events(@event_id)
  167.                now_map = Drop_Item.map_data_load($game_map.map_id)
  168.                now_map.events.delete(@event_id)
  169.                Drop_Item.map_data_save($game_map.map_id,now_map)              
  170.             end         
  171.          end         
  172.       end
  173.   end
  174.    
  175. end

  176. class Game_System
  177.   
  178.   attr_accessor :map_events_number            
  179.   attr_accessor :map_data            
  180.    
  181. end  

  182. class Scene_Map
  183.   
  184.   attr_accessor :spriteset            
  185.   
  186. end  
复制代码


低风险之简洁版
  1. #==============================================================================
  2. # ☆★☆ 提取放置物脚本(简洁) ☆★☆  
  3. #------------------------------------------------------------------------------
  4. # - 美兽
  5. # - 2007.4.12
  6. #------------------------------------------------------------------------------
  7. #  爱护环境,人人有责,现实中切勿乱丢垃圾。
  8. #------------------------------------------------------------------------------
  9. #------------------------------------------------------------------------------
  10. #  脚本原理:
  11. #  是从仓库地图中提取事件,将其拷贝放入指定的位置,
  12. #  依此达成随时随地生成新事件的功能,如此可节省大量用RGSS编写事件所消耗的体力,很多地方写的
  13. #  很保守,尽量减少冲突几率。。
  14. #  此为简洁版,场所移动后便清除。
  15. #------------------------------------------------------------------------------
  16. =begin
  17.                                 Note:
  18.   
  19. 一:生成物品主方法:
  20.     Drop_Item.make_events(map_id,event_id,item_x,item_y,save=false)
  21.     map_id : 仓库地图的ID。
  22.     event_id : 仓库中对应事件的ID。
  23.     item_x、item_y :新事件的X与Y坐标
  24.     save : 简洁版该参数无效。
  25.            
  26. 二:删除事件方法:
  27.     事件名若包含"delete"字段,则执行完毕会立即自我清除;
  28.     注:任何事件皆如此。

  29. 三:必掌握语句:
  30.     $game_map.events[@event_id]
  31.     $game_player
  32.     事件的脚本使用,表示“本事件”和“角色”,主要为取得事件的坐标,
  33.     取得“本事件”X与Y坐标:$game_map.events[@event_id].event.x
  34.                             $game_map.events[@event_id].event.y
  35.     取得“角色”X与Y坐标:$game_player.x
  36.                           $game_player.y                           
  37.     例如,在某事件左侧生成2号地图的2号事件并永久存储,写法如下。
  38.     x = $game_map.events[@event_id].event.x
  39.     y = $game_map.events[@event_id].event.y
  40.     Drop_Item.make_events(2,2,x-1,y,true)

  41. 四:备注:
  42.     因场所移动后新生成的事件会被消除,所以该功能相对适合ARPG的怪物掉宝功能。   

  43. =end
  44. #==============================================================================


  45. module Drop_Item
  46.   
  47.   def self.make_events(map_id,event_id,item_x,item_y,save=false)
  48.       return unless self.is_map?        
  49.       map = load_data(sprintf("Data/Map%03d.rxdata", map_id))     
  50.       temp = Marshal.load(Marshal.dump(map))      
  51.       if !$game_system.map_events_number
  52.          $game_system.map_events_number = {}
  53.       end  
  54.       sum = $game_system.map_events_number      
  55.       m_id = $game_map.map_id      
  56.       sum[m_id] == nil ? sum[m_id] = 2000 : sum[m_id] += 1
  57.       new_event_id = sum[m_id]      
  58.       temp.events[event_id].id = new_event_id      
  59.       temp.events[event_id].x,temp.events[event_id].y = item_x,item_y      
  60.       $game_map.events[new_event_id] = Game_Event.new(m_id,temp.events[event_id])
  61.       refresh_map   
  62.   end
  63.    
  64.   def self.delete_events(event_id)
  65.       return unless self.is_map?     
  66.       $game_map.events.delete(event_id)
  67.       self.refresh_map
  68.   end
  69.    
  70.   def self.refresh_map
  71.       return unless self.is_map?
  72.       $scene.spriteset.dispose
  73.       $scene.spriteset = Spriteset_Map.new   
  74.   end
  75.    
  76.   def self.is_map?
  77.       (return true) if $scene.is_a?(Scene_Map)
  78.       return false
  79.   end

  80. end  

  81. class Interpreter
  82.   
  83.   def command_end
  84.       @list = nil
  85.       if @main and @event_id > 0
  86.          if $game_map.events[@event_id].event.name[/delete/].nil?
  87.             $game_map.events[@event_id].unlock            
  88.          else
  89.             if $scene.is_a?(Scene_Map)
  90.                Drop_Item.delete_events(@event_id)            
  91.             end         
  92.          end         
  93.       end
  94.   end
  95.    
  96. end

  97. class Game_System
  98.   
  99.   attr_accessor :map_events_number            
  100.   attr_accessor :map_data            
  101.    
  102. end  

  103. class Scene_Map
  104.   
  105.   attr_accessor :spriteset            
  106.   
  107. end  
复制代码


范例工程:
ftp://[email protected]/个� ... ��_人人有责.rar

截图:



              [本贴由 叶舞枫 于 2007-4-29 19:42:44 进行了编辑]
纵然千里外,我等雁归来。

Lv3.寻梦者 (暗夜天使)

精灵族の天使

梦石
0
星屑
1697
在线时间
3038 小时
注册时间
2007-3-16
帖子
33731

开拓者贵宾

3
发表于 2007-4-12 23:40:20 | 只看该作者
支持……这样就可以制作bomberman里面的随机掉宝物的砖头了。
回复 支持 反对

使用道具 举报

头像被屏蔽

Lv1.梦旅人 (禁止发言)

梦石
0
星屑
50
在线时间
0 小时
注册时间
2006-3-3
帖子
50
4
发表于 2007-4-13 00:41:13 | 只看该作者
火星人探訪中國,敬禮!!!{/feid}
回复 支持 反对

使用道具 举报

Lv1.梦旅人

风雪夜不归人

梦石
0
星屑
50
在线时间
276 小时
注册时间
2006-3-7
帖子
6721

贵宾

5
发表于 2007-4-13 01:02:14 | 只看该作者
谢谢美兽大人……您的宝箱教育我都一直收藏着~~又出新东西了~~好高兴!
下来研究!
有些人,到了七八月份就会诈尸。
宫斗,是女生永远的爱。
冷门,是本人不变的欲。
作弊,是玩家自由的痛。
练级,是橙光割舍的情。
回复 支持 反对

使用道具 举报

Lv1.梦旅人

彩色的银子

梦石
0
星屑
50
在线时间
190 小时
注册时间
2006-6-13
帖子
1361

贵宾

6
发表于 2007-4-13 01:08:28 | 只看该作者

原来是这样啊````新开一个地图做仓库用``
-___-~||以前我是直接把地图里的事件给存进Save里的说.....{/gg}
-.-
回复 支持 反对

使用道具 举报

Lv1.梦旅人

月下可怜人

梦石
0
星屑
50
在线时间
10 小时
注册时间
2005-11-23
帖子
4085

第1届短篇游戏比赛亚军

7
 楼主| 发表于 2007-4-13 02:28:47 | 只看该作者
以下引用神思于2007-4-12 17:08:28的发言:


原来是这样啊````新开一个地图做仓库用``
-___-~||以前我是直接把地图里的事件给存进Save里的说.....


??现在也是将新事件存在Save里。
仓库是用来放置拷贝用的源事件,毕竟拿RGSS书写复杂的事件太ORZ了。
纵然千里外,我等雁归来。
回复 支持 反对

使用道具 举报

Lv1.梦旅人

本尊<

梦石
0
星屑
50
在线时间
2 小时
注册时间
2006-11-21
帖子
799

贵宾

8
发表于 2007-4-13 22:34:55 | 只看该作者
这个好啊,我的及时战略又有加强了
黑羽毛
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
451
在线时间
127 小时
注册时间
2006-11-2
帖子
1200
9
发表于 2007-4-14 06:53:04 | 只看该作者
那天本来想尝试下的 在学校机房刚写个开头让BOSS发现了。。美兽殿已经搞定了啊
呵呵 非常有用的东东呢`
和记忆一起封存着的ID...
回复 支持 反对

使用道具 举报

Lv1.梦旅人

邪恶小龙包

梦石
0
星屑
55
在线时间
17 小时
注册时间
2006-5-22
帖子
7006

第2届短篇游戏比赛冠军第3届短篇游戏大赛小游戏及其他组冠军RMVX自由创作大赛冠军

10
发表于 2007-4-14 06:58:42 | 只看该作者
美兽果然是超人也……论坛上非人生物还真多……拜服……
版主对此帖的认可:『比如您就是龙』,积分『+1』。
虚无  堕落
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

拿上你的纸笔,建造一个属于你的梦想世界,加入吧。
 注册会员
找回密码

站长信箱:[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2024-11-21 16:35

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表