hedgewars/uWorld.pas
changeset 14299 5cff42e1dd92
parent 14282 6015b74eea55
child 14302 8d2983ff939b
equal deleted inserted replaced
14298:00b56ec8b7df 14299:5cff42e1dd92
  1573         r.h:= 13;
  1573         r.h:= 13;
  1574         DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - offsetY + 74 + WindBarWidth, cScreenHeight - offsetX + 2, 13, 0);
  1574         DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - offsetY + 74 + WindBarWidth, cScreenHeight - offsetX + 2, 13, 0);
  1575         end
  1575         end
  1576     end;
  1576     end;
  1577 
  1577 
  1578 {$IFNDEF USE_TOUCH_INTERFACE}
       
  1579 // Indicators for global effects (extra damage, low gravity)
  1578 // Indicators for global effects (extra damage, low gravity)
  1580 // TODO: Add support for touch interface (need to find out correct offset)
       
  1581 if UIDisplay <> uiNone then
  1579 if UIDisplay <> uiNone then
  1582     begin
  1580     begin
       
  1581 {$IFDEF USE_TOUCH_INTERFACE}
       
  1582     offsetX:= (cScreenWidth shr 1) - 95;
       
  1583     offsetY:= cScreenHeight - 21;
       
  1584 {$ELSE}
  1583     offsetX:= 45;
  1585     offsetX:= 45;
  1584     offsetY:= 51;
  1586     offsetY:= 51;
       
  1587 {$ENDIF}
  1585 
  1588 
  1586     if cDamageModifier = _1_5 then
  1589     if cDamageModifier = _1_5 then
  1587         begin
  1590         begin
  1588             DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
  1591             DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
  1589             DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amExtraDamage) - 1, 1, 32, 32);
  1592             DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amExtraDamage) - 1, 1, 32, 32);
       
  1593 {$IFDEF USE_TOUCH_INTERFACE}
       
  1594             offsetX := offsetX - 33
       
  1595 {$ELSE}
  1590             offsetX := offsetX + 33
  1596             offsetX := offsetX + 33
       
  1597 {$ENDIF}
  1591         end;
  1598         end;
  1592     if (cLowGravity) or ((GameFlags and gfLowGravity) <> 0) then
  1599     if (cLowGravity) or ((GameFlags and gfLowGravity) <> 0) then
  1593         begin
  1600         begin
  1594             DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
  1601             DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
  1595             DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amLowGravity) - 1, 1, 32, 32);
  1602             DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amLowGravity) - 1, 1, 32, 32);
  1596         end;
  1603         end;
  1597     end;
  1604     end;
  1598 {$ENDIF}
       
  1599 
  1605 
  1600 // Chat
  1606 // Chat
  1601 DrawChat;
  1607 DrawChat;
  1602 
  1608 
  1603 
  1609