hedgewars/uGearsRender.pas
changeset 7339 5984b749ad9b
parent 7337 c224cd2d32f3
child 7374 514138949c76
child 7389 15c3fb4882df
equal deleted inserted replaced
7337:c224cd2d32f3 7339:5984b749ad9b
  1016                             end;
  1016                             end;
  1017                         end;
  1017                         end;
  1018                     if Gear^.Timer < 1833 then
  1018                     if Gear^.Timer < 1833 then
  1019                         begin
  1019                         begin
  1020                         DrawTextureRotatedF(SpritesData[sprPortal].texture, min(abs(1.25 - (Gear^.Timer mod 1333) / 400), 1.25), 0, 0,
  1020                         DrawTextureRotatedF(SpritesData[sprPortal].texture, min(abs(1.25 - (Gear^.Timer mod 1333) / 400), 1.25), 0, 0,
  1021                                             Gear^.Angle+WorldDx, Gear^.Power+WorldDy-16, 4+Gear^.Tag, 1, 32, 32, 270);
  1021                                             x, Gear^.Angle+WorldDy-16, 4+Gear^.Tag, 1, 32, 32, 270);
  1022                         end
  1022                         end
  1023                     end;
  1023                     end;
  1024       gtExplosives: begin
  1024       gtExplosives: begin
  1025                     if ((Gear^.State and gstDrowning) <> 0) then
  1025                     if ((Gear^.State and gstDrowning) <> 0) then
  1026                         DrawSprite(sprExplosivesRoll, x - 24, y - 24, 0)
  1026                         DrawSprite(sprExplosivesRoll, x - 24, y - 24, 0)