/*
Copyright (C) 1996-1997 Id Software, Inc.

This program 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.

This program 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 this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

*/
// sv_main.c -- server main program

#include "quakedef.h"

server_t		sv;
server_static_t	svs;

char	localmodels[MAX_MODELS][5];			// inline model names for precache

//============================================================================

cvar_t  sv_dismin		= {"sv_dismin", "0.1", false};//Tei default

/*
===============
SV_Init
===============
*/

// Tei stepsize
extern cvar_t sv_stepsize;
// Tei stepsize

// Tei autoanimagic
extern int eval_autoanimagic;
extern int eval_autoanimagic_lowframe;
// Tei autoanimagic
void R_Beam (vec3_t origin, vec3_t end)  ;

//extern cvar_t r_waterwarp;//Tei / Fritz waterwarp

extern cvar_t sp_nofarsound;

void SV_Init (void)
{
	int		i;
	extern	cvar_t	sv_maxvelocity;
	extern	cvar_t	sv_gravity;
	extern	cvar_t	sv_nostep;
	extern	cvar_t	sv_friction;
	extern	cvar_t	sv_edgefriction;
	extern	cvar_t	sv_stopspeed;
	extern	cvar_t	sv_maxspeed;
	extern	cvar_t	sv_accelerate;
	extern	cvar_t	sv_idealpitchscale;
	extern	cvar_t	sv_aim;

	// Tei custom sky
	extern cvar_t sv_skyvalue;
	extern cvar_t sv_skydim;
	extern cvar_t sv_skyspeedscale;
	extern cvar_t sv_skyflattern;

	extern	cvar_t	mod_smartroute;

	// Tei custom sky

	// Tei autolava
	extern	cvar_t	r_autolightday;
	extern	cvar_t	r_autofogwater;
	extern	cvar_t	r_autobubbleglobal;
	extern	cvar_t	r_autolava;
	extern	cvar_t	r_autotele;
	extern	cvar_t	r_autosnow;
	extern	cvar_t	r_autorain;
	extern	cvar_t	r_autometeor;
	extern	cvar_t	r_autozing;
	extern	cvar_t	r_autobubbles;
	extern	cvar_t	r_autograss;
	extern  cvar_t r_grassdensity;
	extern  cvar_t r_grasspeed;
	extern cvar_t r_autohell;

	extern cvar_t r_autofogfog;
	extern cvar_t r_autowindx;
	extern cvar_t r_autowindy;
	extern cvar_t r_autowindz;
	extern cvar_t r_autofoot;



	// Tei autolava 

	Cvar_RegisterVariable (&sv_maxvelocity);
	Cvar_RegisterVariable (&sv_gravity);
	Cvar_RegisterVariable (&sv_friction);
	Cvar_RegisterVariable (&mod_smartroute);//Tei smarter routing


	Cvar_RegisterVariable (&sv_edgefriction);
	Cvar_RegisterVariable (&sv_stopspeed);
	Cvar_RegisterVariable (&sv_maxspeed);
	Cvar_RegisterVariable (&sv_accelerate);
	Cvar_RegisterVariable (&sv_idealpitchscale);
	Cvar_RegisterVariable (&sv_aim);
	Cvar_RegisterVariable (&sv_nostep);

	Cvar_RegisterVariable (&sp_nofarsound);//Tei optimization for singleplayer

	Cvar_RegisterVariable (&impaim);		// Tomaz - Improved Aiming
		//.. tei, moved here to try to fix dm problems.
	
	// Tei stepsize
	Cvar_RegisterVariable (&sv_stepsize);
	// Tei stepsize

	// Tei custom Sky
	Cvar_RegisterVariable (&sv_skyvalue);
	Cvar_RegisterVariable (&sv_skydim);
	Cvar_RegisterVariable (&sv_skyspeedscale);
	Cvar_RegisterVariable (&sv_skyflattern);
	// Tei custom Sky

	// Tei autofx
	Cvar_RegisterVariable (&sv_dismin);//Dx min for update 

	Cvar_RegisterVariable (&r_autolava);
	Cvar_RegisterVariable (&r_autohell);//for fun

	Cvar_RegisterVariable (&r_autotele);
	Cvar_RegisterVariable (&r_autosnow);
	Cvar_RegisterVariable (&r_autorain);
	Cvar_RegisterVariable (&r_autometeor);
	Cvar_RegisterVariable (&r_autofogwater);

	
	Cvar_RegisterVariable (&r_autofogfog);
	Cvar_RegisterVariable (&r_autowindx);
	Cvar_RegisterVariable (&r_autowindy);
	Cvar_RegisterVariable (&r_autowindz);


	Cvar_RegisterVariable (&r_autobubbleglobal);
	Cvar_RegisterVariable (&r_autolightday);
	Cvar_RegisterVariable (&r_autozing);
	Cvar_RegisterVariable (&r_autobubbles);

	Cvar_RegisterVariable (&r_autofoot);

	Cvar_RegisterVariable (&r_autograss);
	Cvar_RegisterVariable (&r_grassdensity);
	Cvar_RegisterVariable (&r_grasspeed);
	// Tei autofx

//	Cvar_RegisterVariable (&r_waterwarp);//Tei / Fitz waterwarp


	for (i=0 ; i<MAX_MODELS ; i++)
		sprintf (localmodels[i], "*%i", i);
}

/*
=============================================================================

EVENT MESSAGES

=============================================================================
*/

/*  
==================
SV_StartParticle

Make sure the event gets sent to all clients
==================
*/
void SV_StartParticle (vec3_t org, vec3_t dir, int color, int count)
{
	int		i, v;

	if (sv.datagram.cursize > MAX_DATAGRAM-16)
		return;	
	MSG_WriteByte (&sv.datagram, svc_particle);
	MSG_WriteCoord (&sv.datagram, org[0]);
	MSG_WriteCoord (&sv.datagram, org[1]);
	MSG_WriteCoord (&sv.datagram, org[2]);
	for (i=0 ; i<3 ; i++)
	{
		v = dir[i]*16;
		if (v > 127)
			v = 127;
		else if (v < -128)
			v = -128;
		MSG_WriteChar (&sv.datagram, v);
	}
	MSG_WriteByte (&sv.datagram, count);
	MSG_WriteByte (&sv.datagram, color);
}           

/*  
==================
SV_StartSound

Each entity can have eight independant sound sources, like voice,
weapon, feet, etc.

Channel 0 is an auto-allocate channel, the others override anything
allready running on that entity/channel pair.

An attenuation of 0 will play full volume everywhere in the level.
Larger attenuations will drop off.  (max 4 attenuation)

==================
*/  
void SV_StartSound (edict_t *entity, int channel, char *sample, int volume,
    float attenuation)
{       
    int         sound_num;
    int field_mask;
    int			i;
	int			ent;
	
	if (volume < 0 || volume > 255)
		Sys_Error ("SV_StartSound: volume = %i", volume);

	if (attenuation < 0 || attenuation > 4)
		Sys_Error ("SV_StartSound: attenuation = %f", attenuation);

	if (channel < 0 || channel > 7)
		Sys_Error ("SV_StartSound: channel = %i", channel);

	if (sv.datagram.cursize > MAX_DATAGRAM-16)
		return;	

// find precache number for sound
    for (sound_num=1 ; sound_num<MAX_SOUNDS
        && sv.sound_precache[sound_num] ; sound_num++)
        if (!strcmp(sample, sv.sound_precache[sound_num]))
            break;
    
    if ( sound_num == MAX_SOUNDS || !sv.sound_precache[sound_num] )
    {
        Con_Printf ("SV_StartSound: %s not precacheed\n", sample);
        return;
    }
    
	ent = NUM_FOR_EDICT(entity);

	channel = (ent<<3) | channel;

	field_mask = 0;
	if (volume != DEFAULT_SOUND_PACKET_VOLUME)
		field_mask |= SND_VOLUME;
	if (attenuation != DEFAULT_SOUND_PACKET_ATTENUATION)
		field_mask |= SND_ATTENUATION;

// directed messages go only to the entity the are targeted on
	MSG_WriteByte (&sv.datagram, svc_sound);
	MSG_WriteByte (&sv.datagram, field_mask);
	if (field_mask & SND_VOLUME)
		MSG_WriteByte (&sv.datagram, volume);
	if (field_mask & SND_ATTENUATION)
		MSG_WriteByte (&sv.datagram, attenuation*64);
	MSG_WriteShort (&sv.datagram, channel);
	MSG_WriteByte (&sv.datagram, sound_num);
	for (i=0 ; i<3 ; i++)
		MSG_WriteCoord (&sv.datagram, entity->v.origin[i]+0.5*(entity->v.mins[i]+entity->v.maxs[i]));
}           

/*
==============================================================================

CLIENT SPAWNING

==============================================================================
*/

/*
================
SV_SendServerinfo

Sends the first message from the server to a connected client.
This will be sent on the initial connection and upon each server load.
================
*/
void SV_SendServerinfo (client_t *client)
{
	char			**s;
	char			message[2048];

	MSG_WriteByte (&client->message, svc_print);
	sprintf (message, "%c\nVERSION %4.2f SERVER (%i CRC)\n", 2, VERSION, pr_crc);
	MSG_WriteString (&client->message,message);

	MSG_WriteByte (&client->message, svc_serverinfo);
	MSG_WriteLong (&client->message, PROTOCOL_VERSION);
	MSG_WriteByte (&client->message, svs.maxclients);

	if (!coop.value && deathmatch.value)
		MSG_WriteByte (&client->message, GAME_DEATHMATCH);
	else
		MSG_WriteByte (&client->message, GAME_COOP);

	sprintf (message, pr_strings+sv.edicts->v.message);

	MSG_WriteString (&client->message,message);


	
	for (s = sv.model_precache+1 ; *s ; s++)
		MSG_WriteString (&client->message, *s);
	MSG_WriteByte (&client->message, 0);

	for (s = sv.sound_precache+1 ; *s ; s++)
		MSG_WriteString (&client->message, *s);
	MSG_WriteByte (&client->message, 0);

// send music
	MSG_WriteByte (&client->message, svc_cdtrack);
	MSG_WriteByte (&client->message, sv.edicts->v.sounds);
	MSG_WriteByte (&client->message, sv.edicts->v.sounds);

// set view	
	MSG_WriteByte (&client->message, svc_setview);
	MSG_WriteShort (&client->message, NUM_FOR_EDICT(client->edict));

	MSG_WriteByte (&client->message, svc_signonnum);
	MSG_WriteByte (&client->message, 1);

	client->sendsignon = true;
	client->spawned = false;		// need prespawn, spawn, etc
}

/*
================
SV_ConnectClient

Initializes a client_t for a new net connection.  This will only be called
once for a player each game, not once for each level change.
================
*/
void SV_ConnectClient (int clientnum)
{
	edict_t			*ent;
	client_t		*client;
	int				edictnum;
	struct qsocket_s *netconnection;
	int				i;
	float			spawn_parms[NUM_SPAWN_PARMS];

	client = svs.clients + clientnum;

	Con_DPrintf ("Client %s connected\n", client->netconnection->address);

	edictnum = clientnum+1;

	ent = EDICT_NUM(edictnum);
	
// set up the client_t
	netconnection = client->netconnection;
	
	if (sv.loadgame)
		memcpy (spawn_parms, client->spawn_parms, sizeof(spawn_parms));
	memset (client, 0, sizeof(*client));
	client->netconnection = netconnection;

	strcpy (client->name, "unconnected");
	client->active = true;
	client->spawned = false;
	client->edict = ent;
	client->message.data = client->msgbuf;
	client->message.maxsize = sizeof(client->msgbuf);
	client->message.allowoverflow = true;		// we can catch it

	if (sv.loadgame)
		memcpy (client->spawn_parms, spawn_parms, sizeof(spawn_parms));
	else
	{
	// call the progs to get default spawn parms for the new client
		PR_ExecuteProgram (pr_global_struct->SetNewParms);
		for (i=0 ; i<NUM_SPAWN_PARMS ; i++)
			client->spawn_parms[i] = (&pr_global_struct->parm1)[i];
	}

	SV_SendServerinfo (client);
}


/*
===================
SV_CheckForNewClients

===================
*/

void SV_ForcedSettings (void);

void SV_CheckForNewClients (void)
{
	struct qsocket_s	*ret;
	int				i;
		
//
// check for new connections
//
	while (1)
	{
		ret = NET_CheckNewConnections ();
		if (!ret)
			break;

	// 
	// init a new client structure
	//	
		for (i=0 ; i<svs.maxclients ; i++)
			if (!svs.clients[i].active)
				break;
		if (i == svs.maxclients)
			Sys_Error ("Host_CheckForNewClients: no free clients");
		
		svs.clients[i].netconnection = ret;
		SV_ConnectClient (i);	
	
		net_activeconnections++;
// koval -->
        //SV_ForcedSettings();
// <-- koval
	}
}



/*
===============================================================================

FRAME UPDATES

===============================================================================
*/

/*
==================
SV_ClearDatagram

==================
*/
void SV_ClearDatagram (void)
{
	SZ_Clear (&sv.datagram);
}

/*
=============================================================================

The PVS must include a small area around the client to allow head bobbing
or other small motion on the client side.  Otherwise, a bob might cause an
entity that should be visible to not show up, especially when the bob
crosses a waterline.

=============================================================================
*/

int		fatbytes;
byte	fatpvs[MAX_MAP_LEAFS/8];

void SV_AddToFatPVS (vec3_t org, mnode_t *node)
{
	int		i;
	byte	*pvs;
	mplane_t	*plane;
	float	d;

	while (1)
	{
	// if this is a leaf, accumulate the pvs bits
		if (node->contents < 0)
		{
			if (node->contents != CONTENTS_SOLID)
			{
				pvs = Mod_LeafPVS ( (mleaf_t *)node, sv.worldmodel);
				for (i=0 ; i<fatbytes ; i++)
					fatpvs[i] |= pvs[i];
			}
			return;
		}
	
		plane = node->plane;
		d = PlaneDiff (org, plane);
		if (d > 8)
			node = node->children[0];
		else if (d < -8)
			node = node->children[1];
		else
		{	// go down both
			SV_AddToFatPVS (org, node->children[0]);
			node = node->children[1];
		}
	}
}

/*
=============
SV_FatPVS

Calculates a PVS that is the inclusive or of all leafs within 8 pixels of the
given point.
=============
*/
byte *SV_FatPVS (vec3_t org)
{
	fatbytes = (sv.worldmodel->numleafs+31)>>3;
	Q_memset (fatpvs, 0, fatbytes);
	SV_AddToFatPVS (org, sv.worldmodel->nodes);
	return fatpvs;
}

//=============================================================================




extern cvar_t deathmatch;
extern cvar_t coop;
extern cvar_t mod_showbbox;
entity_t	*CL_EntityNum (int num);



void LR_DrawBox( edict_t	*ent)
{
	vec3_t p1,p2;

	VectorCopy(ent->v.absmax,p1);p1[0] = ent->v.absmin[0];

		R_Beam(ent->v.absmax, p1);//XFX

		VectorCopy(ent->v.absmax,p2);
		p2[1] = ent->v.absmin[1];p2[0] = ent->v.absmin[0];

		R_Beam(p1, p2);//XFX

		p2[2] = ent->v.absmin[2];p1[2] = ent->v.absmin[2];

		R_Beam(p1, p2);//XFX

		p2[0] = ent->v.absmax[0];p1[0] = ent->v.absmax[0];

		R_Beam(p1, p2);//XFX

		p2[2] = ent->v.absmax[2];p1[2] = ent->v.absmax[2];

		R_Beam(p1, p2);//XFX

		p2[0] = ent->v.absmin[0];p1[1] = p2[1];

		R_Beam(p1, p2);//XFX
		
		p2[2] = ent->v.absmin[2];p1[2] = ent->v.absmin[2];

		R_Beam(p1, p2);//XFX

		p2[1] = ent->v.absmax[1];p1[1] = ent->v.absmax[1];

		R_Beam(p1, p2);//XFX

		p2[2] = ent->v.absmax[2];p2[0] = ent->v.absmax[0];

		R_Beam(p1, p2);//XFX

		p2[1] = ent->v.absmin[1];p1[1] = ent->v.absmin[1];

		R_Beam(p1, p2);//XFX

		p2[0] = ent->v.absmin[0];p1[0] = ent->v.absmin[0];

		R_Beam(p1, p2);//XFX

		p2[1] = ent->v.absmax[1];p1[1] = ent->v.absmax[1];

		R_Beam(p1, p2);//XFX
}

#ifndef EXTENDQC
#define EXTENDQC
#endif

/*
=============
SV_WriteEntitiesToClient

=============
*/


int SizebufExtend(sizebuf_t *  buf, int length)
{
		byte * newdata;

		newdata = realloc(buf->data,buf->maxsize+length);

		if (newdata)
		{
			buf->maxsize += length;
			buf->data = newdata;
		}
		else
		{
			newdata = malloc(buf->maxsize+length);

			if (newdata)
			{
				memcpy(newdata,buf->data,buf->maxsize);
				buf->data = newdata;
				buf->maxsize = buf->maxsize+length;
			}
			else
				return false;
		}
		
		return true;
}

//Xsniper - Fixes Tomaz .alpha and .glow and .scale problems
extern void FindEdictFieldOffsets();
//Xsniper - End

void SV_WriteEntitiesToClient (edict_t	*clent, sizebuf_t *msg)
{
	int		e, i;
	int		bits;
	byte	*pvs;
	vec3_t	org;
	float	miss;
	edict_t	*ent;

	// Tomaz - QC Alpha Scale Glow Begin
	int		clentnum;
	float	alpha;
	float	scale;
	float	glow_size;
	float	glow_red;
	float	glow_green;
	float	glow_blue;
	eval_t  *val;
	// Tomaz - QC Alpha Scale Glow End

	qboolean modehud;//Tei hud entitys

	//Xsniper - Fixes Tomaz .alpha and .glow and .scale problems
	FindEdictFieldOffsets();
	//Xsniper - End

// find the client's PVS
	VectorAdd (clent->v.origin, clent->v.view_ofs, org);
	pvs = SV_FatPVS (org);

	clentnum = EDICT_TO_PROG(clent);
// send over all entities (excpet the client) that touch the pvs
	ent = NEXT_EDICT(sv.edicts);
	for (e=1 ; e<sv.num_edicts ; e++, ent = NEXT_EDICT(ent))
	{
		if (ent != clent)	// clent is ALLWAYS sent
		{

			if (ent->v.modelindex && ent->v.modelindex<MAX_MODELS)
				modehud = ((sv.models[ (int)ent->v.modelindex]->type ==mod_hud));//Tei hud entitys
			else
				modehud = false;

			if (!ent->v.modelindex || !pr_strings[ent->v.model])
				continue;

			if ((val = GETEDICTFIELDVALUE(ent, eval_nodrawtoclient)) && val->edict == clentnum)
					continue;
			if ((val = GETEDICTFIELDVALUE(ent, eval_drawonlytoclient)) && val->edict && val->edict != clentnum)
					continue;

			if (!modehud)
			{
				for (i=0 ; i < ent->num_leafs ; i++)
					if (pvs[ent->leafnums[i] >> 3] & (1 << (ent->leafnums[i]&7) ))
						break;
					
				if (i == ent->num_leafs)
					continue;		// not visible
			}
		}


		if (msg->maxsize - msg->cursize < 16)
		{

			if (!SizebufExtend(msg, 4096))
				Con_Printf("-");
			else
				Con_Printf("+");

#ifndef SINGLEPLAYER
			Con_Printf ("packet overflow\n");
#endif			
			if (ent->v.model)
			{
			if (!strncmp(pr_strings + ent->v.classname,"spike",6))
				continue;	//spike inhibited
			if (!strncmp(pr_strings + ent->v.model,"progs/zom",9))
				continue;	//Zombie inhibited
			if (!strncmp(pr_strings + ent->v.model,"progs/gib",9))
				continue;	//Gibs inhibited
			}
			if (msg->maxsize - msg->cursize < 8)//WARNING!
			{
#ifndef SINGLEPLAYER
				Con_Printf ("packet overflow..heavy level\n");
#endif 
				if (!(pr_strings + ent->v.classname) || !ent->v.classname) // ""
					continue;	//inhibir anonymous, DANGEROUS!!

				if (msg->maxsize - msg->cursize < 6)
				if (ent->v.movetype == MOVETYPE_FLY ||ent->v.movetype == MOVETYPE_BOUNCE )
					continue;
			}

			//return;
		}
// send an update
		bits = 0;

		if( mod_showbbox.value)
			LR_DrawBox( ent);//Tei draw bbox

		
		for (i=0 ; i<3 ; i++)
		{
			miss = ent->v.origin[i] - ent->baseline.origin[i];
			if ( miss < -0.1 || miss > 0.1 )
				bits |= U_ORIGIN1<<i;
		}

		if ( ent->v.angles[0] != ent->baseline.angles[0] )
			bits |= U_ANGLE1;
			
		if ( ent->v.angles[1] != ent->baseline.angles[1] )
			bits |= U_ANGLE2;
			
		if ( ent->v.angles[2] != ent->baseline.angles[2] )
			bits |= U_ANGLE3;
			
		if (ent->v.movetype == MOVETYPE_STEP)
			bits |= U_NOLERP;	// don't mess up the step animation
	
		if (ent->baseline.colormap != ent->v.colormap)
			bits |= U_COLORMAP;
			
		if (ent->baseline.skin != ent->v.skin)
			bits |= U_SKIN;
			
		if (ent->baseline.frame != ent->v.frame)
			bits |= U_FRAME;
		
		if (ent->baseline.effects != ent->v.effects)
			bits |= U_EFFECTS;
		
		if (ent->baseline.modelindex != ent->v.modelindex)
			bits |= U_MODEL;

		// Tomaz - QC Alpha Scale Glow & More Frames Begin
		{
			alpha		= 1;
			scale		= 1;
			glow_size	= 0;
			glow_red	= 0;
			glow_green	= 0;
			glow_blue	= 0;

		if (ent->forcefx3 == EF3_GLASS)
		{
			alpha = 0.3;
		}


			if (val = GETEDICTFIELDVALUE(ent, eval_alpha))
				alpha = val->_float;

			if ((val = GETEDICTFIELDVALUE(ent, eval_renderamt)) && val->_float != 0) // HalfLife support
				alpha = val->_float / 255;

			if (val = GETEDICTFIELDVALUE(ent, eval_scale))
				scale = val->_float;

			if (scale > 4)
				scale = 4;

			if (val = GETEDICTFIELDVALUE(ent, eval_glow_size))
				glow_size = val->_float;

			if (glow_size > 1024)
				glow_size = 1024;

			if (val = GETEDICTFIELDVALUE(ent, eval_glow_red))
				glow_red = val->_float;

			if (val = GETEDICTFIELDVALUE(ent, eval_glow_green))
				glow_green = val->_float;

			if (val = GETEDICTFIELDVALUE(ent, eval_glow_blue))
				glow_blue = val->_float;

			if (alpha < 1)
				bits |= U_ALPHA;
		
			if ((scale <= 4) && (scale > 0))
				bits |= U_SCALE;

			//Tei, codified fx3 
			if (ent->forcefx3)
			{
				glow_size = -1;
				glow_red = ent->forcefx3;
			}
			//Tei, codifieed fx3


			if (glow_size >= 0 || glow_size == -1)
			{
				bits |= U_GLOW_SIZE;
				bits |= U_GLOW_RED;
				bits |= U_GLOW_GREEN;
				bits |= U_GLOW_BLUE;
			}


			if (((int) ent->baseline.frame & 0xFF00) != ((int) ent->v.frame & 0xFF00))			
				bits |= U_FRAME2;
		}
		// Tomaz - QC Alpha Scale Glow & More Frames End

		if (e >= 256)
			bits |= U_LONGENTITY;
			
		if (bits >= 256)
			bits |= U_MOREBITS;

		// Tomaz - QC Control Begin
		if (bits >= 65536)
			bits |= U_EXTEND1;

		if (bits >= 16777216)
			bits |= U_EXTEND2;
		// Tomaz - QC Control End

	//
	// write the message
	//
		MSG_WriteByte (msg,bits | U_SIGNAL);
		
		if (bits & U_MOREBITS)
			MSG_WriteByte (msg, bits>>8);

		// Tomaz - QC Control Begin
		if (bits & U_EXTEND1)
			MSG_WriteByte (msg, bits>>16);
		if (bits & U_EXTEND2)
			MSG_WriteByte (msg, bits>>24);
		// Tomaz - QC Control End

		if (bits & U_LONGENTITY)
			MSG_WriteShort (msg,e);
		else
			MSG_WriteByte (msg,e);

		if (bits & U_MODEL)
			MSG_WriteByte (msg,	ent->v.modelindex);
		if (bits & U_FRAME)
			MSG_WriteByte (msg, ent->v.frame);
		if (bits & U_COLORMAP)
			MSG_WriteByte (msg, ent->v.colormap);
		if (bits & U_SKIN)
			MSG_WriteByte (msg, ent->v.skin);
		if (bits & U_EFFECTS)
			MSG_WriteByte (msg, ent->v.effects);
		if (bits & U_ORIGIN1)
			MSG_WriteCoord (msg, ent->v.origin[0]);		
		if (bits & U_ANGLE1)
			MSG_WriteAngle(msg, ent->v.angles[0]);
		if (bits & U_ORIGIN2)
			MSG_WriteCoord (msg, ent->v.origin[1]);
		if (bits & U_ANGLE2)
			MSG_WriteAngle(msg, ent->v.angles[1]);
		if (bits & U_ORIGIN3)
			MSG_WriteCoord (msg, ent->v.origin[2]);
		if (bits & U_ANGLE3)
			MSG_WriteAngle(msg, ent->v.angles[2]);

		// Tomaz - QC Alpha Scale Glow & More Frames Begin
		if (bits & U_ALPHA)
			MSG_WriteFloat(msg, alpha);

		if (bits & U_SCALE)
			MSG_WriteFloat(msg, scale);

		if (bits & U_GLOW_SIZE)
			MSG_WriteFloat(msg, glow_size);

		if (bits & U_GLOW_RED)
			MSG_WriteFloat(msg, glow_red);

		if (bits & U_GLOW_GREEN)
			MSG_WriteFloat(msg, glow_green);

		if (bits & U_GLOW_BLUE)
			MSG_WriteFloat(msg, glow_blue);

		if (bits & U_FRAME2)	
			MSG_WriteByte(msg, (int)ent->v.frame >> 8);
		// Tomaz - QC Alpha Scale Glow & More Frames End
	}
}


void SV_WriteEntitiesToClient_oldish (edict_t	*clent, sizebuf_t *msg)
{
	int		e, i;
	int		bits;
	byte	*pvs;
	vec3_t	org;
	float	miss;
	edict_t	*ent;

#ifdef SINGLEPLAYER
	entity_t	*cent;//SPE for telejano
	int k;
#endif
	
#ifdef EXTENDQC
	int		clentnum;

	float	alpha;
	float	scale;
	float	glow_size;
	float	glow_red;
	float	glow_green;
	float	glow_blue;
	eval_t  *val;
#endif
	qboolean modehud;
	int singleplayer = !deathmatch.value && !coop.value;

	VectorAdd (clent->v.origin, clent->v.view_ofs, org);// find the client's PVS
	pvs = SV_FatPVS (org);

	clentnum = EDICT_TO_PROG(clent);


	ent = NEXT_EDICT(sv.edicts);// send over all entities (excpet the client) that touch the pvs
	for (e=1 ; e<sv.num_edicts ; e++, ent = NEXT_EDICT(ent))
	{

							// ignore if not touching a PV leaf
		if (ent != clent)	// clent is ALLWAYS sent
		{
// ignore ents without visible models
			if (!ent->v.modelindex || !pr_strings[ent->v.model])
				continue;

			modehud=false;
			if (ent->v.model)
			if (!strncmp(pr_strings + ent->v.model,"pics/",5))
				modehud = true;	
		
		
			if ((val = GETEDICTFIELDVALUE(ent, eval_nodrawtoclient)) && val->edict == clentnum)
					continue;
			if ((val = GETEDICTFIELDVALUE(ent, eval_drawonlytoclient)) && val->edict && val->edict != clentnum)
					continue;

			if (!modehud)
			{
				for (i=0 ; i < ent->num_leafs ; i++)
					if (pvs[ent->leafnums[i] >> 3] & (1 << (ent->leafnums[i]&7) ))
						break;
					
				if (i == ent->num_leafs)
					continue;		// not visible
	
				if (ent->v.effects3 == EF3_NONET )
					continue;		
			}
		}

		if (msg->maxsize - msg->cursize < 16)
		{
			Con_Printf ("packet overflow\n");
			
			if (ent->v.model)
			{
			if (!strncmp(pr_strings + ent->v.classname,"spike",6))
				continue;	//spike inhibited
			if (!strncmp(pr_strings + ent->v.model,"progs/zom",9))
				continue;	//Zombie inhibited
			if (!strncmp(pr_strings + ent->v.model,"progs/gib",9))
				continue;	//Gibs inhibited
			}
			if (msg->maxsize - msg->cursize < 8)//WARNING!
			{
				Con_Printf ("packet overflow..heavy level\n");
				if (!(pr_strings + ent->v.classname)) // ""
					continue;	//inhibir anonymous, DANGEROUS!!
			}

			return;
		}

// send an update
		bits = 0;

	if( mod_showbbox.value)
		LR_DrawBox( ent);//Tei draw bbox

#ifdef SINGLEPLAYER		


		//Entity in the spotlight
		cent =  CL_EntityNum (e);		//SPE
		
		//Easy to avoid 
		VectorCopy( ent->v.origin, cent->origin);
		VectorCopy( ent->v.origin, cent->baseline.origin);	
	
		VectorCopy( ent->v.angles, cent->angles);
		VectorCopy( ent->v.angles, cent->baseline.angles);

		cent->baseline.frame  = ent->v.frame;

		k = ent->v.colormap;
		cent->colormap = cl.scores[k-1].translations;

		//This where problematic to avoid					
		if (ent->v.movetype == MOVETYPE_STEP)
			bits |= U_NOLERP;	// don't mess up the step animation
		
		if (ent->baseline.skin != ent->v.skin)
			bits |= U_SKIN;
		
		if (ent->baseline.effects != ent->v.effects)
			bits |= U_EFFECTS;
		
		//if (ent->baseline.modelindex != ent->v.modelindex)
		//	bits |= U_MODEL;
		cent->baseline.modelindex  = ent->v.modelindex;
		

#else //TELEJANO NORMAL CODE
		
		

		for (i=0 ; i<3 ; i++)
		{
			miss = ent->v.origin[i] - ent->baseline.origin[i];
			if ( miss < -0.1 || miss > 0.1 )
				bits |= U_ORIGIN1<<i;
		}

		if ( ent->v.angles[0] != ent->baseline.angles[0] )
			bits |= U_ANGLE1;
			
		if ( ent->v.angles[1] != ent->baseline.angles[1] )
			bits |= U_ANGLE2;
			
		if ( ent->v.angles[2] != ent->baseline.angles[2] )
			bits |= U_ANGLE3;
			
		if (ent->v.movetype == MOVETYPE_STEP)
			bits |= U_NOLERP;	// don't mess up the step animation
	
		if (ent->baseline.colormap != ent->v.colormap)
			bits |= U_COLORMAP;
			
		if (ent->baseline.skin != ent->v.skin)
			bits |= U_SKIN;
			
		if (ent->baseline.frame != ent->v.frame)
			bits |= U_FRAME;
		
		if (ent->baseline.effects != ent->v.effects)
			bits |= U_EFFECTS;
		
		if (ent->baseline.modelindex != ent->v.modelindex)
			bits |= U_MODEL;
#endif

#ifdef EXTENDQC
		if (val = GETEDICTFIELDVALUE(ent, eval_alpha))
		{
			alpha = val->_float;
			if(alpha && alpha != 1.0f)
			{	
				bits |= U_ALPHA;
				//Con_Printf("A:%3.2f ", alpha);
			}
		}


		if (val = GETEDICTFIELDVALUE(ent, eval_scale))
		{
			scale = val->_float;
			if(scale && scale != 1.0f)
			{	bits |= U_SCALE;
			//Con_Printf("S:%3.2f ", scale);
			}
		}

		if (val = GETEDICTFIELDVALUE(ent, eval_glow_size))
		{
			glow_size = val->_float;
			if(glow_size)
			bits |= U_GLOW_SIZE;

			if (val = GETEDICTFIELDVALUE(ent, eval_glow_red))
			{
				glow_red = val->_float;
				bits |= U_GLOW_RED;
			}

			if (val = GETEDICTFIELDVALUE(ent, eval_glow_green))
			{
				glow_green = val->_float;
				bits |= U_GLOW_GREEN;
			}

			if (val = GETEDICTFIELDVALUE(ent, eval_glow_blue))
			{
				glow_blue = val->_float;
				bits |= U_GLOW_BLUE;
			}
		}
#endif

		if (e >= 256)
			bits |= U_LONGENTITY;
			
		if (bits >= 256)
			bits |= U_MOREBITS;

	//
	// write the message
	//
		MSG_WriteByte (msg,bits | U_SIGNAL);
		
		if (bits & U_MOREBITS)
			MSG_WriteByte (msg, bits>>8);

#ifdef EXTENDQC
		if (bits & U_EXTEND1)
			MSG_WriteByte (msg, bits>>16);
#endif

		if (bits & U_LONGENTITY)
			MSG_WriteShort (msg,e);
		else
			MSG_WriteByte (msg,e);

		if (bits & U_MODEL)
			MSG_WriteByte (msg,	ent->v.modelindex);
			//MSG_WriteModel (msg,	ent->v.modelindex);
		if (bits & U_FRAME)
			MSG_WriteByte (msg, ent->v.frame);
			//MSG_WriteFrame (msg, ent->v.frame);
		if (bits & U_COLORMAP)
			MSG_WriteByte (msg, ent->v.colormap);
		if (bits & U_SKIN)
			MSG_WriteByte (msg, ent->v.skin);
			//MSG_WriteSkin (msg, ent->v.skin);
		if (bits & U_EFFECTS)
			MSG_WriteByte (msg, ent->v.effects);
			//MSG_WriteEffect(msg, ent->v.effects);
		if (bits & U_ORIGIN1)
			MSG_WriteCoord (msg, ent->v.origin[0]);		
		if (bits & U_ANGLE1)
			MSG_WriteAngle(msg, ent->v.angles[0]);
		if (bits & U_ORIGIN2)
			MSG_WriteCoord (msg, ent->v.origin[1]);
		if (bits & U_ANGLE2)
			MSG_WriteAngle(msg, ent->v.angles[1]);
		if (bits & U_ORIGIN3)
			MSG_WriteCoord (msg, ent->v.origin[2]);
		if (bits & U_ANGLE3)
			MSG_WriteAngle(msg, ent->v.angles[2]);
#ifdef EXTENDQC
		if (bits & U_ALPHA)
			MSG_WriteFloat(msg, alpha);

		if (bits & U_SCALE)
			MSG_WriteFloat(msg, scale);

		if (bits & U_GLOW_SIZE)
			MSG_WriteFloat(msg, glow_size);

		if (bits & U_GLOW_RED)
			MSG_WriteFloat(msg, glow_red);

		if (bits & U_GLOW_GREEN)
			MSG_WriteFloat(msg, glow_green);

		if (bits & U_GLOW_BLUE)
			MSG_WriteFloat(msg, glow_blue);
#endif

	}
}


//Tei hudmodels entity + qure mouse support
enum {GUIstate_null = 0, GUIstate_mouseover = 1, GUIstate_mousedown, GUIstate_rmousedown, GUIstate_numstates} guistates_t;

#define GUISTATE_MOUSEOVER  1
#define GUISTATE_MOUSEDOWN  2
#define GUISTATE_RMOUSEDOWN 4
#define GUISTATE_MOUSEUP	8

#define OTHER   0
#define OVER	1
#define DOWN	2
#define UP		4
#define CLICK	8
#define ROVER	16
#define RDOWN	32
#define RUP		64
#define RCLICK	128
#define ONOUT	256	



//#define HUDCALL(func,value ) {pr_global_struct->trace_fraction = value;PR_ExecuteProgram(func);};

#define USE PR_ExecuteProgram(object->v.use);
#define HudParam(value, val2) {pr_global_struct->trace_fraction = value;pr_global_struct->trace_inopen = val2;USE;};


int		mouse_pos[2];
extern int mouse_down[2];

void UpdateMouseHud ( edict_t * object)
{
	int state, oldstate;
	oldstate = (int)object->v.button0;

	if(mouse_pos[0] > object->v.origin[0]  && 
	   mouse_pos[0] < object->v.origin[0]+object->v.absmax[0] &&
	   mouse_pos[1] > object->v.origin[1]   &&
	   mouse_pos[1] < object->v.origin[1]+object->v.absmax[1])
	{
		state = state | GUISTATE_MOUSEOVER;

		

		if(!(oldstate & GUISTATE_MOUSEOVER) && object->v.touch)
		{
			pr_global_struct->trace_fraction = GUISTATE_MOUSEOVER;
			pr_global_struct->trace_inopen = OVER;
			PR_ExecuteProgram(object->v.touch);
		}
		
		if(mouse_down[0])
		{
			if(!(oldstate & GUISTATE_MOUSEDOWN) && object->v.use)
				HudParam( GUISTATE_MOUSEDOWN ,DOWN);				

			state = state | GUISTATE_MOUSEDOWN;
		}else{

			if(object->v.use)
				HudParam( GUISTATE_MOUSEUP,UP );

			if((oldstate & GUISTATE_MOUSEDOWN) && object->v.use)
				HudParam( GUISTATE_MOUSEDOWN,CLICK );					
		}
		if(mouse_down[1])
		{
			if(!(oldstate & GUISTATE_RMOUSEDOWN) && object->v.use)
				HudParam( GUISTATE_RMOUSEDOWN,RDOWN );

			state = state | GUISTATE_RMOUSEDOWN;
		}else{
			if((oldstate & GUISTATE_RMOUSEDOWN) && object->v.use)
				HudParam( GUISTATE_RMOUSEDOWN,RUP );
		}
	}else{
		if((oldstate & GUISTATE_MOUSEOVER) && object->v.touch)
		{
			pr_global_struct->trace_fraction = GUISTATE_MOUSEOVER;
			pr_global_struct->trace_inopen = ONOUT;
			PR_ExecuteProgram(object->v.touch);
		}
		if((oldstate & GUISTATE_MOUSEDOWN) && object->v.use)
			HudParam( GUISTATE_MOUSEDOWN ,UP);
		if((oldstate & GUISTATE_RMOUSEDOWN) && object->v.use)
			HudParam( GUISTATE_RMOUSEDOWN,RUP );
	}
	object->v.button0 = (float)state;
}




extern cvar_t r_efflies;//Tei/Venomus flies

/*
=============
SV_CleanupEnts
=============
*/
void SV_CleanupEnts (void)
{
	int		e, minframe,i;
	//int		entnum; //Tei xfx
	edict_t	*ent;
	eval_t *val, *val2;
	
	ent = NEXT_EDICT(sv.edicts);
	for (e=1 ; e<sv.num_edicts ; e++, ent = NEXT_EDICT(ent))
	{
		ent->v.effects = (int)ent->v.effects & ~EF_MUZZLEFLASH;

		// Tei - autovanish
		val = GETEDICTFIELDVALUE(ent, eval_alpha);
	
		if ((ent->v.effects3 == EF3_AUTOVANISH) && (val->_float == 0)) {
			val->_float = 1; 
		}
		else
		if ((ent->v.effects3 == EF3_AUTOVANISH) && (val->_float >0.02) ) 
		{
					val->_float= val->_float - 0.01;
		}
		else 
		{
			if ( (ent->v.effects3 == EF3_AUTOVANISH) && (val->_float <=0.02) )
			{
				ED_Free (ent);
			}
		}
	
		// Rotate from autoanimagic frame to autoanimagic_lowframe

		if ( eval_autoanimagic ) 
		{
			// yes... autoanimagic defined
			val = GETEDICTFIELDVALUE(ent, eval_autoanimagic);

			if (val->_float) 
			{
				// yes autoanimagic!=0
			

				if (eval_autoanimagic_lowframe)
				{
					val2 = GETEDICTFIELDVALUE(ent, eval_autoanimagic_lowframe);
					minframe = val2->_float;
				}
				else
					minframe = 0;

				if (ent->v.frame>minframe)
					ent->v.frame = ent->v.frame - 1;
				else
					ent->v.frame = val->_float;
			}
		}
		// Tei - autoanimagic

		//
		if ( (ent->v.modelindex && ent->v.modelindex<MAX_MODELS)
		&&   (sv.models[ (int)ent->v.modelindex])
		&&   ((sv.models[ (int)ent->v.modelindex]->type ==mod_hud))  )
		{
			UpdateMouseHud( ent );
		}
		//
		// Tei - xfx 

		/*
		if (ent->v.movetype == MOVETYPE_PREDATOR ) {
		
			entnum  = G_EDICTNUM(ent->v.aiment);

			if (sv.datagram.cursize <= MAX_DATAGRAM-16)
			{
			MSG_WriteByte  (&svs.clients[entnum-1].message, svc_setview);
			MSG_WriteShort(&svs.clients[entnum-1].message, NUM_FOR_EDICT(ent));
			//MSG_WriteString(&svs.clients[entnum-1].message, newpic);
			}
		}
		*/
		// Tei - xfx 

	}
}

/*
==================
SV_WriteClientdataToMessage
==================
*/
void SV_WriteClientdataToMessage (edict_t *ent, sizebuf_t *msg)
{
	int		bits;
	int		i;
	edict_t	*other;
	int		items;
	eval_t	*val;

//
// send a damage message
//
	if (ent->v.dmg_take || ent->v.dmg_save)
	{
		other = PROG_TO_EDICT(ent->v.dmg_inflictor);
		MSG_WriteByte (msg, svc_damage);
		MSG_WriteByte (msg, ent->v.dmg_save);
		MSG_WriteByte (msg, ent->v.dmg_take);
		for (i=0 ; i<3 ; i++)
			MSG_WriteCoord (msg, other->v.origin[i] + 0.5*(other->v.mins[i] + other->v.maxs[i]));
	
		ent->v.dmg_take = 0;
		ent->v.dmg_save = 0;
	}

//
// send the current viewpos offset from the view entity
//
	SV_SetIdealPitch ();		// how much to look up / down ideally

// a fixangle might get lost in a dropped packet.  Oh well.
	if ( ent->v.fixangle )
	{
		MSG_WriteByte (msg, svc_setangle);
		for (i=0 ; i < 3 ; i++)
			MSG_WriteAngle (msg, ent->v.angles[i] );
		ent->v.fixangle = 0;
	}

	bits = 0;
	
	if (ent->v.view_ofs[2] != DEFAULT_VIEWHEIGHT)
		bits |= SU_VIEWHEIGHT;
		
	if (ent->v.idealpitch)
		bits |= SU_IDEALPITCH;

// stuff the sigil bits into the high bits of items for sbar, or else
// mix in items2
	val = GETEDICTFIELDVALUE(ent, eval_items2);

	if (val)
		items = (int)ent->v.items | ((int)val->_float << 23);
	else
		items = (int)ent->v.items | ((int)pr_global_struct->serverflags << 28);

	bits |= SU_ITEMS;
	
	if ( (int)ent->v.flags & FL_ONGROUND)
		bits |= SU_ONGROUND;
	
	if ( ent->v.waterlevel >= 2)
		bits |= SU_INWATER;
	
	for (i=0 ; i<3 ; i++)
	{
		if (ent->v.punchangle[i])
			bits |= (SU_PUNCH1<<i);
		if (ent->v.velocity[i])
			bits |= (SU_VELOCITY1<<i);
	}
	
	if (ent->v.weaponframe)
		bits |= SU_WEAPONFRAME;

	if (ent->v.armorvalue)
		bits |= SU_ARMOR;

//	if (ent->v.weapon)
		bits |= SU_WEAPON;

// send the data

	MSG_WriteByte (msg, svc_clientdata);
	MSG_WriteShort (msg, bits);

	if (bits & SU_VIEWHEIGHT)
		MSG_WriteChar (msg, ent->v.view_ofs[2]);

	if (bits & SU_IDEALPITCH)
		MSG_WriteChar (msg, ent->v.idealpitch);

	for (i=0 ; i<3 ; i++)
	{
		if (bits & (SU_PUNCH1<<i))
			MSG_WriteChar (msg, ent->v.punchangle[i]);
		if (bits & (SU_VELOCITY1<<i))
			MSG_WriteChar (msg, ent->v.velocity[i]/16);
	}

// [always sent]	if (bits & SU_ITEMS)
	MSG_WriteLong (msg, items);

	if (bits & SU_WEAPONFRAME)
	//	MSG_WriteFrame (msg, ent->v.weaponframe);
		MSG_WriteByte (msg, ent->v.weaponframe);
	if (bits & SU_ARMOR)
		MSG_WriteByte (msg, ent->v.armorvalue);
	if (bits & SU_WEAPON)
		MSG_WriteByte (msg, SV_ModelIndex(pr_strings+ent->v.weaponmodel));
	
	MSG_WriteShort (msg, ent->v.health);
	MSG_WriteByte (msg, ent->v.currentammo);
	MSG_WriteByte (msg, ent->v.ammo_shells);
	MSG_WriteByte (msg, ent->v.ammo_nails);
	MSG_WriteByte (msg, ent->v.ammo_rockets);
	MSG_WriteByte (msg, ent->v.ammo_cells);

	if (standard_quake)
	{
		MSG_WriteByte (msg, ent->v.weapon);
	}
	else
	{
		for(i=0;i<32;i++)
		{
			if ( ((int)ent->v.weapon) & (1<<i) )
			{
				MSG_WriteByte (msg, i);
				break;
			}
		}
	}
}

/*
=======================
SV_SendClientDatagram
=======================
*/
qboolean SV_SendClientDatagram (client_t *client)
{
#ifndef SINGLEPLAYER
	byte		buf[MAX_DATAGRAM];
	sizebuf_t	msg;
	
	msg.data = buf;
	msg.maxsize = sizeof(buf);
#else
	byte		buf[MAX_DATAGRAM*10];
	sizebuf_t	msg;
	
	msg.data = buf;
	msg.maxsize = sizeof(buf);
#endif
	msg.cursize = 0;

	MSG_WriteByte (&msg, svc_time);
	MSG_WriteFloat (&msg, sv.time);

// add the client specific data to the datagram
	SV_WriteClientdataToMessage (client->edict, &msg);

	SV_WriteEntitiesToClient (client->edict, &msg);

// copy the server datagram if there is space
	if (msg.cursize + sv.datagram.cursize < msg.maxsize)
		SZ_Write (&msg, sv.datagram.data, sv.datagram.cursize);

// send the datagram
	if (NET_SendUnreliableMessage (client->netconnection, &msg) == -1)
	{
		SV_DropClient (true);// if the message couldn't send, kick off
		return false;
	}
	
	return true;
}

/*
=======================
SV_UpdateToReliableMessages
=======================
*/
void SV_UpdateToReliableMessages (void)
{
	int			i, j;
	client_t *client;

// check for changes to be sent over the reliable streams
	for (i=0, host_client = svs.clients ; i<svs.maxclients ; i++, host_client++)
	{
		if (host_client->old_frags != host_client->edict->v.frags)
		{
			for (j=0, client = svs.clients ; j<svs.maxclients ; j++, client++)
			{
				if (!client->active)
					continue;
				MSG_WriteByte (&client->message, svc_updatefrags);
				MSG_WriteByte (&client->message, i);
				MSG_WriteShort (&client->message, host_client->edict->v.frags);
			}

			host_client->old_frags = host_client->edict->v.frags;
		}
	}
	
	for (j=0, client = svs.clients ; j<svs.maxclients ; j++, client++)
	{
		if (!client->active)
			continue;
		SZ_Write (&client->message, sv.reliable_datagram.data, sv.reliable_datagram.cursize);
	}

	SZ_Clear (&sv.reliable_datagram);
}


/*
=======================
SV_SendNop

Send a nop message without trashing or sending the accumulated client
message buffer
=======================
*/
void SV_SendNop (client_t *client)
{
	sizebuf_t	msg;
	byte		buf[4];
	
	msg.data = buf;
	msg.maxsize = sizeof(buf);
	msg.cursize = 0;

	MSG_WriteChar (&msg, svc_nop);

	if (NET_SendUnreliableMessage (client->netconnection, &msg) == -1)
		SV_DropClient (true);	// if the message couldn't send, kick off
	client->last_message = realtime;
}

/*
=======================
SV_SendClientMessages
=======================
*/
void SV_SendClientMessages (void)
{
	int			i;
	
// update frags, names, etc
	SV_UpdateToReliableMessages ();

// build individual updates
	for (i=0, host_client = svs.clients ; i<svs.maxclients ; i++, host_client++)
	{
		if (!host_client->active)
			continue;

		if (host_client->spawned)
		{
			if (!SV_SendClientDatagram (host_client))
				continue;
		}
		else
		{
		// the player isn't totally in the game yet
		// send small keepalive messages if too much time has passed
		// send a full message when the next signon stage has been requested
		// some other message data (name changes, etc) may accumulate 
		// between signon stages
			if (!host_client->sendsignon)
			{
				if (realtime - host_client->last_message > 5)
					SV_SendNop (host_client);
				continue;	// don't send out non-signon messages
			}
		}

		// check for an overflowed message.  Should only happen
		// on a very fucked up connection that backs up a lot, then
		// changes level
		if (host_client->message.overflowed)
		{
			SV_DropClient (true);
			host_client->message.overflowed = false;
			continue;
		}
			
		if (host_client->message.cursize || host_client->dropasap)
		{
			if (!NET_CanSendMessage (host_client->netconnection))
			{
//				I_Printf ("can't write\n");
				continue;
			}

			if (host_client->dropasap)
				SV_DropClient (false);	// went to another level
			else
			{
				if (NET_SendMessage (host_client->netconnection
				, &host_client->message) == -1)
					SV_DropClient (true);	// if the message couldn't send, kick off
				SZ_Clear (&host_client->message);
				host_client->last_message = realtime;
				host_client->sendsignon = false;
			}
		}
	}
	
	
// clear muzzle flashes
	SV_CleanupEnts ();
}


/*
==============================================================================

SERVER SPAWNING

==============================================================================
*/

/*
================
SV_ModelIndex

================
*/
int SV_ModelIndex (char *name)
{
	int		i;
	
	if (!name || !name[0])
		return 0;

	for (i=0 ; i<MAX_MODELS && sv.model_precache[i] ; i++)
		if (!strcmp(sv.model_precache[i], name))
			return i;
	if (i==MAX_MODELS || !sv.model_precache[i])
		Sys_Error ("SV_ModelIndex: model %s not precached", name);
	return i;
}

int SV_ModelString (char *name)
{
	int		i;
	
	if (!name || !name[0])
		return 0;

	for (i=0 ; i<MAX_MODELS && sv.model_precache[i] ; i++)
		if (!strcmp(sv.model_precache[i], name))
			return pr_strings - &sv.model_precache[i];
	if (i==MAX_MODELS || !sv.model_precache[i])
		Sys_Error ("SV_ModelIndex: model %s not precached", name);
	return pr_strings;
}

/*
================
SV_CreateBaseline

================
*/
void SV_CreateBaseline (void)
{
	int			i;
	edict_t			*svent;
	int				entnum;	
		
	for (entnum = 0; entnum < sv.num_edicts ; entnum++)
	{
	// get the current server version
		svent = EDICT_NUM(entnum);


		if (svent->free)
			continue;
		if (entnum > svs.maxclients && !svent->v.modelindex)
			continue;


	//
	// create entity baseline
	//
		VectorCopy (svent->v.origin, svent->baseline.origin);
		VectorCopy (svent->v.angles, svent->baseline.angles);
		svent->baseline.frame = svent->v.frame;
		svent->baseline.skin = svent->v.skin;
		if (entnum > 0 && entnum <= svs.maxclients)
		{
			svent->baseline.colormap = entnum;
			svent->baseline.modelindex = SV_ModelIndex("progs/player.mdl");
		}
		else
		{
			svent->baseline.colormap = 0;
			svent->baseline.modelindex =
				SV_ModelIndex(pr_strings + svent->v.model);
		}
		
	//
	// add to the message
	//
		MSG_WriteByte (&sv.signon,svc_spawnbaseline);		
		MSG_WriteShort (&sv.signon,entnum);

		//MSG_WriteModel (&sv.signon, svent->baseline.modelindex);
		MSG_WriteByte (&sv.signon, svent->baseline.modelindex);
		//MSG_WriteFrame (&sv.signon, svent->baseline.frame);
		MSG_WriteByte (&sv.signon, svent->baseline.frame);
		MSG_WriteByte (&sv.signon, svent->baseline.colormap);
		//MSG_WriteSkin (&sv.signon, svent->baseline.skin);
		MSG_WriteByte (&sv.signon, svent->baseline.skin);
		for (i=0 ; i<3 ; i++)
		{
			MSG_WriteCoord(&sv.signon, svent->baseline.origin[i]);
			MSG_WriteAngle(&sv.signon, svent->baseline.angles[i]);
		}
	}
}


/*
================
SV_SendReconnect

Tell all the clients that the server is changing levels
================
*/
void SV_SendReconnect (void)
{
	char	data[128];
	sizebuf_t	msg;

	msg.data = data;
	msg.cursize = 0;
	msg.maxsize = sizeof(data);

	MSG_WriteChar (&msg, svc_stufftext);
	MSG_WriteString (&msg, "reconnect\n");
	NET_SendToAll (&msg, 5);
	
	if (cls.state != ca_dedicated)
		Cmd_ExecuteString ("reconnect\n", src_command);
}


/*
================
SV_SaveSpawnparms

Grabs the current state of each client for saving across the
transition to another level
================
*/
void SV_SaveSpawnparms (void)
{
	int		i, j;

	svs.serverflags = pr_global_struct->serverflags;

	for (i=0, host_client = svs.clients ; i<svs.maxclients ; i++, host_client++)
	{
		if (!host_client->active)
			continue;

	// call the progs to get default spawn parms for the new client
		pr_global_struct->self = EDICT_TO_PROG(host_client->edict);
		PR_ExecuteProgram (pr_global_struct->SetChangeParms);
		for (j=0 ; j<NUM_SPAWN_PARMS ; j++)
			host_client->spawn_parms[j] = (&pr_global_struct->parm1)[j];
	}
}

/*
================
SV_SpawnServer

This is called at the start of each level
================
*/
extern float		scr_centertime_off;


void CL_ClearPRJ();//Tei
void Clear_Flares(void);//Tei flares
//void CL_CleanSlots();//Tei

void R_SetSkyBox (char *sky);

int hell_count; //Tei hellfire prj counter 

extern cvar_t mod_turbo;//Tei turbo

void SV_SpawnServer (char *server)
{
	edict_t		*ent;
	int			i;
	char		mapshots[32];	// Tomaz - MapShots
	char		mapnames[32];	// Tomaz - MapShots

	hell_count = 0;

	// let's not have any servers with no name
	if (hostname.string[0] == 0)
		Cvar_Set ("hostname", "UNNAMED");
	scr_centertime_off = 0;

	Con_DPrintf ("SpawnServer: %s\n",server);
	svs.changelevel_issued = false;		// now safe to issue another

//
// tell all connected clients that we are going to a new level
//
	if (sv.active)
	{
		SV_SendReconnect ();
	}

//
// make cvars consistant
//
	if (coop.value)
		Cvar_SetValue ("deathmatch", 0);
	current_skill = (int)(skill.value + 0.5);
	if (current_skill < 0)
		current_skill = 0;
	if (current_skill > 3 && !mod_turbo.value)//Tei turbo values support
		current_skill = 3;

	Cvar_SetValue ("skill", (float)current_skill);
	
//
// set up the new server
//
	Host_ClearMemory ();

	memset (&sv, 0, sizeof(sv));

	strcpy (sv.name, server);

	// Tei prj
	CL_ClearPRJ();
	Clear_Flares();
	// Tei prj

// load progs to get entity field count
#ifdef MULTIPRS	
	PR_LoadSVProgset ();
#else
	PR_LoadProgs ();
#endif

// allocate server memory
	sv.max_edicts = MAX_EDICTS;
	
	sv.edicts = Hunk_AllocName (sv.max_edicts*pr_edict_size, "edicts");

#if 0 //def MULTIPRS
	edictoffset = (byte *)sv.edicts;
	sv_progs.edictoffset = edictoffset;
	cl_progs.edictoffset = edictoffset;
#endif

	sv.datagram.maxsize = sizeof(sv.datagram_buf);
	sv.datagram.cursize = 0;
	sv.datagram.data = sv.datagram_buf;
	
	sv.reliable_datagram.maxsize = sizeof(sv.reliable_datagram_buf);
	sv.reliable_datagram.cursize = 0;
	sv.reliable_datagram.data = sv.reliable_datagram_buf;
	
	sv.signon.maxsize = sizeof(sv.signon_buf);
	sv.signon.cursize = 0;
	sv.signon.data = sv.signon_buf;
	
// leave slots at start for clients only
	sv.num_edicts = svs.maxclients+1;
	for (i=0 ; i<svs.maxclients ; i++)
	{
		ent = EDICT_NUM(i+1);
		svs.clients[i].edict = ent;
	}
	
	sv.state = ss_loading;
	sv.paused = false;

	sv.time = 1.0;
	
	//
	// map loading here
	//
	strcpy (sv.name, server);
	sprintf (sv.modelname,"maps/%s.bsp", server);
	sv.worldmodel = Mod_ForName (sv.modelname, false);
	if (!sv.worldmodel)
	{
		sprintf (sv.modelname,"maps/cs/%s.bsp", server);
		sv.worldmodel = Mod_ForName (sv.modelname, false);
		if (!sv.worldmodel)
		{
			sprintf (sv.modelname,"maps/tfc/%s.bsp", server);
			sv.worldmodel = Mod_ForName (sv.modelname, false);
			if (!sv.worldmodel)
			{
				sprintf (sv.modelname,"maps/hl/%s.bsp", server);
				sv.worldmodel = Mod_ForName (sv.modelname, false);
				if (!sv.worldmodel)
				{
					sprintf (sv.modelname,"%s.bsp", server);
					Con_Printf ("Couldn't spawn server %s\n", sv.modelname);
					sv.active = false;
					return;
				}
			}
		}
	}
	sv.models[1] = sv.worldmodel;

	// Tomaz - Fixing Wrong BSP Version Error Begin
	if (sv.worldmodel->numvertexes == -1)
	{
		Con_Printf ("Couldn't spawn server %s\n", sv.modelname);
		sv.active = false;
		return;
	}
	// Tomaz - Fixing Wrong BSP Version Error End	

//
// clear world interaction links
//
	SV_ClearWorld ();
	
	sv.sound_precache[0] = pr_strings;

	sv.model_precache[0] = pr_strings;
	sv.model_precache[1] = sv.modelname;
	for (i=1 ; i<sv.worldmodel->numsubmodels ; i++)
	{
		sv.model_precache[1+i] = localmodels[i];
		sv.models[i+1] = Mod_ForName (localmodels[i], false);
	}

//
// load the rest of the entities
//	
	ent = EDICT_NUM(0);
	memset (&ent->v, 0, progs->entityfields * 4);
	ent->free = false;
	ent->v.model = sv.worldmodel->name - pr_strings;
	ent->v.modelindex = 1;		// world model
	ent->v.solid = SOLID_BSP;
	ent->v.movetype = MOVETYPE_PUSH;


	if (coop.value)
		pr_global_struct->coop = coop.value;
	else
		pr_global_struct->deathmatch = deathmatch.value;

	pr_global_struct->mapname = sv.name - pr_strings;

// serverflags are for cross level information (sigils)
	pr_global_struct->serverflags = svs.serverflags;
	
	ED_LoadFromFile (sv.worldmodel->entities);
	VectorClear(sv.edicts->v.angles);

	sv.active = true;

// all setup is completed, any further precache statements are errors
	sv.state = ss_active;
	
// run two frames to allow everything to settle
	host_frametime = 0.1;
	SV_Physics ();
	SV_Physics ();

// create a baseline for more efficient communications
	SV_CreateBaseline ();

// send serverinfo to all connected clients
	for (i=0,host_client = svs.clients ; i<svs.maxclients ; i++, host_client++)
		if (host_client->active)
			SV_SendServerinfo (host_client);
	
	Con_DPrintf ("Server spawned.\n");
}