equal
deleted
inserted
replaced
257 |
257 |
258 // Captions |
258 // Captions |
259 i:= 8; |
259 i:= 8; |
260 for grp:= Low(TCapGroup) to High(TCapGroup) do |
260 for grp:= Low(TCapGroup) to High(TCapGroup) do |
261 with Captions[grp] do |
261 with Captions[grp] do |
262 if EndTime > 0 then |
262 if Surf <> nil then |
263 begin |
263 begin |
264 DrawCentered(cScreenWidth div 2, i + cConsoleYAdd, Surf, Surface); |
264 DrawCentered(cScreenWidth div 2, i + cConsoleYAdd, Surf, Surface); |
265 inc(i, Surf.h + 2); |
265 inc(i, Surf.h + 2); |
266 if EndTime <= RealTicks then |
266 if EndTime <= RealTicks then |
267 begin |
267 begin |
363 begin |
363 begin |
364 if Group in [capgrpGameState, capgrpNetSay] then WriteLnToConsole(s); |
364 if Group in [capgrpGameState, capgrpNetSay] then WriteLnToConsole(s); |
365 if Captions[Group].Surf <> nil then SDL_FreeSurface(Captions[Group].Surf); |
365 if Captions[Group].Surf <> nil then SDL_FreeSurface(Captions[Group].Surf); |
366 |
366 |
367 Captions[Group].Surf:= RenderString(s, Color, fntBig); |
367 Captions[Group].Surf:= RenderString(s, Color, fntBig); |
368 Captions[Group].EndTime:= RealTicks + 1200 |
368 Captions[Group].EndTime:= RealTicks + 1500 |
369 end; |
369 end; |
370 |
370 |
371 procedure MoveCamera; |
371 procedure MoveCamera; |
372 const PrevSentPointTime: LongWord = 0; |
372 const PrevSentPointTime: LongWord = 0; |
373 var EdgesDist: integer; |
373 var EdgesDist: integer; |