hedgewars/uWorld.pas
changeset 6685 ef706fccfb0a
parent 6683 75a1d84ac606
child 6688 b2084a00a4cf
equal deleted inserted replaced
6684:112a0eb8782b 6685:ef706fccfb0a
   259 arrowDown.y:= -Round(spritesData[sprArrowDown].Texture^.h*buttonscale) + cScreenHeight;
   259 arrowDown.y:= -Round(spritesData[sprArrowDown].Texture^.h*buttonscale) + cScreenHeight;
   260 arrowDown.width:= Round(spritesData[sprArrowDown].Texture^.w * buttonScale);
   260 arrowDown.width:= Round(spritesData[sprArrowDown].Texture^.w * buttonScale);
   261 arrowDown.height:= Round(spritesData[sprArrowDown].Texture^.h * buttonScale);
   261 arrowDown.height:= Round(spritesData[sprArrowDown].Texture^.h * buttonScale);
   262 arrowDown.hOffset:= 0;
   262 arrowDown.hOffset:= 0;
   263 arrowDown.vOffset:= 0;
   263 arrowDown.vOffset:= 0;
       
   264 
       
   265 pauseButton.x:= cScreenWidth div 2 - Round(spritesData[sprPauseButton].Texture^.w * buttonscale);
       
   266 pauseButton.y:= 0; //-Round(spritesData[sprPauseButton].Texture^.h * buttonscale);
       
   267 pauseButton.width:= Round(spritesData[sprPauseButton].Texture^.w * buttonScale);;
       
   268 pauseButton.height:= Round(spritesData[sprPauseButton].Texture^.h * buttonScale);;
       
   269 pauseButton.hOffset:= 0;
       
   270 pauseButton.vOffset:= 0;
       
   271 
   264 {$ENDIF}
   272 {$ENDIF}
   265 end;
   273 end;
   266 
   274 
   267 // for uStore texture resetting
   275 // for uStore texture resetting
   268 procedure ResetWorldTex;
   276 procedure ResetWorldTex;
  1075 
  1083 
  1076 // this scale is used to keep the various widgets at the same dimension at all zoom levels
  1084 // this scale is used to keep the various widgets at the same dimension at all zoom levels
  1077 SetScale(cDefaultZoomLevel);
  1085 SetScale(cDefaultZoomLevel);
  1078 
  1086 
  1079 // Turn time
  1087 // Turn time
  1080 {$IFDEF MOBILE}
  1088 {$IFDEF USE_TOUCH_INTERFACE}
  1081 offsetX:= cScreenHeight - 13;
  1089 offsetX:= cScreenHeight - 13;
  1082 {$ELSE}
  1090 {$ELSE}
  1083 offsetX:= 48;
  1091 offsetX:= 48;
  1084 {$ENDIF}
  1092 {$ENDIF}
  1085 offsetY:= cOffsetY;
  1093 offsetY:= cOffsetY;
  1117 DrawTexture(arrowDown.x, arrowDown.y, spritesData[sprArrowDown].Texture, buttonScale);
  1125 DrawTexture(arrowDown.x, arrowDown.y, spritesData[sprArrowDown].Texture, buttonScale);
  1118 
  1126 
  1119 DrawTexture(fireButton.x, firebutton.y, spritesData[sprFireButton].Texture, buttonScale);
  1127 DrawTexture(fireButton.x, firebutton.y, spritesData[sprFireButton].Texture, buttonScale);
  1120 DrawTexture(backjump.x, backjump.y, spritesData[sprBackjump].Texture, buttonScale);
  1128 DrawTexture(backjump.x, backjump.y, spritesData[sprBackjump].Texture, buttonScale);
  1121 DrawTexture(forwardjump.x, forwardjump.y, spritesData[sprForwardjump].Texture, buttonScale);
  1129 DrawTexture(forwardjump.x, forwardjump.y, spritesData[sprForwardjump].Texture, buttonScale);
       
  1130 DrawTexture(pauseButton.x, pauseButton.y, spritesData[sprPauseButton].Texture, buttonScale);
  1122 {$ENDIF}
  1131 {$ENDIF}
  1123 
  1132 
  1124 // Teams Healths
  1133 // Teams Healths
  1125 if TeamsCount * 20 > Longword(cScreenHeight) div 7 then  // take up less screen on small displays
  1134 if TeamsCount * 20 > Longword(cScreenHeight) div 7 then  // take up less screen on small displays
  1126     begin
  1135     begin
  1205 // Lag alert
  1214 // Lag alert
  1206 if isInLag then
  1215 if isInLag then
  1207     DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12);
  1216     DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12);
  1208 
  1217 
  1209 // Wind bar
  1218 // Wind bar
  1210 {$IFDEF MOBILE}
  1219 {$IFDEF USE_TOUCH_INTERFACE}
  1211     offsetX:= cScreenHeight - 13;
  1220     offsetX:= cScreenHeight - 13;
  1212     offsetY:= (cScreenWidth shr 1) + 74;
  1221     offsetY:= (cScreenWidth shr 1) + 74;
  1213 {$ELSE}
  1222 {$ELSE}
  1214     offsetX:= 30;
  1223     offsetX:= 30;
  1215     offsetY:= 180;
  1224     offsetY:= 180;
  1262     if missionTex <> nil then
  1271     if missionTex <> nil then
  1263         DrawCentered(0, Min((cScreenHeight shr 1) + 100, cScreenHeight - 48 - missionTex^.h), missionTex);
  1272         DrawCentered(0, Min((cScreenHeight shr 1) + 100, cScreenHeight - 48 - missionTex^.h), missionTex);
  1264     end;
  1273     end;
  1265 
  1274 
  1266 // fps
  1275 // fps
  1267 {$IFDEF MOBILE}
  1276 {$IFDEF USE_TOUCH_INTERFACE}
  1268 offsetX:= 8;
  1277 offsetX:= pauseButton.y + pauseButton.height + 12;
  1269 {$ELSE}
  1278 {$ELSE}
  1270 offsetX:= 10;
  1279 offsetX:= 10;
  1271 {$ENDIF}
  1280 {$ENDIF}
  1272 offsetY:= cOffsetY;
  1281 offsetY:= cOffsetY;
  1273 if (RM = rmDefault) or (RM = rmRightEye) then
  1282 if (RM = rmDefault) or (RM = rmRightEye) then