hedgewars/uGearsRender.pas
changeset 5039 2376d5899ff9
parent 5031 e26f430be1ed
child 5041 3dc6ad20cbfe
equal deleted inserted replaced
5038:c77241027071 5039:2376d5899ff9
  1039                     end;
  1039                     end;
  1040       gtNapalmBomb: DrawRotated(sprNapalmBomb, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
  1040       gtNapalmBomb: DrawRotated(sprNapalmBomb, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
  1041            gtFlake: if (Gear^.State and gstTmpFlag) <> 0 then
  1041            gtFlake: if (Gear^.State and gstTmpFlag) <> 0 then
  1042                         //DrawRotatedTextureF(SpritesData[sprSnowBall].Texture, 1, 0, 0, x, y, 0, 1, 8, 8, Gear^.DirAngle)
  1042                         //DrawRotatedTextureF(SpritesData[sprSnowBall].Texture, 1, 0, 0, x, y, 0, 1, 8, 8, Gear^.DirAngle)
  1043                         begin
  1043                         begin
  1044                         Tint(cExplosionBorderColor);
  1044                         Tint(cExplosionBorderColor shl 8 or $000000FF);
  1045                         //DrawRotated(sprSnow, x, y, 0, Gear^.DirAngle);
  1045                         //DrawRotated(sprSnow, x, y, 0, Gear^.DirAngle);
  1046                         // Needs a nicer white texture to tint
  1046                         // Needs a nicer white texture to tint
  1047                         DrawTexture(x, y, SpritesData[sprVampiric].Texture, 0.1);
  1047                         DrawTexture(x, y, SpritesData[sprVampiric].Texture, 0.1);
  1048                         Tint($FF, $FF, $FF, $FF);
  1048                         Tint($FF, $FF, $FF, $FF);
  1049                         end
  1049                         end