hedgewars/uGears.pas
changeset 2137 4bb9ff2069ec
parent 2135 0b7972dfad01
child 2143 ad05f6b2d1c0
equal deleted inserted replaced
2136:3b19c7874a45 2137:4bb9ff2069ec
   736 	lx, ly, dx, dy, ax, ay, aAngle, dAngle: real;  // laser, change
   736 	lx, ly, dx, dy, ax, ay, aAngle, dAngle: real;  // laser, change
   737 	defaultPos, HatVisible: boolean;
   737 	defaultPos, HatVisible: boolean;
   738     VertexBuffer: array [0..1] of TVertex2f;
   738     VertexBuffer: array [0..1] of TVertex2f;
   739 begin
   739 begin
   740 m:= 1;
   740 m:= 1;
   741 if (Gear^.State and gstHHHJump) <> 0 then m:= -1;
   741 if ((Gear^.State and gstHHHJump) <> 0) and not cArtillery then m:= -1;
   742 if (Gear^.State and gstHHDeath) <> 0 then
   742 if (Gear^.State and gstHHDeath) <> 0 then
   743 	begin
   743 	begin
   744 	DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);
   744 	DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);
   745 	exit
   745 	exit
   746 	end;
   746 	end;