hedgewars/uGearsRender.pas
changeset 15639 afeffdb4a712
parent 15630 c9fec197335a
child 15640 8416b08ffdbb
equal deleted inserted replaced
15638:1ee7790caa0f 15639:afeffdb4a712
   893                 amWatermelon: DrawSpriteRotated(sprHandMelon, hx, hy, sign, aangle);
   893                 amWatermelon: DrawSpriteRotated(sprHandMelon, hx, hy, sign, aangle);
   894                 amSkip: DrawSpriteRotated(sprHandSkip, hx, hy, sign, aangle);
   894                 amSkip: DrawSpriteRotated(sprHandSkip, hx, hy, sign, aangle);
   895                 amClusterBomb: DrawSpriteRotated(sprHandCluster, hx, hy, sign, aangle);
   895                 amClusterBomb: DrawSpriteRotated(sprHandCluster, hx, hy, sign, aangle);
   896                 amDynamite: DrawSpriteRotated(sprHandDynamite, hx, hy, sign, aangle);
   896                 amDynamite: DrawSpriteRotated(sprHandDynamite, hx, hy, sign, aangle);
   897                 amCreeper: DrawSpriteRotatedF(sprHandCreeper, hx, hy, 0, sign, aangle);
   897                 amCreeper: DrawSpriteRotatedF(sprHandCreeper, hx, hy, 0, sign, aangle);
       
   898                 amSentry: DrawSpriteRotated(sprHandSentry, hx, hy, sign, aangle);
   898                 amHellishBomb: DrawSpriteRotated(sprHandHellish, hx, hy, sign, aangle);
   899                 amHellishBomb: DrawSpriteRotated(sprHandHellish, hx, hy, sign, aangle);
   899                 amGasBomb: DrawSpriteRotated(sprHandCheese, hx, hy, sign, aangle);
   900                 amGasBomb: DrawSpriteRotated(sprHandCheese, hx, hy, sign, aangle);
   900                 amMine: DrawSpriteRotated(sprHandMine, hx, hy, sign, aangle);
   901                 amMine: DrawSpriteRotated(sprHandMine, hx, hy, sign, aangle);
   901                 amAirMine: DrawSpriteRotated(sprHandAirMine, hx, hy, sign, aangle);
   902                 amAirMine: DrawSpriteRotated(sprHandAirMine, hx, hy, sign, aangle);
   902                 amSMine: DrawSpriteRotated(sprHandSMine, hx, hy, sign, aangle);
   903                 amSMine: DrawSpriteRotated(sprHandSMine, hx, hy, sign, aangle);
  1740                           end
  1741                           end
  1741                       end;
  1742                       end;
  1742             gtCreeper: if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then
  1743             gtCreeper: if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then
  1743                          DrawSpriteRotatedF(sprCreeper, x, y, 1, hwRound(SignAs(_1,Gear^.Hedgehog^.Gear^.X-Gear^.X)), 0)
  1744                          DrawSpriteRotatedF(sprCreeper, x, y, 1, hwRound(SignAs(_1,Gear^.Hedgehog^.Gear^.X-Gear^.X)), 0)
  1744                     else DrawSpriteRotatedF(sprCreeper, x, y, 1, hwRound(SignAs(_1,Gear^.dX)), 0);
  1745                     else DrawSpriteRotatedF(sprCreeper, x, y, 1, hwRound(SignAs(_1,Gear^.dX)), 0);
  1745 
  1746             gtSentry: DrawSprite(sprSentry, x, y, 0, 0);
  1746             gtGenericFaller: begin
  1747             gtGenericFaller: begin
  1747                              // DEBUG: draw gtGenericFaller
  1748                              // DEBUG: draw gtGenericFaller
  1748                              if Gear^.Tag <> 0 then
  1749                              if Gear^.Tag <> 0 then
  1749                                  DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF)
  1750                                  DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF)
  1750                              else
  1751                              else