hedgewars/uGears.pas
changeset 3232 17d37ea2553c
parent 3230 6c8c1fe7c2b1
child 3236 4ab3917d7d44
equal deleted inserted replaced
3231:a578cbf5d543 3232:17d37ea2553c
  1462     glColor4f(1, 1, 1, 1)
  1462     glColor4f(1, 1, 1, 1)
  1463     end;
  1463     end;
  1464 
  1464 
  1465 if Gear^.Invulnerable then
  1465 if Gear^.Invulnerable then
  1466     begin
  1466     begin
  1467     glColor4f(1, 1, 1, 0.25 + abs(1 - ((RealTicks div 2) mod 1500) / 750));
  1467     glColor4f(1, 1, 1, 0.25 + abs(1 - ((RealTicks div 2 + Gear^.uid * 491) mod 1500) / 750));
  1468     DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0);
  1468     DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0);
  1469     glColor4f(1, 1, 1, 1);
  1469     glColor4f(1, 1, 1, 1);
  1470     end;
  1470     end;
  1471 if cVampiric and
  1471 if cVampiric and
  1472    (CurrentHedgehog^.Gear <> nil) and
  1472    (CurrentHedgehog^.Gear <> nil) and