hedgewars/uWorld.pas
branchhedgeroid
changeset 5936 849f01d63538
parent 5932 5164d17b6374
child 5941 db4751cb4f53
equal deleted inserted replaced
5934:9f05a0f43003 5936:849f01d63538
   912 
   912 
   913 // Captions
   913 // Captions
   914 DrawCaptions;
   914 DrawCaptions;
   915 
   915 
   916 // Draw buttons Related to the Touch interface
   916 // Draw buttons Related to the Touch interface
   917 //SetScale(0.8);
       
   918 //DrawSprite(sprFireButton, round(-cScreenWidth/0.8),round(cScreenHeight/0.8), 0);
       
   919 DrawTexture(Round(-cScreenWidth*0.5 + cScreenHeight*0.02),Round((cScreenHeight*0.98)-(spritesData[sprFireButton].Height*0.4) ),spritesData[sprFireButton].Texture, 0.4);
   917 DrawTexture(Round(-cScreenWidth*0.5 + cScreenHeight*0.02),Round((cScreenHeight*0.98)-(spritesData[sprFireButton].Height*0.4) ),spritesData[sprFireButton].Texture, 0.4);
   920 SetScale(cDefaultZoomLevel);
       
   921 
   918 
   922 // Teams Healths
   919 // Teams Healths
   923 if TeamsCount * 20 > cScreenHeight div 7 then  // take up less screen on small displays
   920 if TeamsCount * 20 > cScreenHeight div 7 then  // take up less screen on small displays
   924     begin
   921     begin
   925     SetScale(1.5);
   922     SetScale(1.5);