hedgewars/GearDrawing.inc
changeset 4024 1ffb84b3823d
parent 4023 8de77872ef21
child 4036 69e535a0e43a
equal deleted inserted replaced
4023:8de77872ef21 4024:1ffb84b3823d
   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($33, $33, $FF, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
   287                 DrawTexture(sx - 108, sy - 108, SpritesData[sprVampiric].Texture, 4.5);
   287                 DrawTexture(sx - 108, sy - 108 + (CurAmmoGear^.Power),
       
   288                         SpritesData[sprVampiric].Texture, 4.5);
   288                 Tint($FF, $FF, $FF, $FF);
   289                 Tint($FF, $FF, $FF, $FF);
   289                 end;
   290                 end;
   290             gtKamikaze: begin
   291             gtKamikaze: begin
   291                 if CurAmmoGear^.Pos = 0 then
   292                 if CurAmmoGear^.Pos = 0 then
   292                     DrawHedgehog(sx, sy,
   293                     DrawHedgehog(sx, sy,