Pax Imperia: Eminent Domain

Developers
Heliotrope Studios
Publishers
Heliotrope Studios
Release Date
Windows: September 1, 1997
Genres
Real Time Strategy (RTS) Strategy
View at PCGamingWiki

Actions

Name	Path	Arguments	Working Directory	Primary
Play	Pax Imperia.exe			True

Name Change Script

$NewName = $args[0]
$InstallDir = $PSScriptRoot

function Get-AsciiBytes([string]$InputString, [int]$MaxLength)
{
    if ($InputString.Length -gt $MaxLength)
    {
        $InputString = $InputString.Substring(0, $MaxLength)
    }

    $bytes = [System.Text.Encoding]::ASCII.GetBytes($InputString)
    $array = @()
    $count = 0

    $extraPadding = $MaxLength - $bytes.Length

    foreach ($byte in $bytes)
    {
        if ($count -lt $MaxLength)
        {
            $array += $byte
            $count++
        }
    }

    for ($i = $count; $i -lt $MaxLength; $i++)
    {
        $array += 0x00
    }

    return $array
}

function Patch-Binary([byte[]]$Data, [int]$Offset, [string]$FilePath)
{
    $bytes = [System.IO.File]::ReadAllBytes($FilePath)

    for ($i = 0; $i -lt $Data.Length; $i++)
    {
        $bytes[$Offset + $i] = $Data[$i]
    }

    [System.IO.File]::WriteAllBytes($FilePath, $bytes)
}

$hostNameBytes = Get-AsciiBytes -InputString $newName -MaxLength 31
$nameBytes = Get-AsciiBytes -InputString $newName -MaxLength 16

Patch-Binary -FilePath "$InstallDir\Data\PrefData" -Offset 0x16b -Data $hostNameBytes
Patch-Binary -FilePath "$InstallDir\Data\PrefData" -Offset 0x19e -Data $nameBytes