hedgewars/uGearsRender.pas
changeset 15237 5c91c5191085
parent 15203 26b4e864b341
child 15308 01bd0a087163
equal deleted inserted replaced
15236:afda6c9711cf 15237:5c91c5191085
  1524        gtAirAttack: begin
  1524        gtAirAttack: begin
  1525                     Tint(Gear^.Tint);
  1525                     Tint(Gear^.Tint);
  1526                     DrawSpriteRotatedF(sprAirplane, x, y, 0, Gear^.Tag, 0);
  1526                     DrawSpriteRotatedF(sprAirplane, x, y, 0, Gear^.Tag, 0);
  1527                     untint;
  1527                     untint;
  1528                     DrawSpriteRotatedF(sprAirplane, x, y, 1, Gear^.Tag, 0);
  1528                     DrawSpriteRotatedF(sprAirplane, x, y, 1, Gear^.Tag, 0);
       
  1529                     if WorldEdge <> weSea then
       
  1530                         DrawSpriteRotatedF(sprAirplane, x, y, 2, Gear^.Tag, 0)
       
  1531                     else
       
  1532                         DrawSpriteRotatedF(sprAirplane, x, y, 3, Gear^.Tag, 0);
  1529                     end;
  1533                     end;
  1530          gtAirBomb: DrawSpriteRotated(sprAirBomb, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
  1534          gtAirBomb: DrawSpriteRotated(sprAirBomb, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
  1531         gtTeleport: begin
  1535         gtTeleport: begin
  1532                     HHGear:= Gear^.Hedgehog^.Gear;
  1536                     HHGear:= Gear^.Hedgehog^.Gear;
  1533                     if HHGear <> nil then
  1537                     if HHGear <> nil then