hedgewars/uTypes.pas
changeset 13073 6369d148cfff
parent 13052 eadf8259306f
child 13082 c213645ff848
--- a/hedgewars/uTypes.pas	Sat Feb 24 15:24:36 2018 +0100
+++ b/hedgewars/uTypes.pas	Sun Feb 25 18:57:30 2018 +0100
@@ -349,7 +349,13 @@
         TeamDamage : Longword;
         end;
 
-    TBinds = array[0..cKbdMaxIndex] of shortstring;
+    TBinds = record
+                 indices: array[0..cKbdMaxIndex] of byte;
+                 // zeroth element is reserved, indices[i] == 0 means no binding
+                 binds: array[0..255] of shortstring;
+                 lastIndex: byte;
+             end;
+
     TKeyboardState = array[0..cKeyMaxIndex] of Byte;
 
     PVoicepack = ^TVoicepack;