真の精灵使者的总部时空

【不是创意的创意】字符密码生成器v1.5（2012年4月29日更新）

真_精灵使者 — Fri, 03 Feb 2012 15:08:23 +0800

精灵最近对密码产生了兴趣，于是精灵开始做随机序列生成器——密码符合复杂度要求的那种。

于是这个生成器每次运行可以生成一组密码，配合姓名输入处理就可以做一批更加复杂的解密密码输入器了……

嗯，就酱紫。

1.5整合了两种算法，提高灵活性

1.3-1.4 增添一个计算算法

1.2版更新：增加了复杂度认证。小于六位的密码将直接报告过短。

1.1版更新：完全简化了代码的生成方式

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

#随机密码生成器v1.5

#创意：orzfly，禾西修改并优化：精灵

#1.1版更新：完全简化了代码的生成方式

#1.2版更新：增加了复杂度认证。小于六位的密码将直接报告过短。

#1.3-1.4 增添一个计算算法

#1.5整合了两种算法，提高灵活性

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

#必要参数

Specialnum = [*33..47]+[*58..64]+[*91..96]+[*123..126]

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

# length: 密码长度

# type:计算类型

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

def rand_password(length = 6,type = 0)

#密码过短提示

return "length is too short!" if length < 6

#获取必要的方法参数

if type = 0

length < 12 ? @pastype = 1 : @pastype = 2

else

@pastype = type

end

case @pastype

when 1

#计算算法，适合短密码

chrArr = []

chrArr << (48+rand(10)).chr

chrArr << (65+rand(26)).chr

chrArr << (97+rand(26)).chr

chrArr << Specialnum[rand(Specialnum.size)].chr

chrArr.delete_at(rand(4))

(length-3).times{chrArr << (33+rand(93)).chr}

ret = ""

for i in 0...length

ret += chrArr.delete_at(rand(length-i))

end

return ret

when 2

#校验算法，适合长密码

loop do

str_type = 0

ret = ''

ret = Array.new(length).inject(''){|str,x| str+(33+rand(93)).chr}

str_type += 1 if re.index(/[A-Z]/)

str_type += 1 if re.index(/[a-z]/)

str_type += 1 if re.index(/\d/)

str_type += 1 if re.index(/[^\w]/)

return ret if str_type > 2

end

else

#意外出错返回

return "Type Error!"

end

代码使用方法：插入main之前使用。

调用方法：
random_password(你需要的字符长度)，默认为6位

复杂度要求：大写，小写，字符，数字四者至少选3个。

另外再附上一个随机顺序生成器……

#===============================================================
#随机顺序生成器v1.1
#创意：orzfly
#===============================================================
def shufflerange(len = 6)
(1..len).to_a.sort_by{rand}
end

用法 shufflerange(你需要的字符长度）

【不是创意的创意】RM内存自动清理脚本（XP&VX） v 1.00

真_精灵使者 — Fri, 03 Feb 2012 15:03:30 +0800

以前夏娜的10s脚本使用线程的创意启发而来
最近发现RM游戏会占用越来越高的内存。
使用线程原理，定期使用GC.start来清理内存，可以有效的解决吃内存现象。
使用方法：直接插入脚本最上面即可

更新日志：
2011年11月21日发布原版
参数说明：
GC_FREQ = 1 #清理内存的频率（如果卡机，请调大清理频率，默认1秒整理1次）
GC_TRANSITION = true #场景变换的时候是否立即清理（推荐开启，转移的时候清理掉上次地图的内容，减少卡机）

############################################################################
# RM内存自动清理脚本（XP&VX） v 1.00
# 作者：精灵使者创意：夏娜各种压力的猫君
# 按惯例，此类脚本应该放在最上面，就会自动工作。
# 使用方法：直接插入脚本的最上面即可
# 如果感觉卡机，请修改GC_FREQ
############################################################################
#--------------------------------------------------------------------------
# ● 设定部分
#--------------------------------------------------------------------------
module GC_CLEAR
GC_FREQ = 1 #清理内存的频率（如果卡机，请调大清理频率，默认1秒整理1次）
GC_TRANSITION = true #场景变换的时候是否立即清理，默认开启
end
#--------------------------------------------------------------------------
# ● 创建自动清理线程
#--------------------------------------------------------------------------
if @gc_thread.nil?
@gc_thread = Thread.new{loop{GC.start;sleep(GC_CLEAR::GC_FREQ)}}
end
#--------------------------------------------------------------------------
# ● 场景变换时清理部分
#--------------------------------------------------------------------------
class << Graphics
alias origin_transition transition unless method_defined? :origin_transition
alias origin_freeze freeze unless method_defined? :origin_freeze

def transition(*args)
origin_transition(*args)
GC.start if GC_CLEAR::GC_TRANSITION
end
def freeze
origin_freeze
GC.start if GC_CLEAR::GC_TRANSITION
end
end

【不是创意的创意】RMVX不用任何脚本实现A+B循环。

真_精灵使者 — Tue, 15 Nov 2011 22:45:28 +0800

要求是ogg文件，如果不是可以用格式工厂等转换。
然后需要的工具推荐：SoundForge9.0汉化，Foobar2000（百度有下）
如果你有SoundForge的话应该能帮你的忙。
用SoundForge打开相应的音乐，选中你需要循环的部分。
这一点一定要选好，因为胜败就在此一举了。
选好以后就直接菜单-专用-编辑样本

选择sample以后，记下开始和长度的两个值。
然后关闭Soundforge，
再用某个可以编辑ID3的信息的播放器（千千静听，foobar）等，打开音乐信息-注释，添加新字段
以FOOBAR为例，
用foobar打开-属性-工具-添加新字段

名：LOOPSTART 值：刚才给的起始点数字
名：LOOPLENGTH 值：刚才给的长度数字
保存，退出。
好了，这样就可以在RMVX里面测试效果了。
注意，仅RMVX有效。
如果循环长度不对或者错位的话，那么就是长度和起始值错了，可以用SoundForge来准确判断（你可以反复试听直到准确），然后照猫画老虎重新采样改变量即可。

【不是创意的创意】锁定移动并读取方向

真_精灵使者 — Tue, 15 Nov 2011 22:41:48 +0800

应某些人所求做了这个脚本。应该能实现基本功能了。
打开指定的开关，角色移动锁定，并读取方向值到一指定的变量里。
恩，我设置了关闭开关以后会自动清除方向变量的值。
就酱紫，上脚本！

猫君更新：即使没有使用8方向移动脚本依然可以读取8方向

#==============================================================================
# ■ 锁定移动并读取方向键到变量 v1.0_4改
#------------------------------------------------------------------------------
# 　创意：炽幻原版：精灵使者　修改：各种压力的猫君
#------------------------------------------------------------------------------
#   改版特点：
#   拥有原版的全部功能，并在此基础上扩展读取0值和8方向的选项，
#   是否读取0值和读取4方向或8方向均可在游戏运行时设定。
#   如果你使用了八方向移动脚本，请将本脚本置于八方向脚本以下。
#------------------------------------------------------------------------------
#   2011-10-24 v1.0_4改修复了移动的时候没有及时刷新地图的bug
#   2011-10-24 v1.0_3改扩充为8方向读取（可选）
#   2011-10-24 v1.0_2改完善注释，继续简化脚本，考虑到需要修改的
#                        情况，将读取值设定由常量变更为全局变量。
#   2011-10-24 v1.0_改   大幅简化脚本，新增是否读取0值的设定。
#   2011-10-23 v1.0      原版 by 精灵使者
#------------------------------------------------------------------------------
#   数字的方向对应：（0表示无方向键按下）
#   ７８９　↖↑↗
#   ４０６　←　→
#   １２３　↙↓↘
#==============================================================================
module LOCK_CHAR
# 开启脚本功能的开关编号
LOCK_SWITCH = 1
# 方向键值带入的变量编号
DIRECTION_VARIABLE = 1
# 读取值设定（1:读取所有值 2:读取除0的值）
$lock_char_read_type1 = 1
# 读取方向设定（4:四方向 8:八方向）
$lock_char_read_type2 = 8
end
#==============================================================================
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# ● 方向键移动处理
#--------------------------------------------------------------------------
alias old_move_by_input move_by_input
def move_by_input
#==============================================================================
    # 若开关被打开，本脚本开始工作
    if $game_switches[LOCK_CHAR::LOCK_SWITCH]
      # 读取4方向的情况
      if $lock_char_read_type2 == 4
        lock_char_read = Input.dir4
      # 读取8方向的情况
      elsif $lock_char_read_type2 == 8
        lock_char_read = Input.dir8
      end
      # 将方向键操作带入变量
      # 但脚本使用类型设为2且当前无按键按下（值为0）的情况除外
      $game_variables[LOCK_CHAR::DIRECTION_VARIABLE] = lock_char_read unless lock_char_read == 0 and $lock_char_read_type1 == 2
         #必要的情形刷新地图
     $game_map.need_refresh = true
         # 返回（不移动）
      return
    end
#==============================================================================
    old_move_by_input
end
end

效果图：

日记[2011年11月15日]

真_精灵使者 — Tue, 15 Nov 2011 10:57:40 +0800

好久没写更新日记了，大概是因为生活的原因吧。

精灵的店已经关闭了两个多月了，我渐渐地转移到了乡下而继续工作。

梦想逐渐的被生活所侵蚀了，恐怕是被山羊差不多都快吃掉了吧。

还好我有颗精灵之魂在，否则我估计整个都被侵蚀掉了。

最近6R也心事重重啊。御灵，仙剑和葬花君3个管理员+版主一起辞职，所以整个6R都冷清下来了嗯。

看来6R的2012恐怕要提前的来了啊。

最近RM工作也完全暂停，进度没有一点进展——等我稳定下来以后再全力制作吧，嗯。

这似乎就是现在的6R与梦想世界的真实写照。
又想起了曾经的九泪他们，不知道是否安好。

估计他们会在历史中找到自己的位置的。

阿门。

好吧，放下不表。

另外的情况就是——RMVA似乎准备发布了，不过我先不慌着跟进呢——以前的RMVX事件我还一直都记着呢。嗯，就这样。

P.S.博客这次进入缓慢，莫非我以后必须要用加速器才可以进入？

教你如何卸载iku加速器（完美卸载，不再出现）

真_精灵使者 — Tue, 18 Oct 2011 22:13:12 +0800

想当年大家都为了那个可恶的iku加速器而苦恼吧，而且那个也是吃cpu的最大元凶。可恶的最新版居然默认全都安装了，好吧，这次我就教大家如何完美卸载。

网上流传的那些方法中那个ikucmc那个东西虽然在后台运行的，但是那不是加速器文件，千万不能删除——一旦删除，你就永远无法进入爱酷的设置页面。

好吧，闲话少说，那么开始咯。

1.按照正常方式安装好爱酷，请不要启动任何程序，包括加速器。

2.在启动主程序的设置页面之前，进入你安装的目录，然后删除这个文件

X:\Program Files\YouKu\common\ikuacc.exe

仅仅把这个文件删除就好。如果有下面的文件请一并删除

X:\Program Files\YouKu\common\ikuacc.dat

X:\Program Files\YouKu\Youku Files\ikudisk

切记：再删除之前，请不要进入任何爱酷的主页面和启动加速器！

由于这个文件没有运行，所以轻松KO。

删除以后，你再进入爱酷，然后进入设置，你发现什么了？

设置部分和默认的设置框起了巨大变化——关于加速器的设置全部消失了！

OK。卸载成功，欢乐的使用吧，不会再受到加速器的打扰了。

如果你没有删除文件的话，你会发现设置部分还依然保留加速器的设置——好吧，你的卸载失败了——即使是这个时候再删除，设置部分还依然存在。好吧，完全卸载，重新从第一步开始做。

记着，每次版本更新都要重新安装并删除ikuacc.exe这个文件后再执行主程序和设置。

你看，这不是很好么？

注：有的时候多了个图标，可以用快捷键CTRL+ALT+J来取消（这个默认里面有写，删除以后不再提示了，但是热键依然有效）

日记[2011年8月10日]

真_精灵使者 — Wed, 10 Aug 2011 14:53:06 +0800

最近这几天真热，电扇又坏了，而且一切都变得十分混乱……所以游戏龟速前进中不解释。

前两天我生日刚刚过去……所以精灵又老了一岁啊。感觉时间越来越紧张了恩。

6R那边也是困难重重，这边fux2一直都在面对删帖纠纷，那边熊的选民和天圣的马甲，回转寿司在精品区部分冲突多多，后来马甲辞职了，熊的选民也被剥夺游戏区版职位，精品区也最后被撤销。

最近流行辞职风，一大部分版主全都辞职了，从八云，Deathking等一批技术区版主等，纷纷辞职下嫁……恩恩，不题。

今天刚发生的事，某大神又在版务区发什么火锅广告，被御灵封掉了，于是就在QQ里面质问原因什么的。

这种事情我早就不想管理那么多了。于是果断的将大神加入黑名单不解释。灵子说，本来这个人来是想放他一马的，可是在版务区广告那就没啥好说的了。再加上大范围语言攻击要挟，罪加一等。建议永久封禁不题。

最近正在忙着准备关店——下个月家里恐怕要全部拆掉了。所以就准备拆房中，网络也恐怕要中断一段时间（铁通已经断网了），请大家见谅。

今天就到这里吧。

【不是创意的创意】识别版本号的接入包v1.4(2011年7月30日）

真_精灵使者 — Sat, 30 Jul 2011 23:26:38 +0800

此脚本可以识别出是在XP，VX和RGE下运行，同时还可以判断版本号。
没有任何效果，仅留关键变量供其他脚本使用。如果使用的话请放到要使用脚本的上方。
更新日志：
2011年7月30日
v1.4更新
增加了其他版本不需要默认RTP的场合的处理。
v1.3更新
增加了默认RTP是否存在 DEF_RTP_EXIST
v1.2更新
更新了算法，使其更加明白清晰。
更改了常量入口的名字，防止误解
增添了新常量：NO_RTP来判定是否脱离RTP
v1.1更新
大幅度优化了代码，提高了计算效率。（感谢fux2)
修正了正式游戏中无法获取变量的BUG。（感谢⑨、FUX2和秋庭里香）
2011年7月28日
发布版本1.0
脚本如下：

#############################################################################
#
# 检测运行环境脚本v1.4 by 精灵使者
#
# 感谢⑨ 忧雪君 fux2 秋庭里香 david50407 改进脚本
#
# 编码转换和寻找RTP 感谢 david50407
#
# 更新了其他的版本不需要RTP时候的场合判定。
# 修正了正式游戏的时候无法正常判断常量的BUG。
# 修正了常量名和规则，增添一个入口常量。
# 添加了RTP是否存在，感谢david50407
#
# 常量名单有：
# 操作版本            FAY::PLATFORM              RMXP/RMVX/RGE/UNKNOWN
# 版本号              FAY::PLATFORM_VER          版本号
# DLL使用语言         FAY::DLL_LANGUAGE          Japan/English
# 测试开关            FAY::TESTMODE              ON/OFF
# RGSS版本            FAY::RGSS_VER              RGSS/RGSS2/RGE/UNKNOWN
# 是否脱离RTP         FAY::NO_RTP                YES/NO/NONEED
# 对应的RTP是否存在   FAY::DEF_RTP_EXIST         YES/NO/NONEED
#
#############################################################################

#获取顶层变量

KEY = self

#==============================================================================
# ■ String
#------------------------------------------------------------------------------
# 　字符串类。可处理任意长度的字节串。（追加编码转换的定义）
#==============================================================================

class String
#--------------------------------------------------------------------------
# ● 用来编码Ruby 字符串、解码unicode 的两个Windows API 函数
#--------------------------------------------------------------------------
@@MultiByteToWideChar = Win32API.new("kernel32", "MultiByteToWideChar", ['I', 'L', 'P', 'I', 'P', 'I'], 'I')
@@WideCharToMultiByte = Win32API.new("kernel32", "WideCharToMultiByte", ['I', 'L', 'P', 'I', 'P', 'I', 'P', 'P'], 'I')
#--------------------------------------------------------------------------
# ● 返回将Ruby UTF-8 字符串对象（本身）编码为unicode 后的字符串
#--------------------------------------------------------------------------
def to_unicode
    len = @@MultiByteToWideChar.call(65001, 0, self, -1, 0, 0) << 1
    buf =" " * len
    # 65001: UTF-8 字符集编码（代码页）
    @@MultiByteToWideChar.call(65001, 0, self, -1, buf, len)
    return buf
end
#--------------------------------------------------------------------------
# ● 返回将编码为unicode 的字符串对象（本身）解码为UTF-8 后的字符串
#--------------------------------------------------------------------------
def to_UTF8
    len = @@WideCharToMultiByte.call(65001, 0, self, -1, 0, 0, 0, 0)
    buf =" " * len
    @@WideCharToMultiByte.call(65001, 0, self, -1, buf, len, 0, 0)
    # 去掉'\0' 字符串结束符（因为转换之后仅仅用于Ruby 字符串）
    buf.slice!(-1, 1)
    return buf
end
end

#============================================================================
#
# 检索RTP
#
#============================================================================

#必要的API

RegOpenKeyEx = Win32API.new('advapi32', 'RegOpenKeyEx', 'lpiip', 'l')
RegQueryValueEx = Win32API.new('advapi32', 'RegQueryValueExW', 'lppppp', 'l')
RegCloseKey = Win32API.new('advapi32', 'RegCloseKey', 'l', 'l')

#寻找RTP (XP = RMXP，VX = RMVX）

def findRTPs(value,*args)
    rtpexist = false
    hKey = '    '
    case value
     when "RMXP"
      RegOpenKeyEx.call(-2147483646, 'SOFTWARE\Enterbrain\RGSS\RTP', 0, 0x20019 | 0x0200, hKey)
     when "RMVX"
      RegOpenKeyEx.call(-2147483646, 'SOFTWARE\Enterbrain\RGSS2\RTP', 0, 0x20019 | 0x0200, hKey)
     end
    hKey = hKey.unpack('l')[0]
    for rtp in args
      data, cbData = '    ' * 32, [128].pack('l')
      RegQueryValueEx.call(hKey, rtp.to_unicode, 0, 0, data, cbData)
      rtpexist = (data == '    ' * 32) ? false : true
    end
    RegCloseKey.call(hKey)
    return rtpexist
end

#============================================================================
#
# 定义模块
#
#============================================================================
module FAY

#必要的API

GetCommandLine = Win32API.new("kernel32.dll", "GetCommandLine","v","p")
Readini = Win32API.new('kernel32.dll', 'GetPrivateProfileStringA', %w(p p p p l p),'l')

#获取命令行和文件名

@uw = File.basename(GetCommandLine.call()).gsub(/(.*)\"(.*)/){$1+$2}

#读取测试状态

@test = @uw.split()[1].nil? ? "null" : @uw.split()[1]

#生成ini文件名

@ini_name = @uw.split(".")[0] + ".ini"

#从ini读取RGSSdll和RTP名称

@library = "\0" * 256
Readini.call('Game','Library','',@library,255,".\\"+@ini_name)
@library.delete!("\0")
@rtp = "\0" * 256
Readini.call('Game','RTP','',@rtp,255,".\\"+@ini_name)
@rtp.delete!("\0")
@rtp1 = "\0" * 256
Readini.call('Game','RTP1','',@rtp1,255,".\\"+@ini_name)
@rtp1.delete!("\0")
@rtp2 = "\0" * 256
Readini.call('Game','RTP2','',@rtp2,255,".\\"+@ini_name)
@rtp2.delete!("\0")
@rtp3 = "\0" * 256
Readini.call('Game','RTP3','',@rtp3,255,".\\"+@ini_name)
@rtp3.delete!("\0")

#获取文件参数

@ver = (@library.split("RGSS")[1]).split(".")[0]
verlist = {"J"=>"Japan","E"=>"English"}
oslist = {"1"=>"RMXP","2"=>"RMVX"}
PLATFORM = oslist[@ver[0,1]] ? oslist[@ver[0,1]] : (@ver[/RGE/] ? "RGE": "OTHER")
PLATFORM_VER = @ver.insert(1, ".")[0,4]
DLL_LANGUAGE = verlist[@ver[-1,1]] ? verlist[@ver[-1,1]] : (@ver[/RGE/] ? "Japan" : "UNKNOWN")

#获取RTP是否脱离

if PLATFORM == "RMXP"
NO_RTP = (@rtp1 == "" and @rtp2 == "" and @rtp3 == "") ? "YES" : "NO"
else
if PLATFORM == "RMVX"
NO_RTP = @rtp == "" ? "YES" : "NO"
else
NO_RTP = "NONEED"
end
end

#测试模式

TESTMODE = ((@test.split == ["test"] or @test.split == ["debug"])) ? "ON" : "OFF"

#RGSS版本

RGSS_VER = KEY ? "RGSS2" : (Module.constants.include?('RGE') ? "RGE" : "RGSS")

#RTP检测

@rtp_name = "Standard" if PLATFORM == "RMXP"
@rtp_name = "RPGVX" if PLATFORM == "RMVX"

if PLATFORM == "RMXP" or PLATFORM == "RMVX"
DEF_RTP_EXIST = findRTPs(PLATFORM,@rtp_name) ? "YES" : "NO"
else
DEF_RTP_EXIST = "NONEED"
end
end

可以用以下脚本测试常量：

p "PLATFORM = " + FAY::PLATFORM,"PLATFORM_VER = " + FAY::PLATFORM_VER,"DLL_LANGUAGE = " +
FAY::DLL_LANGUAGE,"TESTMODE = " + FAY::TESTMODE,"RGSS_VER = " + FAY::RGSS_VER, "NO_RTP = " +
FAY::NO_RTP,"DEF_RTP_EXIST = " + FAY::DEF_RTP_EXIST

精灵随笔（49）——居然有完全和我的QQ号相同的群号！

真_精灵使者 — Thu, 21 Jul 2011 12:43:14 +0800

最近一直都收到莫名其妙的好友加我的请求，结果发现里面的关键字有《杀手十二岁》、VIP、木木等等。

最后查了半天，终于查出来了。

终于找到原文是什么了

http://www.sj131.com/files/article/html/7/7415/777984.html

=======================

今天到此为止，为了方便大家交流，木木新开了两个超级群，都是能容纳500人的大群。

非V读者请加这个群：61691227

V读者请加这个群号：85636100请不要隐藏V读者的标志，不然管理员无法确认。

===================

我查询了《杀手十二岁》的篇文章，找到了这个话

现代人怎么都看帖不看清楚啊喵……

每次都把群号当成了我的QQ号……我想起了海贼王的那个香吉士和迪贝鲁……居然完全相同啊喵……

所以以后大家加群的时候请一定要注意搜索的是“群”而不是“用户”啊喵……

恩，就酱紫。

【不是创意的创意】【通用】解决公共事件引起的地图拖沓v1.0

真_精灵使者 — Sat, 16 Jul 2011 11:20:43 +0800

来源：http://bbs.66rpg.com/forum.php?mod=viewthread&tid=31794
by Sailcat 两行脚本解决公共事件的地图拖沓
原理：
在地图中，每帧都会把所有的事件和公共事件刷新一次
但是对于公共事件来说，当其不执行时，只刷新条件
如果把那些永远也不会主动执行到的公共事件去掉，就会减少很多刷新
因为相信大家在做游戏的时候，不主动执行的公共事件是绝大多数
（有的时候只是因为一些多个场合都要调用的公用的功能，写在了公共事件里）
解决的目标是：在地图装载的时候，那些trigger为0的公共事件——即执行条件为“无”的公共事件，不会被装载到地图里，从而在刷新的时候也不会被列入刷新名单。
然后让我们来大量的编写王道的公共事件吧：）
====================================
精灵特意的写了VX版，和XP版一起，而且加入了脚本判断（感谢忧雪君）。
更新日志：
2011年7月16日发布原始版本v1.0
脚本如下：

#----------------------------------------------------------------------------
#
#   解决公共事件引起的地图拖沓 v 1.01(XP&VX)
#   感谢忧雪君提供的版本判断
#   紧急修正了常量的重定义判定，防止脚本冲突
#
#----------------------------------------------------------------------------
OS_VER = self ? :rv : :rx

class Game_Map
if OS_VER == :rv
#--------------------------------------------------------------------------
# ● 设置事件
#--------------------------------------------------------------------------
def setup_events
    @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
      unless $data_common_events[i].trigger == 0
      @common_events[i] = Game_CommonEvent.new(i)
      end
    end
    #########################################################################
end
elsif OS_VER == :rx
#--------------------------------------------------------------------------
# ● 设置
#     map_id : 地图 ID
#--------------------------------------------------------------------------
def setup(map_id)
    # 地图 ID 记录到 @map_id
    @map_id = map_id
    # 地图文件装载后、设置到 @map
    @map = load_data(sprintf("Data/Map%d.rxdata", @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
     unless $data_common_events[i].trigger == 0
       @common_events[i] = Game_CommonEvent.new(i)
     end
    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
end