34 unit uLocale; |
34 unit uLocale; |
35 interface |
35 interface |
36 type TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidUFO, sidShotgun, |
36 type TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidUFO, sidShotgun, |
37 sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle, |
37 sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle, |
38 sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds); |
38 sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds); |
39 TMsgStrId = (sidStartFight, sidDraw, sidWinner); |
39 TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume); |
40 var trammo: array[TAmmoStrId] of string; |
40 var trammo: array[TAmmoStrId] of string; |
41 trmsg: array[TMsgStrId] of string; |
41 trmsg: array[TMsgStrId] of string; |
42 |
42 |
43 procedure LoadLocale(FileName: string); |
43 procedure LoadLocale(FileName: string); |
44 function Format(fmt: shortstring; var arg: shortstring): shortstring; |
44 function Format(fmt: shortstring; var arg: shortstring): shortstring; |