$Company = " "
$InstallDir = $PSScriptRoot
New-Item -Path "HKCU:\Software\Maxis\SimCity 2000" -Force
New-Item -Path "HKCU:\Software\Maxis\SimCity 2000\Localize" -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Localize' -Name 'Language' -Value 'USA' -PropertyType String -Force
New-Item -Path "HKCU:\Software\Maxis\SimCity 2000\Options" -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Options' -Name 'Speed' -Value 1 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Options' -Name 'Sound' -Value 1 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Options' -Name 'Music' -Value 1 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Options' -Name 'AutoGoto' -Value 1 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Options' -Name 'AutoBudget' -Value 0 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Options' -Name 'Disasters' -Value 1 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Options' -Name 'AutoSave' -Value 0 -PropertyType DWord -Force
New-Item -Path "HKCU:\Software\Maxis\SimCity 2000\Paths" -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Paths' -Name 'Home' -Value "$InstallDir\WIN95\SC2K" -PropertyType String -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Paths' -Name 'Graphics' -Value "$InstallDir\WIN95\SC2K\Bitmaps" -PropertyType String -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Paths' -Name 'Music' -Value "$InstallDir\WIN95\SC2K\Sounds" -PropertyType String -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Paths' -Name 'Data' -Value "$InstallDir\WIN95\SC2K\Data" -PropertyType String -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Paths' -Name 'Goodies' -Value "$InstallDir\WIN95\SC2K\Goodies" -PropertyType String -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Paths' -Name 'Cities' -Value "$InstallDir\WIN95\SC2K\Cities" -PropertyType String -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Paths' -Name 'SaveGame' -Value "$InstallDir\WIN95\SC2K\Cities" -PropertyType String -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Paths' -Name 'TileSets' -Value "$InstallDir\WIN95\SC2K\ScurkArt" -PropertyType String -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Paths' -Name 'Scenarios' -Value "$InstallDir\WIN95\SC2K\Scenario" -PropertyType String -Force
New-Item -Path "HKCU:\Software\Maxis\SimCity 2000\Registration" -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Registration' -Name "Mayor Name" -Value "" -PropertyType String -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Registration' -Name "Company Name" -Value "$Company" -PropertyType String -Force
New-Item -Path "HKCU:\Software\Maxis\SimCity 2000\SCURK" -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\SCURK' -Name 'CycleColors' -Value 1 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\SCURK' -Name 'GridHeight' -Value 2 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\SCURK' -Name 'GridWidth' -Value 2 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\SCURK' -Name 'ShowClipRegion' -Value 0 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\SCURK' -Name 'ShowDrawGrid' -Value 0 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\SCURK' -Name 'SnapToGrid' -Value 0 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\SCURK' -Name 'Sound' -Value 1 -PropertyType DWord -Force
New-Item -Path "HKCU:\Software\Maxis\Maxis\SimCity 2000\Version" -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\Maxis\SimCity 2000\Version' -Name 'SimCity 2000' -Value 256 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\Maxis\SimCity 2000\Version' -Name 'SCURK' -Value 256 -PropertyType DWord -Force
New-Item -Path "HKCU:\Software\Maxis\SimCity 2000\Windows" -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Windows' -Name 'Display' -Value '8 1' -PropertyType String -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Windows' -Name 'Color Check' -Value 0 -PropertyType DWord -Force
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Windows' -Name 'Last Color Depth' -Value 32 -PropertyType DWord -Force
Remove-Item -Path "HKCU:\Software\Maxis\SimCity 2000" -Force -Recurse
Remove-Item -Path "HKCU:\Software\Maxis\Maxis\SimCity 2000" -Force -Recurse
$InstallDir = $PSScriptRoot
$NewName = $args[0]
New-ItemProperty -Path 'HKCU:\Software\Maxis\SimCity 2000\Registration' -Name "Mayor Name" -Value "$NewName" -PropertyType String -Force