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); |
24 sidParachute, sidAirAttack); |
25 TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume); |
25 TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume); |
26 var trammo: array[TAmmoStrId] of string; |
26 var trammo: array[TAmmoStrId] of string; |
27 trmsg: array[TMsgStrId] of string; |
27 trmsg: array[TMsgStrId] of string; |
28 |
28 |
29 procedure LoadLocale(FileName: string); |
29 procedure LoadLocale(FileName: string); |