hedgewars/uGearsRender.pas
changeset 11059 659427d9fd17
parent 11046 47a8c19ecb60
child 11174 5cadfe82eaf6
equal deleted inserted replaced
11058:b91667fd6f20 11059:659427d9fd17
   744                     defaultPos:= false
   744                     defaultPos:= false
   745                     end;
   745                     end;
   746                 amRubber,
   746                 amRubber,
   747                 amGirder: begin
   747                 amGirder: begin
   748                     DrawSpriteRotated(sprHandConstruction, hx, hy, sign, aangle);
   748                     DrawSpriteRotated(sprHandConstruction, hx, hy, sign, aangle);
   749                     if WorldEdge = weWrap then
   749                     if cBuildMaxDist = cDefaultBuildMaxDist then
   750                         begin
   750                         begin
   751                         if hwRound(Gear^.X) < LongInt(leftX) + 256 then
   751                         if WorldEdge = weWrap then
   752                             DrawSpriteClipped(sprGirder,
   752                             begin
   753                                             rightX+(ox-leftX)-256,
   753                             if hwRound(Gear^.X) < LongInt(leftX) + 256 then
   754                                             oy-256,
   754                                 DrawSpriteClipped(sprGirder,
   755                                             LongInt(topY)+WorldDy,
   755                                                 rightX+(ox-leftX)-256,
   756                                             LongInt(rightX)+WorldDx,
   756                                                 oy-256,
   757                                             cWaterLine+WorldDy,
   757                                                 LongInt(topY)+WorldDy,
   758                                             LongInt(leftX)+WorldDx);
   758                                                 LongInt(rightX)+WorldDx,
   759                         if hwRound(Gear^.X) > LongInt(rightX) - 256 then
   759                                                 cWaterLine+WorldDy,
   760                             DrawSpriteClipped(sprGirder,
   760                                                 LongInt(leftX)+WorldDx);
   761                                             leftX-(rightX-ox)-256,
   761                             if hwRound(Gear^.X) > LongInt(rightX) - 256 then
   762                                             oy-256,
   762                                 DrawSpriteClipped(sprGirder,
   763                                             LongInt(topY)+WorldDy,
   763                                                 leftX-(rightX-ox)-256,
   764                                             LongInt(rightX)+WorldDx,
   764                                                 oy-256,
   765                                             cWaterLine+WorldDy,
   765                                                 LongInt(topY)+WorldDy,
   766                                             LongInt(leftX)+WorldDx)
   766                                                 LongInt(rightX)+WorldDx,
       
   767                                                 cWaterLine+WorldDy,
       
   768                                                 LongInt(leftX)+WorldDx)
       
   769                             end;
       
   770                         DrawSpriteClipped(sprGirder,
       
   771                                         ox-256,
       
   772                                         oy-256,
       
   773                                         LongInt(topY)+WorldDy,
       
   774                                         LongInt(rightX)+WorldDx,
       
   775                                         cWaterLine+WorldDy,
       
   776                                         LongInt(leftX)+WorldDx)
       
   777                         end
       
   778                     else if cBuildMaxDist > 0 then
       
   779                         begin
       
   780                             DrawCircle(hx, hy, cBuildMaxDist, 3, $FF, 0, 0, $80);
   767                         end;
   781                         end;
   768                     DrawSpriteClipped(sprGirder,
       
   769                                     ox-256,
       
   770                                     oy-256,
       
   771                                     LongInt(topY)+WorldDy,
       
   772                                     LongInt(rightX)+WorldDx,
       
   773                                     cWaterLine+WorldDy,
       
   774                                     LongInt(leftX)+WorldDx)
       
   775                     end;
   782                     end;
   776                 amBee: DrawSpriteRotatedF(sprHandBee, hx, hy, (RealTicks div 125) mod 4, sign, aangle);
   783                 amBee: DrawSpriteRotatedF(sprHandBee, hx, hy, (RealTicks div 125) mod 4, sign, aangle);
   777                 amFlamethrower: DrawSpriteRotatedF(sprHandFlamethrower, hx, hy, (RealTicks div 125) mod 4, sign, aangle);
   784                 amFlamethrower: DrawSpriteRotatedF(sprHandFlamethrower, hx, hy, (RealTicks div 125) mod 4, sign, aangle);
   778                 amLandGun: DrawSpriteRotated(sprHandBallgun, hx, hy, sign, aangle);
   785                 amLandGun: DrawSpriteRotated(sprHandBallgun, hx, hy, sign, aangle);
   779                 amIceGun: DrawSpriteRotated(sprIceGun, hx, hy, sign, aangle);
   786                 amIceGun: DrawSpriteRotated(sprIceGun, hx, hy, sign, aangle);