hedgewars/uMisc.pas
changeset 3765 ebfe7c9b3085
parent 3764 eb91c02f2d84
child 3774 af0e68ca273e
equal deleted inserted replaced
3764:eb91c02f2d84 3765:ebfe7c9b3085
    72     TimeTrialStopTime : Longword;
    72     TimeTrialStopTime : Longword;
    73 
    73 
    74     // originally from uConsts
    74     // originally from uConsts
    75     Pathz: array[TPathType] of shortstring;
    75     Pathz: array[TPathType] of shortstring;
    76     CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;
    76     CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;
    77     LAND_WIDTH  :longint;
    77     LAND_WIDTH       : LongInt;
    78     LAND_HEIGHT :longint;
    78     LAND_HEIGHT      : LongInt;
    79     LAND_WIDTH_MASK  :longWord;
    79     LAND_WIDTH_MASK  : LongWord;
    80     LAND_HEIGHT_MASK :longWord;
    80     LAND_HEIGHT_MASK : LongWord;
    81     cMaxCaptions : LongInt;
    81     cMaxCaptions     : LongInt;
    82 
    82 
    83     // init flags
    83     // init flags
    84     cScreenWidth    : LongInt = 1024;
    84     cScreenWidth    : LongInt = 1024;
    85     cScreenHeight   : LongInt = 768;
    85     cScreenHeight   : LongInt = 768;
    86     cBits           : LongInt = 32;
    86     cBits           : LongInt = 32;
    96     cAltDamage      : boolean = true;
    96     cAltDamage      : boolean = true;
    97     cReducedQuality : LongInt = rqNone;
    97     cReducedQuality : LongInt = rqNone;
    98     //userNick is in uChat
    98     //userNick is in uChat
    99     recordFileName  : shortstring = '';
    99     recordFileName  : shortstring = '';
   100 
   100 
   101     cLeftScreenBorder     : LongInt = 0;
   101     cLeftScreenBorder     : LongInt;
   102     cRightScreenBorder    : LongInt = 0;
   102     cRightScreenBorder    : LongInt;
   103     cScreenSpace          : LongInt = 0;
   103     cScreenSpace          : LongInt;
   104 
   104 
   105     cCaseFactor     : Longword;
   105     cCaseFactor     : Longword;
   106     cLandAdditions  : Longword;
   106     cLandAdditions  : Longword;
   107     cExplosives     : Longword;
   107     cExplosives     : Longword;
   108 
   108 
   784     cHasFocus       := true;
   784     cHasFocus       := true;
   785     cInactDelay     := 1250;
   785     cInactDelay     := 1250;
   786 
   786 
   787     ScreenFade      := sfNone;
   787     ScreenFade      := sfNone;
   788 
   788 
       
   789     // those values still aren't perfect
       
   790     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
       
   791     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
       
   792     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;
       
   793 
   789 {$IFDEF IPHONEOS}
   794 {$IFDEF IPHONEOS}
   790     if isPhone() then
   795     if isPhone() then
   791         cMaxCaptions:= 3
   796         cMaxCaptions:= 3
   792     else
   797     else
   793 {$ENDIF}
   798 {$ENDIF}