1-- NW4C Batch Export Script(2010/10/20)
2-- Version 0.4.7
3-- (c)2010 Nintendo
4
5-- nw4c�G�N�X�|�[�^�̑��݂��m�F
6
7if (nw4cmax != undefined) do
8(
9	--�f�B���N�g����ݒ�
10	local inDir, outDir, inFilesWC
11	inDir = getSavePath caption:"nw4c batch export\n�R���o�[�g����max�t�@�C���̃t�H���_��I�����Ă��������B"
12	format "\nInput Folder: %s\n" inDir
13	if (inDir != undefined) do
14	(
15		outDir = getSavePath caption:"nw4c batch export\n�����o����̃t�H���_��I�����Ă��������B" initialDir:inDir
16		format "Output Folder: %s\n" outDir
17		if (outDir != undefined) do
18		(
19			inFilesWC = inDir + "\\*.max"
20			local files = getFiles inFilesWC
21			format "\nBegin Export\n"
22			local errCount = 0
23			local errFiles = ""
24
25			for f in files do
26			(
27				format "-----------------------------\n"
28				format "Export Max File(%)\n" f
29				outFilename = outDir + "\\" + (getFilenameFile f) + ".cmdl"
30				-- max�t�@�C�������[�h���ăG�N�X�|�[�g
31				--resetMaxFile #noPrompt
32				if (loadMaxFile f quiet:true useFileUnits:true) then
33				(
34					completeRedraw()
35					local nw4c = nw4cmax
36					nw4c.LoadSetting()
37					nw4c.outFolder = outDir
38					nw4c.UseCreativeStudio = false
39					nw4c.filename = (getFilenameFile f)
40					try
41					(
42						local ret = nw4cMax.doExport false
43						if not ret do
44						(
45							errCount = errCount + 1
46							append errFiles (f + "\n")
47							format "Export Error\n"
48						)
49					)
50					catch
51					(
52						format "Unknown System Error\n"
53						errCount = errCount + 1
54						append errFiles (f + "\n")
55					)
56				)
57				else
58				(
59					format "Load Error\n"
60					append errFiles (f + "\n")
61				)
62
63			)
64			format "Finish Export\n"
65			resetMaxFile #noPrompt
66
67			if (errCount > 0) then
68			(
69				local mes = ("Exporting error in " + errCount as String + "files\n\n")
70				append mes errFiles
71				messagebox mes
72			)
73			else
74			(
75				messagebox "Finish Export"
76			)
77		)
78	)
79)
80