2017-03-14 00:20:34 +07:00
|
|
|
|
|
|
|
|
#include "..\scripting\headers\sfall.h"
|
|
|
|
|
#include "..\scripting\headers\define_extra.h"
|
|
|
|
|
|
2017-03-16 01:21:20 +07:00
|
|
|
variable ini := "sfall-mods.ini";
|
2017-03-14 00:20:34 +07:00
|
|
|
variable translationIni;
|
|
|
|
|
|
|
|
|
|
// Gets the integer value from ddraw.ini
|
|
|
|
|
procedure GetConfig(variable section, variable key, variable def) begin
|
|
|
|
|
variable val := get_ini_setting(ini + "|" + section + "|" + key);
|
|
|
|
|
if val == -1 then val := def;
|
|
|
|
|
return val;
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
// Gets the string value from ddraw.ini
|
|
|
|
|
procedure GetConfigStr(variable section, variable key, variable def) begin
|
|
|
|
|
variable val := get_ini_string(ini + "|" + section + "|" + key);
|
|
|
|
|
if val == -1 or val == "" then val := def;
|
|
|
|
|
return val;
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
// Translates given string using Translations.ini
|
2017-03-16 01:21:20 +07:00
|
|
|
procedure Translate(variable id, variable def) begin
|
2017-03-14 00:20:34 +07:00
|
|
|
variable str := get_ini_string(translationIni + "|Sfall|" + id);
|
|
|
|
|
if not str or (strlen(str) == 0) then begin
|
|
|
|
|
str := def;
|
|
|
|
|
end
|
|
|
|
|
return str;
|
|
|
|
|
end
|
|
|
|
|
|
2017-03-16 01:21:20 +07:00
|
|
|
procedure InitConfigs begin
|
|
|
|
|
translationIni := GetConfigStr("Main", "TranslationsINI", "./Translations.ini");
|
|
|
|
|
end
|