equal
deleted
inserted
replaced
34 {$IFDEF HWLIBRARY} |
34 {$IFDEF HWLIBRARY} |
35 procedure LoadLocaleWrapper(str: pchar); cdecl; export; |
35 procedure LoadLocaleWrapper(str: pchar); cdecl; export; |
36 {$ENDIF} |
36 {$ENDIF} |
37 |
37 |
38 implementation |
38 implementation |
39 uses uRandom, uUtils, uVariables, uDebug, uPhysFSLayer, sysutils; |
39 uses uRandom, uVariables, uDebug, uPhysFSLayer, sysutils; |
40 |
40 |
41 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of PChar; |
41 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of PChar; |
42 trevt_n: array[TEventId] of integer; |
42 trevt_n: array[TEventId] of integer; |
43 |
43 |
44 procedure LoadLocale(FileName: shortstring); |
44 procedure LoadLocale(FileName: shortstring); |
45 var s, sc: PChar; |
45 var s: PChar = nil; |
|
46 sc: PChar; |
46 f: pfsFile; |
47 f: pfsFile; |
47 a, b, c: LongInt; |
48 a, b, c: LongInt; |
48 first: array[TEventId] of boolean; |
49 first: array[TEventId] of boolean; |
49 e: TEventId; |
50 e: TEventId; |
50 begin |
51 begin |