equal
deleted
inserted
replaced
251 startTime:= SDL_GetTicks(); |
251 startTime:= SDL_GetTicks(); |
252 |
252 |
253 RecPrefix:= FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()); |
253 RecPrefix:= FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()); |
254 |
254 |
255 thumbnailSaved:= false; |
255 thumbnailSaved:= false; |
256 if (not (gameState in [gsLandGen, gsStart])) and (ScreenFade = sfNone) then |
|
257 SaveThumbnail(); |
|
258 |
256 |
259 Mix_QuerySpec(@frequency, @format, @channels); |
257 Mix_QuerySpec(@frequency, @format, @channels); |
260 AddFileLog('sound: frequency = ' + IntToStr(frequency) + ', format = ' + IntToStr(format) + ', channels = ' + IntToStr(channels)); |
258 AddFileLog('sound: frequency = ' + IntToStr(frequency) + ', format = ' + IntToStr(format) + ', channels = ' + IntToStr(channels)); |
261 if format <> $8010 then |
259 if format <> $8010 then |
262 begin |
260 begin |
305 SDL_LockAudio(); |
303 SDL_LockAudio(); |
306 Close(audioFile); |
304 Close(audioFile); |
307 Close(cameraFile); |
305 Close(cameraFile); |
308 Mix_SetPostMix(nil, nil); |
306 Mix_SetPostMix(nil, nil); |
309 SDL_UnlockAudio(); |
307 SDL_UnlockAudio(); |
310 |
|
311 if (not thumbnailSaved) then |
|
312 SaveThumbnail(); |
|
313 end; |
308 end; |
314 |
309 |
315 procedure SaveCameraPosition; |
310 procedure SaveCameraPosition; |
316 var curTime: LongInt; |
311 var curTime: LongInt; |
317 frame: TFrame; |
312 frame: TFrame; |