全局文字输出and输入

恐惧剑刃

本脚本原意解决XP提问区某用户的提问，但存在BUG（已经回避）暂不知解决方法。
不过大体能用，求精简，求BUG解决方法。
替换脚本没有完成（自动换行）！！

1. #===============================================
   
2. #  ■  全局文字输出
   
3. #===============================================
   
4. 
   
5. #标记常量 前一个为 分隔符 后一为 终止符
   
6. #如果翻译，请在 分隔符 与 终止符 之间 完成翻译
   
7. #此标记常量不可删除。
   
8. TXTSym = "◆◇"
   
9. 
   
10. #以下脚本翻译完成后可以删除
    
11. 
    
12. #确认输出
    
13. ok = true#true
    
14. if ok
    
15. #确认文章段落是否换行
    
16. newline = false#如果翻译建议false，方便输入。
    
17. #确认输出地图名称
    
18. output_mapname = false#如果翻译建议false，方便输入。
    
19. #确认输出事件名称
    
20. optput_eventname = false#如果翻译建议false，方便输入。
    
21. #确认输出标记符
    
22. optput_sym = true#如果翻译建议true，方便输入。
    
23. #打开文件
    
24. txt = File.open("OutPutText.txt", "w")
    
25. #地图名称库
    
26. mapname = load_data("Data/MapInfos.rxdata")
    
27. #计数器
    
28. id = 1
    
29. file_count = 0
    
30. data = Dir.glob("Data/*")
    
31. data = data.size - 15
    
32. #检索地图
    
33. while id < 999
    
34.   #结束判断
    
35.   if file_count >= data
    
36.     id = 999 ; next
    
37.   end
    
38.   #文件名
    
39.   filename = sprintf("Data/Map%03d.rxdata", id)
    
40.   #存在判断
    
41.   next unless FileTest.exist?(filename)
    
42.   #读取数据
    
43.   map = load_data(filename)
    
44.   #写入地图名称
    
45.   txt.write("————" + mapname[id].name + "————" + "\n") if output_mapname
    
46.   #检索事件(角色)
    
47.   for id in map.events.keys.sort
    
48.     event = map.events[id]
    
49.     #检索事件页
    
50.     for page in event.pages
    
51.       #检索事件条目
    
52.       for list in page.list
    
53.         #判断代码
    
54.         if [101, 401].include?(list.code)
    
55.           #写入文件
    
56.           txt.write("【#{event.name}】" + "\n") if list.code == 101 if optput_eventname
    
57.           txt.write(list.parameters[0])
    
58.         end
    
59.       end
    
60.       #标记
    
61.       txt.write(TXTSym) if optput_sym
    
62.       #换行
    
63.       txt.write("\n") if newline
    
64.     end
    
65.   end
    
66.   #计数器
    
67.   id += 1
    
68.   file_count += 1
    
69. end
    
70. #关闭文件
    
71. txt.close
    
72. end

复制代码

1. #===============================================
   
2. #  ■  全局文字输入
   
3. #===============================================
   
4. 
   
5. #设置模块
   
6. module TranslationText
   
7. #分隔符
   
8. sym_1 = TXTSym.split("")[0]
   
9. #终止符
   
10. sym_2 = TXTSym.split("")[1]
    
11. #功能哈希
    
12. Arr = {}
    
13. #功能字符
    
14. str = ""
    
15. #输入文本
    
16. File.open("InPutText.txt", "r") do |file|#打开txt
    
17.   #查看每一行
    
18.   file.readlines.each do |contents|
    
19.     #添加进String
    
20.     str << contents
    
21.   end
    
22. end
    
23. #回避BUG
    
24. for s in 0...(a=str.clone.split("")).size
    
25.   str = "" if s == 0
    
26.   str << a[s] if s != 0
    
27. end
    
28. #分割文章
    
29. str.split(sym_2).each do |text|
    
30.   Arr[text.split(sym_1)[0]] = text.split(sym_1)[1]
    
31. end
    
32. end

复制代码

1. #===============================================
   
2. #  ■  全局文字替换
   
3. #===============================================
   
4. 
   
5. # $temp_text = false 使用默认语言
   
6. # $temp_text = true  使用第二语言
   
7. $temp_text = true
   
8. 
   
9. #信息框的类
   
10. class Window_Message < Window_Selectable
    
11.   #重命名
    
12.   alias refresh_input_text_old refresh
    
13.   #刷新
    
14.   def refresh
    
15.     #判断语言类型
    
16.     if $temp_text
    
17.       #拷贝文章
    
18.       text = $game_temp.message_text.clone
    
19.       #处理换行字符
    
20.       text.gsub!("\n") { "" }
    
21.       #替换
    
22.       $game_temp.message_text = TranslationText::Arr[text].clone
    
23.     end
    
24.     #执行刷新
    
25.     refresh_input_text_old
    
26.   end
    
27. end

复制代码

布罗利

什么功能，完全不懂？在什么地方应用？{:2_276:}