hedgewars/uWorld.pas
changeset 14999 6d4a607f2196
parent 14996 7ff86274114e
child 15041 f764394839b2
equal deleted inserted replaced
14998:39dd40aca1b1 14999:6d4a607f2196
  1706         end;
  1706         end;
  1707     if (cLowGravity) or ((GameFlags and gfLowGravity) <> 0) then
  1707     if (cLowGravity) or ((GameFlags and gfLowGravity) <> 0) then
  1708         begin
  1708         begin
  1709             DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
  1709             DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
  1710             DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amLowGravity) - 1, 1, 32, 32);
  1710             DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amLowGravity) - 1, 1, 32, 32);
       
  1711 {$IFDEF USE_TOUCH_INTERFACE}
       
  1712             offsetX := offsetX - 33
       
  1713 {$ELSE}
       
  1714             offsetX := offsetX + 33
       
  1715 {$ENDIF}
       
  1716         end;
       
  1717     if cLaserSighting then
       
  1718         begin
       
  1719             DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
       
  1720             DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amLaserSight) - 1, 1, 32, 32);
  1711         end;
  1721         end;
  1712     end;
  1722     end;
  1713 
  1723 
  1714 // Cinematic Mode: Render black bars
  1724 // Cinematic Mode: Render black bars
  1715 if CinematicSteps > 0 then
  1725 if CinematicSteps > 0 then