equal
deleted
inserted
replaced
1 (* |
1 (* |
2 * Hedgewars, a free turn based strategy game |
2 * Hedgewars, a free turn based strategy game |
3 * Copyright (c) 2004-2014 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> |
4 * |
4 * |
5 * This program is free software; you can redistribute it and/or modify |
5 * This program is free software; you can redistribute it and/or modify |
6 * it under the terms of the GNU General Public License as published by |
6 * it under the terms of the GNU General Public License as published by |
7 * the Free Software Foundation; version 2 of the License |
7 * the Free Software Foundation; version 2 of the License |
8 * |
8 * |
125 playSound(sndShutter); |
125 playSound(sndShutter); |
126 ScreenFade:= sfFromWhite; |
126 ScreenFade:= sfFromWhite; |
127 ScreenFadeValue:= sfMax; |
127 ScreenFadeValue:= sfMax; |
128 ScreenFadeSpeed:= 5; |
128 ScreenFadeSpeed:= 5; |
129 |
129 |
130 if (not flagDumpLand and MakeScreenshot(s, 1, 0)) or (flagDumpLand and MakeScreenshot(s, 1, 1) and MakeScreenshot(s, 1, 2)) then |
130 if (not flagDumpLand and MakeScreenshot(s, 1, 0)) or |
|
131 (flagDumpLand and MakeScreenshot(s, 1, 1) and ((cReducedQuality and rqBlurryLand <> 0) or MakeScreenshot(s, 1, 2))) then |
131 WriteLnToConsole('Screenshot saved: ' + s) |
132 WriteLnToConsole('Screenshot saved: ' + s) |
132 else |
133 else |
133 begin |
134 begin |
134 WriteLnToConsole('Screenshot failed.'); |
135 WriteLnToConsole('Screenshot failed.'); |
135 AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |
136 AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |