equal
deleted
inserted
replaced
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} |