hedgewars/uMisc.pas
changeset 3676 fa29572fa56a
parent 3670 4c673e57f0d7
child 3680 aaf832c6fbd7
equal deleted inserted replaced
3674:10f3099b497c 3676:fa29572fa56a
    85     cTimerInterval  : LongInt = 8;
    85     cTimerInterval  : LongInt = 8;
    86     //pathPrefix is in uConsts
    86     //pathPrefix is in uConsts
    87     cShowFPS        : boolean = false;
    87     cShowFPS        : boolean = false;
    88     cAltDamage      : boolean = true;
    88     cAltDamage      : boolean = true;
    89     cReducedQuality : LongInt = rqNone;
    89     cReducedQuality : LongInt = rqNone;
    90 
    90     //userNick is in uChat
    91     recordFileName  : shortstring = '';
    91     recordFileName  : shortstring = '';
    92     
    92     
    93     cCaseFactor     : Longword;
    93     cCaseFactor     : Longword;
    94     cLandAdditions  : Longword;
    94     cLandAdditions  : Longword;
    95     cExplosives     : Longword;
    95     cExplosives     : Longword;
   793 {$IFDEF DEBUGFILE}
   793 {$IFDEF DEBUGFILE}
   794     writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft);
   794     writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft);
   795     flush(f);
   795     flush(f);
   796     close(f);
   796     close(f);
   797 {$ENDIF}
   797 {$ENDIF}
       
   798 
       
   799     // re-init flags so they'll always contain safe values
       
   800     cScreenWidth    := 1024;
       
   801     cScreenHeight   := 768;
       
   802     cBits           := 32;
       
   803     cBitsStr        := '32';
       
   804     //ipcPort is in uIO
       
   805     cFullScreen     := false;
       
   806     isSoundEnabled  := true;
       
   807     isMusicEnabled  := false;
       
   808     cLocaleFName    := 'en.txt';
       
   809     cInitVolume     := 50;
       
   810     cTimerInterval  := 8;
       
   811     //pathPrefix is in uConsts
       
   812     cShowFPS        := false;
       
   813     cAltDamage      := true;
       
   814     cReducedQuality := rqNone;
       
   815     //userNick is in uChat
       
   816     recordFileName  := '';
   798 end;
   817 end;
   799 
   818 
   800 end.
   819 end.