hedgewars/uGearsRender.pas
changeset 7337 c224cd2d32f3
parent 7276 e570bc0df33c
child 7339 5984b749ad9b
equal deleted inserted replaced
7335:3c6f08af7dac 7337:c224cd2d32f3
  1013                                 i:= 0;
  1013                                 i:= 0;
  1014                             i:= i mod 12;
  1014                             i:= i mod 12;
  1015                             DrawSprite(sprUtility, x - 24, y - 24, i);
  1015                             DrawSprite(sprUtility, x - 24, y - 24, i);
  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                                             Gear^.Angle+WorldDx, Gear^.Power+WorldDy-16, 4+Gear^.Tag, 1, 32, 32, 270);
  1022                         end
  1022                         end
  1023                     end;
  1023                     end;