hedgewars/GearDrawing.inc
changeset 4018 7f2c71638466
parent 4016 daaf120328f2
child 4023 8de77872ef21
equal deleted inserted replaced
4017:048bcb8c72ae 4018:7f2c71638466
   279                 end;
   279                 end;
   280             gtResurrector: begin
   280             gtResurrector: begin
   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                 defaultPos := false;
   283                 defaultPos := false;
   284             end;
   284                 Tint($33, $33, $FF, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
       
   285                 DrawTexture(sx - 108, sy - 108, SpritesData[sprVampiric].Texture, 4.5);
       
   286                 Tint($FF, $FF, $FF, $FF);
       
   287                 end;
   285             gtKamikaze: begin
   288             gtKamikaze: begin
   286                 if CurAmmoGear^.Pos = 0 then
   289                 if CurAmmoGear^.Pos = 0 then
   287                     DrawHedgehog(sx, sy,
   290                     DrawHedgehog(sx, sy,
   288                             hwSign(Gear^.dX),
   291                             hwSign(Gear^.dX),
   289                             1,
   292                             1,