32 {$IFDEF HWLIBRARY}

    32 {$IFDEF HWLIBRARY}

    33 procedure LoadLocaleWrapper(str: pchar); cdecl; export;

    33 procedure LoadLocaleWrapper(str: pchar); cdecl; export;

    34 {$ENDIF}

    34 {$ENDIF}

    35 

    35 

    36 implementation

    36 implementation

    38 

    38 

    39 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring;

    39 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring;

    40     trevt_n: array[TEventId] of integer;

    40     trevt_n: array[TEventId] of integer;

    41 

    41 

    42 procedure LoadLocale(FileName: shortstring);

    42 procedure LoadLocale(FileName: shortstring);

    98             5: if (b >=0) and (b <= ord(High(TGoalStrId))) then

    98             5: if (b >=0) and (b <= ord(High(TGoalStrId))) then

    99                 trgoal[TGoalStrId(b)]:= s;

    99                 trgoal[TGoalStrId(b)]:= s;

   100            end;

   100            end;

   101        end;

   101        end;

   102    Close(f);

   102    Close(f);

   104    end;

   103    end;

   105 {$I+}

   104 {$I+}

   106 end;

   105 end;

   107 

   106 

   108 function GetEventString(e: TEventId): ansistring;

   107 function GetEventString(e: TEventId): ansistring;