对话导入脚本[针对66加强对话脚本]

狒狒王

    做游戏时写的一个简单脚本，可以把存在txt文件里的对话导入到指定事件里去。

1. #==============================================================================
   
2. # ■ Lines_Convert
   
3. #------------------------------------------------------------------------------
   
4. # 　将对白导入为事件
   
5. #==============================================================================
   
6. class Lines_Convert
   
7.   #--------------------------------------------------------------------------
   
8.   # ● 常量定义
   
9.   #--------------------------------------------------------------------------
   
10.     EVENTS_ID = 1                     #导入的对象事件的ID（1始）
    
11.     PAGES_ID  = 0                     #导入的事件页ID    （0始）
    
12.     MY_FILE   = "line.txt"              #导入的剧本文件名
    
13.     MAP_ID    = "Data/Map001.rxdata"  #导入的地图地址
    
14.   #--------------------------------------------------------------------------
    
15.   # ● 初始化
    
16.   #--------------------------------------------------------------------------
    
17.   def initialize
    
18.   #读取地图文件
    
19.     @my_map = load_data(MAP_ID)
    
20.     @cxs_read = File.open(MY_FILE)
    
21.     @lines = @cxs_read.readlines
    
22.   #清空事件列表
    
23.     @my_map.events[1].pages[0].list = []
    
24.   #写入对白
    
25.     refresh
    
26.   #写入事件列表尾
    
27.     new_event(0,[])
    
28.   #存储
    
29.     save_data(@my_map,MAP_ID)
    
30.   end
    
31.   #--------------------------------------------------------------------------
    
32.   # ● 处理
    
33.   #--------------------------------------------------------------------------
    
34.   def refresh
    
35.     for i in 0 ... @lines.size
    
36.       #对每一行读取：@人名@人物ID@内容@
    
37.       @line_name = Tannings_module.string_within(@lines[i]+"@","@",1)
    
38.       @line_event_id = Tannings_module.string_within(@lines[i]+"@","@",2)
    
39.       @line_content = Tannings_module.string_within(@lines[i]+"@","@",3).scan(/./)
    
40.       @line_each = ""
    
41.       
    
42.       if @line_name == "囧"
    
43.         @line_each = "--------------------------------------------"
    
44.         new_event(101,@line_each)
    
45.       else
    
46.         if @line_content.size <= 16
    
47.         #单行，缩紧一格（缩紧两格为两行者视为一行）
    
48.           @line_each = "  "
    
49.           for n in 0...@line_content.size
    
50.             @line_each = @line_each + @line_content[n]
    
51.           end
    
52.           new_event(101,@line_each)
    
53.           @line_each = (@line_name     != "" ? "\\name[" + @line_name + "]":"") + (@line_event_id != "" ? "\\p[" + @line_event_id +"]":"")
    
54.           new_event(401,@line_each)
    
55.         elsif @line_content.size <= 31
    
56.         #双行，首行缩紧两格，其他行缩紧一格
    
57.           @line_each = "    "
    
58.           for n in 0...15
    
59.             @line_each = @line_each + @line_content[n]
    
60.           end
    
61.           new_event(101,@line_each)
    
62.             
    
63.           @line_each = "  "
    
64.           for n in 15...@line_content.size
    
65.             @line_each = @line_each + @line_content[n]
    
66.           end
    
67.           new_event(401,@line_each)
    
68.          
    
69.           @line_each = (@line_name     != "" ? "\\name[" + @line_name + "]":"") + (@line_event_id != "" ? "\\p[" + @line_event_id +"]":"")
    
70.   
    
71.           new_event(401,@line_each)
    
72.             
    
73.         elsif @line_content.size <= 47
    
74.         #三行，首行缩紧两格，其他行缩紧一格
    
75.           @line_each = "    "
    
76.           for n in 0...15
    
77.             @line_each = @line_each + @line_content[n]
    
78.           end
    
79.           new_event(101,@line_each)
    
80.             
    
81.           @line_each = "  "
    
82.           for n in 15...31
    
83.             @line_each = @line_each + @line_content[n]
    
84.           end
    
85.           new_event(401,@line_each)
    
86.             
    
87.           @line_each = "  "
    
88.           for n in 31...@line_content.size
    
89.             @line_each = @line_each + @line_content[n]
    
90.           end
    
91.           new_event(401,@line_each)
    
92.          
    
93.           @line_each = (@line_name     != "" ? "\\name[" + @line_name + "]":"") + (@line_event_id != "" ? "\\p[" + @line_event_id +"]":"")
    
94.           new_event(401,@line_each)
    
95.             
    
96.         else
    
97.         #超过三行，无效之，并警告
    
98.           @line_each = "●超格了●"
    
99.           for n in 0 ...10
    
100.             @line_each = @line_each + @line_content[n]
     
101.           end
     
102.           print @line_each
     
103.           new_event(101,"●囧●囧●囧●超格了●囧●囧●囧●")
     
104.         end  
     
105.       end
     
106.     end
     
107.   end
     
108.   #--------------------------------------------------------------------------
     
109.   # ● 写入事件代码
     
110.   #    code       :事件代码（Fixnum,101为起始行，401为跟随行）
     
111.   #    parameters :对话内容（String）
     
112.   #--------------------------------------------------------------------------
     
113.   def new_event(code,parameters)
     
114.     unless parameters == ""
     
115.     #新建一事件代码变量
     
116.       my_code = RPG::EventCommand.new
     
117.     #写入数据
     
118.       my_code.code = code
     
119.       my_code.indent = 0
     
120.       my_code.parameters = [parameters]
     
121.     #存储数据
     
122.       @my_map.events[EVENTS_ID].pages[PAGES_ID].list.push my_code
     
123.     #清空
     
124.       my_code = nil
     
125.     end
     
126.   end
     
127.   
     
128. end
     
129. 
     
130. module Tannings_module
     
131.   #用来计算一字符串内两指定子字符串之间内容的函数
     
132.   #(字符串，分割符，位置（第一个还是第N个）)
     
133.   def self.string_within(the_string,the_symbol,times)
     
134.     @the_string = the_string
     
135.     @the_symbol = the_symbol
     
136.     @times = times
     
137.     @the_array = @the_string.scan(/./)
     
138.     @s_to_e = [0,0]
     
139.     @r = ""
     
140.    
     
141.     for i in 0 .. @the_array.size
     
142.       if @the_array[i] == @the_symbol
     
143.         @times -= 1
     
144.         case @times
     
145.         when 0
     
146.           @s_to_e[0] = i+1
     
147.         when -1
     
148.           @s_to_e[1] = i-1
     
149.           break
     
150.         end
     
151.       end
     
152.     end
     
153.    
     
154.     for i in @s_to_e[0]..@s_to_e[1]
     
155.       @r = @r + @the_array[i]
     
156.     end
     
157.    
     
158.     return @r
     
159.   end
     
160. end
     

复制代码

    首先把要导入的对话存到line.txt去，按照如下格式存放（记得要分行，具体看范例）：

@名字甲@事件1ID@对话内容A
@名字乙@事件2ID@对话内容B

    然后自动生成对话：

  对话内容A
\name[名字甲]\p[事件1ID]
  对话内容B
\name[名字乙]\p[事件2ID]

    那个事件ID跟存到哪个事件里没有关系，就是指到时候显示对话时显示在哪个事件上面。名字和事件ID可写可不写，不写名字就没有名字，不写ID就是普通的对话了。然后，如果名字的地方写“囧”字，则生成一个分割行，导入NPC对话的时候可以看得清楚一点。如果对话内容超过3行，会提示错误，生成“●囧●囧●囧●超格了●囧●囧●囧●”字样（囧），请重新生成。

    存好以后，找个事件里写Lines_Convert.new，运行一下，然后直接关闭游戏和工程，再打开就可以看到生成好的对话了。具体的参数在脚本里改。

    大概就是这么一个简单的东西。如果是剧本事先写好，应该还是有点用的，加其他效果进去的时候也能比较有的放矢。不过那个游戏是用的66加强对话脚本，所以不支持Fuki，这个真是很遗憾。如果不用任何对话加强脚本，直接用也还凑合，不写名字和事件ID就是了。（为什么不管发什么我都这么罗嗦 - -）

    范例工程：
http://rpg.blue/upload_program/files/line_convert.rar

狒狒王

    做游戏时写的一个简单脚本，可以把存在txt文件里的对话导入到指定事件里去。

1. #==============================================================================
   
2. # ■ Lines_Convert
   
3. #------------------------------------------------------------------------------
   
4. # 　将对白导入为事件
   
5. #==============================================================================
   
6. class Lines_Convert
   
7.   #--------------------------------------------------------------------------
   
8.   # ● 常量定义
   
9.   #--------------------------------------------------------------------------
   
10.     EVENTS_ID = 1                     #导入的对象事件的ID（1始）
    
11.     PAGES_ID  = 0                     #导入的事件页ID    （0始）
    
12.     MY_FILE   = "line.txt"              #导入的剧本文件名
    
13.     MAP_ID    = "Data/Map001.rxdata"  #导入的地图地址
    
14.   #--------------------------------------------------------------------------
    
15.   # ● 初始化
    
16.   #--------------------------------------------------------------------------
    
17.   def initialize
    
18.   #读取地图文件
    
19.     @my_map = load_data(MAP_ID)
    
20.     @cxs_read = File.open(MY_FILE)
    
21.     @lines = @cxs_read.readlines
    
22.   #清空事件列表
    
23.     @my_map.events[1].pages[0].list = []
    
24.   #写入对白
    
25.     refresh
    
26.   #写入事件列表尾
    
27.     new_event(0,[])
    
28.   #存储
    
29.     save_data(@my_map,MAP_ID)
    
30.   end
    
31.   #--------------------------------------------------------------------------
    
32.   # ● 处理
    
33.   #--------------------------------------------------------------------------
    
34.   def refresh
    
35.     for i in 0 ... @lines.size
    
36.       #对每一行读取：@人名@人物ID@内容@
    
37.       @line_name = Tannings_module.string_within(@lines[i]+"@","@",1)
    
38.       @line_event_id = Tannings_module.string_within(@lines[i]+"@","@",2)
    
39.       @line_content = Tannings_module.string_within(@lines[i]+"@","@",3).scan(/./)
    
40.       @line_each = ""
    
41.       
    
42.       if @line_name == "囧"
    
43.         @line_each = "--------------------------------------------"
    
44.         new_event(101,@line_each)
    
45.       else
    
46.         if @line_content.size <= 16
    
47.         #单行，缩紧一格（缩紧两格为两行者视为一行）
    
48.           @line_each = "  "
    
49.           for n in 0...@line_content.size
    
50.             @line_each = @line_each + @line_content[n]
    
51.           end
    
52.           new_event(101,@line_each)
    
53.           @line_each = (@line_name     != "" ? "\\name[" + @line_name + "]":"") + (@line_event_id != "" ? "\\p[" + @line_event_id +"]":"")
    
54.           new_event(401,@line_each)
    
55.         elsif @line_content.size <= 31
    
56.         #双行，首行缩紧两格，其他行缩紧一格
    
57.           @line_each = "    "
    
58.           for n in 0...15
    
59.             @line_each = @line_each + @line_content[n]
    
60.           end
    
61.           new_event(101,@line_each)
    
62.             
    
63.           @line_each = "  "
    
64.           for n in 15...@line_content.size
    
65.             @line_each = @line_each + @line_content[n]
    
66.           end
    
67.           new_event(401,@line_each)
    
68.          
    
69.           @line_each = (@line_name     != "" ? "\\name[" + @line_name + "]":"") + (@line_event_id != "" ? "\\p[" + @line_event_id +"]":"")
    
70.   
    
71.           new_event(401,@line_each)
    
72.             
    
73.         elsif @line_content.size <= 47
    
74.         #三行，首行缩紧两格，其他行缩紧一格
    
75.           @line_each = "    "
    
76.           for n in 0...15
    
77.             @line_each = @line_each + @line_content[n]
    
78.           end
    
79.           new_event(101,@line_each)
    
80.             
    
81.           @line_each = "  "
    
82.           for n in 15...31
    
83.             @line_each = @line_each + @line_content[n]
    
84.           end
    
85.           new_event(401,@line_each)
    
86.             
    
87.           @line_each = "  "
    
88.           for n in 31...@line_content.size
    
89.             @line_each = @line_each + @line_content[n]
    
90.           end
    
91.           new_event(401,@line_each)
    
92.          
    
93.           @line_each = (@line_name     != "" ? "\\name[" + @line_name + "]":"") + (@line_event_id != "" ? "\\p[" + @line_event_id +"]":"")
    
94.           new_event(401,@line_each)
    
95.             
    
96.         else
    
97.         #超过三行，无效之，并警告
    
98.           @line_each = "●超格了●"
    
99.           for n in 0 ...10
    
100.             @line_each = @line_each + @line_content[n]
     
101.           end
     
102.           print @line_each
     
103.           new_event(101,"●囧●囧●囧●超格了●囧●囧●囧●")
     
104.         end  
     
105.       end
     
106.     end
     
107.   end
     
108.   #--------------------------------------------------------------------------
     
109.   # ● 写入事件代码
     
110.   #    code       :事件代码（Fixnum,101为起始行，401为跟随行）
     
111.   #    parameters :对话内容（String）
     
112.   #--------------------------------------------------------------------------
     
113.   def new_event(code,parameters)
     
114.     unless parameters == ""
     
115.     #新建一事件代码变量
     
116.       my_code = RPG::EventCommand.new
     
117.     #写入数据
     
118.       my_code.code = code
     
119.       my_code.indent = 0
     
120.       my_code.parameters = [parameters]
     
121.     #存储数据
     
122.       @my_map.events[EVENTS_ID].pages[PAGES_ID].list.push my_code
     
123.     #清空
     
124.       my_code = nil
     
125.     end
     
126.   end
     
127.   
     
128. end
     
129. 
     
130. module Tannings_module
     
131.   #用来计算一字符串内两指定子字符串之间内容的函数
     
132.   #(字符串，分割符，位置（第一个还是第N个）)
     
133.   def self.string_within(the_string,the_symbol,times)
     
134.     @the_string = the_string
     
135.     @the_symbol = the_symbol
     
136.     @times = times
     
137.     @the_array = @the_string.scan(/./)
     
138.     @s_to_e = [0,0]
     
139.     @r = ""
     
140.    
     
141.     for i in 0 .. @the_array.size
     
142.       if @the_array[i] == @the_symbol
     
143.         @times -= 1
     
144.         case @times
     
145.         when 0
     
146.           @s_to_e[0] = i+1
     
147.         when -1
     
148.           @s_to_e[1] = i-1
     
149.           break
     
150.         end
     
151.       end
     
152.     end
     
153.    
     
154.     for i in @s_to_e[0]..@s_to_e[1]
     
155.       @r = @r + @the_array[i]
     
156.     end
     
157.    
     
158.     return @r
     
159.   end
     
160. end
     

复制代码

    首先把要导入的对话存到line.txt去，按照如下格式存放（记得要分行，具体看范例）：

@名字甲@事件1ID@对话内容A
@名字乙@事件2ID@对话内容B

    然后自动生成对话：

  对话内容A
\name[名字甲]\p[事件1ID]
  对话内容B
\name[名字乙]\p[事件2ID]

    那个事件ID跟存到哪个事件里没有关系，就是指到时候显示对话时显示在哪个事件上面。名字和事件ID可写可不写，不写名字就没有名字，不写ID就是普通的对话了。然后，如果名字的地方写“囧”字，则生成一个分割行，导入NPC对话的时候可以看得清楚一点。如果对话内容超过3行，会提示错误，生成“●囧●囧●囧●超格了●囧●囧●囧●”字样（囧），请重新生成。

    存好以后，找个事件里写Lines_Convert.new，运行一下，然后直接关闭游戏和工程，再打开就可以看到生成好的对话了。具体的参数在脚本里改。

    大概就是这么一个简单的东西。如果是剧本事先写好，应该还是有点用的，加其他效果进去的时候也能比较有的放矢。不过那个游戏是用的66加强对话脚本，所以不支持Fuki，这个真是很遗憾。如果不用任何对话加强脚本，直接用也还凑合，不写名字和事件ID就是了。（为什么不管发什么我都这么罗嗦 - -）

    范例工程：
http://rpg.blue/upload_program/files/line_convert.rar

doranikofu

似乎很方便啊 感谢
可惜我用的FUKI的那个 Orz
不过RM这种模式想很方便的导入对白似乎还是很难的{/gg}

水迭澜

{/se}好东西
回头来看一下~