hedgewars/GearDrawing.inc
changeset 4168 49ad7bea4a33
parent 4094 8bb301767c9f
child 4222 e0de341a75ab
equal deleted inserted replaced
4167:207cd9358876 4168:49ad7bea4a33
   692 while Gear<>nil do
   692 while Gear<>nil do
   693     begin
   693     begin
   694     x:= hwRound(Gear^.X) + WorldDx;
   694     x:= hwRound(Gear^.X) + WorldDx;
   695     y:= hwRound(Gear^.Y) + WorldDy;
   695     y:= hwRound(Gear^.Y) + WorldDy;
   696     case Gear^.Kind of
   696     case Gear^.Kind of
   697        gtAmmo_Bomb: DrawRotated(sprBomb, x, y, 0, Gear^.DirAngle);
   697           gtBomb: DrawRotated(sprBomb, x, y, 0, Gear^.DirAngle);
   698        gtGasBomb: DrawRotated(sprCheese, x, y, 0, Gear^.DirAngle);
   698        gtGasBomb: DrawRotated(sprCheese, x, y, 0, Gear^.DirAngle);
   699        gtMolotov: DrawRotated(sprMolotov, x, y, 0, Gear^.DirAngle);
   699        gtMolotov: DrawRotated(sprMolotov, x, y, 0, Gear^.DirAngle);
   700 
   700 
   701        gtRCPlane: begin
   701        gtRCPlane: begin
   702                   if (Gear^.Tag = -1) then
   702                   if (Gear^.Tag = -1) then
   716 
   716 
   717        gtDrill: DrawRotated(sprDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
   717        gtDrill: DrawRotated(sprDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
   718 
   718 
   719         gtHedgehog: DrawHH(Gear, x, y);
   719         gtHedgehog: DrawHH(Gear, x, y);
   720 
   720 
   721     gtAmmo_Grenade: DrawRotated(sprGrenade, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
   721            gtShell: DrawRotated(sprBazookaShell, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
   722 
   722 
   723            gtGrave: begin 
   723            gtGrave: begin 
   724                     DrawTextureF(PHedgehog(Gear^.Hedgehog)^.Team^.GraveTex, 1, x, y, (GameTicks shr 7+Gear^.uid) and 7, 1, 32, 32);
   724                     DrawTextureF(PHedgehog(Gear^.Hedgehog)^.Team^.GraveTex, 1, x, y, (GameTicks shr 7+Gear^.uid) and 7, 1, 32, 32);
   725                     if Gear^.Health > 0 then
   725                     if Gear^.Health > 0 then
   726                         begin
   726                         begin