【文件格式】【傻瓜式】MCEdit存档Schematic格式

Tao0Lu

之前帖忘记写Schematic格式了，现在就氵一下吧
其实Wiki里有关于Schematic的格式的介绍，但是我自己通过导出MCEdit发现和Wiki中有些不一样，比如有些项目我导出来并没有，这里我就按我导出的的文件格式讲一下Schematic的格式。

对象	作用	大小
Schematic	识别Schematic格式	12字节
Height	高度Y 最大64K(mod突破高度限制?)	2字节
Length	长度Z 最大64K	2字节
Width	宽度X 最大64K	2字节
Entities	实体	不固定默认8字节
TileEntities	NBT	不固定默认8字节
TileTicks	方块要更新的数据	不固定默认8字节
Materials	版本 默认Alpha 随意填其他没有事	不固定
Data	方块数据 也就是setblock后面那个数字	X × Y × Z字节
Biomes	每个方块的生物群系	X × Z字节
Block	方块(数字ID, 1. 8及之后可以使用MCEdit-Unified查看）	X × Y × Z字节

• 如果生物群系对你有作用的话，请看下表

名称	数字ID	数字ID(16进制)
海洋	0	0
平原	1	1
沙漠	2	2
山地	3	3
森林	4	4
针叶林	5	5
沼泽	6	6
河流	7	7
下界荒地	8	8
末地	9	9
冻洋	10	A
冻河	11	B
积雪的冻原	12	C
雪山	13	D
蘑菇岛	14	E
蘑菇岛岸	15	F
沙滩	16	10
沙漠丘陵	17	11
繁茂的丘陵	18	12
针叶林丘陵	19	13
山地边缘	20	14
丛林	21	15
丛林丘陵	22	16
丛林边缘	23	17
深海	24	18
石岸	25	19
积雪的沙滩	26	1A
桦木森林	27	1B
桦木森林丘陵	28	1C
黑森林	29	1D
积雪的针叶林	30	1E
积雪的针叶林丘陵	31	1F
巨型针叶林	32	20
巨型针叶林丘陵	33	21
繁茂的山地	34	22
热带草原	35	23
热带高原	36	24
恶地	37	25
繁茂的恶地高原	38	26
恶地高原	39	27
末地小型岛屿	40	28
末地中型岛屿	41	29
末地高岛	42	2A
末地荒岛	43	2B
暖水海洋	44	2C
温水海洋	45	2D
冷水海洋	46	2E
暖水深海	47	2F
温水深海	48	30
冷水深海	49	31
封冻深海	50	32
虚空	127	7F
向日葵平原	129	81
沙漠湖泊	130	82
沙砾山地	131	83
繁花森林	132	84
针叶林山地	133	85
沼泽山丘	134	86
冰刺平原	140	8C
丛林变种	149	95
丛林边缘变种	151	97
高大桦木森林	155	9B
高大桦木丘陵	156	9C
黑森林丘陵	157	9D
积雪的针叶林山地	158	9E
巨型云杉针叶林	160	A0
巨型云杉针叶林丘陵	161	A1
沙砾山地+	162	A2
破碎的热带草原	163	A3
破碎的热带高原	164	A4
被风蚀的恶地	165	A5
繁茂的恶地高原变种	166	A6
恶地高原变种	167	A7
竹林	168	A8
竹林丘陵	169	A9
灵魂沙峡谷	170	AA
绯红森林	171	AB
诡异森林	172	AC
玄武岩三角洲	173	AD

• 谜？
  对于其中的高度限制，我还是不太清楚。虽然说有些Mod可以突破高度限制，但是似乎Mcedit也有高度限制。几次实验后发现如果高度大于255，那么高度好像会从第一行重新写入，也就是说把从第一行已经生成的方块给覆盖掉。如果只有255方块，那么为什么大小要设置成两个字节，难道一个字节不就能用完呢?希望有人能帮我解惑。

• 格式中每个数据(姑且就这么叫吧)之间有指定的字符串去隔开，而在指定的字符串后还要声明此数据的长度。所以每一个数据的格式如下

  指定的分隔字节(两字节)+数据标题长度(一字节)+数据标题+数据长度(+数据)(当为Data,Biomes,Block...时)

值	识别对象
0x0A 0x00	Schematic文件
0x02 0x00	Height，Length，Width
0x09 0x00	Entities，TileEntities，TileTicks
0x08 0x00	Materials
0x07 0x00	Data，Biomes，Blocks

• 知道了格式接下来就好做了。
  将数据写入文件，再通过同目录下的gzip.exe压缩成x.gz文件，最后重命名为Schematic文件即可用MCEdit打开。

temp(gzip压缩前)

temp(gzip压缩前)

• 那么这里就讲一下data和block数据吧
  通过立体坐标计算那么坐标为(X,Y,Z)的方块的data和block数据位于第

  (Y - 1) × (Width × Height) + ( Z - 1) × Width + X

  个数据内(Width 和 Height为总的长和宽)，只要在这个位置写入Block数据和Data数据就可以了。

可能你不怎么理解，如果看一下这张图和实例也许就知道了

• 按X和Z轴来进行，这里有一个5*5的二维平面。我们从第一个方块开始，给每一个方块标记数字。在二维中公式是这样的

  (所在行数-1)×总的列数+所在列数

  可见图中红色方块在第5行第4列，代入公式:

  (5-1)×5+4=24 成立

  你也可以去试试其他方块，得到的结果是一样的。
  其实也能想象得出来，多了一维的情况下，公式变成了这样

  (所在高度-1)×总的行数×总的列数+(所在行数-1)×总的列数+所在列数

VB代码

1. Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
   
2. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
   
3. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
   
4. 
   
5. Private Sub Gen()
   
6. ....
   
7. LoopDB = BmpWidth * BmpHeight * BY '长*宽*高
   
8. LoopBI = BmpWidth * BmpHeight '长*宽
   
9. TempHX = Replace(Format(Hex(BmpWidth), "@@@@"), " ", "0") '转换成16进制的字符串，以便于写入文件
   
10. TempHY = Replace(Format(Hex(BY), "@@@@"), " ", "0")
    
11. TempHZ = Replace(Format(Hex(BmpHeight), "@@@@"), " ", "0")
    
12. TempHLoopDB = Replace(Format(Hex(LoopDB), "@@@@@@@@"), " ", "0")
    
13. TempHLoopBI = Replace(Format(Hex(LoopBI), "@@@@@@@@"), " ", "0")
    
14. HX = TempHX
    
15. HY = TempHY
    
16. HZ = TempHZ
    
17. HLoopDB = TempHLoopDB
    
18. HLoopBI = TempHLoopBI
    
19. 
    
20. ReDim StrDT(LoopDB)
    
21. ReDim StrBL(LoopDB)
    
22. 
    
23. For Y=1 To BY
    
24. For X=1 To BmpWidth
    
25. For Z=1 To BmpHeight
    
26. StrP = (Y - 1) * (BmpWidth * BmpHeight) + (Z - 1) * BmpWidth  + X '3维方块对应Block和Data数据的位置
    
27. StrBL(StrP) = m_Names(Block) '也许用结构体会好点？
    
28. StrDT(StrP) = m_Nbt(Block)
    
29. '....Block的处理
    
30. Next
    
31. Next
    
32. Next
    
33. 
    
34. Open App.Path & "\temp" For Binary As #1 '在当前目录下新建temp文件
    
35. Put #1, , Chr$(10) & Chr$(0) & Chr$(9) & "Schematic" '指定的分隔字符串(两字节)+数据标题长度(一字节)+数据标题+数据长度(+数据)
    
36. Put #1, , Chr$(2) & Chr$(0) & Chr$(6) & "Height"
    
37. Put #1, , CByte("&H" & CStr(Left(HY, 2))) '数据的长度(要以二进制的文件写入)
    
38. Put #1, , CByte("&H" & CStr(Right(HY, 2)))
    
39. Put #1, , Chr$(2) & Chr$(0) & Chr$(6) & "Length"
    
40. Put #1, , CByte("&H" & CStr(Left(HZ, 2)))
    
41. Put #1, , CByte("&H" & CStr(Right(HZ, 2)))
    
42. Put #1, , Chr$(2) & Chr$(0) & Chr$(5) & "Width"
    
43. Put #1, , CByte("&H" & CStr(Left(HX, 2)))
    
44. Put #1, , CByte("&H" & CStr(Right(HX, 2)))
    
45. Put #1, , Chr$(9) & Chr$(0) & Chr$(8) & "Entities" & Chr$(1) & Chr$(0) & Chr$(0) & Chr$(0) & Chr$(0) & Chr$(9) & Chr$(0) & Chr$(12) & "TileEntities" & Chr$(1) & Chr$(0) & Chr$(0) & Chr$(0) & Chr$(0) & Chr$(9) & Chr$(0) & Chr$(9) & "TileTicks" & Chr$(1) & Chr$(0) & Chr$(0) & Chr$(0) & Chr$(0) & Chr$(8) & Chr$(0) & Chr$(9) & "Materials" & Chr$(0) & Chr$(5) & "Alpha" & Chr$(7) & Chr$(0) & Chr$(4) & "Data"
    
46. Put #1, , CByte("&H" & CStr(Left(HLoopDB, 2)))
    
47. Put #1, , CByte("&H" & CStr(Mid(HLoopDB, 3, 2)))
    
48. Put #1, , CByte("&H" & CStr(Mid(HLoopDB, 5, 2)))
    
49. Put #1, , CByte("&H" & CStr(Right(HLoopDB, 2)))
    
50. 
    
51. For I = 0 To LoopDB - 1
    
52.     If Len(StrDT(I)) = 0 Then
    
53.         Put #1, , Chr$(0)
    
54.     Else
    
55.         Put #1, , CByte(StrDT(I)) 'VB的bug?直接Put #1, , StrDT每两个字节之间会多出00
    
56.     End If
    
57. Next
    
58. 
    
59. Put #1, , Chr$(7) & Chr$(0) & Chr$(6) & "Biomes"
    
60. Put #1, , CByte("&H" & CStr(Left(HLoopBI, 2)))
    
61. Put #1, , CByte("&H" & CStr(Mid(HLoopBI, 3, 2)))
    
62. Put #1, , CByte("&H" & CStr(Mid(HLoopBI, 5, 2)))
    
63. Put #1, , CByte("&H" & CStr(Right(HLoopBI, 2)))
    
64. 
    
65. For I = 0 To LoopBI - 1
    
66.         Put #1, , Chr$(0)
    
67. Next
    
68. 
    
69. Put #1, , Chr$(7) & Chr$(0) & Chr$(6) & "Blocks"
    
70. Put #1, , CByte("&H" & CStr(Left(HLoopDB, 2)))
    
71. Put #1, , CByte("&H" & CStr(Mid(HLoopDB, 3, 2)))
    
72. Put #1, , CByte("&H" & CStr(Mid(HLoopDB, 5, 2)))
    
73. Put #1, , CByte("&H" & CStr(Right(HLoopDB, 2)))
    
74. 
    
75. For I = 0 To LoopDB - 1
    
76.     If Len(StrBL(I)) = 0 Then
    
77.         Put #1, , Chr$(0)
    
78.     Else
    
79.         Put #1, , CByte(StrBL(I))
    
80.     End If
    
81. Next
    
82. 
    
83. Put #1, , Chr$(0)
    
84. 
    
85. Close #1
    
86. 
    
87. OutPut
    
88. 
    
89. End Sub
    
90. 
    
91. Private Sub OutPut()
    
92. Dim Path As String
    
93. Dim I As Long, R As Long, P As Long
    
94.     Path = SaveFile()'文件对话框，这里不多讲了，此时Path已经成为一个Schematic的目录
    
95.    
    
96.     I = Shell(App.Path & "\gzip.exe -f """ & App.Path & "\temp""", vbNormalFocus) '调用Gzip压缩(输出为.gz文件)
    
97.     P = OpenProcess(SYNCHRONIZE, False, I) '等待进程(文件都没有生成怎么进行下一步啊喂)
    
98.     R = WaitForSingleObject(P, INFINITE)
    
99.     R = CloseHandle(P)
    
100.    
     
101.     I = Shell("cmd /c copy """ & App.Path & "\temp.gz"" " & Path & " /y", vbNormalFocus)'重命名成.Schematic文件
     
102.     P = OpenProcess(SYNCHRONIZE, False, I)
     
103.     R = WaitForSingleObject(P, INFINITE)
     
104.     R = CloseHandle(P)
     
105.    
     
106.     I = Shell("cmd /c del /f /q """ & App.Path & "\temp.gz""", vbNormalFocus)'删除Temp
     
107.     P = OpenProcess(SYNCHRONIZE, False, I)
     
108.     R = WaitForSingleObject(P, INFINITE)
     
109.     R = CloseHandle(P)
     
110. End Sub

复制代码

注意

• 在VB写入文件时，方块等数据不能使用Chr，这是因为当Chr的Acsii编码超过128的都会被翻译成"?"，所以需要通过写入Binary文件，调用CByte来写入文件。
• 除数据标题以外以上数据都以二进制的方式写入文件。
• 数据可以调换顺序。

watermelon

同为邯郸老乡在线支持大佬！

Tao0Lu

watermelon 发表于 2020-3-21 19:09
同为邯郸老乡在线支持大佬！

？ 话说这个不是显示自己所在的IP吗，或者我发布的时候魔法上网了？

watermelon

Tao0Lu 发表于 2020-3-21 19:17
？ 话说这个不是显示自己所在的IP吗，或者我发布的时候魔法上网了？

哦，哈哈哈，我是看的地下的那个签名图片上的“Network”项的，应该是根据IP地址写出来的所在地。