Here a quick script I wrote to combine the layers and convert black liines to gray. Just download all the maps you want from mapfiend and run this on your windows box and it will create a new folder where ever you run it from and place a combined layer map for each zone in that folder.
Code:
' Combines layers and converts black lines to Grey
Dim sZone
Set fso = CreateObject("Scripting.FileSystemObject")
ForReading = 1
'You can comment out the line below and then uncomment the next
'line and put a path in if you wish to set the path static.
Path = InputBox("Enter the path to the maps directory.", "path to Maps", "")
'Path = "C:\Documents and Settings\user\Desktop\test"
Set Folder = FSO.GetFolder(Path)
Set ColFiles = Folder.Files
if fso.folderexists("New Maps") then
wscript.echo "New Maps Folder already exist."
WScript.quit
End If
Set NewFolder = fso.CreateFolder("New Maps")
For Each myFile in ColFiles
sExtension = mid(myFile, inStr(myFile, ".") + 1, 3)
if sExtension = "txt" then
strPath = myFile.Path
Set Test = fso.GetFile(strPath)
If Test.Size > 0 Then
Set myFile = fso.OpenTextFile(strPath, ForReading)
strContents = myFile.ReadAll
if inStr(test.Name, "_") > 0 then
sZone = left(test.Name, inStr(test.Name, "_") - 1)
If fso.FileExists("New Maps\" & sZone & ".txt") Then
Set OutFile = fso.openTextFile("New Maps\" & sZone & ".txt", 8)
Else
Set OutFile = fso.CreateTextFile("New Maps\" & sZone & ".txt", 1)
End If
OutFile.Writeline(replace(strContents, "0, 0, 0", "128, 128, 128"))
OutFile.Close
End If
Else
' Wscript.Echo strPath & " is empty."
End If
End If
Next
WScript.quit
purple: Added code tags for readability