Function WraithControl

TombEngine/Objects/TR4/Entity/Wraith.cpp:209–644

	}

	void WraithControl(short itemNumber)
	{
		auto& item = g_Level.Items[itemNumber];

		SoundEffect(SFX_TR4_WRAITH_WHISPERS, &item.Pose);

		// HACK: HitPoints stores the wraith's target. NOTE: ``auto*`` makes some errors with wraith find its target in Release version. It works without ``*``.
		auto target = item.ItemFlags[6] ? &g_Level.Items[item.ItemFlags[6]] : LaraItem;

		auto prevPos = item.Pose.Position;
		int x, y, z, xl, yl, zl;
		int dy;
		int distance;
		int distancePlayer;

		if (target->IsLara() || target->ObjectNumber == ID_WRAITH_TRAP)
		{
			x = target->Pose.Position.x - item.Pose.Position.x;
			y = target->Pose.Position.y;
			z = target->Pose.Position.z - item.Pose.Position.z;
			distance = SQUARE(x) + SQUARE(z);
			dy = abs((distance / BLOCK(8)) - BLOCK(0.5f));
		}
		else
		{
			const auto& room = g_Level.Rooms[LaraItem->RoomNumber];

			x = room.Position.x + room.XSize * BLOCK(1) / 2 - item.Pose.Position.x;
			z = room.Position.z + room.ZSize * BLOCK(1) / 2 - item.Pose.Position.z;

			distance = SQUARE(x) + SQUARE(z);
			dy = abs((distance / MAX_VISIBILITY_DISTANCE) - CLICK(1));
			//Prevent Wraiths to go below floor level
			y = room.Position.y + ((room.TopHeight - room.BottomHeight) / 4);
		}

		dy = y - item.Pose.Position.y - dy - CLICK(0.5f);
		short angleH = phd_atan(z, x) - item.Pose.Orientation.y;

		short angleV = 0;
		if (abs(x) <= abs(z))
			angleV = phd_atan(abs(x) + (abs(z)), dy);
		else
			angleV = phd_atan(abs(z) + (abs(x)), dy);

		angleV -= item.Pose.Orientation.x;
		int velocity = (WRAITH_VELOCITY / item.Animation.Velocity.z) * 8;

		if (abs(angleH) < item.ItemFlags[2] && angleH > 0 == item.ItemFlags[2] > 0)
		{
			item.Pose.Orientation.y += angleH;
		}
		else if (angleH >= 0)
		{
			if (item.ItemFlags[2] <= 0)
			{
				item.ItemFlags[2] = 1;
			}