1-- NW4C Batch Export Script (2011/02/15)
2-- Version 1.0.0
3-- (c)2010-2011 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.Use3DEditor = false
40					nw4c.filename = (getFilenameFile f)
41					try
42					(
43						local ret = nw4c.doExport false
44						if not ret do
45						(
46							errCount = errCount + 1
47							append errFiles (f + "\n")
48							format "Export Error\n"
49						)
50					)
51					catch
52					(
53						format "Unknown System Error\n"
54						errCount = errCount + 1
55						append errFiles (f + "\n")
56					)
57				)
58				else
59				(
60					format "Load Error\n"
61					append errFiles (f + "\n")
62				)
63
64			)
65			format "Finish Export\n"
66			resetMaxFile #noPrompt
67
68			if (errCount > 0) then
69			(
70				local mes = ("Exporting error in " + errCount as String + "files\n\n")
71				append mes errFiles
72				messagebox mes
73			)
74			else
75			(
76				messagebox "Finish Export"
77			)
78		)
79	)
80)
81