equal
deleted
inserted
replaced
55 uChat in 'uChat.pas', |
55 uChat in 'uChat.pas', |
56 uTriggers in 'uTriggers.pas', |
56 uTriggers in 'uTriggers.pas', |
57 uLandTexture in 'uLandTexture.pas' |
57 uLandTexture in 'uLandTexture.pas' |
58 {$IFDEF IPHONEOS} |
58 {$IFDEF IPHONEOS} |
59 , PascalExports in 'PascalExports.pas' |
59 , PascalExports in 'PascalExports.pas' |
|
60 {$ELSE} |
|
61 , sysutils |
60 {$ENDIF} |
62 {$ENDIF} |
61 ; |
63 ; |
62 |
64 |
63 // also: GSHandlers.inc |
65 // also: GSHandlers.inc |
64 // CCHandlers.inc |
66 // CCHandlers.inc |
139 {$IFNDEF IPHONEOS} |
141 {$IFNDEF IPHONEOS} |
140 // not going to make captures on the iPhone |
142 // not going to make captures on the iPhone |
141 if flagMakeCapture then |
143 if flagMakeCapture then |
142 begin |
144 begin |
143 flagMakeCapture:= false; |
145 flagMakeCapture:= false; |
144 s:= 'hw_' + cSeed + '_' + inttostr(GameTicks) + '.tga'; |
146 s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks); |
145 WriteLnToConsole('Saving ' + s); |
147 WriteLnToConsole('Saving ' + s + '...'); |
146 MakeScreenshot(s); |
148 MakeScreenshot(s); |
147 //SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(Str2PChar(s), 'wb'), 1) |
149 //SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(Str2PChar(s), 'wb'), 1) |
148 end; |
150 end; |
149 {$ENDIF} |
151 {$ENDIF} |
150 end; |
152 end; |