hedgewars/uVariables.pas
changeset 8009 22d3f053dd9b
parent 8003 7d8bce524daf
child 8012 2a61631a4505
equal deleted inserted replaced
8007:b07ce9dfc6bb 8009:22d3f053dd9b
  2574     cAudioCodec        := '';
  2574     cAudioCodec        := '';
  2575 {$ENDIF}
  2575 {$ENDIF}
  2576 end;
  2576 end;
  2577 
  2577 
  2578 procedure initModule;
  2578 procedure initModule;
       
  2579 var s: ShortString;
  2579 begin
  2580 begin
  2580 
  2581     cLocale:= cLocaleFName;
  2581     SplitByChar(cLocaleFName, cLocale, '.');
  2582     SplitByChar(cLocale, s, '.');
  2582 
  2583 
  2583     cFlattenFlakes      := false;
  2584     cFlattenFlakes      := false;
  2584     cFlattenClouds      := false;
  2585     cFlattenClouds      := false;
  2585     cOnlyStats          := False;
  2586     cOnlyStats          := False;
  2586     lastVisualGearByUID := nil;
  2587     lastVisualGearByUID := nil;