1554 {$ENDIF} |
1554 {$ENDIF} |
1555 DrawSprite(sprWindBar, (cScreenWidth shr 1) - offsetY, cScreenHeight - offsetX, 0); |
1555 DrawSprite(sprWindBar, (cScreenWidth shr 1) - offsetY, cScreenHeight - offsetX, 0); |
1556 if WindBarWidth > 0 then |
1556 if WindBarWidth > 0 then |
1557 begin |
1557 begin |
1558 {$WARNINGS OFF} |
1558 {$WARNINGS OFF} |
1559 r.x:= 8 - (RealTicks shr 6) mod 8; |
1559 r.x:= 8 - (RealTicks shr 6) mod 9; |
1560 {$WARNINGS ON} |
1560 {$WARNINGS ON} |
1561 r.y:= 0; |
1561 r.y:= 0; |
1562 r.w:= WindBarWidth; |
1562 r.w:= WindBarWidth; |
1563 r.h:= 13; |
1563 r.h:= 13; |
1564 DrawSpriteFromRect(sprWindR, r, (cScreenWidth shr 1) - offsetY + 77, cScreenHeight - offsetX + 2, 13, 0); |
1564 DrawSpriteFromRect(sprWindR, r, (cScreenWidth shr 1) - offsetY + 77, cScreenHeight - offsetX + 2, 13, 0); |
1565 end |
1565 end |
1566 else |
1566 else |
1567 if WindBarWidth < 0 then |
1567 if WindBarWidth < 0 then |
1568 begin |
1568 begin |
1569 {$WARNINGS OFF} |
1569 {$WARNINGS OFF} |
1570 r.x:= (Longword(WindBarWidth) + RealTicks shr 6) mod 8; |
1570 r.x:= (Longword(WindBarWidth) + RealTicks shr 6) mod 9; |
1571 {$WARNINGS ON} |
1571 {$WARNINGS ON} |
1572 r.y:= 0; |
1572 r.y:= 0; |
1573 r.w:= - WindBarWidth; |
1573 r.w:= - WindBarWidth; |
1574 r.h:= 13; |
1574 r.h:= 13; |
1575 DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - offsetY + 74 + WindBarWidth, cScreenHeight - offsetX + 2, 13, 0); |
1575 DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - offsetY + 74 + WindBarWidth, cScreenHeight - offsetX + 2, 13, 0); |