hedgewars/uWorld.pas
changeset 11892 083c12795632
parent 11886 34ede05e4d4f
child 11900 19cb0de79287
equal deleted inserted replaced
11891:b27d2351ec16 11892:083c12795632
  1504         r.h:= 13;
  1504         r.h:= 13;
  1505         DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - offsetY + 74 + WindBarWidth, cScreenHeight - offsetX + 2, 13, 0);
  1505         DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - offsetY + 74 + WindBarWidth, cScreenHeight - offsetX + 2, 13, 0);
  1506         end
  1506         end
  1507     end;
  1507     end;
  1508 
  1508 
       
  1509 {$IFNDEF USE_TOUCH_INTERFACE}
       
  1510 // Indicators for global effects (extra damage, low gravity)
       
  1511 // TODO: Add support for touch interface (need to find out correct offset)
       
  1512 if UIDisplay <> uiNone then
       
  1513     begin
       
  1514     offsetX:= 45;
       
  1515     offsetY:= 51;
       
  1516 
       
  1517     if cDamageModifier = _1_5 then
       
  1518         begin
       
  1519             DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
       
  1520             DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amExtraDamage) - 1, 1, 32, 32);
       
  1521             offsetX := offsetX + 33
       
  1522         end;
       
  1523     if (cLowGravity) or ((GameFlags and gfLowGravity) <> 0) then
       
  1524         begin
       
  1525             DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
       
  1526             DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amLowGravity) - 1, 1, 32, 32);
       
  1527         end;
       
  1528     end;
       
  1529 {$ENDIF}
       
  1530 
  1509 // AmmoMenu
  1531 // AmmoMenu
  1510 if bShowAmmoMenu and ((AMState = AMHidden) or (AMState = AMHiding)) then
  1532 if bShowAmmoMenu and ((AMState = AMHidden) or (AMState = AMHiding)) then
  1511     begin
  1533     begin
  1512     if (AMState = AMHidden) then
  1534     if (AMState = AMHidden) then
  1513         AMAnimStartTime:= RealTicks
  1535         AMAnimStartTime:= RealTicks