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