hedgewars/uGearsRender.pas
changeset 10789 acbf69e2e5cf
parent 10683 31a0e7efa17a
child 10792 f6df7d6e18e5
equal deleted inserted replaced
10787:50a4cdeedb44 10789:acbf69e2e5cf
   682                 amClusterBomb: DrawSpriteRotated(sprHandCluster, hx, hy, sign, aangle);
   682                 amClusterBomb: DrawSpriteRotated(sprHandCluster, hx, hy, sign, aangle);
   683                 amDynamite: DrawSpriteRotated(sprHandDynamite, hx, hy, sign, aangle);
   683                 amDynamite: DrawSpriteRotated(sprHandDynamite, hx, hy, sign, aangle);
   684                 amHellishBomb: DrawSpriteRotated(sprHandHellish, hx, hy, sign, aangle);
   684                 amHellishBomb: DrawSpriteRotated(sprHandHellish, hx, hy, sign, aangle);
   685                 amGasBomb: DrawSpriteRotated(sprHandCheese, hx, hy, sign, aangle);
   685                 amGasBomb: DrawSpriteRotated(sprHandCheese, hx, hy, sign, aangle);
   686                 amMine: DrawSpriteRotated(sprHandMine, hx, hy, sign, aangle);
   686                 amMine: DrawSpriteRotated(sprHandMine, hx, hy, sign, aangle);
       
   687                 amAirMine: DrawSpriteRotated(sprHandMine, hx, hy, sign, aangle);
   687                 amSMine: DrawSpriteRotated(sprHandSMine, hx, hy, sign, aangle);
   688                 amSMine: DrawSpriteRotated(sprHandSMine, hx, hy, sign, aangle);
   688                 amKnife: DrawSpriteRotatedF(sprHandKnife, hx, hy, 0, sign, aangle);
   689                 amKnife: DrawSpriteRotatedF(sprHandKnife, hx, hy, 0, sign, aangle);
   689                 amSeduction: begin
   690                 amSeduction: begin
   690                              DrawSpriteRotated(sprHandSeduction, hx, hy, sign, aangle);
   691                              DrawSpriteRotated(sprHandSeduction, hx, hy, sign, aangle);
   691                              DrawCircle(ox, oy, 248, 4, $FF, $00, $00, $AA);
   692                              DrawCircle(ox, oy, 248, 4, $FF, $00, $00, $AA);
  1117                            DrawSpriteRotated(sprMineOff, x, y, 0, Gear^.DirAngle)
  1118                            DrawSpriteRotated(sprMineOff, x, y, 0, Gear^.DirAngle)
  1118                     else if Gear^.Health <> 0 then
  1119                     else if Gear^.Health <> 0 then
  1119                        DrawSpriteRotated(sprMineOn, x, y, 0, Gear^.DirAngle)
  1120                        DrawSpriteRotated(sprMineOn, x, y, 0, Gear^.DirAngle)
  1120                     else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle);
  1121                     else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle);
  1121                     end;
  1122                     end;
       
  1123          gtAirMine:  DrawSpriteRotated(sprMineOff, x, y, 0, 0);
  1122 
  1124 
  1123            gtSMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then
  1125            gtSMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then
  1124                            DrawSpriteRotated(sprSMineOff, x, y, 0, Gear^.DirAngle)
  1126                            DrawSpriteRotated(sprSMineOff, x, y, 0, Gear^.DirAngle)
  1125                        else if Gear^.Health <> 0 then
  1127                        else if Gear^.Health <> 0 then
  1126                            DrawSpriteRotated(sprSMineOn, x, y, 0, Gear^.DirAngle)
  1128                            DrawSpriteRotated(sprSMineOn, x, y, 0, Gear^.DirAngle)