equal
deleted
inserted
replaced
65 procedure OnDestroy; forward; |
65 procedure OnDestroy; forward; |
66 |
66 |
67 //////////////////////////////// |
67 //////////////////////////////// |
68 procedure DoTimer(Lag: LongInt); |
68 procedure DoTimer(Lag: LongInt); |
69 const MusicTimerTicks: Longword = 0; |
69 const MusicTimerTicks: Longword = 0; |
70 //var s: string; |
70 var s: string; |
71 begin |
71 begin |
72 inc(RealTicks, Lag); |
72 inc(RealTicks, Lag); |
73 |
73 |
74 inc(MusicTimerTicks, Lag); |
74 inc(MusicTimerTicks, Lag); |
75 if (MusicTimerTicks > 3000) and (GameState > gsStart) then |
75 if (MusicTimerTicks > 3000) and (GameState > gsStart) then |
117 end; |
117 end; |
118 |
118 |
119 SDL_GL_SwapBuffers(); |
119 SDL_GL_SwapBuffers(); |
120 if flagMakeCapture then |
120 if flagMakeCapture then |
121 begin |
121 begin |
122 { flagMakeCapture:= false; |
122 flagMakeCapture:= false; |
123 s:= 'hw_' + cSeed + '_' + inttostr(GameTicks) + '.bmp'; |
123 s:= 'hw_' + cSeed + '_' + inttostr(GameTicks) + '.tga'; |
124 WriteLnToConsole('Saving ' + s); |
124 WriteLnToConsole('Saving ' + s); |
125 SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(Str2PChar(s), 'wb'), 1) |
125 MakeScreenshot(s); |
126 } end; |
126 // SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(Str2PChar(s), 'wb'), 1) |
|
127 end; |
127 end; |
128 end; |
128 |
129 |
129 //////////////////// |
130 //////////////////// |
130 procedure OnDestroy; |
131 procedure OnDestroy; |
131 begin |
132 begin |