equal
deleted
inserted
replaced
1023 end; |
1023 end; |
1024 end; |
1024 end; |
1025 |
1025 |
1026 |
1026 |
1027 procedure RenderTeamsHealth; |
1027 procedure RenderTeamsHealth; |
1028 var t, i, h, smallScreenOffset, TeamHealthBarWidth : LongInt; |
1028 var t, i, h, smallScreenOffset, TeamHealthBarWidth : LongInt; |
1029 r: TSDL_Rect; |
1029 r: TSDL_Rect; |
1030 highlight: boolean; |
1030 highlight: boolean; |
1031 htex: PTexture; |
1031 htex: PTexture; |
1032 begin |
1032 begin |
1033 if TeamsCount * 20 > Longword(cScreenHeight) div 7 then // take up less screen on small displays |
1033 if TeamsCount * 20 > Longword(cScreenHeight) div 7 then // take up less screen on small displays |
1157 WorldDx:= preShiftWorldDx; |
1157 WorldDx:= preShiftWorldDx; |
1158 end; |
1158 end; |
1159 |
1159 |
1160 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode); |
1160 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode); |
1161 var i, t: LongInt; |
1161 var i, t: LongInt; |
|
1162 spr: TSprite; |
1162 r: TSDL_Rect; |
1163 r: TSDL_Rect; |
1163 tdx, tdy: Double; |
1164 tdx, tdy: Double; |
1164 s: shortstring; |
1165 s: shortstring; |
1165 offsetX, offsetY, screenBottom: LongInt; |
1166 offsetX, offsetY, screenBottom: LongInt; |
1166 replicateToLeft, replicateToRight, tmp: boolean; |
1167 replicateToLeft, replicateToRight, tmp: boolean; |
1439 t:= 80; |
1440 t:= 80; |
1440 DrawSprite(sprFrame, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, 1); |
1441 DrawSprite(sprFrame, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, 1); |
1441 while i > 0 do |
1442 while i > 0 do |
1442 begin |
1443 begin |
1443 dec(t, 32); |
1444 dec(t, 32); |
1444 DrawSprite(sprBigDigit, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, i mod 10); |
1445 if (ReadyTimeLeft <> 0) then |
|
1446 spr := sprBigDigitGreen |
|
1447 else |
|
1448 spr := sprBigDigit; |
|
1449 DrawSprite(spr, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, i mod 10); |
1445 i:= i div 10 |
1450 i:= i div 10 |
1446 end; |
1451 end; |
1447 DrawSprite(sprFrame, -(cScreenWidth shr 1) + t - 4 + offsetY, cScreenHeight - offsetX, 0); |
1452 DrawSprite(sprFrame, -(cScreenWidth shr 1) + t - 4 + offsetY, cScreenHeight - offsetX, 0); |
1448 end; |
1453 end; |
1449 |
1454 |