#include "sv_monsters.qh"

#include <common/constants.qh>
#include <common/deathtypes/all.qh>
#include <common/items/_mod.qh>
#include <common/mapobjects/teleporters.qh>
#include <common/mapobjects/triggers.qh>
#include <common/monsters/all.qh>
#include <common/mutators/mutator/nades/nades.qh>
#include <common/mutators/mutator/status_effects/_mod.qh>
#include <common/physics/movelib.qh>
#include <common/stats.qh>
#include <common/teams.qh>
#include <common/turrets/sv_turrets.qh>
#include <common/turrets/util.qh>
#include <common/util.qh>
#include <common/vehicles/all.qh>
#include <common/weapons/_all.qh>
#include <common/weapons/_mod.qh>
#include <lib/csqcmodel/sv_model.qh>
#include <lib/warpzone/common.qh>
#include <server/campaign.qh>
#include <server/cheats.qh>
#include <server/client.qh>
#include <server/command/_mod.qh>
#include <server/damage.qh>
#include <server/items/items.qh>
#include <server/mutators/_mod.qh>
#include <server/round_handler.qh>
#include <server/steerlib.qh>
#include <server/weapons/_mod.qh>

void monsters_setstatus(entity this)
{
	STAT(MONSTERS_TOTAL, this) = monsters_total;
	STAT(MONSTERS_KILLED, this) = monsters_killed;
}

bool autocvar_g_monsters_drop = true;
void monster_dropitem(entity this, entity attacker)
{
	if(!this.candrop || !this.monster_loot || !autocvar_g_monsters_drop)
		return;

	entity e = spawn();
	e.itemdef = this.monster_loot;
	e.origin = CENTER_OR_VIEWOFS(this);
	e.velocity = randomvec() * 175 + '0 0 325';
	e.lifetime = max(0, autocvar_g_monsters_drop_time);

	MUTATOR_CALLHOOK(MonsterDropItem, this, e, attacker);
	e = M_ARGV(1, entity);

	if(e && e.itemdef)
		Item_Initialise(e);
}

bool monster_facing(entity this, entity targ)
{
	// relies on target having an origin
	makevectors(this.angles);
	vector targ_org = targ.origin, my_org = this.origin;
	if(autocvar_g_monsters_target_infront_2d)
	{
		targ_org = vec2(targ_org);
		my_org = vec2(my_org);
	}
	float dot = normalize(targ_org - my_org) * v_forward;

	return !(dot <= autocvar_g_monsters_target_infront_range);
}

void monster_makevectors(entity this, entity targ)
{
	if(IS_MONSTER(this))
	{
		vector v = targ.origin + (targ.mins + targ.maxs) * 0.5;
		this.v_angle = vectoangles(v - (this.origin + this.view_ofs));
		this.v_angle_x = -this.v_angle_x;
	}

	makevectors(this.v_angle);
}

// ===============
// Target handling
// ===============

bool Monster_ValidTarget(entity this, entity targ, bool skipfacing)
{
	// ensure we're not checking nonexistent monster/target
	if(!this || !targ) { return false; }

	if((targ == this)
	|| (IS_VEHICLE(targ) && !(this.monsterdef.spawnflags & MON_FLAG_RANGED)) // melee vs vehicle is useless
	|| (time < game_starttime) // monsters do nothing before match has started
	|| (targ.takedamage == DAMAGE_NO)
	|| (game_stopped)
	|| (IS_SPEC(targ) || IS_OBSERVER(targ)) // don't attack spectators
	|| (!IS_VEHICLE(targ) && (IS_DEAD(targ) || IS_DEAD(this) || GetResource(targ, RES_HEALTH) <= 0 || GetResource(this, RES_HEALTH) <= 0))
	|| (this.monster_follow == targ || targ.monster_follow == this)
	|| (!IS_VEHICLE(targ) && (targ.flags & FL_NOTARGET))
	|| (!autocvar_g_monsters_typefrag && PHYS_INPUT_BUTTON_CHAT(targ))
	|| (SAME_TEAM(targ, this))
	|| (STAT(FROZEN, targ))
	|| (targ.alpha != 0 && targ.alpha < 0.5)
	|| (autocvar_g_monsters_lineofsight && !checkpvs(this.origin + this.view_ofs, targ)) // enemy cannot be seen
	|| (MUTATOR_CALLHOOK(MonsterValidTarget, this, targ))
	)
	{
		// if any of the above checks fail, target is not valid
		return false;
	}

	vector targ_origin = ((targ.absmin + targ.absmax) * 0.5);
	traceline(this.origin + this.view_ofs, targ_origin, MOVE_NOMONSTERS, this); // TODO: maybe we can rely a bit on PVS data instead?

	if(trace_fraction < 1 && trace_ent != targ)
		return false; // solid

	if(!skipfacing && (autocvar_g_monsters_target_infront || (this.spawnflags & MONSTERFLAG_INFRONT)))
	if(this.enemy != targ)
	{
		if(!monster_facing(this, targ))
			return false;
	}

	return true; // this target is valid!
}

entity Monster_FindTarget(entity this)
{
	if(MUTATOR_CALLHOOK(MonsterFindTarget)) { return this.enemy; } // Handled by a mutator

	entity closest_target = NULL;
	vector my_center = CENTER_OR_VIEWOFS(this);

	// find the closest acceptable target to pass to
	IL_EACH(g_monster_targets, it.monster_attack,
	{
		float trange = this.target_range;
		if(PHYS_INPUT_BUTTON_CROUCH(it))
			trange *= 0.75; // TODO cvar this
		vector theirmid = (it.absmin + it.absmax) * 0.5;
		if(vdist(theirmid - this.origin, >, trange))
			continue;
		if(!Monster_ValidTarget(this, it, false))
			continue;

		// if it's a player, use the view origin as reference (stolen from RadiusDamage functions in g_damage.qc)
		vector targ_center = CENTER_OR_VIEWOFS(it);

		if(closest_target)
		{
			vector closest_target_center = CENTER_OR_VIEWOFS(closest_target);
			if(vlen2(my_center - targ_center) < vlen2(my_center - closest_target_center))
				{ closest_target = it; }
		}
		else { closest_target = it; }
	});

	return closest_target;
}

void monster_setupcolors(entity this)
{
	if(IS_PLAYER(this.realowner))
		this.colormap = this.realowner.colormap;
	else if(teamplay && this.team)
		this.colormap = 1024 + (this.team - 1) * 17;
	else
	{
		if(this.monster_skill <= MONSTER_SKILL_EASY)
			this.colormap = 1126;
		else if(this.monster_skill <= MONSTER_SKILL_MEDIUM)
			this.colormap = 1075;
		else if(this.monster_skill <= MONSTER_SKILL_HARD)
			this.colormap = 1228;
		else if(this.monster_skill <= MONSTER_SKILL_INSANE)
			this.colormap = 1092;
		else if(this.monster_skill <= MONSTER_SKILL_NIGHTMARE)
			this.colormap = 1160;
		else
			this.colormap = 1024;
	}

	if(this.colormap > 0)
		this.glowmod = colormapPaletteColor(this.colormap & 0x0F, false);
	else
		this.glowmod = '1 1 1';
}

void monster_changeteam(entity this, int newteam)
{
	if(!teamplay) { return; }

	this.team = newteam;
	if(!this.monster_attack)
		IL_PUSH(g_monster_targets, this);
	this.monster_attack = true; // new team, activate attacking
	monster_setupcolors(this);

	if(this.sprite)
	{
		WaypointSprite_UpdateTeamRadar(this.sprite, RADARICON_DANGER, ((newteam) ? Team_ColorRGB(newteam) : '1 0 0'));

		this.sprite.team = newteam;
		this.sprite.SendFlags |= 1;
	}
}

.void(entity) monster_delayedfunc;
void Monster_Delay_Action(entity this)
{
	// TODO: maybe do check for facing here
	if(Monster_ValidTarget(this.owner, this.owner.enemy, false))
	{
		monster_makevectors(this.owner, this.owner.enemy);
		this.monster_delayedfunc(this.owner);
	}

	if(this.cnt > 1)
	{
		this.cnt -= 1;
		setthink(this, Monster_Delay_Action);
		this.nextthink = time + this.count;
	}
	else
	{
		setthink(this, SUB_Remove);
		this.nextthink = time;
	}
}

void Monster_Delay(entity this, int repeat_count, float defer_amnt, void(entity) func)
{
	// deferred attacking, checks if monster is still alive and target is still valid before attacking
	entity e = new_pure(Monster_Delay);

	setthink(e, Monster_Delay_Action);
	e.nextthink = time + defer_amnt;
	e.count = defer_amnt;
	e.owner = this;
	e.monster_delayedfunc = func;
	e.cnt = repeat_count;
}


// ==============
// Monster sounds
// ==============

string get_monster_model_datafilename(string m, float sk, string fil)
{
	if(m)
		m = strcat(m, "_");
	else
		m = "models/monsters/*_";
	if(sk >= 0)
		m = strcat(m, ftos(sk));
	else
		m = strcat(m, "*");
	return strcat(m, ".", fil);
}

void Monster_Sound_Precache(string f)
{
	float fh;
	string s;
	fh = fopen(f, FILE_READ);
	if(fh < 0)
		return;
	while((s = fgets(fh)))
	{
		if(tokenize_console(s) != 3)
		{
			//LOG_DEBUG("Invalid sound info line: ", s); // probably a comment, no need to spam warnings
			continue;
		}
		PrecacheGlobalSound(strcat(argv(1), " ", argv(2)));
	}
	fclose(fh);
}

void Monster_Sounds_Precache(entity this)
{
	string m = this.monsterdef.m_model.model_str();
	float globhandle, n, i;
	string f;

	globhandle = search_begin(strcat(m, "_*.sounds"), true, false);
	if (globhandle < 0)
		return;
	n = search_getsize(globhandle);
	for (i = 0; i < n; ++i)
	{
		//print(search_getfilename(globhandle, i), "\n");
		f = search_getfilename(globhandle, i);
		Monster_Sound_Precache(f);
	}
	search_end(globhandle);
}

void Monster_Sounds_Clear(entity this)
{
#define _MSOUND(m) strfree(this.monstersound_##m);
	ALLMONSTERSOUNDS
#undef _MSOUND
}

.string Monster_Sound_SampleField(string type)
{
	GetMonsterSoundSampleField_notFound = 0;
	switch(type)
	{
#define _MSOUND(m) case #m: return monstersound_##m;
		ALLMONSTERSOUNDS
#undef _MSOUND
	}
	GetMonsterSoundSampleField_notFound = 1;
	return string_null;
}

bool Monster_Sounds_Load(entity this, string f, int first)
{
	string s;
	var .string field;
	float fh = fopen(f, FILE_READ);
	if(fh < 0)
	{
		//LOG_DEBUG("Monster sound file not found: ", f); // no biggie, monster has no sounds, let's not spam it
		return false;
	}
	while((s = fgets(fh)))
	{
		if(tokenize_console(s) != 3)
			continue;
		field = Monster_Sound_SampleField(argv(0));
		if(GetMonsterSoundSampleField_notFound)
			continue;
		strcpy(this.(field), strcat(argv(1), " ", argv(2)));
	}
	fclose(fh);
	return true;
}

.int skin_for_monstersound;
void Monster_Sounds_Update(entity this)
{
	if(this.skin == this.skin_for_monstersound) { return; }

	this.skin_for_monstersound = this.skin;
	Monster_Sounds_Clear(this);
	if(!Monster_Sounds_Load(this, get_monster_model_datafilename(this.model, this.skin, "sounds"), 0))
		Monster_Sounds_Load(this, get_monster_model_datafilename(this.model, 0, "sounds"), 0);
}

void Monster_Sound(entity this, .string samplefield, float sound_delay, bool delaytoo, float chan)
{
	if(!autocvar_g_monsters_sounds) { return; }

	if(delaytoo)
	if(time < this.msound_delay)
		return; // too early
	string sample = this.(samplefield);
	if (sample != "") sample = GlobalSound_sample(sample, random());
	float myscale = ((this.scale) ? this.scale : 1); // safety net
	sound7(this, chan, sample, VOL_BASE, ATTEN_NORM, 100 / myscale, 0);

	this.msound_delay = time + sound_delay;
}


// =======================
// Monster attack handlers
// =======================

bool Monster_Attack_Melee(entity this, entity targ, float damg, vector anim, float er, float animtime, int deathtype, bool dostop)
{
	if(dostop && IS_MONSTER(this)) { this.state = MONSTER_ATTACK_MELEE; }

	setanim(this, anim, false, true, false);

	if(this.animstate_endtime > time && IS_MONSTER(this))
		this.attack_finished_single[0] = this.anim_finished = this.animstate_endtime;
	else
		this.attack_finished_single[0] = this.anim_finished = time + animtime;

	traceline(this.origin + this.view_ofs, this.origin + v_forward * er, 0, this);

	if(trace_ent.takedamage)
		Damage(trace_ent, this, this, damg * MONSTER_SKILLMOD(this), deathtype, DMG_NOWEP, trace_ent.origin, normalize(trace_ent.origin - this.origin));

	return true;
}

bool Monster_Attack_Leap_Check(entity this, vector vel)
{
	if(this.state && IS_MONSTER(this))
		return false; // already attacking
	if(!IS_ONGROUND(this))
		return false; // not on the ground
	if(GetResource(this, RES_HEALTH) <= 0 || IS_DEAD(this))
		return false; // called when dead?
	if(time < this.attack_finished_single[0])
		return false; // still attacking

	vector old = this.velocity;

	this.velocity = vel;
	tracetoss(this, this);
	this.velocity = old;
	if(trace_ent != this.enemy)
		return false;

	return true;
}

bool Monster_Attack_Leap(entity this, vector anm, void(entity this, entity toucher) touchfunc, vector vel, float animtime)
{
	if(!Monster_Attack_Leap_Check(this, vel))
		return false;

	setanim(this, anm, false, true, false);

	if(this.animstate_endtime > time && IS_MONSTER(this))
		this.attack_finished_single[0] = this.anim_finished = this.animstate_endtime;
	else
		this.attack_finished_single[0] = this.anim_finished = time + animtime;

	if(IS_MONSTER(this))
		this.state = MONSTER_ATTACK_RANGED;
	settouch(this, touchfunc);
	this.origin_z += 1;
	this.velocity = vel;
	UNSET_ONGROUND(this);

	return true;
}

void Monster_Attack_Check(entity this, entity targ, .entity weaponentity)
{
	int slot = weaponslot(weaponentity);

	if((!this || !targ)
	|| (!this.monster_attackfunc)
	|| (game_stopped)
	|| (time < this.attack_finished_single[slot])
	|| ((autocvar_g_monsters_target_infront || (this.spawnflags & MONSTERFLAG_INFRONT)) && !monster_facing(this, targ))
	) { return; }

	if(vdist(targ.origin - this.origin, <=, this.attack_range))
	{
		monster_makevectors(this, targ);
		int attack_success = this.monster_attackfunc(MONSTER_ATTACK_MELEE, this, targ, weaponentity);
		if(attack_success == 1)
			Monster_Sound(this, monstersound_melee, 0, false, CH_VOICE);
		else if(attack_success > 0)
			return;
	}

	if(vdist(targ.origin - this.origin, >, this.attack_range))
	{
		monster_makevectors(this, targ);
		int attack_success = this.monster_attackfunc(MONSTER_ATTACK_RANGED, this, targ, weaponentity);
		if(attack_success == 1)
			Monster_Sound(this, monstersound_melee, 0, false, CH_VOICE);
		else if(attack_success > 0)
			return;
	}
}


// ======================
// Main monster functions
// ======================

void Monster_UpdateModel(entity this)
{
	// assume some defaults
	/*this.anim_idle   = animfixfps(this, '0 1 0.01', '0 0 0');
	this.anim_walk   = animfixfps(this, '1 1 0.01', '0 0 0');
	this.anim_run    = animfixfps(this, '2 1 0.01', '0 0 0');
	this.anim_fire1  = animfixfps(this, '3 1 0.01', '0 0 0');
	this.anim_fire2  = animfixfps(this, '4 1 0.01', '0 0 0');
	this.anim_melee  = animfixfps(this, '5 1 0.01', '0 0 0');
	this.anim_pain1  = animfixfps(this, '6 1 0.01', '0 0 0');
	this.anim_pain2  = animfixfps(this, '7 1 0.01', '0 0 0');
	this.anim_die1   = animfixfps(this, '8 1 0.01', '0 0 0');
	this.anim_die2   = animfixfps(this, '9 1 0.01', '0 0 0');*/

	// then get the real values
	Monster mon = this.monsterdef;
	mon.mr_anim(mon, this);
}

void Monster_Touch(entity this, entity toucher)
{
	if(!toucher) { return; }

	if(toucher.monster_attack && this.enemy != toucher && !IS_MONSTER(toucher) && time >= this.spawn_time)
	if(Monster_ValidTarget(this, toucher, true))
		this.enemy = toucher;
}

void Monster_Miniboss_Check(entity this)
{
	if(MUTATOR_CALLHOOK(MonsterCheckBossFlag, this))
		return;

	float chance = random() * 100;

	// g_monsters_miniboss_chance cvar or spawnflags 64 causes a monster to be a miniboss
	if ((this.spawnflags & MONSTERFLAG_MINIBOSS) || (chance < autocvar_g_monsters_miniboss_chance))
	{
		GiveResource(this, RES_HEALTH, autocvar_g_monsters_miniboss_healthboost);
		this.effects |= EF_RED;
		if(!this.weapon)
			this.weapon = WEP_VORTEX.m_id;
	}
}

bool Monster_Respawn_Check(entity this)
{
	if(this.deadflag == DEAD_DEAD) // don't call when monster isn't dead
	if(MUTATOR_CALLHOOK(MonsterRespawn, this))
		return true; // enabled by a mutator

	if(this.spawnflags & MONSTERFLAG_NORESPAWN)
		return false;

	if(!autocvar_g_monsters_respawn)
		return false;

	return true;
}

void Monster_Respawn(entity this) { Monster_Spawn(this, true, this.monsterdef); }

.vector	pos1, pos2;

void Monster_Dead_Fade(entity this)
{
	if(Monster_Respawn_Check(this))
	{
		this.spawnflags |= MONSTERFLAG_RESPAWNED;
		setthink(this, Monster_Respawn);
		this.nextthink = time + this.respawntime;
		this.monster_lifetime = 0;
		this.deadflag = DEAD_RESPAWNING;
		if(this.spawnflags & MONSTER_RESPAWN_DEATHPOINT)
		{
			this.pos1 = this.origin;
			this.pos2 = this.angles;
		}
		this.event_damage = func_null;
		this.event_heal = func_null;
		this.takedamage = DAMAGE_NO;
		setorigin(this, this.pos1);
		this.angles = this.pos2;
		SetResourceExplicit(this, RES_HEALTH, this.max_health);
		setmodel(this, MDL_Null);
	}
	else
	{
		// number of monsters spawned with mobspawn command
		totalspawned -= 1;

		SUB_SetFade(this, time + 3, 1);
	}
}

void Monster_Use(entity this, entity actor, entity trigger)
{
	if(Monster_ValidTarget(this, actor, true)) { this.enemy = actor; }
}

/// Returns an origin that's near targetorigin and visible to this monster.
vector Monster_WanderTarget(entity this, vector targetorigin)
{
	vector pos, ang;

	ang_y = rint(random() * 500);
	ang_x = this.angles_x;
	ang_z = this.angles_z;
	makevectors(ang);
	pos = targetorigin + v_forward * this.wander_distance;
	if(((this.flags & FL_FLY) && (this.spawnflags & MONSTERFLAG_FLY_VERTICAL)) || (this.flags & FL_SWIM))
	{
		pos.z = random() * 200;
		if(random() >= 0.5)
			pos.z *= -1;
	}
	// truncate movement so we don't do walking into walls animations
	traceline(this.origin + this.view_ofs, pos, MOVE_NORMAL, this);
	return trace_endpos;
}

vector Monster_Move_Target(entity this, entity targ)
{
	// enemy is always preferred target
	if(this.enemy)
	{
		vector targ_origin = ((this.enemy.absmin + this.enemy.absmax) * 0.5);
		targ_origin = WarpZone_RefSys_TransformOrigin(this.enemy, this, targ_origin); // origin of target as seen by the monster (us)

		if(this.enemy)
		{
			/*WarpZone_TrailParticles(NULL, particleeffectnum(EFFECT_RED_PASS), this.origin, targ_origin);
			print("Trace origin: ", vtos(targ_origin), "\n");
			print("Target origin: ", vtos(this.enemy.origin), "\n");
			print("My origin: ", vtos(this.origin), "\n"); */

			this.monster_movestate = MONSTER_MOVE_ENEMY;
			this.last_trace = time + 1.2;
			if(this.monster_moveto)
				return this.monster_moveto; // assumes code is properly setting this when monster has an enemy
			else
				return targ_origin;
		}

		/*makevectors(this.angles);
		this.monster_movestate = MONSTER_MOVE_ENEMY;
		this.last_trace = time + 1.2;
		return this.enemy.origin; */
	}

	switch(this.monster_moveflags)
	{
		case MONSTER_MOVE_FOLLOW:
		{
			this.monster_movestate = MONSTER_MOVE_FOLLOW;
			this.last_trace = time + 0.3;
			if (this.monster_follow)
			{
				if (vdist(this.origin - this.monster_follow.origin, <, this.wander_distance))
					this.last_trace = time + this.wander_delay;
				return Monster_WanderTarget(this, this.monster_follow.origin);
			}
			else
				return this.origin;
		}
		case MONSTER_MOVE_SPAWNLOC:
		{
			this.monster_movestate = MONSTER_MOVE_SPAWNLOC;
			this.last_trace = time + 2;
			return this.pos1;
		}
		case MONSTER_MOVE_NOMOVE:
		{
			if(this.monster_moveto)
			{
				this.last_trace = time + 0.5;
				return this.monster_moveto;
			}
			else
			{
				this.monster_movestate = MONSTER_MOVE_NOMOVE;
				this.last_trace = time + 2;
			}
			return this.origin;
		}
		default:
		case MONSTER_MOVE_WANDER:
		{
			this.monster_movestate = MONSTER_MOVE_WANDER;
			if(this.monster_moveto)
			{
				this.last_trace = time + 0.5;
				return this.monster_moveto;
			}
			else if(targ)
			{
				this.last_trace = time + 0.5;
				return targ.origin;
			}
			else
			{
				this.last_trace = time + this.wander_delay;
				return Monster_WanderTarget(this, this.origin);
			}
		}
	}
}

// Check for water/slime/lava and dangerous edges
// (only when the bot is on the ground or jumping intentionally)
// returns a number > 0 for danger
// based on havocbot_checkdanger()
int Monster_CheckDanger(entity this, vector dst_ahead)
{
	float s;

	if((this.flags & FL_FLY) || (this.flags & FL_SWIM))
	{
		// Look ahead
		traceline(this.origin + this.view_ofs, dst_ahead, true, NULL);

		// Only care about the skybox if it's below
		// bones_was_here: does this even matter when flying/swimming?
		if (trace_endpos.z < this.origin.z + this.mins.z
		&& trace_dphitq3surfaceflags & Q3SURFACEFLAG_SKY)
			return 1;

		s = pointcontents(trace_endpos + '0 0 1');
		if (s != CONTENT_SOLID)
		{
			if (s == CONTENT_LAVA || s == CONTENT_SLIME)
				return 3;

			if (tracebox_hits_trigger_hurt(dst_ahead, this.mins, this.maxs, trace_endpos))
			{
				// the traceline check isn't enough but is good as optimization,
				// when not true (most of the time) this tracebox call is avoided
				tracebox(this.origin + this.view_ofs, this.mins, this.maxs, dst_ahead, true, this);
				if (tracebox_hits_trigger_hurt(dst_ahead, this.mins, this.maxs, trace_endpos))
					return 4;
			}
		}
	}
	else
	{
		vector dst_down = dst_ahead - '0 0 3000';

		// Look downwards
		traceline(dst_ahead, dst_down, true, NULL);
		//te_lightning2(NULL, this.origin + this.view_ofs, dst_ahead); // Draw "ahead" look
		//te_lightning2(NULL, dst_ahead, trace_endpos); // Draw "downwards" look
		if (trace_endpos.z < this.origin.z + this.mins.z)
		{
			if (trace_dphitq3surfaceflags & Q3SURFACEFLAG_SKY)
				return 1;

			// If following an enemy ignore probably-non-fatal falls,
			// if wandering only ignore small falls.
			if (trace_endpos.z < (this.origin.z + this.mins.z) - (this.enemy ? 1024 : 100))
				return 2;

			s = pointcontents(trace_endpos + '0 0 1');
			if (s != CONTENT_SOLID)
			{
				if (s == CONTENT_LAVA || s == CONTENT_SLIME)
					return 3;

				if (tracebox_hits_trigger_hurt(dst_ahead, this.mins, this.maxs, trace_endpos))
				{
					// the traceline check isn't enough but is good as optimization,
					// when not true (most of the time) this tracebox call is avoided
					tracebox(dst_ahead, this.mins, this.maxs, dst_down, true, this);
					if (tracebox_hits_trigger_hurt(dst_ahead, this.mins, this.maxs, trace_endpos))
						return 4;
				}
			}
		}
	}

	return 0;
}

.entity draggedby;
void Monster_Move(entity this, float runspeed, float walkspeed, float stpspeed)
{
	// update goal entity if lost
	if(this.target2 && this.target2 != "" && this.goalentity.targetname != this.target2)
		this.goalentity = find(NULL, targetname, this.target2);

	if(STAT(FROZEN, this))
	{
		movelib_brake_simple(this, stpspeed);
		setanim(this, this.anim_idle, true, false, false);
		return; // no physics while frozen!
	}

	if(this.flags & FL_SWIM)
	{
		if(this.waterlevel < WATERLEVEL_WETFEET)
		{
			if(time >= this.last_trace)
			{
				this.last_trace = time + 0.4;

				Damage (this, NULL, NULL, 2, DEATH_DROWN.m_id, DMG_NOWEP, this.origin, '0 0 0');
				this.angles = '90 90 0';
				if(random() < 0.5)
				{
					this.velocity_y += random() * 50;
					this.velocity_x -= random() * 50;
				}
				else
				{
					this.velocity_y -= random() * 50;
					this.velocity_x += random() * 50;
				}
				this.velocity_z += random() * 150;
			}


			set_movetype(this, MOVETYPE_BOUNCE);
			//this.velocity_z = -200;

			return;
		}
		else if(this.move_movetype == MOVETYPE_BOUNCE)
		{
			this.angles_x = 0;
			set_movetype(this, MOVETYPE_WALK);
		}
	}

	entity targ = this.goalentity;

	if (MUTATOR_CALLHOOK(MonsterMove, this, runspeed, walkspeed, targ)
		|| game_stopped
		|| this.draggedby != NULL
		|| (round_handler_IsActive() && !round_handler_IsRoundStarted())
		|| time < game_starttime
		|| (autocvar_g_campaign && !campaign_bots_may_start)
		|| time < this.spawn_time)
	{
		runspeed = walkspeed = 0;
		if(time >= this.spawn_time)
			setanim(this, this.anim_idle, true, false, false);
		movelib_brake_simple(this, stpspeed);
		return;
	}

	targ = M_ARGV(3, entity);
	runspeed = bound(0, M_ARGV(1, float) * MONSTER_SKILLMOD(this), runspeed * 2.5); // limit maxspeed to prevent craziness
	walkspeed = bound(0, M_ARGV(2, float) * MONSTER_SKILLMOD(this), walkspeed * 2.5); // limit maxspeed to prevent craziness

	if(this.monster_follow)
	if((teamplay && autocvar_g_monsters_teams && DIFF_TEAM(this.monster_follow, this))
	|| IS_SPEC(this.monster_follow) || IS_OBSERVER(this.monster_follow))
		this.monster_follow = NULL;

	if(this.state == MONSTER_ATTACK_RANGED && IS_ONGROUND(this))
	{
		this.state = 0;
		settouch(this, Monster_Touch);
	}

	if(this.state && time >= this.attack_finished_single[0])
		this.state = 0; // attack is over

// Select destination
	if(this.state != MONSTER_ATTACK_MELEE) // don't move if set
	if(time >= this.last_trace || this.enemy) // update enemy or rider instantly
		this.moveto = Monster_Move_Target(this, targ);

	if(!this.enemy)
		Monster_Sound(this, monstersound_idle, 7, true, CH_VOICE);

	if(this.state == MONSTER_ATTACK_MELEE)
		this.moveto = this.origin;

	if(this.enemy && this.enemy.vehicle)
		runspeed = 0;

	if(!(this.spawnflags & MONSTERFLAG_FLY_VERTICAL) && !(this.flags & FL_SWIM))
		this.moveto_z = this.origin_z;

// Steer towards destination
	this.steerto = steerlib_attract2(this, ((this.monster_face) ? this.monster_face : this.moveto), 0.5, 500, 0.95);
	vector real_angle = vectoangles(this.steerto) - this.angles;
	float turny = 25;
	if(this.state == MONSTER_ATTACK_MELEE)
		turny = 0;
	if(turny)
	{
		turny = bound(turny * -1, shortangle_f(real_angle.y, this.angles.y), turny);
		this.angles_y += turny;
	}

// Update velocity
	fixedmakevectors(this.angles);
	float vz = this.velocity_z;

	// Check for danger ahead
	float bboxwidth = min(this.maxs_x - this.mins_x, this.maxs_y - this.mins_y);
	int danger = Monster_CheckDanger(this, this.origin + this.view_ofs
		+ (vdist(this.velocity, >, bboxwidth * 5) ? this.velocity * 0.2 : v_forward * bboxwidth));

	if(!danger && !turret_closetotarget(this, this.moveto, 16))
	{
		bool do_run = (this.enemy || this.monster_moveto);
		movelib_move_simple(this, v_forward, ((do_run) ? runspeed : walkspeed), 0.4);

		if(time > this.pain_finished && time > this.anim_finished)
		if(!this.state)
		{
			if(vdist(this.velocity, >, 10))
				setanim(this, ((do_run) ? this.anim_run : this.anim_walk), true, false, false);
			else
				setanim(this, this.anim_idle, true, false, false);
		}
	}
	else
	{
		entity e = this.goalentity; //find(NULL, targetname, this.target2);
		if(e.target2 && e.target2 != "")
			this.target2 = e.target2;
		else if(e.target && e.target != "") // compatibility
			this.target2 = e.target;

		movelib_brake_simple(this, stpspeed);
		if(time > this.anim_finished && time > this.pain_finished)
		if(!this.state)
		if(vdist(this.velocity, <=, 30))
			setanim(this, this.anim_idle, true, false, false);
	}

	if(!((this.flags & FL_FLY) || (this.flags & FL_SWIM)))
		this.velocity_z = vz;

// If this path is dangerous try to find a different one next frame
	if (danger)
	{
		this.last_trace = time + 0.3;
		this.moveto = Monster_WanderTarget(this, this.origin);
	}
}

void Monster_Remove(entity this)
{
	if(IS_CLIENT(this))
		return; // don't remove it?

	if(!this) { return; }

	if(!MUTATOR_CALLHOOK(MonsterRemove, this))
		Send_Effect(EFFECT_ITEM_PICKUP, this.origin, '0 0 0', 1);

	for(int slot = 0; slot < MAX_WEAPONSLOTS; ++slot)
	{
		.entity weaponentity = weaponentities[slot];
		if(this.(weaponentity))
			delete(this.(weaponentity));
	}
	if(this.iceblock) { delete(this.iceblock); }
	WaypointSprite_Kill(this.sprite);
	delete(this);
}

void Monster_Dead_Think(entity this)
{
	this.nextthink = time;

	Monster mon = REGISTRY_GET(Monsters, this.monsterid);
	mon.mr_deadthink(mon, this);

	if(this.monster_lifetime != 0)
	if(time >= this.monster_lifetime)
	{
		Monster_Dead_Fade(this);
		return;
	}
}

void Monster_Appear(entity this, entity actor, entity trigger)
{
	this.enemy = actor;
	Monster_Spawn(this, false, this.monsterdef);
}

bool Monster_Appear_Check(entity this, Monster monster_id)
{
	if(!(this.spawnflags & MONSTERFLAG_APPEAR))
		return false;

	setthink(this, func_null);
	this.monsterdef = monster_id; // set so this monster is properly registered (otherwise, normal initialization is used)
	this.nextthink = 0;
	this.use = Monster_Appear;
	this.flags = FL_MONSTER; // set so this monster can get butchered

	return true;
}

void Monster_Reset(entity this)
{
	if(this.spawnflags & MONSTERFLAG_SPAWNED)
	{
		Monster_Remove(this);
		return;
	}

	setorigin(this, this.pos1);
	this.angles = this.pos2;

	Unfreeze(this, false); // remove any icy remains

	SetResourceExplicit(this, RES_HEALTH, this.max_health);
	this.velocity = '0 0 0';
	this.enemy = NULL;
	this.goalentity = NULL;
	this.attack_finished_single[0] = 0;
	this.moveto = this.origin;
}

void Monster_Dead_Damage(entity this, entity inflictor, entity attacker, float damage, int deathtype, .entity weaponentity, vector hitloc, vector force)
{
	TakeResource(this, RES_HEALTH, damage);

	Violence_GibSplash_At(hitloc, force, 2, bound(0, damage, 200) / 16, this, attacker);

	if(GetResource(this, RES_HEALTH) <= -50) // 100 health until gone?
	{
		Violence_GibSplash_At(hitloc, force, 2, bound(0, damage, 200) / 16, this, attacker);

		// number of monsters spawned with mobspawn command
		totalspawned -= 1;

		setthink(this, SUB_Remove);
		this.nextthink = time + 0.1;
		this.event_damage = func_null;
	}
}

void Monster_Dead(entity this, entity attacker, float gibbed)
{
	setthink(this, Monster_Dead_Think);
	this.nextthink = time;
	this.monster_lifetime = time + 5;

	if(STAT(FROZEN, this))
		Unfreeze(this, false); // remove any icy remains

	monster_dropitem(this, attacker);

	Monster_Sound(this, monstersound_death, 0, false, CH_VOICE);

	if(!(this.spawnflags & MONSTERFLAG_SPAWNED) && !(this.spawnflags & MONSTERFLAG_RESPAWNED))
		monsters_killed += 1;

	if(IS_PLAYER(attacker))
	if(autocvar_g_monsters_score_spawned || !((this.spawnflags & MONSTERFLAG_SPAWNED) || (this.spawnflags & MONSTERFLAG_RESPAWNED)))
		GameRules_scoring_add(attacker, SCORE, +autocvar_g_monsters_score_kill);

	if(gibbed)
	{
		// number of monsters spawned with mobspawn command
		totalspawned -= 1;
	}

	if(!gibbed && this.mdl_dead && this.mdl_dead != "")
		_setmodel(this, this.mdl_dead);

	this.event_damage	= ((gibbed) ? func_null : Monster_Dead_Damage);
	this.event_heal 	= func_null;
	this.solid			= SOLID_CORPSE;
	this.takedamage		= DAMAGE_AIM;
	this.deadflag		= DEAD_DEAD;
	this.enemy			= NULL;
	set_movetype(this, MOVETYPE_TOSS);
	this.moveto			= this.origin;
	settouch(this, Monster_Touch); // reset incase monster was pouncing
	this.reset			= func_null;
	this.state			= 0;
	this.attack_finished_single[0] = 0;
	this.effects = 0;
	this.dphitcontentsmask &= ~DPCONTENTS_BODY;

	if(!((this.flags & FL_FLY) || (this.flags & FL_SWIM)))
		this.velocity = '0 0 0';

	CSQCModel_UnlinkEntity(this);

	Monster mon = this.monsterdef;
	mon.mr_death(mon, this);

	if(this.candrop && this.weapon && autocvar_g_monsters_drop)
	{
		.entity weaponentity = weaponentities[0]; // TODO: unhardcode
		W_ThrowNewWeapon(this, this.weapon, 0, this.origin, randomvec() * 150 + '0 0 325', weaponentity);
	}
}

void Monster_Damage(entity this, entity inflictor, entity attacker, float damage, int deathtype, .entity weaponentity, vector hitloc, vector force)
{
	if((this.spawnflags & MONSTERFLAG_INVINCIBLE) && deathtype != DEATH_KILL.m_id && !ITEM_DAMAGE_NEEDKILL(deathtype))
		return;

	if(STAT(FROZEN, this) && deathtype != DEATH_KILL.m_id && deathtype != DEATH_NADE_ICE_FREEZE.m_id)
		return;

	//if(time < this.pain_finished && deathtype != DEATH_KILL.m_id)
		//return;

	if(StatusEffects_active(STATUSEFFECT_SpawnShield, this) && deathtype != DEATH_KILL.m_id)
		return;

	if(deathtype == DEATH_FALL.m_id && this.draggedby != NULL)
		return;

	vector v = healtharmor_applydamage(100, GetResource(this, RES_ARMOR) / 100, deathtype, damage);
	float take = v.x;
	//float save = v.y;

	Monster mon = this.monsterdef;
	take = mon.mr_pain(mon, this, take, attacker, deathtype);

	if(take)
	{
		TakeResource(this, RES_HEALTH, take);
		Monster_Sound(this, monstersound_pain, 1.2, true, CH_PAIN);
	}

	if(this.sprite)
		WaypointSprite_UpdateHealth(this.sprite, GetResource(this, RES_HEALTH));

	this.dmg_time = time;

	if(deathtype != DEATH_DROWN.m_id && deathtype != DEATH_FIRE.m_id && sound_allowed(MSG_BROADCAST, attacker))
		spamsound (this, CH_PAIN, SND_BODYIMPACT1, VOL_BASE, ATTEN_NORM);  // FIXME: PLACEHOLDER

	this.velocity += force * this.damageforcescale;

	if(deathtype != DEATH_DROWN.m_id && take)
	{
		Violence_GibSplash_At(hitloc, force, 2, bound(0, take, 200) / 16, this, attacker);
		if (take > 50)
			Violence_GibSplash_At(hitloc, force * -0.1, 3, 1, this, attacker);
		if (take > 100)
			Violence_GibSplash_At(hitloc, force * -0.2, 3, 1, this, attacker);
	}

	if(GetResource(this, RES_HEALTH) <= 0)
	{
		if(deathtype == DEATH_KILL.m_id)
			this.candrop = false; // killed by mobkill command

		// TODO: fix this?
		SUB_UseTargets(this, attacker, this.enemy);
		this.target2 = this.oldtarget2; // reset to original target on death, incase we respawn

		Monster_Dead(this, attacker, (GetResource(this, RES_HEALTH) <= -100 || deathtype == DEATH_KILL.m_id));

		WaypointSprite_Kill(this.sprite);

		MUTATOR_CALLHOOK(MonsterDies, this, attacker, deathtype);

		if(GetResource(this, RES_HEALTH) <= -100 || deathtype == DEATH_KILL.m_id) // check if we're already gibbed
		{
			Violence_GibSplash(this, 1, 0.5, attacker);

			setthink(this, SUB_Remove);
			this.nextthink = time + 0.1;
		}
	}
}

bool Monster_Heal(entity targ, entity inflictor, float amount, float limit)
{
	float true_limit = ((limit != RES_LIMIT_NONE) ? limit : targ.max_health);
	if(GetResource(targ, RES_HEALTH) <= 0 || GetResource(targ, RES_HEALTH) >= true_limit)
		return false;

	GiveResourceWithLimit(targ, RES_HEALTH, amount, true_limit);
	if(targ.sprite)
		WaypointSprite_UpdateHealth(targ.sprite, GetResource(targ, RES_HEALTH));
	return true;
}

// don't check for enemies, just keep walking in a straight line
void Monster_Move_2D(entity this, float mspeed, bool allow_jumpoff)
{
	if(game_stopped || (round_handler_IsActive() && !round_handler_IsRoundStarted()) || this.draggedby != NULL || time < game_starttime || (autocvar_g_campaign && !campaign_bots_may_start) || time < this.spawn_time)
	{
		mspeed = 0;
		if(time >= this.spawn_time)
			setanim(this, this.anim_idle, true, false, false);
		movelib_brake_simple(this, 0.6);
		return;
	}

	makevectors(this.angles);
	vector a = CENTER_OR_VIEWOFS(this);
	vector b = CENTER_OR_VIEWOFS(this) + v_forward * 32;

	traceline(a, b, MOVE_NORMAL, this);

	bool reverse = false;
	if(trace_fraction != 1.0)
		reverse = true;
	if(trace_ent && IS_PLAYER(trace_ent))
		reverse = false;
	if(trace_ent && IS_MONSTER(trace_ent))
		reverse = true;

	if(!allow_jumpoff && IS_ONGROUND(this))
	{
		traceline(b, b - '0 0 32', MOVE_NORMAL, this);
		if(trace_fraction == 1.0)
			reverse = true;
	}

	if(reverse)
	{
		this.angles_y = anglemods(this.angles_y - 180);
		makevectors(this.angles);
	}

	movelib_move_simple_gravity(this, v_forward, mspeed, 1);

	if(time > this.pain_finished && time > this.attack_finished_single[0])
	{
		if(vdist(this.velocity, >, 10))
			setanim(this, this.anim_walk, true, false, false);
		else
			setanim(this, this.anim_idle, true, false, false);
	}
}

void Monster_Anim(entity this)
{
	int deadbits = (this.anim_state & (ANIMSTATE_DEAD1 | ANIMSTATE_DEAD2));
	if(IS_DEAD(this))
	{
		if (!deadbits)
		{
			// Decide on which death animation to use.
			if(random() < 0.5)
				deadbits = ANIMSTATE_DEAD1;
			else
				deadbits = ANIMSTATE_DEAD2;
		}
	}
	else
	{
		// Clear a previous death animation.
		deadbits = 0;
	}
	int animbits = deadbits;
	if(STAT(FROZEN, this))
		animbits |= ANIMSTATE_FROZEN;
	if(IS_DUCKED(this))
		animbits |= ANIMSTATE_DUCK; // not that monsters can crouch currently...
	animdecide_setstate(this, animbits, false);
	animdecide_setimplicitstate(this, (IS_ONGROUND(this)));

	/* // weapon entities for monsters?
	if (this.weaponentity)
	{
		updateanim(this.weaponentity);
		if (!this.weaponentity.animstate_override)
			setanim(this.weaponentity, this.weaponentity.anim_idle, true, false, false);
	}
	*/
}

void Monster_Frozen_Think(entity this)
{
	if (STAT(FROZEN, this) == FROZEN_TEMP_REVIVING)
	{
		STAT(REVIVE_PROGRESS, this) = bound(0, STAT(REVIVE_PROGRESS, this) + frametime * this.revive_speed, 1);
		SetResourceExplicit(this, RES_HEALTH, max(1, STAT(REVIVE_PROGRESS, this) * this.max_health));
		if (this.iceblock)
			this.iceblock.alpha = bound(0.2, 1 - STAT(REVIVE_PROGRESS, this), 1);

		if(!(this.spawnflags & MONSTERFLAG_INVINCIBLE) && this.sprite)
			WaypointSprite_UpdateHealth(this.sprite, GetResource(this, RES_HEALTH));

		if(STAT(REVIVE_PROGRESS, this) >= 1)
			Unfreeze(this, false);
	}
	else if (STAT(FROZEN, this) == FROZEN_TEMP_DYING)
	{
		STAT(REVIVE_PROGRESS, this) = bound(0, STAT(REVIVE_PROGRESS, this) - frametime * this.revive_speed, 1);
		SetResourceExplicit(this, RES_HEALTH, max(0, autocvar_g_nades_ice_health + (this.max_health-autocvar_g_nades_ice_health) * STAT(REVIVE_PROGRESS, this)));

		if(!(this.spawnflags & MONSTERFLAG_INVINCIBLE) && this.sprite)
			WaypointSprite_UpdateHealth(this.sprite, GetResource(this, RES_HEALTH));

		if(GetResource(this, RES_HEALTH) < 1)
		{
			Unfreeze(this, false);
			if(this.event_damage)
				this.event_damage(this, this, this.frozen_by, 1, DEATH_NADE_ICE_FREEZE.m_id, DMG_NOWEP, this.origin, '0 0 0');
		}
		else if ( STAT(REVIVE_PROGRESS, this) <= 0 )
			Unfreeze(this, false);
	}
	// otherwise, no revival!

	this.enemy = NULL; // TODO: save enemy, and attack when revived?
}

void Monster_Enemy_Check(entity this)
{
	if(this.enemy)
	{
		vector targ_origin = ((this.enemy.absmin + this.enemy.absmax) * 0.5);
		targ_origin = WarpZone_RefSys_TransformOrigin(this.enemy, this, targ_origin); // origin of target as seen by the monster (us)
		WarpZone_TraceLine(this.origin, targ_origin, MOVE_NOMONSTERS, this);

		// cases where the enemy may have changed their state (don't need to check everything here)
		if(    (IS_DEAD(this.enemy) || GetResource(this.enemy, RES_HEALTH) < 1)
			|| (STAT(FROZEN, this.enemy))
			|| (this.enemy.flags & FL_NOTARGET)
			|| (this.enemy.alpha < 0.5 && this.enemy.alpha != 0)
			|| (this.enemy.takedamage == DAMAGE_NO)
			|| (vdist(this.origin - targ_origin, >, this.target_range))
			|| ((trace_fraction < 1) && (trace_ent != this.enemy))
			)
		{
			this.enemy = NULL;
		}
		else
		{
			return;
		}
	}

	this.enemy = Monster_FindTarget(this);
	if(this.enemy)
	{
		WarpZone_RefSys_Copy(this.enemy, this);
		WarpZone_RefSys_AddInverse(this.enemy, this); // wz1^-1 ... wzn^-1 receiver
		// update move target immediately?
		this.moveto = WarpZone_RefSys_TransformOrigin(this.enemy, this, (0.5 * (this.enemy.absmin + this.enemy.absmax)));
		this.monster_moveto = '0 0 0';
		this.monster_face = '0 0 0';

		Monster_Sound(this, monstersound_sight, 0, false, CH_VOICE);
	}
}

void Monster_Think(entity this)
{
	setthink(this, Monster_Think);
	this.nextthink = time;

	if(this.monster_lifetime && time >= this.monster_lifetime)
	{
		Damage(this, this, this, GetResource(this, RES_HEALTH) + this.max_health, DEATH_KILL.m_id, DMG_NOWEP, this.origin, this.origin);
		return;
	}

	if(STAT(FROZEN, this))
		Monster_Frozen_Think(this);
	else if(time >= this.last_enemycheck)
	{
		Monster_Enemy_Check(this);
		this.last_enemycheck = time + 1; // check for enemies every second
	}

	Monster mon = this.monsterdef;
	if(mon.mr_think(mon, this))
	{
		Monster_Move(this, this.speed2, this.speed, this.stopspeed);

		.entity weaponentity = weaponentities[0]; // TODO?
		Monster_Attack_Check(this, this.enemy, weaponentity);
	}

	Monster_Anim(this);

	CSQCMODEL_AUTOUPDATE(this);
}

bool Monster_Spawn_Setup(entity this)
{
	Monster mon = this.monsterdef;
	mon.mr_setup(mon, this);

	// ensure some basic needs are met
	if(!GetResource(this, RES_HEALTH)) { SetResourceExplicit(this, RES_HEALTH, 100); }
	if(!GetResource(this, RES_ARMOR)) { SetResourceExplicit(this, RES_ARMOR, bound(0.2, 0.5 * MONSTER_SKILLMOD(this), 0.9)); }
	if(!this.target_range) { this.target_range = autocvar_g_monsters_target_range; }
	if(!this.respawntime) { this.respawntime = autocvar_g_monsters_respawn_delay; }
	if(!this.monster_moveflags) { this.monster_moveflags = MONSTER_MOVE_WANDER; }
	if(!this.attack_range) { this.attack_range = autocvar_g_monsters_attack_range; }
	if(!this.damageforcescale) { this.damageforcescale = autocvar_g_monsters_damageforcescale; }

	if(!(this.spawnflags & MONSTERFLAG_RESPAWNED))
	{
		Monster_Miniboss_Check(this);
		SetResourceExplicit(this, RES_HEALTH, GetResource(this, RES_HEALTH) * MONSTER_SKILLMOD(this));

		if(!this.skin)
			this.skin = rint(random() * 4);
	}

	this.max_health = GetResource(this, RES_HEALTH);
	this.pain_finished = this.nextthink;
	this.last_enemycheck = this.spawn_time + random(); // slight delay

	if(!this.wander_delay) { this.wander_delay = 2; }
	if(!this.wander_distance) { this.wander_distance = 600; }

	Monster_Sounds_Precache(this);
	Monster_Sounds_Update(this);

	if(teamplay)
	{
		if(!this.monster_attack)
			IL_PUSH(g_monster_targets, this);
		this.monster_attack = true; // we can have monster enemies in team games
	}

	Monster_Sound(this, monstersound_spawn, 0, false, CH_VOICE);

	if(autocvar_g_monsters_healthbars)
	{
		entity wp = WaypointSprite_Spawn(WP_Monster, 0, 1024, this, '0 0 1' * (this.maxs.z + 15), NULL, this.team, this, sprite, true, RADARICON_DANGER);
		wp.wp_extra = this.monsterdef.monsterid;
		wp.colormod = ((this.team) ? Team_ColorRGB(this.team) : '1 0 0');
		if(!(this.spawnflags & MONSTERFLAG_INVINCIBLE))
		{
			WaypointSprite_UpdateMaxHealth(this.sprite, this.max_health);
			WaypointSprite_UpdateHealth(this.sprite, GetResource(this, RES_HEALTH));
		}
	}

	setthink(this, Monster_Think);
	this.nextthink = time;

	if(MUTATOR_CALLHOOK(MonsterSpawn, this))
		return false;

	return true;
}

bool Monster_Spawn(entity this, bool check_appear, Monster mon)
{
	// setup the basic required properties for a monster

	if(!mon || mon == MON_Null) { return false; } // invalid monster
	if(!autocvar_g_monsters) { Monster_Remove(this); return false; }

	if(!(this.spawnflags & MONSTERFLAG_RESPAWNED) && !(this.flags & FL_MONSTER))
	{
		IL_PUSH(g_monsters, this);
		if(this.mdl && this.mdl != "")
			precache_model(this.mdl);
		if(this.mdl_dead && this.mdl_dead != "")
			precache_model(this.mdl_dead);
	}

	if(check_appear && Monster_Appear_Check(this, mon)) { return true; } // return true so the monster isn't removed

	if(!this.monster_skill)
		this.monster_skill = cvar("g_monsters_skill");

	// support for quake style removing monsters based on skill
	if(this.monster_skill == MONSTER_SKILL_EASY) if(this.spawnflags & MONSTERSKILL_NOTEASY) { Monster_Remove(this); return false; }
	if(this.monster_skill == MONSTER_SKILL_MEDIUM) if(this.spawnflags & MONSTERSKILL_NOTMEDIUM) { Monster_Remove(this); return false; }
	if(this.monster_skill == MONSTER_SKILL_HARD) if(this.spawnflags & MONSTERSKILL_NOTHARD) { Monster_Remove(this); return false; }

	if(this.team && !teamplay)
		this.team = 0;

	if(!(this.spawnflags & MONSTERFLAG_SPAWNED)) // naturally spawned monster
	if(!(this.spawnflags & MONSTERFLAG_RESPAWNED)) // don't count re-spawning monsters either
		monsters_total += 1;

	if(this.mdl && this.mdl != "")
		_setmodel(this, this.mdl);
	else
		setmodel(this, mon.m_model);

	if(!this.monster_name || this.monster_name == "")
		this.monster_name = mon.monster_name;

	if(this.statuseffects && this.statuseffects.owner == this)
	{
		StatusEffects_clearall(this.statuseffects);
		StatusEffects_update(this);
	}
	else
		this.statuseffects = NULL;

	this.flags				= FL_MONSTER;
	this.classname			= "monster";
	this.takedamage			= DAMAGE_AIM;
	if(!this.bot_attack)
		IL_PUSH(g_bot_targets, this);
	this.bot_attack			= true;
	this.iscreature			= true;
	this.teleportable		= true;
	if(!this.damagedbycontents)
		IL_PUSH(g_damagedbycontents, this);
	this.damagedbycontents	= true;
	this.monsterdef			= mon;
	this.event_damage		= Monster_Damage;
	this.event_heal			= Monster_Heal;
	settouch(this, Monster_Touch);
	this.use				= Monster_Use;
	this.solid				= SOLID_BBOX;
	set_movetype(this, MOVETYPE_WALK);
	StatusEffects_apply(STATUSEFFECT_SpawnShield, this, time + autocvar_g_monsters_spawnshieldtime, 0);
	this.enemy				= NULL;
	this.velocity			= '0 0 0';
	this.moveto				= this.origin;
	this.pos1				= this.origin;
	this.pos2				= this.angles;
	this.reset				= Monster_Reset;
	this.netname			= mon.netname;
	this.monster_attackfunc	= mon.monster_attackfunc;
	this.candrop			= true;
	this.oldtarget2			= this.target2;
	this.deadflag			= DEAD_NO;
	this.spawn_time			= time;
	this.gravity			= 1;
	this.monster_moveto		= '0 0 0';
	this.monster_face 		= '0 0 0';
	this.dphitcontentsmask	= DPCONTENTS_SOLID | DPCONTENTS_BODY | DPCONTENTS_BOTCLIP | DPCONTENTS_MONSTERCLIP;

	if(!this.noalign) { this.noalign = ((mon.spawnflags & MONSTER_TYPE_FLY) || (mon.spawnflags & MONSTER_TYPE_SWIM)); }
	if(!this.scale) { this.scale = 1; }
	if(autocvar_g_monsters_edit) { this.grab = 1; }
	if(autocvar_g_fullbrightplayers) { this.effects |= EF_FULLBRIGHT; }
	if(autocvar_g_nodepthtestplayers) { this.effects |= EF_NODEPTHTEST; }
	if(mon.spawnflags & MONSTER_TYPE_SWIM) { this.flags |= FL_SWIM; }

	if(autocvar_g_monsters_playerclip_collisions)
		this.dphitcontentsmask |= DPCONTENTS_PLAYERCLIP;

	if(mon.spawnflags & MONSTER_TYPE_FLY)
	{
		this.flags |= FL_FLY;
		set_movetype(this, MOVETYPE_FLY);
	}

	if((mon.spawnflags & MONSTER_SIZE_QUAKE) && autocvar_g_monsters_quake_resize && !(this.spawnflags & MONSTERFLAG_RESPAWNED))
		this.scale *= 1.3;

	setsize(this, RoundPerfectVector(mon.m_mins * this.scale), RoundPerfectVector(mon.m_maxs * this.scale));
	this.view_ofs			= '0 0 0.7' * (this.maxs_z * 0.5);

	Monster_UpdateModel(this);

	if(!Monster_Spawn_Setup(this))
	{
		Monster_Remove(this);
		return false;
	}

	if(!this.noalign)
	{
		setorigin(this, this.origin + '0 0 20');
		tracebox(this.origin + '0 0 64', this.mins, this.maxs, this.origin - '0 0 10000', MOVE_WORLDONLY, this);
		setorigin(this, trace_endpos);
	}

	if (!nudgeoutofsolid(this))
	{
		// Stuck and not fixable
		Monster_Remove(this);
		return false;
	}

	if(!(this.spawnflags & MONSTERFLAG_RESPAWNED))
		monster_setupcolors(this);

	CSQCMODEL_AUTOINIT(this);

	return true;
}