equal
deleted
inserted
replaced
444 glDisable(GL_BLEND) |
444 glDisable(GL_BLEND) |
445 end; |
445 end; |
446 |
446 |
447 procedure AddCaption(s: string; Color: Longword; Group: TCapGroup); |
447 procedure AddCaption(s: string; Color: Longword; Group: TCapGroup); |
448 begin |
448 begin |
449 if Group in [capgrpGameState, capgrpNetSay] then WriteLnToConsole(s); |
449 //if Group in [capgrpGameState] then WriteLnToConsole(s); |
450 if Captions[Group].Tex <> nil then FreeTexture(Captions[Group].Tex); |
450 if Captions[Group].Tex <> nil then FreeTexture(Captions[Group].Tex); |
451 |
451 |
452 Captions[Group].Tex:= RenderStringTex(s, Color, fntBig); |
452 Captions[Group].Tex:= RenderStringTex(s, Color, fntBig); |
453 Captions[Group].EndTime:= RealTicks + 1500 |
453 |
|
454 case Group of |
|
455 capgrpGameState: Captions[Group].EndTime:= RealTicks + 2200 |
|
456 else |
|
457 Captions[Group].EndTime:= RealTicks + 1570 |
|
458 end; |
454 end; |
459 end; |
455 |
460 |
456 procedure MoveCamera; |
461 procedure MoveCamera; |
457 const PrevSentPointTime: LongWord = 0; |
462 const PrevSentPointTime: LongWord = 0; |
458 var EdgesDist: LongInt; |
463 var EdgesDist: LongInt; |