Function NatlaControl

TombEngine/Objects/TR1/Entity/tr1_natla.cpp:52–353

	};

	void NatlaControl(short itemNumber)
	{
		if (!CreatureActive(itemNumber))
			return;

		auto* item = &g_Level.Items[itemNumber];
		auto* creature = GetCreatureInfo(item);

		short headingAngle = 0;
		short tiltAngle = 0;
		auto extraHeadRot = EulerAngles::Identity;
		auto extraTorsoRot = EulerAngles::Identity;

		AI_INFO ai;
		int timer = creature->Flags & NATLA_TIMER;
		bool shoot = false;

		if (item->HitPoints <= 0 && item->ItemFlags[1] != 0)
		{
			item->Animation.TargetState = NATLA_STATE_DEATH;
		}
		else if (item->HitPoints <= (Objects[item->ObjectNumber].HitPoints / 2))
		{
			creature->LOT.Step = CLICK(1);
			creature->LOT.Drop = -CLICK(1);
			creature->LOT.Fly = NO_FLYING;
			creature->LOT.Zone = ZoneType::Basic;
			CreatureAIInfo(item, &ai);

			// NOTE: Only rotate joints if alive.
			if (ai.ahead && item->ItemFlags[1] == 1)
			{
				extraHeadRot.x = ai.xAngle / 2;
				extraHeadRot.y = ai.angle / 2;
				extraTorsoRot.x = ai.xAngle / 2;
				extraTorsoRot.y = ai.angle / 2;
			}

			GetCreatureMood(item, &ai, true);
			CreatureMood(item, &ai, true);

			headingAngle = CreatureTurn(item, creature->MaxTurn);

			if (item->ItemFlags[0] != 0)
			{
				item->Pose.Orientation.y += item->ItemFlags[0];
				item->ItemFlags[0] = 0;
			}

			switch (item->Animation.ActiveState)
			{
			case NATLA_STATE_FALL:
				creature->MaxTurn = 0;

				if (item->Pose.Position.y < item->Floor)
				{
					item->Animation.IsAirborne = true;
					item->Animation.Velocity.z = 0;