hedgewars/uGearsRender.pas
changeset 11876 ed98962b45c0
parent 11806 2af936302bab
child 11882 bbd0cb0564c5
equal deleted inserted replaced
11875:d669f04f02d0 11876:ed98962b45c0
  1166         gtHedgehog: DrawHH(Gear, x, y);
  1166         gtHedgehog: DrawHH(Gear, x, y);
  1167 
  1167 
  1168            gtShell: DrawSpriteRotated(sprBazookaShell, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
  1168            gtShell: DrawSpriteRotated(sprBazookaShell, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
  1169 
  1169 
  1170            gtGrave: begin
  1170            gtGrave: begin
  1171                     DrawTextureF(Gear^.Hedgehog^.Team^.GraveTex, 1, x, y, (GameTicks shr 7+Gear^.uid) and 7, 1, 32, 32);
  1171                     DrawTextureF(Gear^.Hedgehog^.Team^.GraveTex, 1, x, y, (GameTicks shr 7+Gear^.uid) and 15, 1, 32, 32);
  1172                     if Gear^.Health > 0 then
  1172                     if Gear^.Health > 0 then
  1173                         begin
  1173                         begin
  1174                         //Tint($33, $33, $FF, max($40, round($FF * abs(1 - (GameTicks mod (6000 div Gear^.Health)) / 750))));
  1174                         //Tint($33, $33, $FF, max($40, round($FF * abs(1 - (GameTicks mod (6000 div Gear^.Health)) / 750))));
  1175                         Tint($f5, $db, $35, max($40, round($FF * abs(1 - (GameTicks mod 1500) / (750 + Gear^.Health)))));
  1175                         Tint($f5, $db, $35, max($40, round($FF * abs(1 - (GameTicks mod 1500) / (750 + Gear^.Health)))));
  1176                         //Tint($FF, $FF, $FF, max($40, round($FF * abs(1 - (RealTicks mod 1500) / 750))));
  1176                         //Tint($FF, $FF, $FF, max($40, round($FF * abs(1 - (RealTicks mod 1500) / 750))));