【20v】动态生成事件脚本求转换（处处留情转VX）

★PIG★ · 发表于 2011-5-28 20:31:47

本帖最后由 ★PIG★ 于 2011-5-28 23:58 编辑

郁闷着XP这么实用的脚本VX竟然米有，
于是乎想将某xp大坑移植到vx的计划遭到阻拦……（额，貌似就偏偏差这玩意没移植vx成功吧）
--------------------------------------------------------------------------
理想答案：
处处留情脚本移植VX
原XP脚本：

爱护环境_人人有责.rar (594.98 KB, 下载次数: 169)
--------------------------------------------------------------------------
或者能够实现相同功能的脚本……（某夏娜动态生成事件生成脚本已经其演示版果断无用）
--------------------------------------------------------------------------
扔上来也可以扔到我的邮箱也可以（邮箱：[email protected]）

一箭烂YiJL · 发表于 2011-5-28 20:31:48

我说...主要是Game_Map的setup和envets.event的问题...
这是(注释什么的没修改，注意事件脚本的改变)：

爱护环境, 人人有责(VX).zip (265.3 KB, 下载次数: 153)

一瞬间的幻觉 · 发表于 2011-5-28 21:06:39

呼叫剑兰童鞋

越前リョーマ · 发表于 2011-5-28 21:16:20

那个脚本的确很有用，不过总觉得有点麻烦或者偷懒一直没用过 =3=

诡异の猫 · 发表于 2011-5-28 22:42:01

本帖最后由诡异の猫于 2011-5-28 22:56 编辑

不值20V啊- - 这个脚本可以说XP和VX基本上是兼容的...只是两三个方法写法上有点不一样而已- -|||
使用方法和XP只是代码表示上有点差异，已在NOTE第3点写明

#==============================================================================
# ☆★☆ 提取放置物脚本（强化）VX版 ☆★☆
#------------------------------------------------------------------------------
# - 美兽
# - 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"字段，则执行完毕会立即自我清除;
注：任何事件皆如此。
三：必掌握语句：（VX版与XP版有区别）
$game_map.events[@event_id]
$game_player
事件的脚本使用，表示“本事件”和“角色”，主要为取得事件的坐标，
取得“本事件”X与Y坐标：$game_map.events[@event_id].x
$game_map.events[@event_id].y
取得“角色”X与Y坐标：$game_player.x
$game_player.y
例如，在某事件左侧生成2号地图的2号事件并永久存储,写法如下。
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,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.rvdata", 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 = Drop_Item.map_data_load(@map_id)
@display_x = 0
@display_y = 0
@passages = $data_system.passages
referesh_vehicles
setup_events
setup_scroll
setup_parallax
@need_refresh = false
end
end
class Game_System
attr_accessor :map_events_number
attr_accessor :map_data
end
class Scene_Map
attr_accessor :spriteset
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

复制代码

★PIG★ · 发表于 2011-5-28 23:49:07

呼……解决，感谢各位帮助，没什么值不值的帮了就是帮了，楼下私人转2V酬谢

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

[已经解决] 【20v】动态生成事件脚本求转换（处处留情转VX）

最佳答案

点评

点评

点评

点评

点评

贵宾

第6届短篇游戏比赛季军

开拓者

第3届短篇游戏大赛主流游戏组亚军

第5届短篇游戏比赛亚军