-- NW4C Batch Export Script(2010/10/20)
-- Version 0.4.7
-- (c)2010 Nintendo

-- nw4cエクスポータの存在を確認

if (nw4cmax != undefined) do
(
	--ディレクトリを設定
	local inDir, outDir, inFilesWC
	inDir = getSavePath caption:"nw4c batch export\nコンバートするmaxファイルのフォルダを選択してください。"
	format "\nInput Folder: %s\n" inDir
	if (inDir != undefined) do
	(
		outDir = getSavePath caption:"nw4c batch export\n書き出し先のフォルダを選択してください。" initialDir:inDir
		format "Output Folder: %s\n" outDir
		if (outDir != undefined) do 
		(
			inFilesWC = inDir + "\\*.max"
			local files = getFiles inFilesWC
			format "\nBegin Export\n"
			local errCount = 0
			local errFiles = ""
			
			for f in files do
			(
				format "-----------------------------\n"
				format "Export Max File(%)\n" f
				outFilename = outDir + "\\" + (getFilenameFile f) + ".cmdl"
				-- maxファイルをロードしてエクスポート
				--resetMaxFile #noPrompt
				if (loadMaxFile f quiet:true useFileUnits:true) then
				(
					completeRedraw()
					local nw4c = nw4cmax
					nw4c.LoadSetting()
					nw4c.outFolder = outDir
					nw4c.UseCreativeStudio = false
					nw4c.filename = (getFilenameFile f)
					try
					(
						local ret = nw4cMax.doExport false
						if not ret do 
						(
							errCount = errCount + 1
							append errFiles (f + "\n")
							format "Export Error\n"
						)
					)
					catch
					(
						format "Unknown System Error\n"
						errCount = errCount + 1
						append errFiles (f + "\n")
					)
				)
				else
				(
					format "Load Error\n"
					append errFiles (f + "\n")
				)
				
			)
			format "Finish Export\n"
			resetMaxFile #noPrompt
			
			if (errCount > 0) then
			(
				local mes = ("Exporting error in " + errCount as String + "files\n\n")
				append mes errFiles
				messagebox mes
			)
			else
			(
				messagebox "Finish Export"
			)
		)
	)
)