hedgewars/uGearsRender.pas
changeset 10794 ace862eda192
parent 10792 f6df7d6e18e5
child 10800 3c71e5158519
equal deleted inserted replaced
10792:f6df7d6e18e5 10794:ace862eda192
  1118                            DrawSpriteRotated(sprMineOff, x, y, 0, Gear^.DirAngle)
  1118                            DrawSpriteRotated(sprMineOff, x, y, 0, Gear^.DirAngle)
  1119                     else if Gear^.Health <> 0 then
  1119                     else if Gear^.Health <> 0 then
  1120                        DrawSpriteRotated(sprMineOn, x, y, 0, Gear^.DirAngle)
  1120                        DrawSpriteRotated(sprMineOn, x, y, 0, Gear^.DirAngle)
  1121                     else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle);
  1121                     else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle);
  1122                     end;
  1122                     end;
  1123          gtAirMine: DrawSprite(sprAirMine, x, y, (RealTicks div 125) mod 16);
  1123          gtAirMine: DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 125) mod 16);
  1124 
  1124 
  1125            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
  1126                            DrawSpriteRotated(sprSMineOff, x, y, 0, Gear^.DirAngle)
  1126                            DrawSpriteRotated(sprSMineOff, x, y, 0, Gear^.DirAngle)
  1127                        else if Gear^.Health <> 0 then
  1127                        else if Gear^.Health <> 0 then
  1128                            DrawSpriteRotated(sprSMineOn, x, y, 0, Gear^.DirAngle)
  1128                            DrawSpriteRotated(sprSMineOn, x, y, 0, Gear^.DirAngle)