/*
===========================================================================
Copyright (C) 2015 the OpenMoHAA team

This file is part of OpenMoHAA source code.

OpenMoHAA source code is free software; you can redistribute it
and/or modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2 of the License,
or (at your option) any later version.

OpenMoHAA source code is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with OpenMoHAA source code; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
===========================================================================
*/

// gibs.cpp: Gibs - nuff said

#include "gibs.h"
#include "decals.h"
#include "level.h"
#include "g_phys.h"

Event EV_ThrowGib
	(
	"throwgib",
	EV_DEFAULT,
   "eif",
   "ent velocity scale",
   "Throw a gib.",
   EV_NORMAL
	);

CLASS_DECLARATION( Mover, Gib, "gib" )
	{
      { &EV_ThrowGib,			&Gib::Throw },
      { &EV_Touch,				&Gib::Splat },
      { &EV_Stop,				&Gib::Stop },
		{ &EV_Damage,			&Gib::Damage },
      { NULL, NULL }
	};

Gib::Gib
	(
	str name,
	qboolean blood_trail,
	str bloodtrailname,
	str bloodspurtname,
	str bloodsplatname,
	float bloodsplatsize,
	float pitch
	)

   {
   setSize( Vector( "0 0 0" ), Vector( "0 0 0" ) );

	if ( name.length() )
		setModel( name.c_str() );

	setMoveType( MOVETYPE_GIB );
	setSolidType( SOLID_BBOX );
	takedamage = DAMAGE_YES;
   sprayed     = false;
   fadesplat   = true;
   scale       = 2.0f;

	next_bleed_time = 0;

	final_pitch	= pitch;

	if ( blood_trail )
		{
		// Make a blood emitter and bind it to the head
		blood = new Mover;
   
		if ( bloodtrailname.length() )
			blood->setModel( bloodtrailname.c_str() );

		blood->setMoveType( MOVETYPE_BOUNCE );
		blood->setSolidType( SOLID_NOT );
		blood->bind( this );

		// Save the blood spurt name

		if ( bloodspurtname.length() )
			blood_spurt_name = bloodspurtname;

		// Save the blood splat name

		if ( bloodsplatname.length() )
			blood_splat_name = bloodsplatname;

		blood_splat_size = bloodsplatsize;
		}
	else
		{
		blood = NULL;
		}

   Sound( "snd_decap", CHAN_BODY, 1, 300 );
   }

Gib::~Gib()
	{
	if ( blood )
      blood->PostEvent( EV_Remove, 0 );
   blood = NULL;
	}

Gib::Gib()
   {
   if ( LoadingSavegame )
      {
      return;
      }

   setSize( Vector( "0 0 0" ), Vector( "0 0 0" ) );
   setModel("gib1.def");
	setMoveType( MOVETYPE_GIB );
	setSolidType( SOLID_BBOX );
   sprayed           = 0;
   fadesplat         = true;
   scale             = 2.0f;
   }

void Gib::Stop 
   (
   Event *ev 
   )

   {
   //setSolidType( SOLID_NOT );
   if ( blood )
      blood->PostEvent( EV_Remove, 0 );
   blood = NULL;
   }

void Gib::Splat
	(
	Event *ev
	)

   {
   if ( g_gametype->integer != GT_SINGLE_PLAYER )
      return;

   if ( sprayed > 3 )
      {
      //setSolidType(SOLID_NOT);
      return;
      }

   sprayed++;
   scale -= 0.2f;

	// Stop spinning / force to final pitch

	avelocity = vec_zero;

	if ( final_pitch != NO_FINAL_PITCH )
		{
		angles[PITCH] = final_pitch;
		setAngles( angles );
		}

	SprayBlood( origin );
   Sound( "snd_gibhit" );
   }

void Gib::Damage
	(
	Event *ev
	)

   {
   Vector direction;
	Entity *blood;
	Vector dir;

	if ( next_bleed_time > level.time )
		return;
	
   direction = ev->GetVector ( 5 );

	// Spawn a blood spurt

	if ( blood_spurt_name.length() > 0 )
		{
		blood = new Animate;
		blood->setModel( blood_spurt_name.c_str() );

		dir[0] = -direction[0];
		dir[1] = -direction[1];
		dir[2] = -direction[2];

		blood->angles = dir.toAngles();
		blood->setAngles( blood->angles );

		blood->setOrigin( centroid );
		blood->origin.copyTo( blood->edict->s.origin2 );
		blood->setSolidType( SOLID_NOT );

		blood->PostEvent( EV_Remove, 1 );

		next_bleed_time = level.time + 0.5;
		}
   }

void Gib::SprayBlood
	(
	Vector start
	)

   {
   Vector      norm;
	trace_t		trace;
	Vector		trace_end;

	trace_end = velocity;
	trace_end.normalize();
	trace_end *= 1000;
	trace_end += start;

   trace = G_Trace( start, vec_zero, vec_zero, trace_end, this, MASK_SOLID, false, "Gib::SprayBlood" );

	if ( HitSky( &level.impact_trace ) || ( !level.impact_trace.ent ) || ( level.impact_trace.ent->solid != SOLID_BSP ) )
		{
		return;
		}

	// Do a bloodsplat
   if ( blood_splat_name.length() )
		{
		Decal *decal = new Decal;
		decal->setShader( blood_splat_name );
		decal->setOrigin( Vector( trace.endpos ) + ( Vector( level.impact_trace.plane.normal ) * 0.2f ) );
		decal->setDirection( level.impact_trace.plane.normal );
		decal->setOrientation( "random" );
		decal->setRadius( blood_splat_size + G_Random( blood_splat_size ) );
		}
   }

void Gib::ClipGibVelocity
	(
	void
	)

	{
	if (velocity[0] < -400)
		velocity[0] = -400;
	else if (velocity[0] > 400)
		velocity[0] = 400;
	if (velocity[1] < -400)
		velocity[1] = -400;
	else if (velocity[1] > 400)
		velocity[1] = 400;
	if (velocity[2] < 200)
		velocity[2] = 200;	// always some upwards
	else if (velocity[2] > 600)
		velocity[2] = 600;
}

void Gib::SetVelocity
	(
	float damage
	)

   {
   velocity[0] = 100.0 * crandom();
	velocity[1] = 100.0 * crandom();
	velocity[2] = 200.0 + 100.0 * random();

   avelocity = Vector( G_Random( 600 ), G_Random( 600 ), G_Random( 600 ) );

   if ( ( damage < -150 )  && ( G_Random() > 0.95f ) )
      velocity *= 2.0f;
   else if ( damage < -100 )
      velocity *= 1.5f;

   ClipGibVelocity();
   }

void Gib::Throw
	(
	Event *ev
	)

   {
   Entity *ent;

   ent = ev->GetEntity(1);
   setOrigin(ent->centroid);
   origin.copyTo(edict->s.origin2);
   SetVelocity(ev->GetInteger(2));
   edict->s.scale = ev->GetFloat(3);
   PostEvent(EV_FadeOut, 10 + G_Random(5));
   }


void CreateGibs
   (
   Entity * ent,
   float damage,
   float scale,
   int num,
   const char * modelname
   )
   
   {

   }