equal
deleted
inserted
replaced
21 unit uLocale; |
21 unit uLocale; |
22 interface |
22 interface |
23 uses uTypes; |
23 uses uTypes; |
24 |
24 |
25 const MAX_EVENT_STRINGS = 100; |
25 const MAX_EVENT_STRINGS = 100; |
26 var trammo: array[TAmmoStrId] of ansistring; // name of the weapon |
|
27 trammoc: array[TAmmoStrId] of ansistring; // caption of the weapon |
|
28 trammod: array[TAmmoStrId] of ansistring; // description of the weapon |
|
29 trmsg: array[TMsgStrId] of ansistring; // message of the event |
|
30 trgoal: array[TGoalStrId] of ansistring; // message of the goal |
|
31 |
26 |
32 procedure LoadLocale(FileName: shortstring); |
27 procedure LoadLocale(FileName: shortstring); |
33 function Format(fmt: shortstring; var arg: shortstring): shortstring; |
28 function Format(fmt: shortstring; var arg: shortstring): shortstring; |
34 function Format(fmt: ansistring; var arg: ansistring): ansistring; |
29 function Format(fmt: ansistring; var arg: ansistring): ansistring; |
35 function GetEventString(e: TEventId): ansistring; |
30 function GetEventString(e: TEventId): ansistring; |
36 |
31 |
37 implementation |
32 implementation |
38 uses uRandom, uUtils, uIO; |
33 uses uRandom, uUtils, uIO, uVariables; |
39 |
34 |
40 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
35 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
41 trevt_n: array[TEventId] of integer; |
36 trevt_n: array[TEventId] of integer; |
42 |
37 |
43 procedure LoadLocale(FileName: shortstring); |
38 procedure LoadLocale(FileName: shortstring); |