Key def.dat
From Populous Wiki
Change Populous default keys using programming or hex editor. The file was decoded on November 23rd 2013.
All the addresses are correct, but typos can and will exist. If there is a typo or wrong address let me know or correct it!
Introduction
Key def.dat is a file that you have to create by using the Populous key editor included in the game (Key def download). Once you save, the file is created and it is located in ./save/Key def.dat. Each key is stored in a hexadecimal address, the combination key is always 1 in front of it. So if 0x1 is pause 0x2 will be the combination key. The combination key is like shift + key but in the file format it reads key + shift.
Each key needs to be converted from hexadecimal to a integer. This can be done in programming by simply reading information from the address, else if you're using a hex editor (like HxD) you'll have to that by hand using a converter like Paulschou (use the values from CHAR), once you got the number it should range from 1-105, if it exceeds that, you're reading the wrong location or you got your math wrong. In #In Programming you will be told how to convert the values from keycode (the integer number you just got) to ASCII using programming methods. If you want to change them by hand without programming, all the key definitions are on this list keycode list for US QWERTY, remember that you have to convert those numbers back to hex from the Paulschou's link, or by programming.
This is not a complete decode of the file, however its most of the common key commands for Populous, if you find more, feel free to add them!
Combination keys
The combination keys use a different keycode format. I don't know if there is a pattern to this or if the game has custom keycodes for these.
Not all of these are tested.
No modifier key = 0
Shift = 1
Shift + CTRL (or App button?) = 3
CTRL = 4
Shift + ALT = 5
Ctrl + alt = 6
Shift + ctrl + alt = 7
Alt = 20
Available keys
Toggle view key
0x23 = Key
0x24 = modifier key
Encyclopaedia key
0x38 = Key
0x39 = modifier key
Set Map Marker 1 key
0x35 = Key
0x36 = modifier key
Set Map Marker 2 key
0x68 = Key
0x69 = modifier key
Set Map Marker 3 key
0x83 = Key
0x84 = modifier key
Set Map Marker 4 key
0x88 = Key
0x99 = modifier key
Goto Map Marker 1
0x113 = Key
0x114 = modifier key
Goto Map Marker 2
0x128 = Key
0x129 = modifier key
Goto Map Marker 3
0x143 = Key
0x144 = modifier key
Goto Map Marker 4
0x158 = Key
0x159 = modifier key
Zoom view in key
0x173 = Key
0x174 = modifier key
Zoom view out key
0x188 = Key
0x189 = modifier key
Quick Load key
0x203 = Key
0x204 = modifier key
Quick Save key
0x218 = Key
0x219 = modifier key
Zoom to shaman key
0x233 = Key
0x234 = modifier key
Chat message key
0x248 = Key
0x249 = modifier key
Command Tracking key
0x263 = Key
0x264 = modifier key
* Had problems w/ this key
Release guarding people key
0x278 = Key
0x279 = modifier key
Toggle Level Stats key
0x293 = Key
0x294 = modifier key
Rotate building key
0x308 = Key
0x309 = modifier key
Assign people to group 1 key
0x323 = Key
0x324 = modifier key
Assign people to group 2 key
0x338 = Key
0x339 = modifier key
Assign people to group 3 key
0x353 = Key
0x354 = modifier key
Assign people to group 4 key
0x368 = Key
0x369 = modifier key
Assign people to group 5 key
0x383 = Key
0x384 = modifier key
Assign people to group 6 key
0x398 = Key
0x399 = modifier key
Select people in group 1 key
0x413 = Key
0x414 = modifier key
Select people in group 2 key
0x428 = Key
0x429 = modifier key
Select people in group 3 key
0x443 = Key
0x444 = modifier key
Select people in group 4 key
0x458 = Key
0x459 = modifier key
Select people in group 5 key
0x473 = Key
0x474 = modifier key
Select people in group 6 key
0x488 = Key
0x489 = modifier key
Zoom to people in group 1 key
0x503 = Key
0x504 = modifier key
Zoom to people in group 2 key
0x518 = Key
0x519 = modifier key
Zoom to people in group 3 key
0x533 = Key
0x534 = modifier key
Zoom to people in group 4 key
0x548 = Key
0x549 = modifier key
Zoom to people in group 5 key
0x563 = Key
0x564 = modifier key
Zoom to people in group 6 key
0x578 = Key
0x579 = modifier key
Zoom to Reincarnation site key
0x593 = Key
0x594 = modifier key
Toggle Local Selection key
0x608 = Key
0x609 = modifier key
Reselect last selection key
0x623 = Key
0x624 = modifier key
Reorient view key
0x638 = Key
0x639 = modifier key
Display last dialog key
0x653 = Key
0x654 = modifier key
Toggle auto deselect key
0x668 = Key
0x669 = modifier key
Call to arms key
0x683 = Key
0x684 = modifier key
Scatter people key
0x698 = Key
0x699 = modifier key
In Programming
VB .NET
This is code that will decode all the unknown keys seen above to ACSII, table
Use a code converter to translate to C#.
Imports System.Runtime.InteropServices
Imports System.IO
Module Module1
Public Declare Function GetKeyboardLayout Lib "user32" (ByVal idThread As UInteger) As IntPtr
<DllImport("User32.dll")> _
Public Function GetKeyboardLayout(idThread As Integer) As IntPtr
End Function
<DllImport("user32.dll")> _
Public Function MapVirtualKeyEx(uCode As Integer, uMapType As Integer, dwhkl As Integer) As Integer
End Function
<DllImport("user32.dll")> _
Private Function GetKeyboardState(ByVal keyState() As Byte) As Boolean
End Function
<DllImport("user32.dll")> _
Public Function ToAsciiEx(uVirtKey As Integer, uScanCode As Integer, lpKeyState As Byte, lpChar As Integer, uFlags As Integer, dwhkl As Integer) As Integer
End Function
Dim strings = New String() {"Pause", _
"Toggle View", _
"Encyclopaedia", _
"Set map marker 1", _
"Set map marker 2", _
"Set map marker 3", _
"Set map marker 4", _
"Goto map marker 1", _
"Goto map marker 2", _
"Goto map marker 3", _
"Goto map marker 4", _
"Zoom in", _
"Zoom out", _
"Quick load", _
"Quick save", _
"Goto shaman", _
"Chat/Message", _
"Command tracking", _
"Release Guarding", _
"Toggle level stats", _
"Rotate building", _
"Assign units to group 1", _
"Assign units to group 2", _
"Assign units to group 3", _
"Assign units to group 4", _
"Assign units to group 5", _
"Assign units to group 6", _
"Select units to group 1", _
"Select units to group 2", _
"Select units to group 3", _
"Select units to group 4", _
"Select units to group 5", _
"Select units to group 6", _
"Goto units to group 1", _
"Goto units to group 2", _
"Goto units to group 3", _
"Goto units to group 4", _
"Goto units to group 5", _
"Goto units to group 6", _
"Goto reincarnation site", _
"Toggle local selection", _
"Reselect last selection", _
"Reorient view", _
"Display last dialog", _
"Toggle auto deselect", _
"Call to arms", _
"Scatter people"}
Dim keys = New Integer() {8, 23, 38, 53, 68, 83, 98, 113, 128, 143, _
158, 173, 188, 203, 218, 233, 248, 263, 278, _
293, 308, 323, 338, 353, 368, 383, 398, 413, _
428, 443, 458, 473, 488, 503, 518, 533, 548, _
563, 578, 593, 608, 623, 638, 653, 668, 683, _
698}
Dim populousin As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Bullfrog Productions Ltd\Populous: The Beginning", "InstallPath", "")
Sub Main()
Dim i = 0
For Each Strs In strings
Dim modifier = Reader(keys(i) + 1).ToString
On Error Resume Next
If modifier = 0 Then
modifier = "NONE"
ElseIf modifier = 2 Then
modifier = "CTRL"
ElseIf modifier = 3 Then
modifier = "SHIFT + CTRL"
ElseIf modifier = 5 Then
modifier = "SHIFT + ALT"
ElseIf modifier = 6 Then
modifier = "CTRL + ALT"
ElseIf modifier = 7 Then
modifier = "SHIFT + CTRL + ALT"
ElseIf modifier = 3 Then
modifier = "APP"
ElseIf modifier = 20 Then
modifier = "ALT"
ElseIf modifier = 1 Then
modifier = "SHIFT"
Else
modifier = "NONE"
End If
Console.WriteLine(Strs & " = " & modifier & " + " & (scan2ascii(Reader(keys(i)))).ToString & vbNewLine)
i = i + 1
Next
Console.ReadLine()
End Sub
Public Function scan2ascii(ByVal scancode)
Dim hKL As IntPtr = GetKeyboardLayout(0)
Dim State = New Byte(255) {}
If GetKeyboardState(State) = False Then
Return 0
End If
Return MapVirtualKeyEx(scancode, 1, hKL)
End Function
Private Sub Writer(ByVal value As Byte, ByVal position As Integer)
Dim Keysconfig As Boolean = My.Computer.FileSystem.FileExists(populousin & "\SAVE\key_def.dat")
If Keysconfig = False Then
Console.Write("Error: Populous keys configuration file could not be loaded, download it off the wiki and place it into ./saves/ file of pop.")
Console.ReadLine()
End
End If
Dim writer As New BinaryWriter(New FileStream(populousin & "\SAVE\key_def.dat", FileMode.Open))
writer.BaseStream.Position = position
writer.Write(value)
writer.Close()
End Sub
Function Reader(ByVal position As Integer)
Dim Keysconfig As Boolean = My.Computer.FileSystem.FileExists(populousin & "\SAVE\key_def.dat")
If Keysconfig = False Then
Console.Write("Error: Populous keys configuration file could not be loaded, download it off the wiki and place it into ./saves/ file of pop.")
Console.ReadLine()
End
End If
Dim breader As New BinaryReader(New FileStream(populousin & "\SAVE\key_def.dat", FileMode.Open))
breader.BaseStream.Position = position
Dim output = breader.Read
breader.Close()
Return output
End Function
End Module
C++
To be added