hedgewars/uVariables.pas
changeset 8358 274afc318dca
parent 8354 c25bee85d6f8
child 8373 209c9ba77a09
equal deleted inserted replaced
8357:d7bef04c99d4 8358:274afc318dca
  2324 
  2324 
  2325 procedure preInitModule;
  2325 procedure preInitModule;
  2326 begin
  2326 begin
  2327     // initialisation flags - they are going to be overwritten by program args
  2327     // initialisation flags - they are going to be overwritten by program args
  2328 
  2328 
  2329     cScreenWidth    := 1024;
  2329     cFullscreenWidth  := 0;
  2330     cScreenHeight   := 768;
  2330     cFullscreenHeight := 0;
  2331     cFullscreenWidth    := 1024;
       
  2332     cFullscreenHeight   := 768;
       
  2333     cWindowedWidth    := 1024;
  2331     cWindowedWidth    := 1024;
  2334     cWindowedHeight   := 768;
  2332     cWindowedHeight   := 768;
       
  2333     cScreenWidth      := cWindowedWidth;
       
  2334     cScreenHeight     := cWindowedHeight;
       
  2335 
  2335     cShowFPS        := false;
  2336     cShowFPS        := false;
  2336     cAltDamage      := true;
  2337     cAltDamage      := true;
  2337     cTimerInterval  := 8;
  2338     cTimerInterval  := 8;
  2338     cReducedQuality := rqNone;
  2339     cReducedQuality := rqNone;
  2339     cLocaleFName    := 'en.txt';
  2340     cLocaleFName    := 'en.txt';
  2510     vobSDFramesCount:= 4;
  2511     vobSDFramesCount:= 4;
  2511     vobSDCount:= 30 * cScreenSpace div LAND_WIDTH;
  2512     vobSDCount:= 30 * cScreenSpace div LAND_WIDTH;
  2512     vobSDVelocity:= 15;
  2513     vobSDVelocity:= 15;
  2513     vobSDFallSpeed:= 250;
  2514     vobSDFallSpeed:= 250;
  2514 
  2515 
  2515     cMinScreenWidth:= min(cScreenWidth, 640);
  2516     cMinScreenWidth  := min(cScreenWidth, 640);
  2516     cMinScreenHeight:= min(cScreenHeight, 480);
  2517     cMinScreenHeight := min(cScreenHeight, 480);
  2517 
  2518 
  2518     cNewScreenWidth    := cScreenWidth;
  2519     cNewScreenWidth    := cScreenWidth;
  2519     cNewScreenHeight   := cScreenHeight;
  2520     cNewScreenHeight   := cScreenHeight;
  2520     cScreenResizeDelay := 0;
  2521     cScreenResizeDelay := 0;
       
  2522 
       
  2523     // make sure fullscreen resolution is always initialised somehow
       
  2524     if cFullscreenWidth = 0 then
       
  2525         cFullscreenWidth:= min(cWindowedWidth, 640);
       
  2526     if cFullscreenHeight = 0 then
       
  2527         cFullscreenHeight:= min(cWindowedHeight, 480);
       
  2528 
  2521 
  2529 
  2522     LuaGoals:= '';
  2530     LuaGoals:= '';
  2523     cMapName:= '';
  2531     cMapName:= '';
  2524 
  2532 
  2525     LuaTemplateNumber:= 0;
  2533     LuaTemplateNumber:= 0;