33 

    33 

    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,

    40 var trammo: array[TAmmoStrId] of shortstring;

    40 var trammo: array[TAmmoStrId] of shortstring;

    41     trmsg: array[TMsgStrId] of shortstring;

    41     trmsg: array[TMsgStrId] of shortstring;

    42 

    42 

    43 procedure LoadLocale(FileName: string);

    43 procedure LoadLocale(FileName: string);

    44 

    45 

    45 implementation

    46 implementation

    46 uses uMisc;

    47 uses uMisc;

    47 

    48 

    48 procedure LoadLocale(FileName: string);

    49 procedure LoadLocale(FileName: string);

    74       end;

    75       end;

    75 closefile(f)

    76 closefile(f)

    76 {$I+}

    77 {$I+}

    77 end;

    78 end;

    78 

    79 

    79 end.

    88 end.