提取放置物脚本

qq1138614929 · 发表于 2012-4-19 20:59:15

本帖最后由 qq1138614929 于 2012-4-19 21:00 编辑

我用的是完整版的为什么第119行错误呀
本人不会脚本那位大大说下谢谢

qq1138614929 · 发表于 2012-4-23 18:31:13

sai90306 发表于 2012-4-23 00:43
我用的是這個試試看如何?

能否给个范例

‘‘──qq1138614929于2012-4-23 22:28补充以下内容

如何事件永久存儲呀
做素材用Adobe Photoshop CS这个可以吗
’’

‘‘──qq1138614929于2012-4-25 16:27补充以下内容

谢谢了

’’

sai90306 · 发表于 2012-4-23 00:43:06

本帖最后由 sai90306 于 2012-4-25 00:52 编辑

qq1138614929 发表于 2012-4-20 21:57
这么能保存事件呀
场所移动就消失了

我用的是這個試試看如何?

#==============================================================================
# ☆★☆ 提取放置物腳本（強化） ☆★☆
#------------------------------------------------------------------------------
# - 美獸
# - 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)
四：備註：
此腳本用法十分靈活，種植、建設、捨棄、掉寶等功能都可用以達成。
=end
#==============================================================================
module Drop_Item
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.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[$game_map.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($game_map.map_id)
now_map.events.delete(@event_id)
Drop_Item.map_data_save($game_map.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

复制代码

應LZ要求放上範例

Project1.rar (183.83 KB, 下载次数: 36)

修正後的範例

Project0.rar (189.98 KB, 下载次数: 72)

qq1138614929 · 发表于 2012-4-20 21:57:53

end55rpg 发表于 2012-4-20 18:24
@qq1138614929用这个我修改过的吧
内制新的方法，在复制大量事件的时候，防止卡很久：
Drop_Item.set_event ...

这么能保存事件呀
场所移动就消失了

‘‘──qq1138614929于2012-4-21 18:06补充以下内容

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

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

=end
#==============================================================================

module Drop_Item

  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.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 = Marshal.load(Marshal.dump(map))
   end
  end

  def self.map_data_save(map_id,event)
   $game_system.map_data[$game_map.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
  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 = Game_Event.new(@map_id, @map.events)
   end
   @common_events = {}
   for i in 1...$data_common_events.size
      @common_events = 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($game_map.map_id)
            now_map.events.delete(@event_id)
            Drop_Item.map_data_save($game_map.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

’’

‘‘──qq1138614929于2012-4-22 22:08补充以下内容

‘‘──qq1138614929于2012-4-21 18:06补充以下内容

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

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

=end
#==============================================================================

module Drop_Item

  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.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 = Marshal.load(Marshal.dump(map))
   end
  end

  def self.map_data_save(map_id,event)
   $game_system.map_data[$game_map.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
  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 = Game_Event.new(@map_id, @map.events)
   end
   @common_events = {}
   for i in 1...$data_common_events.size
      @common_events = 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($game_map.map_id)
            now_map.events.delete(@event_id)
            Drop_Item.map_data_save($game_map.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

’’

end55rpg · 发表于 2012-4-20 18:24:00

@qq1138614929

module Drop_Item
def self.make_events(map_id,event_id,item_x,item_y,save=false)
return unless self.is_map?
map = load_data(sprintf("Data/Map%03d.rxdata", 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])
refresh_map
end
#
def self.set_event(map_id,event_id,item_x,item_y,times)
return unless self.is_map?
map = load_data(sprintf("Data/Map%03d.rxdata", map_id))
sum = 1999
for i in 0..times-1
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 += 1
new_event_id = sum
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])
end
refresh_map
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 Interpreter
def commands_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)
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

复制代码

用这个我修改过的吧
内制新的方法，在复制大量事件的时候，防止卡很久：
Drop_Item.set_event(map_id,event_id,item_x,item_y,times)
仓库地图,事件ID,出生X,出生Y,数量

Wind2010 · 发表于 2012-4-20 17:17:38

请确定下指令中的仓库地图是否存在

sai90306 · 发表于 2012-4-19 23:54:54

本帖最后由 sai90306 于 2012-4-20 01:09 编辑

這腳本我也有用超愛!可是沒遇到問題
能請LZ把工程放上來嗎?簡單的我可以幫忙看看

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

[已经解决] 提取放置物脚本

点评

点评

点评

点评

点评

点评

开拓者