hedgewars/uWorld.pas
branchhedgeroid
changeset 5828 667fb58d7f18
parent 5824 2e5835130d9a
child 5932 5164d17b6374
equal deleted inserted replaced
5826:2a2cce052b4d 5828:667fb58d7f18
   911    end;
   911    end;
   912 
   912 
   913 // Captions
   913 // Captions
   914 DrawCaptions;
   914 DrawCaptions;
   915 
   915 
   916 // Draw buttons
   916 // Draw buttons Related to the Touch interface
   917 SetScale(0.8);
   917 //SetScale(0.8);
   918 DrawSprite(sprFireButton, round((-cScreenWidth+20)/0.8),round((cScreenHeight+55)/0.8),0);
   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);
   919 SetScale(cDefaultZoomLevel);
   920 SetScale(cDefaultZoomLevel);
   920 
   921 
   921 // Teams Healths
   922 // Teams Healths
   922 if TeamsCount * 20 > cScreenHeight div 7 then  // take up less screen on small displays
   923 if TeamsCount * 20 > cScreenHeight div 7 then  // take up less screen on small displays
   923     begin
   924     begin