Dungeon Master Forum

Code: Select all

Getting Val for: C007_ZONE_VIEWPORT
0 33 224 136
Getting Val for: C700_ZONE_VIEWPORT_CEILING_AREA
0 0 224 39
Getting Val for: C701_ZONE_VIEWPORT_FLOOR_AREA
0 39 224 97
Getting Val for: C002_ZONE_SCREEN
0 0 320 200
Getting Val for: C004_ZONE_EXPLOSION_PATTERN_D0C
0 0 224 136
Getting Val for: C005_ZONE_SCREEN_CENTERED_DIALOG
0 0 224 136
Getting Val for: C006_ZONE_VIEWPORT_CENTERED_TEXT
0 0 224 136
Getting Val for: C007_ZONE_VIEWPORT
0 33 224 136
Getting Val for: C009_ZONE_MOVEMENT_ARROWS
233 124 85 43
Getting Val for: C011_ZONE_ACTION_AREA
233 77 85 45
Getting Val for: C013_ZONE_SPELL_AREA
233 42 85 31
Getting Val for: C015_ZONE_MESSAGE_AREA
0 173 320 25
Getting Val for: C017_ZONE_LEADER_HAND_OBJECT_NAME
233 33 87 6

Code: Select all

                        F1011_(C437_ZONE_ENDGAME_RESTART_THIS_GAME, "RESTART THIS GAME", G0446_as_Graphic561_PrimaryMouseInput_RestartGame);

Code: Select all

                       F0732_FillScreenArea(G2019_ai_XYZ_Endgame_Restart_Outer, C01_COLOR_DARK_GRAY);
                        F0732_FillScreenArea(G2020_ai_XYZ_Endgame_Restart_Inner, C00_COLOR_BLACK);

Code: Select all

#ifdef MEDIA760_A36M_A35M
                        F1011_(C438_ZONE_ENDGAME_QUIT, F0758_TranslateLanguage(C103_QUIT), &G0446_as_Graphic561_PrimaryMouseInput_RestartGame[1]);
#endif

Code: Select all

Param(
        [Parameter(Mandatory=$true)][ValidateScript({Test-Path -Path $_ -PathType Container})][String]$InputPath,
        [Parameter(Mandatory=$true)][ValidateScript({Test-Path -Path $_ -PathType Container})][String]$OutputPath,
        [Parameter(Mandatory=$true)][String[]]$TagSet
)

#Set-ExecutionPolicy Unrestricted

# Make sure MEDIA*.H files (containing '#define MEDIAxxx_' directives) are processed after all others
$SourceFiles = @()
$SourceFiles += (Get-Item "$InputPath\*.C")
$SourceFiles += (Get-Item "$InputPath\*.H" -Exclude "MEDIA*.H")
$SourceFiles += (Get-Item "$InputPath\MEDIA*.H")
if ($SourceFiles -eq $null) {
		Write-Host "No source files found in input path [$InputPath], aborting."
		pause
}

# Create empty output folder
$OutputFolderPath = "$OutputPath\$TagSet"
if (Test-Path -Path $OutputFolderPath -PathType Container) {
		& "D:\ReDMCSB\Toolchains\Common\Base\Remove-Folder.ps1" -Path $OutputFolderPath -TemporaryPath $OutputPath
		if (Test-Path -Path $OutputFolderPath -PathType Container) {
				Write-Host "Failed to delete custom source folder [$OutputFolderPath], aborting."
				pause
		}
}
$null = New-Item $OutputFolderPath -ItemType Directory -Force
if (-not (Test-Path -Path $OutputFolderPath -PathType Container)) {
		Write-Host "Failed to create custom source folder [$OutputFolderPath], aborting."
		pause
}

$OutputLine = New-Object -TypeName Bool[] -ArgumentList 100
$OutputTag = New-Object -TypeName Bool[] -ArgumentList 100
$Tags = $TagSet -split "_"
$CompileTagsToXTags = @{}
$Encoding = [System.Text.Encoding]::GetEncoding("iso-8859-1")

foreach ($SourceFile in $SourceFiles) {
		$StreamReader = New-Object -TypeName System.IO.StreamReader($SourceFile, $Encoding)
		$OutputFileContent = New-Object -TypeName System.Text.StringBuilder
		$CurrentDepth = 0
		$FileHasContent = $false
		$OutputLine[$CurrentDepth] = $true
		$OutputTag[$CurrentDepth] = $true
		while (-not $StreamReader.EndOfStream ) {
				$SourceFileLine = $StreamReader.ReadLine()
				if ($SourceFileLine -match "(?<StartOfLine>^\s*#define )(MEDIA)(?<TagId>\d\d\d)(?<TagSet>_[a-zA-Z0-9_]*)(?<EndOfLine>.*)") {
						$TagString = "MEDIA$($Matches.TagId)$($Matches.TagSet)"
						# Translate MEDIA tag to X tag
						if ($CompileTagsToXTags.Contains($TagString)) {
								if ($CompileTagsToXTags[$TagString] -ne $null) {
										$null = $OutputFileContent.AppendLine("$($Matches.StartOfLine)$($CompileTagsToXTags[$TagString])$($Matches.EndOfLine)")
								}
						}
						continue
				}
				if ($SourceFileLine.StartsWith("#endif")) {
						if ($OutputTag[$CurrentDepth]) {
								$null = $OutputFileContent.AppendLine($SourceFileLine)
						}
						$CurrentDepth--
						continue
				}
				if ($SourceFileLine.StartsWith("#if")) {
						$CurrentDepth++
						$OutputLine[$CurrentDepth] = $OutputLine[$CurrentDepth - 1]
						$OutputTag[$CurrentDepth] = $OutputTag[$CurrentDepth - 1]
						if ($SourceFileLine -match "(^\s*#ifdef MEDIA)(?<TagId>\d\d\d)(?<TagSet>_[a-zA-Z0-9_]*)(?<EndOfLine>.*)") {
								$TagString = "MEDIA$($Matches.TagId)$($Matches.TagSet)"
								$CompileTagSet = $Matches.TagSet
								$CompileTags = $CompileTagSet.Split("_")
								$CommonTags = Compare-Object -ReferenceObject $CompileTags -DifferenceObject $Tags -PassThru -IncludeEqual -ExcludeDifferent
								if ($CommonTags -eq $null) {
										$OutputLine[$CurrentDepth] = $false
										$OutputTag[$CurrentDepth] = $false
								} else {
										$JoinedCommonTags = ($CommonTags | Sort-Object) -join '_'
										if ($OutputLine[$CurrentDepth]) {
												if (-not $CompileTagsToXTags.Contains($TagString)) {
														$CompileTagsToXTags.Add($TagString, "X$($Matches.TagId)_$($JoinedCommonTags)")
												}
												if ($OutputLine[$CurrentDepth]) {
													if ($JoinedCommonTags -ne $TagSet) {
														$null = $OutputFileContent.AppendLine("#ifdef $($CompileTagsToXTags[$TagString])$($Matches.EndOfLine)")
														$OutputTag[$CurrentDepth] = $true
													} else {
														$OutputTag[$CurrentDepth] = $false
													}
												}
										}
								}
								continue
						} else {
								# Search for MEDIA tags on an #if line and map them to their corresponding X tags
								if ($OutputLine[$CurrentDepth]) {
										$OutputTag[$CurrentDepth] = $true
										$RegExMatches = ([regex]"(MEDIA)(?<TagId>\d\d\d)(?<TagSet>_[a-zA-Z0-9_]*)").Matches($SourceFileLine)
										foreach ($RegExMatch in $RegExMatches) {
												$TagString = $RegExMatch.Value
												$CompileTagSet = $RegExMatch.Groups["TagSet"].Value
												$CompileTags = $CompileTagSet.Split("_")
												$CommonTags = Compare-Object -ReferenceObject $CompileTags -DifferenceObject $Tags -PassThru -IncludeEqual -ExcludeDifferent
												if ($CommonTags -ne $null) {
														$JoinedCommonTags = $CommonTags -join '_'
														if (-not $CompileTagsToXTags.Contains($TagString)) {
																$CompileTagsToXTags.Add($TagString, "X$($RegExMatch.Groups["TagId"].Value)_$($JoinedCommonTags)")
														}
														$SourceFileLine = $SourceFileLine -replace $TagString,$CompileTagsToXTags[$TagString]
												}
										}
								}
						}
				}
				if ($OutputLine[$CurrentDepth]) {
						$null = $OutputFileContent.AppendLine($SourceFileLine)
						if ($CurrentDepth -gt 0) {
								$FileHasContent = $true
						}
				}
		}
		$StreamReader.Close()
		if ($FileHasContent) {
				$Content = $OutputFileContent.ToString()
				if ($Content -ne "#ifndef COMPILE_H`r`n#include `"COMPILE.H`"`r`n#endif`r`n") {
						[System.IO.File]::WriteAllText("$OutputFolderPath\$($SourceFile.Name)", $Content, $Encoding)
				}
		}
}