hedgewars/uGearsRender.pas
changeset 10800 3c71e5158519
parent 10794 ace862eda192
child 10807 66cde98f8cbe
equal deleted inserted replaced
10799:658794118fd8 10800:3c71e5158519
  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-16, y-16, (RealTicks div 125) mod 16);
  1123          gtAirMine: if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then
       
  1124                          DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 25) mod 16)
       
  1125                     else DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 125) mod 16);
  1124 
  1126 
  1125            gtSMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then
  1127            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)
  1128                            DrawSpriteRotated(sprSMineOff, x, y, 0, Gear^.DirAngle)
  1127                        else if Gear^.Health <> 0 then
  1129                        else if Gear^.Health <> 0 then
  1128                            DrawSpriteRotated(sprSMineOn, x, y, 0, Gear^.DirAngle)
  1130                            DrawSpriteRotated(sprSMineOn, x, y, 0, Gear^.DirAngle)