hedgewars/GearDrawing.inc
changeset 4036 69e535a0e43a
parent 4024 1ffb84b3823d
child 4044 de7170e51cc6
equal deleted inserted replaced
4035:3ed9573bcf5e 4036:69e535a0e43a
   281                 DrawRotated(sprHandResurrector, hwRound(Gear^.X) + WorldDx,
   281                 DrawRotated(sprHandResurrector, hwRound(Gear^.X) + WorldDx,
   282                         hwRound(Gear^.Y) + WorldDy, 0, 0); 
   282                         hwRound(Gear^.Y) + WorldDy, 0, 0); 
   283                 DrawRotated(sprCross, hwRound(CurAmmoGear^.X) + WorldDx,
   283                 DrawRotated(sprCross, hwRound(CurAmmoGear^.X) + WorldDx,
   284                         hwRound(CurAmmoGear^.Y) + WorldDy + (CurAmmoGear^.Power), 0, 0);
   284                         hwRound(CurAmmoGear^.Y) + WorldDy + (CurAmmoGear^.Power), 0, 0);
   285                 defaultPos := false;
   285                 defaultPos := false;
   286                 Tint($33, $33, $FF, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
   286                 Tint($f5, $db, $35, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
   287                 DrawTexture(sx - 108, sy - 108 + (CurAmmoGear^.Power),
   287                 DrawTexture(sx - 108, sy - 108 + (CurAmmoGear^.Power),
   288                         SpritesData[sprVampiric].Texture, 4.5);
   288                         SpritesData[sprVampiric].Texture, 4.5);
   289                 Tint($FF, $FF, $FF, $FF);
   289                 Tint($FF, $FF, $FF, $FF);
   290                 end;
   290                 end;
   291             gtKamikaze: begin
   291             gtKamikaze: begin
   668 if HH^.Effects[hePoisoned] then
   668 if HH^.Effects[hePoisoned] then
   669     begin
   669     begin
   670     Tint($00, $FF, $40, $80);
   670     Tint($00, $FF, $40, $80);
   671     DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 1.5, 0, 0, sx, sy, 0, 1, 22, 22, 360 - (RealTicks shr 37) mod 360);
   671     DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 1.5, 0, 0, sx, sy, 0, 1, 22, 22, 360 - (RealTicks shr 37) mod 360);
   672     end;
   672     end;
       
   673 if HH^.Effects[heResurrected] then
       
   674     begin
       
   675     Tint($f5, $db, $35, $20);
       
   676     DrawSprite(sprVampiric, sx - 24, sy - 24, 0);
       
   677     end;
   673 
   678 
   674 if Gear^.Invulnerable then
   679 if Gear^.Invulnerable then
   675     begin
   680     begin
   676     Tint($FF, $FF, $FF, max($40, floor($FF * abs(1 - ((RealTicks div 2 + Gear^.uid * 491) mod 1500) / 750))));
   681     Tint($FF, $FF, $FF, max($40, floor($FF * abs(1 - ((RealTicks div 2 + Gear^.uid * 491) mod 1500) / 750))));
   677     DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0);
   682     DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0);
   726            gtGrave: begin 
   731            gtGrave: begin 
   727                     DrawTextureF(PHedgehog(Gear^.Hedgehog)^.Team^.GraveTex, 1, x, y, (GameTicks shr 7+Gear^.uid) and 7, 1, 32, 32);
   732                     DrawTextureF(PHedgehog(Gear^.Hedgehog)^.Team^.GraveTex, 1, x, y, (GameTicks shr 7+Gear^.uid) and 7, 1, 32, 32);
   728                     if Gear^.Health > 0 then
   733                     if Gear^.Health > 0 then
   729                         begin
   734                         begin
   730                         //Tint($33, $33, $FF, max($40, floor($FF * abs(1 - (GameTicks mod (6000 div Gear^.Health)) / 750))));
   735                         //Tint($33, $33, $FF, max($40, floor($FF * abs(1 - (GameTicks mod (6000 div Gear^.Health)) / 750))));
   731                         Tint($33, $33, $FF, max($40, floor($FF * abs(1 - (GameTicks mod 1500) / (750 + Gear^.Health)))));
   736                         Tint($f5, $db, $35, max($40, floor($FF * abs(1 - (GameTicks mod 1500) / (750 + Gear^.Health)))));
   732                         //Tint($FF, $FF, $FF, max($40, floor($FF * abs(1 - (RealTicks mod 1500) / 750))));
   737                         //Tint($FF, $FF, $FF, max($40, floor($FF * abs(1 - (RealTicks mod 1500) / 750))));
   733                         DrawSprite(sprVampiric, x - 24, y - 24, 0);
   738                         DrawSprite(sprVampiric, x - 24, y - 24, 0);
   734                         Tint($FF, $FF, $FF, $FF)
   739                         Tint($FF, $FF, $FF, $FF)
   735                         end
   740                         end
   736                     end;
   741                     end;