#include "actor.h"
#include "info.h"
#include "a_pickups.h"
#include "a_action.h"
#include "m_random.h"
#include "p_local.h"
#include "s_sound.h"
#include "gstrings.h"
#include "thingdef/thingdef.h"
#include "p_enemy.h"
#include "a_specialspot.h"
#include "g_level.h"
#include "a_sharedglobal.h"
#include "templates.h"
#include "r_data/r_translate.h"
#include "doomstat.h"
#include "farchive.h"
#include "d_player.h"
#include "a_morph.h"

// Include all the other Heretic stuff here to reduce compile time
#include "a_chicken.cpp"
#include "a_dsparil.cpp"
#include "a_hereticartifacts.cpp"
#include "a_hereticimp.cpp"
#include "a_hereticweaps.cpp"
#include "a_ironlich.cpp"
#include "a_knight.cpp"
#include "a_wizard.cpp"


static FRandom pr_podpain ("PodPain");
static FRandom pr_makepod ("MakePod");
static FRandom pr_teleg ("TeleGlitter");
static FRandom pr_teleg2 ("TeleGlitter2");
static FRandom pr_volcano ("VolcanoSet");
static FRandom pr_blast ("VolcanoBlast");
static FRandom pr_volcimpact ("VolcBallImpact");

//----------------------------------------------------------------------------
//
// PROC A_PodPain
//
//----------------------------------------------------------------------------

DEFINE_ACTION_FUNCTION_PARAMS(AActor, A_PodPain)
{
	PARAM_ACTION_PROLOGUE;
	PARAM_CLASS_OPT	(gootype, AActor)	{ gootype = PClass::FindActor("PodGoo"); }

	int count;
	int chance;
	AActor *goo;

	chance = pr_podpain ();
	if (chance < 128)
	{
		return 0;
	}
	for (count = chance > 240 ? 2 : 1; count; count--)
	{
		goo = Spawn(gootype, self->PosPlusZ(48.), ALLOW_REPLACE);
		goo->target = self;
		goo->Vel.X = pr_podpain.Random2() / 128.;
		goo->Vel.Y = pr_podpain.Random2() / 128.;
		goo->Vel.Z = 0.5 + pr_podpain() / 128.;
	}
	return 0;
}

//----------------------------------------------------------------------------
//
// PROC A_RemovePod
//
//----------------------------------------------------------------------------

DEFINE_ACTION_FUNCTION(AActor, A_RemovePod)
{
	PARAM_ACTION_PROLOGUE;

	AActor *mo;

	if ( (mo = self->master) )
	{
		if (mo->special1 > 0)
		{
			mo->special1--;
		}
	}
	return 0;
}

//----------------------------------------------------------------------------
//
// PROC A_MakePod
//
//----------------------------------------------------------------------------

#define MAX_GEN_PODS 16

DEFINE_ACTION_FUNCTION_PARAMS(AActor, A_MakePod)
{
	PARAM_ACTION_PROLOGUE;
	PARAM_CLASS_OPT(podtype, AActor)	{ podtype = PClass::FindActor("Pod"); }

	AActor *mo;

	if (self->special1 == MAX_GEN_PODS)
	{ // Too many generated pods
		return 0;
	}
	mo = Spawn(podtype, self->PosAtZ(ONFLOORZ), ALLOW_REPLACE);
	if (!P_CheckPosition (mo, mo->Pos()))
	{ // Didn't fit
		mo->Destroy ();
		return 0;
	}
	mo->SetState (mo->FindState("Grow"));
	mo->Thrust(pr_makepod() * (360. / 256), 4.5);
	S_Sound (mo, CHAN_BODY, self->AttackSound, 1, ATTN_IDLE);
	self->special1++; // Increment generated pod count
	mo->master = self; // Link the generator to the pod
	return 0;
}

//----------------------------------------------------------------------------
//
// PROC A_AccTeleGlitter
//
//----------------------------------------------------------------------------

DEFINE_ACTION_FUNCTION(AActor, A_AccTeleGlitter)
{
	PARAM_ACTION_PROLOGUE;

	if (++self->health > 35)
	{
		self->Vel.Z *= 1.5;
	}
	return 0;
}


//----------------------------------------------------------------------------
//
// PROC A_VolcanoSet
//
//----------------------------------------------------------------------------

DEFINE_ACTION_FUNCTION(AActor, A_VolcanoSet)
{
	PARAM_ACTION_PROLOGUE;

	self->tics = 105 + (pr_volcano() & 127);
	return 0;
}

//----------------------------------------------------------------------------
//
// PROC A_VolcanoBlast
//
//----------------------------------------------------------------------------

DEFINE_ACTION_FUNCTION(AActor, A_VolcanoBlast)
{
	PARAM_ACTION_PROLOGUE;

	int i;
	int count;
	AActor *blast;

	count = 1 + (pr_blast() % 3);
	for (i = 0; i < count; i++)
	{
		blast = Spawn("VolcanoBlast", self->PosPlusZ(44*FRACUNIT), ALLOW_REPLACE);
		blast->target = self;
		blast->Angles.Yaw = pr_blast() * (360 / 256.f);
		blast->VelFromAngle(1.);
		blast->Vel.Z = 2.5 + pr_blast() / 64.;
		S_Sound (blast, CHAN_BODY, "world/volcano/shoot", 1, ATTN_NORM);
		P_CheckMissileSpawn (blast, self->radius);
	}
	return 0;
}

//----------------------------------------------------------------------------
//
// PROC A_VolcBallImpact
//
//----------------------------------------------------------------------------

DEFINE_ACTION_FUNCTION(AActor, A_VolcBallImpact)
{
	PARAM_ACTION_PROLOGUE;

	unsigned int i;
	AActor *tiny;

	if (self->_f_Z() <= self->floorz)
	{
		self->flags |= MF_NOGRAVITY;
		self->gravity = FRACUNIT;
		self->_f_AddZ(28*FRACUNIT);
		//self->Vel.Z = 3*FRACUNIT;
	}
	P_RadiusAttack (self, self->target, 25, 25, NAME_Fire, RADF_HURTSOURCE);
	for (i = 0; i < 4; i++)
	{
		tiny = Spawn("VolcanoTBlast", self->Pos(), ALLOW_REPLACE);
		tiny->target = self;
		tiny->Angles.Yaw = 90.*i;
		tiny->VelFromAngle(0.7);
		tiny->Vel.Z = 1. + pr_volcimpact() / 128.;
		P_CheckMissileSpawn (tiny, self->radius);
	}
	return 0;
}