hedgewars/uMisc.pas
changeset 3107 1fa539758c10
parent 3066 5c0efa437728
child 3115 831bd0f7050d
equal deleted inserted replaced
3106:3610efab8a32 3107:1fa539758c10
    36     isSoundEnabled  : boolean;
    36     isSoundEnabled  : boolean;
    37     isMusicEnabled  : boolean;
    37     isMusicEnabled  : boolean;
    38     isSEBackup      : boolean;
    38     isSEBackup      : boolean;
    39     isInMultiShoot  : boolean;
    39     isInMultiShoot  : boolean;
    40     isSpeed         : boolean;
    40     isSpeed         : boolean;
       
    41     isFirstFrame    : boolean;
    41 
    42 
    42     fastUntilLag    : boolean;
    43     fastUntilLag    : boolean;
    43 
    44 
    44     GameState   : TGameState;
    45     GameState   : TGameState;
    45     GameType    : TGameType;
    46     GameType    : TGameType;
   123 
   124 
   124     CursorPoint : TPoint;
   125     CursorPoint : TPoint;
   125     TargetPoint : TPoint;
   126     TargetPoint : TPoint;
   126 
   127 
   127     TextureList : PTexture;
   128     TextureList : PTexture;
       
   129 
       
   130     ScreenFade : TScreenFade;
       
   131     ScreenFadeValue : Longword;
       
   132     ScreenFadeSpeed : Longword;
   128 
   133 
   129 
   134 
   130 procedure initModule;
   135 procedure initModule;
   131 procedure freeModule;
   136 procedure freeModule;
   132 procedure SplitBySpace(var a, b: shortstring);
   137 procedure SplitBySpace(var a, b: shortstring);
   552     );
   557     );
   553 {$ENDIF}
   558 {$ENDIF}
   554 begin
   559 begin
   555 playSound(sndShutter);
   560 playSound(sndShutter);
   556 
   561 
       
   562 // flash
       
   563 ScreenFade:= sfFromWhite;
       
   564 ScreenFadeValue:= sfMax;
       
   565 ScreenFadeSpeed:= 5;
       
   566 
   557 size:= cScreenWidth * cScreenHeight * 3;
   567 size:= cScreenWidth * cScreenHeight * 3;
   558 p:= GetMem(size);
   568 p:= GetMem(size);
   559 
   569 
   560 // update header information and file name
   570 // update header information and file name
   561 {$IFNDEF WIN32}
   571 {$IFNDEF WIN32}
   713     isPaused        := false;
   723     isPaused        := false;
   714     isMusicEnabled  := false;
   724     isMusicEnabled  := false;
   715     isInMultiShoot  := false;
   725     isInMultiShoot  := false;
   716     isSpeed         := false;
   726     isSpeed         := false;
   717     fastUntilLag    := false;
   727     fastUntilLag    := false;
       
   728     isFirstFrame    := true;
   718     cVSyncInUse     := true;    
   729     cVSyncInUse     := true;    
   719     isSoundEnabled  := true;
   730     isSoundEnabled  := true;
   720     isSEBackup      := true;
   731     isSEBackup      := true;
   721     
   732     
   722     // init flags
   733     // init flags
   733     cVolumeDelta    := 0;
   744     cVolumeDelta    := 0;
   734     cTimerInterval  := 8;
   745     cTimerInterval  := 8;
   735     cHasFocus       := true;
   746     cHasFocus       := true;
   736     cInactDelay     := 1250;
   747     cInactDelay     := 1250;
   737     cAltDamage      := true;
   748     cAltDamage      := true;
       
   749 
       
   750     ScreenFade      := sfNone;
   738 {$IFDEF DEBUGFILE}
   751 {$IFDEF DEBUGFILE}
   739 {$I-}
   752 {$I-}
   740 {$IFDEF IPHONEOS}
   753 {$IFDEF IPHONEOS}
   741     f:= stderr;
   754     f:= stderr;
   742 {$ELSE}
   755 {$ELSE}