hedgewars/uGears.pas
changeset 1257 40d37fefdbb4
parent 1255 7ffc2c9e7224
child 1259 0c660c3d98a4
equal deleted inserted replaced
1256:2754a6a8c8f1 1257:40d37fefdbb4
   738 		DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   738 		DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   739 			hwSign(Gear^.dX),
   739 			hwSign(Gear^.dX),
   740 			0,
   740 			0,
   741 			PHedgehog(Gear^.Hedgehog)^.visStepPos div 2,
   741 			PHedgehog(Gear^.Hedgehog)^.visStepPos div 2,
   742 			0);
   742 			0);
   743 			defaultPos:= false
   743 		defaultPos:= false;
       
   744 		HatVisible:= true
   744 		end
   745 		end
   745 	else
   746 	else
   746 
   747 
   747 	if ((Gear^.State and gstAnimation) <> 0) then
   748 	if ((Gear^.State and gstAnimation) <> 0) then
   748 		begin
   749 		begin