Prevent entering “/”, “\” and “:” in team and scheme names.
The name of teams and schems is saved in the file name itself, so these characters would cause trouble as they are used in path names in Linux and Windows.
(*
* Hedgewars, a free turn based strategy game
* Copyright (c) 2004-2019 Andrey Korotaev <unC0Rr@gmail.com>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; version 2 of the License
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
*)
unit uKeyNames;
interface
uses uConsts;
type TKeyNames = array [0..cKeyMaxIndex] of string[15];
procedure populateKeyNames(var KeyArray: TKeyNames);
implementation
procedure populateKeyNames(var KeyArray: TKeyNames);
begin
(*
This is a mapping from SDL scancodes to Hedgewars key identifiers.
Hedgewars key identifiers are strings with a maximum length of 15
and are used internally to identify keys in the engine and in settings.ini.
*)
KeyArray[4] := 'a';
KeyArray[5] := 'b';
KeyArray[6] := 'c';
KeyArray[7] := 'd';
KeyArray[8] := 'e';
KeyArray[9] := 'f';
KeyArray[10] := 'g';
KeyArray[11] := 'h';
KeyArray[12] := 'i';
KeyArray[13] := 'j';
KeyArray[14] := 'k';
KeyArray[15] := 'l';
KeyArray[16] := 'm';
KeyArray[17] := 'n';
KeyArray[18] := 'o';
KeyArray[19] := 'p';
KeyArray[20] := 'q';
KeyArray[21] := 'r';
KeyArray[22] := 's';
KeyArray[23] := 't';
KeyArray[24] := 'u';
KeyArray[25] := 'v';
KeyArray[26] := 'w';
KeyArray[27] := 'x';
KeyArray[28] := 'y';
KeyArray[29] := 'z';
KeyArray[30] := '1';
KeyArray[31] := '2';
KeyArray[32] := '3';
KeyArray[33] := '4';
KeyArray[34] := '5';
KeyArray[35] := '6';
KeyArray[36] := '7';
KeyArray[37] := '8';
KeyArray[38] := '9';
KeyArray[39] := '0';
KeyArray[40] := 'return';
KeyArray[41] := 'escape';
KeyArray[42] := 'backspace';
KeyArray[43] := 'tab';
KeyArray[44] := 'space';
KeyArray[45] := '-';
KeyArray[46] := '=';
KeyArray[47] := '[';
KeyArray[48] := ']';
KeyArray[49] := '\';
KeyArray[50] := '#';
KeyArray[51] := ';';
KeyArray[52] := '''';
KeyArray[53] := '`';
KeyArray[54] := ',';
KeyArray[55] := '.';
KeyArray[56] := '/';
KeyArray[57] := 'capslock';
KeyArray[58] := 'f1';
KeyArray[59] := 'f2';
KeyArray[60] := 'f3';
KeyArray[61] := 'f4';
KeyArray[62] := 'f5';
KeyArray[63] := 'f6';
KeyArray[64] := 'f7';
KeyArray[65] := 'f8';
KeyArray[66] := 'f9';
KeyArray[67] := 'f10';
KeyArray[68] := 'f11';
KeyArray[69] := 'f12';
KeyArray[70] := 'printscreen';
KeyArray[71] := 'scrolllock';
KeyArray[72] := 'pause';
KeyArray[73] := 'insert';
KeyArray[74] := 'home';
KeyArray[75] := 'pageup';
KeyArray[76] := 'delete';
KeyArray[77] := 'end';
KeyArray[78] := 'pagedown';
KeyArray[79] := 'right';
KeyArray[80] := 'left';
KeyArray[81] := 'down';
KeyArray[82] := 'up';
KeyArray[83] := 'numlock';
KeyArray[84] := 'keypad_/';
KeyArray[85] := 'keypad_*';
KeyArray[86] := 'keypad_-';
KeyArray[87] := 'keypad_+';
KeyArray[88] := 'keypad_enter';
KeyArray[89] := 'keypad_1';
KeyArray[90] := 'keypad_2';
KeyArray[91] := 'keypad_3';
KeyArray[92] := 'keypad_4';
KeyArray[93] := 'keypad_5';
KeyArray[94] := 'keypad_6';
KeyArray[95] := 'keypad_7';
KeyArray[96] := 'keypad_8';
KeyArray[97] := 'keypad_9';
KeyArray[98] := 'keypad_0';
KeyArray[99] := 'keypad_.';
KeyArray[101] := 'menu';
KeyArray[102] := 'power';
KeyArray[103] := 'keypad_=';
KeyArray[104] := 'f13';
KeyArray[105] := 'f14';
KeyArray[106] := 'f15';
KeyArray[107] := 'f16';
KeyArray[108] := 'f17';
KeyArray[109] := 'f18';
KeyArray[110] := 'f19';
KeyArray[111] := 'f20';
KeyArray[112] := 'f21';
KeyArray[113] := 'f22';
KeyArray[114] := 'f23';
KeyArray[115] := 'f24';
KeyArray[116] := 'execute';
KeyArray[117] := 'help';
KeyArray[118] := 'menu';
KeyArray[119] := 'select';
KeyArray[120] := 'stop';
KeyArray[121] := 'again';
KeyArray[122] := 'undo';
KeyArray[123] := 'cut';
KeyArray[124] := 'copy';
KeyArray[125] := 'paste';
KeyArray[126] := 'find';
KeyArray[127] := 'mute';
KeyArray[128] := 'volumeup';
KeyArray[129] := 'volumedown';
KeyArray[133] := 'keypad_,';
KeyArray[134] := 'keypad_=_(as400';
KeyArray[153] := 'alterase';
KeyArray[154] := 'sysreq';
KeyArray[155] := 'cancel';
KeyArray[156] := 'clear';
KeyArray[157] := 'prior';
KeyArray[158] := 'return2';
KeyArray[159] := 'separator';
KeyArray[160] := 'out';
KeyArray[161] := 'oper';
KeyArray[162] := 'clear_/_again';
KeyArray[163] := 'crsel';
KeyArray[164] := 'exsel';
KeyArray[176] := 'keypad_00';
KeyArray[177] := 'keypad_000';
KeyArray[178] := 'thousandssepara';
KeyArray[179] := 'decimalseparato';
KeyArray[180] := 'currencyunit';
KeyArray[181] := 'currencysubunit';
KeyArray[182] := 'keypad_(';
KeyArray[183] := 'keypad_)';
KeyArray[184] := 'keypad_{';
KeyArray[185] := 'keypad_}';
KeyArray[186] := 'keypad_tab';
KeyArray[187] := 'keypad_backspac';
KeyArray[188] := 'keypad_a';
KeyArray[189] := 'keypad_b';
KeyArray[190] := 'keypad_c';
KeyArray[191] := 'keypad_d';
KeyArray[192] := 'keypad_e';
KeyArray[193] := 'keypad_f';
KeyArray[194] := 'keypad_xor';
KeyArray[195] := 'keypad_^';
KeyArray[196] := 'keypad_%';
KeyArray[197] := 'keypad_<';
KeyArray[198] := 'keypad_>';
KeyArray[199] := 'keypad_&';
KeyArray[200] := 'keypad_&&';
KeyArray[201] := 'keypad_|';
KeyArray[202] := 'keypad_||';
KeyArray[203] := 'keypad_:';
KeyArray[204] := 'keypad_#';
KeyArray[205] := 'keypad_space';
KeyArray[206] := 'keypad_@';
KeyArray[207] := 'keypad_!';
KeyArray[208] := 'keypad_memstore';
KeyArray[209] := 'keypad_memrecal';
KeyArray[210] := 'keypad_memclear';
KeyArray[211] := 'keypad_memadd';
KeyArray[212] := 'keypad_memsubtr';
KeyArray[213] := 'keypad_memmulti';
KeyArray[214] := 'keypad_memdivid';
KeyArray[215] := 'keypad_+/-';
KeyArray[216] := 'keypad_clear';
KeyArray[217] := 'keypad_clearent';
KeyArray[218] := 'keypad_binary';
KeyArray[219] := 'keypad_octal';
KeyArray[220] := 'keypad_decimal';
KeyArray[221] := 'keypad_hexadeci';
KeyArray[224] := 'left_ctrl';
KeyArray[225] := 'left_shift';
KeyArray[226] := 'left_alt';
KeyArray[227] := 'left_gui';
KeyArray[228] := 'right_ctrl';
KeyArray[229] := 'right_shift';
KeyArray[230] := 'right_alt';
KeyArray[231] := 'right_gui';
KeyArray[257] := 'modeswitch';
KeyArray[258] := 'audionext';
KeyArray[259] := 'audioprev';
KeyArray[260] := 'audiostop';
KeyArray[261] := 'audioplay';
KeyArray[262] := 'audiomute';
KeyArray[263] := 'mediaselect';
KeyArray[264] := 'www';
KeyArray[265] := 'mail';
KeyArray[266] := 'calculator';
KeyArray[267] := 'computer';
KeyArray[268] := 'ac_search';
KeyArray[269] := 'ac_home';
KeyArray[270] := 'ac_back';
KeyArray[271] := 'ac_forward';
KeyArray[272] := 'ac_stop';
KeyArray[273] := 'ac_refresh';
KeyArray[274] := 'ac_bookmarks';
KeyArray[275] := 'brightnessdown';
KeyArray[276] := 'brightnessup';
KeyArray[277] := 'displayswitch';
KeyArray[278] := 'kbdillumtoggle';
KeyArray[279] := 'kbdillumdown';
KeyArray[280] := 'kbdillumup';
KeyArray[281] := 'eject';
KeyArray[282] := 'sleep';
KeyArray[283] := 'app1';
KeyArray[284] := 'app2';
KeyArray[285] := 'audiorewind';
KeyArray[286] := 'audiofastforwar';
end;
(*
The Hedgewars key identifiers were obtained with the following algorithm:
Basically:
- For each SDL scancode, do:
- Take the printable SDL scancode key name (with SDL_GetScancodeName)
- Replace spaces with underscores
- Lowercase it
- Cap string length to 15 characters
- Manually fix duplicates
See also:
https://wiki.libsdl.org/SDLScancodeLookup
https://wiki.libsdl.org/SDL_Scancode
NOTE: For compability reasons, existing identifiers should not be renamed.
Old code snippet:
for i := 0 to cKeyMaxIndex - 5 do
begin
s := shortstring(SDL_GetScancodeName(TSDL_Scancode(i)));
for t := 1 to Length(s) do
if s[t] = ' ' then
s[t] := '_';
KeyArray[i] := LowerCase(s);
if s = '''' then
WriteLnToConsole(' KeyArray['+IntToStr(i)+']'+' := '';')
else if s <> '' then
WriteLnToConsole(' KeyArray[SDL_SCANCODE_'+KeyArray[i]+']'+' := '''+KeyArray[i]+''';');
end;
*)
end.