/*
===========================================================================
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
===========================================================================
*/

// lodthing.cpp : Level of detail manager

#include "lodthing.h"
#include "player.h"
#include "scriptexception.h"

Event EV_LODTool_Spawn
(
	"lod_spawn",
	EV_CONSOLE,
	"s",
	"model",
	"Edit LOD on the specified model"
);
Event EV_LODTool_Think
(
	"lod_think",
	EV_DEFAULT,
	NULL,
	NULL,
	"Called every frame to process the view thing."
);
Event EV_LODTool_SetModel
(
	"lod_model",
	EV_DEFAULT,
	NULL,
	NULL,
	"Set the model of the current viewthing"
);
Event EV_LODTool_SetYaw
(
	"lod_yaw",
	EV_CONSOLE,
	"f",
	"yaw",
	"Set the yaw of the model"
);
Event EV_LODTool_SetRoll
(
	"lod_roll",
	EV_CONSOLE,
	"f",
	"roll",
	"Set the roll of the model"
);
Event EV_LODTool_SetAngles
(
	"lod_angles",
	EV_CONSOLE,
	"f[0,360]f[0,360]f[0,360]",
	"pitch yaw roll",
	"Set the angles of the model"
);
Event EV_LODTool_Discard
(
	"lod_discard",
	EV_CONSOLE,
	NULL,
	NULL,
	"Discard LOD changes"
);

LODMaster LODModel;

CLASS_DECLARATION( Listener, LODMaster, "lodmaster" )
{
	{ &EV_LODTool_Spawn,			&LODMaster::Spawn },
	{ &EV_LODTool_SetYaw,			&LODMaster::PassEvent },
	{ &EV_LODTool_SetRoll,			&LODMaster::PassEvent },
	{ &EV_LODTool_SetAngles,		&LODMaster::PassEvent },
	{ &EV_LODTool_Discard,			&LODMaster::PassEvent },
	{ NULL, NULL }
};

void LODMaster::Init
	(
	void
	)

{
	gi.AddCommand( "lod_spawn", NULL );
	gi.AddCommand( "lod_yaw", NULL );
	gi.AddCommand( "lod_pitch", NULL );
	gi.AddCommand( "lod_roll", NULL );
	gi.AddCommand( "lod_angles", NULL );
	gi.AddCommand( "lod_discard", NULL );
}

void LODMaster::Spawn
	(
	Event *ev
	)

{
	const char *mdl;
	Vector forward, up, delta;
	Entity *ent;
	LODSlave *m_lodmodel;

	mdl = ev->GetString( 1 );

	if( !mdl || !*mdl )
	{
		ScriptError( "Must specify a model name" );
	}

	gi.Cvar_Set( "lod_tikiname", mdl );
	gi.Cvar_Set( "lod_tool", "1" );

	ent = g_entities->entity;

	if( ent->IsSubclassOfPlayer() )
	{
		( ( Player* )ent )->SetFov( 80 );
		ent->setOriginEvent( Vector( 2000, 0, 0 ) );
	}

	if( m_current )
	{
		m_current->PostEvent( EV_Remove, 0 );
	}

	m_lodmodel = new LODSlave;
	m_current = m_lodmodel;

	ent->angles.AngleVectorsLeft( &forward, NULL, &up );

	m_lodmodel->m_baseorigin = Vector( -1600, 0, 0 );
	m_lodmodel->setOrigin( m_lodmodel->m_baseorigin );
	m_lodmodel->m_baseorigin = m_lodmodel->origin;

	delta = Vector( "1 0 0" );
	delta.toAngles();

	m_lodmodel->setAngles( delta );
	m_lodmodel->setScale( 1.0f );

	Event *event = new Event( EV_LODTool_SetModel );

	event->AddString( mdl );
	m_lodmodel->ProcessEvent( event );

	if( !m_lodmodel->edict->tiki )
	{
		m_current = NULL;

		ScriptError( "Error in model '%s', LOD model not spawned.", mdl );
	}

	for( int i = 0; i < MAX_FRAMEINFOS; i++ )
	{
		m_lodmodel->Pause( i );
	}

	gi.SendConsoleCommand( "cg_drawvidemodel 0\n" );
	gi.SendConsoleCommand( "cg_shadows 0\n" );
	gi.SendConsoleCommand( "ui_compass 0\n" );
	gi.SendConsoleCommand( "r_fastsky 1\n" );
	gi.SendConsoleCommand( "r_drawworld 0\n" );
}

void LODMaster::PassEvent
	(
	Event *ev
	)

{
	if( !m_current )
	{
		ScriptError( "No LOD Model" );
	}

	Event *event = new Event( ev );
	m_current->ProcessEvent( event );
}

CLASS_DECLARATION( Animate, LODSlave, "lodslave" )
{
	{ &EV_LODTool_Think,		&LODSlave::ThinkEvent },
	{ &EV_LODTool_SetModel,		&LODSlave::SetModelEvent },
	{ &EV_LODTool_Discard,		&LODSlave::Delete },
	{ NULL, NULL }
};

void LODSlave::UpdateCvars
	(
	qboolean quiet,
	qboolean updateFrame
	)

{

}

LODSlave::LODSlave
	(
	void
	)

{
	m_baseorigin = origin;
	LODModel.m_current = this;

	edict->s.eType = ET_MODELANIM_SKEL;
	edict->s.renderfx |= RF_SHADOW;
	edict->s.renderfx |= RF_ADDITIVE_DLIGHT;

	PostEvent( EV_LODTool_Think, level.frametime );
}

static float lod_yaw = 0.0f;

void LODSlave::ThinkEvent
	(
	Event *ev
	)

{
	cvar_t *cvar;
	Entity *ent;
	Vector position;

	PostEvent( EV_LODTool_Think, level.frametime );

	lod_yaw += 2.0f;
	if( lod_yaw > 180.0f ) {
		lod_yaw = lod_yaw - 360.0f;
	}

	cvar = gi.Cvar_Get( "lod_pitch_val", "", 0 );

	angles[ 0 ] = cvar->value;
	angles[ 1 ] = lod_yaw;

	setAngles( angles );

	ent = g_entities->entity;
	if( ent->IsSubclassOfPlayer() )
	{
		( ( Player * )ent )->SetFov( 80.0 );
		ent->setOrigin( Vector( -4000, 0, 0 ) );
	}

	cvar = gi.Cvar_Get( "lod_position", "", 0 );
	sscanf( cvar->string, "%f %f %f", &position[ 0 ], &position[ 1 ], &position[ 2 ] );

	cvar = gi.Cvar_Get( "lod_zee_val", "", 0 );
	position[ 2 ] -= cvar->value;

	setOrigin( position );
}

void LODSlave::SetModelEvent
	(
	Event *ev
	)

{
	str modelname = ev->GetString( 1 );

	setModel( modelname );

	if( edict->tiki )
	{
		NewAnim( "idle" );
		SetFrame();
	}
}

void LODSlave::Delete
	(
	Event *ev
	)

{
	ScriptError( "DELETE" );
}