613 playSound(sndShutter);

   614 

   706     Pathz:= cPathz;

   707         {*  REFERENCE

   708       4096 -> $FFFFF000

   709       2048 -> $FFFFF800

   710       1024 -> $FFFFFC00

   711        512 -> $FFFFFE00  *}

   712     if (cReducedQuality and rqLowRes) <> 0 then

   713     begin

   714         LAND_WIDTH:= 2048;

   715         LAND_HEIGHT:= 1024;

   716         LAND_WIDTH_MASK:= $FFFFF800;

   717         LAND_HEIGHT_MASK:= $FFFFFC00;

   718     end

   719     else

   720     begin

   721         LAND_WIDTH:= 4096;

   722         LAND_HEIGHT:= 2048;

   723         LAND_WIDTH_MASK:= $FFFFF000;

   724         LAND_HEIGHT_MASK:= $FFFFF800

   725     end;

   726 

   727     cDrownSpeed.QWordValue  := 257698038;       // 0.06

   728     cDrownSpeedf            := 0.06;

   729     cMaxWindSpeed.QWordValue:= 1073742;     // 0.00025

   730     cWindSpeed.QWordValue   := 429496;      // 0.0001

   731     cWindSpeedf             := 0.0001;

   732     cGravity                := cMaxWindSpeed * 2;

   733     cGravityf               := 0.00025 * 2;

   734     cDamageModifier         := _1;

   735     TargetPoint             := cTargetPointRef;

   736     TextureList             := nil;

   737 

   738     // int, longint longword and byte

   739     CursorMovementX     := 0;

   740     CursorMovementY     := 0;

   741     GameTicks           := 0;

   742     TrainingTimeInc     := 10000;

   743     TrainingTimeInD     := 500;

   744     TrainingTimeInM     := 5000;

   745     TrainingTimeMax     := 60000;

   746     TimeTrialStartTime  := 0;

   747     TimeTrialStopTime   := 0;

   748     cWaterLine          := LAND_HEIGHT;

   749     cGearScrEdgesDist   := 240;

   750 

   751     GameFlags           := 0;

   752     TrainingFlags       := 0;

   753     TurnTimeLeft        := 0;

   754     cSuddenDTurns       := 15;

   755     cDamagePercent      := 100;

   756     cMineDudPercent     := 0;

   757     cTemplateFilter     := 0;

   758     cMapGen             := 0;   // MAPGEN_REGULAR

   759     cMazeSize           := 0;

   760     cHedgehogTurnTime   := 45000;

   761     cMinesTime          := 3;

   762     cMaxAIThinkTime     := 9000;

   763     cCloudsNumber       := 9;

   764     cHealthCaseProb     := 35;

   765     cHealthCaseAmount   := 25;

   766     cWaterRise          := 47;

   767     cHealthDecrease     := 5;

   768 

   769     cTagsMask       := 0;

   771     InitStepsFlags  := 0;

   772     RealTicks       := 0;

   773     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon

   774     cCaseFactor     := 5;  {0..9}

   775     cLandMines      := 4;

   776     cExplosives     := 2;

   777 

   778     GameState       := Low(TGameState);

   779     GameType        := gmtLocal;

   780     zoom            := cDefaultZoomLevel;

   781     ZoomValue       := cDefaultZoomLevel;

   782     WeaponTooltipTex:= nil;

   783     cLaserSighting  := false;

   784     cVampiric       := false;

   785     cArtillery      := false;

   786     flagMakeCapture := false;

   787     bBetweenTurns   := false;

   788     bWaterRising    := false;

   789     isCursorVisible := false;

   790     isTerminated    := false;

   791     isInLag         := false;

   792     isPaused        := false;

   793     isInMultiShoot  := false;

   794     isSpeed         := false;

   795     fastUntilLag    := false;

   796     isFirstFrame    := true;

   797     isSEBackup      := true;

   798     cSeed           := '';

   799     cVolumeDelta    := 0;

   800     cHasFocus       := true;

   801     cInactDelay     := 1250;

   802     ReadyTimeLeft   := 0;

   803 

   804     ScreenFade      := sfNone;

   805 

   806 {$IFDEF SDL13}

   807     SDLwindow       := nil;

   808 {$ENDIF}

   809 

   810     // those values still aren't perfect

   811     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);

   812     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);

   813     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;

   814 

   815     if isPhone() then

   816         cMaxCaptions:= 3

   817     else

   818         cMaxCaptions:= 4;

   865 

   866     // re-init flags so they will always contain safe values

   867     cScreenWidth    := 1024;

   868     cScreenHeight   := 768;

   869     cBits           := 32;

   870     //ipcPort is in uIO

   871     cFullScreen     := false;

   872     isSoundEnabled  := true;

   873     isMusicEnabled  := false;

   874     cLocaleFName    := 'en.txt';

   875     cInitVolume     := 100;

   876     cTimerInterval  := 8;

   877     PathPrefix := './';

   878     cShowFPS        := false;

   879     cAltDamage      := true;

   880     cReducedQuality := rqNone;

   881     //userNick is in uChat

   882     recordFileName  := '';

   883     cReadyDelay     := 0;