hedgewars/uGearsRender.pas
changeset 10142 adb804cb2638
parent 10126 2fa3bb7785ee
child 10264 cb4331b032f4
equal deleted inserted replaced
10141:3be894730bd6 10142:adb804cb2638
   273 
   273 
   274 
   274 
   275     if HH^.Effects[hePoisoned] <> 0 then
   275     if HH^.Effects[hePoisoned] <> 0 then
   276         begin
   276         begin
   277         Tint($00, $FF, $40, $40);
   277         Tint($00, $FF, $40, $40);
   278         DrawTextureRotatedF(SpritesData[sprSmokeWhite].texture, 2, 0, 0, sx, sy, 0, 1, 22, 22, (RealTicks shr 36) mod 360);
   278         DrawTextureRotatedF(SpritesData[sprSmokeWhite].texture, 2, 0, 0, sx, sy, 0, 1, 22, 22, (RealTicks shr 4) mod 360);
   279         untint
   279         untint
   280         end;
   280         end;
   281 
   281 
   282 
   282 
   283     if ((Gear^.State and gstWinner) <> 0) and
   283     if ((Gear^.State and gstWinner) <> 0) and
   979         end;
   979         end;
   980 
   980 
   981     if HH^.Effects[hePoisoned] <> 0 then
   981     if HH^.Effects[hePoisoned] <> 0 then
   982         begin
   982         begin
   983         Tint($00, $FF, $40, $80);
   983         Tint($00, $FF, $40, $80);
   984         DrawTextureRotatedF(SpritesData[sprSmokeWhite].texture, 1.5, 0, 0, sx, sy, 0, 1, 22, 22, 360 - (RealTicks shr 37) mod 360);
   984         DrawTextureRotatedF(SpritesData[sprSmokeWhite].texture, 1.5, 0, 0, sx, sy, 0, 1, 22, 22, 360 - (RealTicks shr 5) mod 360);
   985         end;
   985         end;
   986     if HH^.Effects[heResurrected] <> 0 then
   986     if HH^.Effects[heResurrected] <> 0 then
   987         begin
   987         begin
   988         Tint($f5, $db, $35, $20);
   988         Tint($f5, $db, $35, $20);
   989         DrawSprite(sprVampiric, sx - 24, sy - 24, 0);
   989         DrawSprite(sprVampiric, sx - 24, sy - 24, 0);
  1260                         Tint(Gear^.Tint and $FFFFFF00 or Gear^.Timer div 8)
  1260                         Tint(Gear^.Tint and $FFFFFF00 or Gear^.Timer div 8)
  1261                     else if Gear^.Timer > 3980 then
  1261                     else if Gear^.Timer > 3980 then
  1262                         Tint(Gear^.Tint and $FFFFFF00 or (5000 - Gear^.Timer) div 8)
  1262                         Tint(Gear^.Tint and $FFFFFF00 or (5000 - Gear^.Timer) div 8)
  1263                     else
  1263                     else
  1264                         Tint(Gear^.Tint);
  1264                         Tint(Gear^.Tint);
  1265                     DrawTextureRotatedF(SpritesData[sprSmokeWhite].texture, 3, 0, 0, x, y, 0, 1, 22, 22, (RealTicks shr 36 + Gear^.UID * 100) mod 360);
  1265                     DrawTextureRotatedF(SpritesData[sprSmokeWhite].texture, 3, 0, 0, x, y, 0, 1, 22, 22, (RealTicks shr 4 + Gear^.UID * 100) mod 360);
  1266                     untint
  1266                     untint
  1267                     end;
  1267                     end;
  1268      gtResurrector: begin
  1268      gtResurrector: begin
  1269                     DrawSpriteRotated(sprCross, x, y, 0, 0);
  1269                     DrawSpriteRotated(sprCross, x, y, 0, 0);
  1270                     Tint(Gear^.Tint and $FFFFFF00 or max($00, round($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
  1270                     Tint(Gear^.Tint and $FFFFFF00 or max($00, round($C0 * abs(1 - (GameTicks mod 6000) / 3000))));