equal
deleted
inserted
replaced
109 |
109 |
110 if flagMakeCapture then |
110 if flagMakeCapture then |
111 begin |
111 begin |
112 flagMakeCapture:= false; |
112 flagMakeCapture:= false; |
113 {$IFDEF PAS2C} |
113 {$IFDEF PAS2C} |
114 s:= 'hw'; |
114 s:= '/Screenshots/hw'; |
115 {$ELSE} |
115 {$ELSE} |
116 s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks); |
116 s:= '/Screenshots/hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks); |
117 {$ENDIF} |
117 {$ENDIF} |
118 |
118 |
|
119 // flash |
119 playSound(sndShutter); |
120 playSound(sndShutter); |
120 |
121 ScreenFade:= sfFromWhite; |
121 if MakeScreenshot(s) then |
122 ScreenFadeValue:= sfMax; |
|
123 ScreenFadeSpeed:= 5; |
|
124 |
|
125 if MakeScreenshot(s, 1) then |
122 WriteLnToConsole('Screenshot saved: ' + s) |
126 WriteLnToConsole('Screenshot saved: ' + s) |
123 else |
127 else |
124 begin |
128 begin |
125 WriteLnToConsole('Screenshot failed.'); |
129 WriteLnToConsole('Screenshot failed.'); |
126 AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |
130 AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |