1158 DrawVisualGears(5); |
1158 DrawVisualGears(5); |
1159 DrawLand(WorldDx, WorldDy); |
1159 DrawLand(WorldDx, WorldDy); |
1160 |
1160 |
1161 DrawWater(255, 0); |
1161 DrawWater(255, 0); |
1162 |
1162 |
1163 // Attack bar |
|
1164 if CurrentTeam <> nil then |
|
1165 case AttackBar of |
|
1166 (* 1: begin |
|
1167 r:= StuffPoz[sPowerBar]; |
|
1168 {$WARNINGS OFF} |
|
1169 r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor; |
|
1170 {$WARNINGS ON} |
|
1171 DrawSpriteFromRect(r, cScreenWidth - 272, cScreenHeight - 48, 16, 0, Surface); |
|
1172 end;*) |
|
1173 2: with CurrentHedgehog^ do |
|
1174 begin |
|
1175 tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
|
1176 tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
|
1177 for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do |
|
1178 DrawSprite(sprPower, |
|
1179 hwRound(Gear^.X) + GetLaunchX(CurAmmoType, hwSign(Gear^.dX), Gear^.Angle) + LongInt(round(WorldDx + tdx * (24 + i * 2))) - 16, |
|
1180 hwRound(Gear^.Y) + GetLaunchY(CurAmmoType, Gear^.Angle) + LongInt(round(WorldDy + tdy * (24 + i * 2))) - 16, |
|
1181 i) |
|
1182 end |
|
1183 end; |
|
1184 |
|
1185 DrawVisualGears(1); |
1163 DrawVisualGears(1); |
1186 DrawGears; |
1164 DrawGears; |
1187 DrawVisualGears(6); |
1165 DrawVisualGears(6); |
1188 |
1166 |
1189 if SuddenDeathDmg then |
1167 if SuddenDeathDmg then |
1383 SetScale(cDefaultZoomLevel); |
1361 SetScale(cDefaultZoomLevel); |
1384 if TeamsCount * 20 > Longword(cScreenHeight) div 5 then |
1362 if TeamsCount * 20 > Longword(cScreenHeight) div 5 then |
1385 Tint($FF,$FF,$FF,$FF); |
1363 Tint($FF,$FF,$FF,$FF); |
1386 end; |
1364 end; |
1387 |
1365 |
|
1366 // Attack bar |
|
1367 if CurrentTeam <> nil then |
|
1368 case AttackBar of |
|
1369 (* 1: begin |
|
1370 r:= StuffPoz[sPowerBar]; |
|
1371 {$WARNINGS OFF} |
|
1372 r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor; |
|
1373 {$WARNINGS ON} |
|
1374 DrawSpriteFromRect(r, cScreenWidth - 272, cScreenHeight - 48, 16, 0, Surface); |
|
1375 end;*) |
|
1376 2: with CurrentHedgehog^ do |
|
1377 begin |
|
1378 tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
|
1379 tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
|
1380 for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do |
|
1381 DrawSprite(sprPower, |
|
1382 hwRound(Gear^.X) + GetLaunchX(CurAmmoType, hwSign(Gear^.dX), Gear^.Angle) + LongInt(round(WorldDx + tdx * (24 + i * 2))) - 16, |
|
1383 hwRound(Gear^.Y) + GetLaunchY(CurAmmoType, Gear^.Angle) + LongInt(round(WorldDy + tdy * (24 + i * 2))) - 16, |
|
1384 i) |
|
1385 end |
|
1386 end; |
|
1387 |
|
1388 |
1388 // Lag alert |
1389 // Lag alert |
1389 if isInLag then |
1390 if isInLag then |
1390 DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12); |
1391 DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12); |
1391 |
1392 |
1392 // Wind bar |
1393 // Wind bar |