Mercurial Mercurial > hedgewars-draft / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uWorld.pas
changeset 15676 c1d0ada72cc8
parent 15675 d738b2b1249e
child 15717 eeab5b90c082
equal deleted inserted replaced
15675:d738b2b1249e 15676:c1d0ada72cc8 
  1317         DrawWaves(-1, 50, cWaveHeight div 2, cWaveHeight div 2, 0);
 
  1317         DrawWaves(-1, 50, cWaveHeight div 2, cWaveHeight div 2, 0);
 
  1318 
  1318 
  1319 // line at airplane height for certain airstrike types (when spawning height is important)
 
  1319 // line at airplane height for certain airstrike types (when spawning height is important)
 
  1320 with CurrentHedgehog^ do
 
  1320 with CurrentHedgehog^ do
 
  1321     if (isCursorVisible) and ((CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) or (((GameFlags and gfMoreWind) <> 0) and ((CurAmmoType = amDrillStrike) or (CurAmmoType = amAirAttack)))) then
 
  1321     if (isCursorVisible) and ((CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) or (((GameFlags and gfMoreWind) <> 0) and ((CurAmmoType = amDrillStrike) or (CurAmmoType = amAirAttack)))) then
 
  1322         DrawLine(-3000, topY-300, 7000, topY-300, 3.0, (Team^.Clan^.Color shr 16), (Team^.Clan^.Color shr 8) and $FF, Team^.Clan^.Color and $FF, $FF);
 
  1322         DrawLine(-cCamLimitX, topY-300, LAND_WIDTH + cCamLimitX, topY-300, 3.0, (Team^.Clan^.Color shr 16), (Team^.Clan^.Color shr 8) and $FF, Team^.Clan^.Color and $FF, $FF);
 
  1323 
  1323 
  1324 // gear HUD extras (fuel indicator, secondary ammo, etc.)
 
  1324 // gear HUD extras (fuel indicator, secondary ammo, etc.)
 
  1325 if replicateToLeft then
 
  1325 if replicateToLeft then
 
  1326     begin
 
  1326     begin
 
  1327     ShiftWorld(-1);
 
  1327     ShiftWorld(-1);
hedgewars-draft