hedgewars/uGears.pas
changeset 1020 2cbffbc0dc70
parent 1014 3c7d4e7ccdff
child 1033 622c5de38d72
equal deleted inserted replaced
1019:9c9f2286fa90 1020:2cbffbc0dc70
   719 			hwSign(Gear^.dX),
   719 			hwSign(Gear^.dX),
   720 			2,
   720 			2,
   721 			1,
   721 			1,
   722 			Gear^.DirAngle);
   722 			Gear^.DirAngle);
   723 		defaultPos:= false
   723 		defaultPos:= false
   724 		end;
   724 		end else
   725 
   725 
   726 	if ((Gear^.State and gstHHJumping) <> 0) then
   726 	if ((Gear^.State and gstHHJumping) <> 0) then
   727 		begin
   727 		begin
   728 		if ((Gear^.State and gstHHHJump) <> 0) then
   728 		if ((Gear^.State and gstHHHJump) <> 0) then
   729 			DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   729 			DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,