Class Ext_T_ZEDHelper extends Info
	transient
	DependsOn(Ext_TraitZED_Summon)
	config(ServerExt);

var config array<FZEDTypes> ZedTypes; // Dummy hack, not really config but merely just for being able to set class on defaults.

var() float FriendlyScalar;
var Pawn PawnOwner;
var byte CurLevel,RespawnHelperTime,NoLiveCounter;
var KFPawn_Monster LiveHelper;
var class<KFPawn_Monster> PrevMonster;
var float PrevMonsterHP;

var float HPScale,DamageScale;
var int OldKillsValue;
var bool bNeedsKillZed,bIsExtra;

function PostBeginPlay()
{
	PawnOwner = Pawn(Owner);
	bNeedsKillZed = true;
	if (PawnOwner==None)
		Destroy();
	else
	{
		OldKillsValue = PawnOwner.PlayerReplicationInfo.Kills;
		SetTimer(1+(FRand()*0.1),true);
	}
}

function Timer()
{
	if (PawnOwner==None || PawnOwner.Health<=0 || PawnOwner.PlayerReplicationInfo==None)
		Destroy();
	else if (bNeedsKillZed)
	{
		if (RespawnHelperTime>1)
			--RespawnHelperTime;
		if (OldKillsValue==PawnOwner.PlayerReplicationInfo.Kills)
			return;
		bNeedsKillZed = false;
	}
	else if (RespawnHelperTime>0)
	{
		if (--RespawnHelperTime==0)
			SpawnHelper();
	}
	else if (LiveHelper==None || LiveHelper.Health<=0)
	{
		OldKillsValue = PawnOwner.PlayerReplicationInfo.Kills;
		bNeedsKillZed = true;
		RespawnHelperTime = 60;
	}
	else if (!HasLiveZeds())
	{
		if (NoLiveCounter==0)
		{
			PrevMonster = LiveHelper.Class;
			PrevMonsterHP = (float(LiveHelper.Health) / LiveHelper.HealthMax);
			LiveHelper.Died(None,class'KFDT_Healing',vect(0,0,0));
			RespawnHelperTime = 5;
		}
		else --NoLiveCounter;
	}
	else NoLiveCounter = 5;
}

function Destroyed()
{
	if (LiveHelper!=None && LiveHelper.Health>0)
		LiveHelper.Died(None,class'DmgType_Suicided',vect(0,0,0));
}

final function bool HasLiveZeds()
{
	local KFPawn_Monster M;
	
	if (KFGameReplicationInfo(WorldInfo.GRI).WaveNum>=KFGameReplicationInfo(WorldInfo.GRI).WaveMax) // No pets on possible bonus waves.
		return false;

	foreach WorldInfo.AllPawns(Class'KFPawn_Monster',M)
		if (M.Health>0 && M.GetTeamNum()!=0)
			return true;
	return false;
}

final function SpawnHelper()
{
	local class<KFPawn_Monster> MC;
	local byte i;
	local vector V;
	local rotator R;
	local Controller C;
	local Ext_T_MonsterPRI PRI;
	local AkBaseSoundObject TempSound;
	local bool bFinalWave;
	
	if (PawnOwner.PlayerReplicationInfo==None || !HasLiveZeds())
	{
		RespawnHelperTime = 3;
		return;
	}
	NoLiveCounter = 5;
	bFinalWave = KFGameReplicationInfo(WorldInfo.GRI).IsFinalWave();
	if (bFinalWave && Class<KFPawn_MonsterBoss>(PrevMonster)!=None)
		PrevMonster = None;
	MC = (PrevMonster!=None ? PrevMonster : PickRandomMonster(CurLevel,bFinalWave));

	if (MC!=None)
	{
		R.Yaw = Rand(65536);
		if (MC.Default.SoundGroupArch!=None)
		{
			// Make no entrance roam (for FP's and Scrakes).
			TempSound = MC.Default.SoundGroupArch.EntranceSound;
			MC.Default.SoundGroupArch.EntranceSound = None;
		}
		for (i=0; i<40; ++i)
		{
			V = PawnOwner.Location;
			V.X += (FRand()*300.f-150.f);
			V.Y += (FRand()*300.f-150.f);
			if (!PawnOwner.FastTrace(V,PawnOwner.Location))
				continue;
			LiveHelper = Spawn(MC,,,V,R);
			if (LiveHelper!=None)
				break;
		}
		if (MC.Default.SoundGroupArch!=None)
			MC.Default.SoundGroupArch.EntranceSound = TempSound;
	}
	if (LiveHelper==None)
		RespawnHelperTime = 2;
	else
	{
		// Downscale.
		LiveHelper.SetDrawScale(LiveHelper.DrawScale*FriendlyScalar);
		LiveHelper.SetCollisionSize(LiveHelper.GetCollisionRadius()*FriendlyScalar,LiveHelper.GetCollisionHeight()*FriendlyScalar);
		
		// Setup AI
		C = Spawn(LiveHelper.ControllerClass);
		if (KFAIController(C)!=None)
		{
			KFAIController(C).bCanTeleportCloser = false;
			KFAIController(C).DefaultCommandClass = class'Ext_AICommandBasePet';
			KFAIController(C).StuckCheckInterval = 100000.f; // ~27 hours
			KFAIController(C).LastStuckCheckTime = WorldInfo.TimeSeconds;
		}
		LiveHelper.SpecialMoveHandler.SpecialMoveClasses[SM_Taunt] = class'Ext_AINoTaunt';
		C.Possess(LiveHelper,false);

		// Set HP.
		LiveHelper.HealthMax = Clamp(LiveHelper.Default.Health,180,900)*HPScale;
		LiveHelper.Health = LiveHelper.HealthMax;
		LiveHelper.DamageScaling = DamageScale;
		LiveHelper.SetWeakGrabCoolDown(28800.f); // Never get grabbed (for 80 hours).
		LiveHelper.bWeakZedGrab = true;
		LiveHelper.bCanGrabAttack = false;
		
		// Scale by previous zed HP.
		if (PrevMonster!=None)
		{
			LiveHelper.Health *= PrevMonsterHP;
			PrevMonster = None;
		}

		// Setup PRI.
		if (C.PlayerReplicationInfo!=None)
			C.PlayerReplicationInfo.Destroy();
		PRI = Spawn(class'Ext_T_MonsterPRI',LiveHelper);
		LiveHelper.PlayerReplicationInfo = PRI;
		C.PlayerReplicationInfo = PRI;
		PRI.PawnOwner = LiveHelper;
		PRI.HealthMax = LiveHelper.HealthMax;
		PRI.MonsterName = Class'KFExtendedHUD'.Static.GetNameOf(MC);
		PRI.OwnerPRI = PawnOwner.PlayerReplicationInfo;
		PRI.MonsterType = MC;
		PRI.PlayerName = PawnOwner.PlayerReplicationInfo.PlayerName$"'s "$PRI.MonsterName;
		PRI.OwnerController = PawnOwner.Controller;
		if (PawnOwner.PlayerReplicationInfo.Team!=None)
			PawnOwner.PlayerReplicationInfo.Team.AddToTeam(C);
		PRI.Timer();
		if (WorldInfo.NetMode!=NM_DedicatedServer)
			PRI.NotifyOwner();
	}
}

final function SetDamageScale(float Sc)
{
	DamageScale = Default.DamageScale*Sc;
	if (LiveHelper!=None)
		LiveHelper.DamageScaling = DamageScale;
}

final function SetHealthScale(float Sc)
{
	HPScale = Default.HPScale*Sc;
}

static final function LoadMonsterList()
{
	local int i,j;
	local array<string> SA;
	local class<KFPawn_Monster> C;
	
	Default.ZedTypes.Length = class'Ext_TraitZED_Summon'.Default.ZedTypes.Length;
	
	for (i=0; i<Default.ZedTypes.Length; ++i)
	{
		SA.Length = 0;
		ParseStringIntoArray(class'Ext_TraitZED_Summon'.Default.ZedTypes[i],SA,",",true);
		
		for (j=0; j<SA.Length; ++j)
		{
			C = class<KFPawn_Monster>(DynamicLoadObject(SA[j],Class'Class'));
			if (C==None)
				continue;
			Default.ZedTypes[i].Zeds[Default.ZedTypes[i].Zeds.Length] = C;
		}
		if (Default.ZedTypes[i].Zeds.Length==0)
			Default.ZedTypes[i].Zeds[Default.ZedTypes[i].Zeds.Length] = Class'KFPawn_ZedClot_Alpha';
	}
}

static final function class<KFPawn_Monster> PickRandomMonster(byte Level, bool bNotBoss)
{
	local byte i;
	local class<KFPawn_Monster> Res;
	
	Level = Min(Default.ZedTypes.Length-1,Level);
	for (i=0; i<5; ++i)
	{
		Res = Default.ZedTypes[Level].Zeds[Rand(Default.ZedTypes[Level].Zeds.Length)];
		if (!bNotBoss || class<KFPawn_MonsterBoss>(Res)==None)
			break;
	}
	if (bNotBoss && class<KFPawn_MonsterBoss>(Res)!=None)
		Res = Class'KFPawn_ZedFleshpound';
	return Res;
}

defaultproperties
{
	RespawnHelperTime=1
	HPScale=0.5
	DamageScale=2
	FriendlyScalar=0.65
}