Function PunaControl

TombEngine/Objects/TR3/Entity/PunaBoss.cpp:301–507

	}

	void PunaControl(short itemNumber)
	{
		if (!CreatureActive(itemNumber))
			return;
		
		auto& item = g_Level.Items[itemNumber];
		auto& object = Objects[item.ObjectNumber];
		auto& creature = *GetCreatureInfo(&item);

		static auto targetPos = Vector3i::Zero;

		auto headOrient = EulerAngles::Identity;
		short headingAngle = 0;
		short prevYOrient = 0;

		bool hasTurned = false;
		bool isLizardActiveNearby = IsLizardActiveNearby(item);

		if (item.HitPoints <= 0)
		{
			if (item.Animation.ActiveState != PUNA_STATE_DEATH)
			{
				SetAnimation(item, PUNA_ANIM_DEATH);
				SoundEffect(SFX_TR3_PUNA_BOSS_DEATH, &item.Pose);
				item.ItemFlags[(int)BossItemFlags::DeathCount] = 1;
				creature.MaxTurn = 0;
			}

			auto deathCount = item.GetFlagField((int)BossItemFlags::DeathCount);
			item.Pose.Orientation.z = (Random::GenerateInt() % deathCount) - (item.ItemFlags[(int)BossItemFlags::DeathCount] >> 1);

			if (deathCount < 2048)
				item.ItemFlags[(int)BossItemFlags::DeathCount] += 32;

			int endFrameNumber = GetAnimData(object, PUNA_ANIM_DEATH).EndFrameNumber;
			if (item.Animation.FrameNumber >= endFrameNumber)
			{
				// Avoid having the object stop working.
				item.Animation.FrameNumber = endFrameNumber;

				if (item.GetFlagField((int)BossItemFlags::ExplodeCount) < PUNA_EXPLOSION_NUM_MAX)
					item.ItemFlags[(int)BossItemFlags::ExplodeCount]++;

				if (item.ItemFlags[7] < PUNA_EXPLOSION_NUM_MAX)
					item.ItemFlags[7]++;

				// Do explosion effect.
				ExplodeBoss(item, PUNA_EXPLOSION_NUM_MAX, PUNA_EFFECT_COLOR, PUNA_EXPLOSION_MAIN_COLOR, PUNA_EXPLOSION_SECOND_COLOR);
				return;
			}
		}
		else
		{
			prevYOrient = item.Pose.Orientation.y;

			AI_INFO ai;
			CreatureAIInfo(&item, &ai);
			if (ai.ahead)