equal
deleted
inserted
replaced
32 {$IFDEF HWLIBRARY} |
32 {$IFDEF HWLIBRARY} |
33 procedure LoadLocaleWrapper(str: pchar); cdecl; export; |
33 procedure LoadLocaleWrapper(str: pchar); cdecl; export; |
34 {$ENDIF} |
34 {$ENDIF} |
35 |
35 |
36 implementation |
36 implementation |
37 uses uRandom, uUtils, uVariables, uDebug, uConsole; |
37 uses uRandom, uUtils, uVariables, uDebug; |
38 |
38 |
39 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
39 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
40 trevt_n: array[TEventId] of integer; |
40 trevt_n: array[TEventId] of integer; |
41 |
41 |
42 procedure LoadLocale(FileName: shortstring); |
42 procedure LoadLocale(FileName: shortstring); |
98 5: if (b >=0) and (b <= ord(High(TGoalStrId))) then |
98 5: if (b >=0) and (b <= ord(High(TGoalStrId))) then |
99 trgoal[TGoalStrId(b)]:= s; |
99 trgoal[TGoalStrId(b)]:= s; |
100 end; |
100 end; |
101 end; |
101 end; |
102 Close(f); |
102 Close(f); |
103 {$IFNDEF HWLIBRARY}WriteLnToConsole('Locale loaded "' + FileName + '"');{$ENDIF} |
|
104 end; |
103 end; |
105 {$I+} |
104 {$I+} |
106 end; |
105 end; |
107 |
106 |
108 function GetEventString(e: TEventId): ansistring; |
107 function GetEventString(e: TEventId): ansistring; |