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