19 unit uLocale; |
19 unit uLocale; |
20 interface |
20 interface |
21 type TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidUFO, sidShotgun, |
21 type TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidUFO, sidShotgun, |
22 sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle, |
22 sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle, |
23 sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds, |
23 sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds, |
24 sidParachute, sidAirAttack); |
24 sidParachute, sidAirAttack, sidMineStrike); |
|
25 |
25 TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume, sidPaused); |
26 TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume, sidPaused); |
|
27 |
26 var trammo: array[TAmmoStrId] of string; |
28 var trammo: array[TAmmoStrId] of string; |
27 trmsg: array[TMsgStrId] of string; |
29 trmsg: array[TMsgStrId] of string; |
28 |
30 |
29 procedure LoadLocale(FileName: string); |
31 procedure LoadLocale(FileName: string); |
30 function Format(fmt: shortstring; var arg: shortstring): shortstring; |
32 function Format(fmt: shortstring; var arg: shortstring): shortstring; |