hedgewars/uGearsRender.pas
changeset 14282 6015b74eea55
parent 14200 1bdce164eb72
child 14286 7a7c090f96f6
equal deleted inserted replaced
14281:e754b516cc35 14282:6015b74eea55
   814                     DrawSpriteRotated(sprHandConstruction, hx, hy, sign, aangle);
   814                     DrawSpriteRotated(sprHandConstruction, hx, hy, sign, aangle);
   815                     if cBuildMaxDist = cDefaultBuildMaxDist then
   815                     if cBuildMaxDist = cDefaultBuildMaxDist then
   816                         begin
   816                         begin
   817                         if WorldEdge = weWrap then
   817                         if WorldEdge = weWrap then
   818                             begin
   818                             begin
   819                             if hwRound(Gear^.X) < LongInt(leftX) + 256 then
   819                             if hwRound(Gear^.X) < leftX + 256 then
   820                                 DrawSpriteClipped(sprGirder,
   820                                 DrawSpriteClipped(sprGirder,
   821                                                 rightX+(ox-leftX)-256,
   821                                                 rightX+(ox-leftX)-256,
   822                                                 oy-256,
   822                                                 oy-256,
   823                                                 LongInt(topY)+WorldDy,
   823                                                 LongInt(topY)+WorldDy,
   824                                                 LongInt(rightX)+WorldDx,
   824                                                 rightX+WorldDx,
   825                                                 cWaterLine+WorldDy,
   825                                                 cWaterLine+WorldDy,
   826                                                 LongInt(leftX)+WorldDx);
   826                                                 leftX+WorldDx);
   827                             if hwRound(Gear^.X) > LongInt(rightX) - 256 then
   827                             if hwRound(Gear^.X) > rightX - 256 then
   828                                 DrawSpriteClipped(sprGirder,
   828                                 DrawSpriteClipped(sprGirder,
   829                                                 leftX-(rightX-ox)-256,
   829                                                 leftX-(rightX-ox)-256,
   830                                                 oy-256,
   830                                                 oy-256,
   831                                                 LongInt(topY)+WorldDy,
   831                                                 LongInt(topY)+WorldDy,
   832                                                 LongInt(rightX)+WorldDx,
   832                                                 rightX+WorldDx,
   833                                                 cWaterLine+WorldDy,
   833                                                 cWaterLine+WorldDy,
   834                                                 LongInt(leftX)+WorldDx)
   834                                                 leftX+WorldDx)
   835                             end;
   835                             end;
   836                         DrawSpriteClipped(sprGirder,
   836                         DrawSpriteClipped(sprGirder,
   837                                         ox-256,
   837                                         ox-256,
   838                                         oy-256,
   838                                         oy-256,
   839                                         LongInt(topY)+WorldDy,
   839                                         LongInt(topY)+WorldDy,
   840                                         LongInt(rightX)+WorldDx,
   840                                         rightX+WorldDx,
   841                                         cWaterLine+WorldDy,
   841                                         cWaterLine+WorldDy,
   842                                         LongInt(leftX)+WorldDx)
   842                                         leftX+WorldDx)
   843                         end
   843                         end
   844                     else if cBuildMaxDist > 0 then
   844                     else if cBuildMaxDist > 0 then
   845                         begin
   845                         begin
   846                             DrawCircle(hx, hy, cBuildMaxDist, 3, $FF, 0, 0, $80);
   846                             DrawCircle(hx, hy, cBuildMaxDist, 3, $FF, 0, 0, $80);
   847                         end;
   847                         end;