sourcemod-central: core/smn_entities.cpp@47e1ee9cea86 (annotated)

dvander@555	1	/**
ds@653	2	* vim: set ts=4 :
ds@1330	3	* =============================================================================
dvander@1231	4	* SourceMod
ds@3099	5	* Copyright (C) 2004-2010 AlliedModders LLC. All rights reserved.
ds@1330	6	* =============================================================================
dvander@555	7	*
ds@1330	8	* This program is free software; you can redistribute it and/or modify it under
ds@1330	9	* the terms of the GNU General Public License, version 3.0, as published by the
ds@1330	10	* Free Software Foundation.
dvander@1231	11	*
ds@1330	12	* This program is distributed in the hope that it will be useful, but WITHOUT
ds@1330	13	* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
ds@1330	14	* FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
ds@1330	15	* details.
dvander@1231	16	*
ds@1330	17	* You should have received a copy of the GNU General Public License along with
ds@1330	18	* this program. If not, see <http://www.gnu.org/licenses/>.
dvander@1231	19	*
ds@1330	20	* As a special exception, AlliedModders LLC gives you permission to link the
ds@1330	21	* code of this program (as well as its derivative works) to "Half-Life 2," the
ds@1330	22	* "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
ds@1330	23	* by the Valve Corporation. You must obey the GNU General Public License in
ds@1330	24	* all respects for all other code used. Additionally, AlliedModders LLC grants
ds@1330	25	* this exception to all derivative works. AlliedModders LLC defines further
ds@1330	26	* exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
ds@1330	27	* or <http://www.sourcemod.net/license.php>.
dvander@555	28	*
dvander@555	29	* Version: $Id$
dvander@555	30	*/
dvander@555	31
dvander@555	32	#include "sm_globals.h"
dvander@555	33	#include "sourcemod.h"
dvander@555	34	#include "sourcemm_api.h"
dvander@591	35	#include "PlayerManager.h"
dvander@592	36	#include "HalfLife2.h"
dvander@3010	37	#include <IGameConfigs.h>
faluco@694	38	#include "sm_stringutil.h"
dvander@3010	39	#include "logic_bridge.h"
faluco@694	40
skamonkey@3220	41	// These values need to mirror the values in entity_prop_stocks
skamonkey@3220	42	#define ENTFLAG_ONGROUND (1 << 0)
skamonkey@3220	43	#define ENTFLAG_DUCKING (1 << 1)
skamonkey@3220	44	#define ENTFLAG_WATERJUMP (1 << 2)
skamonkey@3220	45	#define ENTFLAG_ONTRAIN (1 << 3)
skamonkey@3220	46	#define ENTFLAG_INRAIN (1 << 4)
skamonkey@3220	47	#define ENTFLAG_FROZEN (1 << 5)
skamonkey@3220	48	#define ENTFLAG_ATCONTROLS (1 << 6)
skamonkey@3220	49	#define ENTFLAG_CLIENT (1 << 7)
skamonkey@3220	50	#define ENTFLAG_FAKECLIENT (1 << 8)
skamonkey@3220	51	#define ENTFLAG_INWATER (1 << 9)
skamonkey@3220	52	#define ENTFLAG_FLY (1 << 10)
skamonkey@3220	53	#define ENTFLAG_SWIM (1 << 11)
skamonkey@3220	54	#define ENTFLAG_CONVEYOR (1 << 12)
skamonkey@3220	55	#define ENTFLAG_NPC (1 << 13)
skamonkey@3220	56	#define ENTFLAG_GODMODE (1 << 14)
skamonkey@3220	57	#define ENTFLAG_NOTARGET (1 << 15)
skamonkey@3220	58	#define ENTFLAG_AIMTARGET (1 << 16)
skamonkey@3220	59	#define ENTFLAG_PARTIALGROUND (1 << 17)
skamonkey@3220	60	#define ENTFLAG_STATICPROP (1 << 18)
skamonkey@3220	61	#define ENTFLAG_GRAPHED (1 << 19)
skamonkey@3220	62	#define ENTFLAG_GRENADE (1 << 20)
skamonkey@3220	63	#define ENTFLAG_STEPMOVEMENT (1 << 21)
skamonkey@3220	64	#define ENTFLAG_DONTTOUCH (1 << 22)
skamonkey@3220	65	#define ENTFLAG_BASEVELOCITY (1 << 23)
skamonkey@3220	66	#define ENTFLAG_WORLDBRUSH (1 << 24)
skamonkey@3220	67	#define ENTFLAG_OBJECT (1 << 25)
skamonkey@3220	68	#define ENTFLAG_KILLME (1 << 26)
skamonkey@3220	69	#define ENTFLAG_ONFIRE (1 << 27)
skamonkey@3220	70	#define ENTFLAG_DISSOLVING (1 << 28)
skamonkey@3220	71	#define ENTFLAG_TRANSRAGDOLL (1 << 29)
skamonkey@3220	72	#define ENTFLAG_UNBLOCKABLE_BY_PLAYER (1 << 30)
skamonkey@3220	73	#define ENTFLAG_FREEZING (1 << 31)
skamonkey@3220	74	#define ENTFLAG_EP2V_UNKNOWN1 (1 << 31)
skamonkey@3220	75
skamonkey@3220	76	// Not defined in the sdk as we have no clue what it is
skamonkey@3220	77	#define FL_EP2V_UNKNOWN (1 << 2)
skamonkey@3220	78
faluco@694	79	enum PropType
faluco@694	80	{
faluco@694	81	Prop_Send = 0,
faluco@694	82	Prop_Data
faluco@694	83	};
dvander@555	84
dvander@1847	85	enum PropFieldType
dvander@1847	86	{
dvander@1847	87	PropField_Unsupported, /*< The type is unsupported. /
dvander@1847	88	PropField_Integer, /*< Valid for SendProp and Data fields /
dvander@1847	89	PropField_Float, /*< Valid for SendProp and Data fields /
dvander@1847	90	PropField_Entity, /*< Valid for Data fields only (SendProp shows as int) /
dvander@1847	91	PropField_Vector, /*< Valid for SendProp and Data fields /
dvander@1847	92	PropField_String, /*< Valid for SendProp and Data fields /
dvander@1884	93	PropField_String_T, /*< Valid for Data fields. Read only! /
dvander@1847	94	};
dvander@1847	95
pred@2746	96	inline edict_t BaseEntityToEdict(CBaseEntity pEntity)
pred@2746	97	{
pred@2746	98	IServerUnknown pUnk = (IServerUnknown )pEntity;
pred@2746	99	IServerNetworkable *pNet = pUnk->GetNetworkable();
pred@2746	100
pred@2746	101	if (!pNet)
pred@2746	102	{
pred@2746	103	return NULL;
pred@2746	104	}
pred@2746	105
pred@2746	106	return pNet->GetEdict();
pred@2746	107	}
pred@2746	108
dvander@555	109	inline edict_t *GetEdict(cell_t num)
dvander@555	110	{
fyrenmoo@2879	111	edict_t *pEdict;
fyrenmoo@2879	112	if (!IndexToAThings(num, NULL, &pEdict))
fyrenmoo@2879	113	{
fyrenmoo@2879	114	return NULL;
fyrenmoo@2879	115	}
fyrenmoo@2879	116
fyrenmoo@2879	117	return pEdict;
fyrenmoo@2879	118	}
fyrenmoo@2879	119
fyrenmoo@2879	120	inline CBaseEntity *GetEntity(cell_t num)
fyrenmoo@2879	121	{
fyrenmoo@2879	122	CBaseEntity *pEntity;
fyrenmoo@2879	123	if (!IndexToAThings(num, &pEntity, NULL))
fyrenmoo@2879	124	{
fyrenmoo@2879	125	return NULL;
fyrenmoo@2879	126	}
fyrenmoo@2879	127
fyrenmoo@2879	128	return pEntity;
fyrenmoo@2879	129	}
fyrenmoo@2879	130
fyrenmoo@2879	131	/* Given an entity reference or index, fill out a CBaseEntity and/or edict.
fyrenmoo@2879	132	If lookup is successful, returns true and writes back the two parameters.
fyrenmoo@2879	133	If lookup fails, returns false and doesn't touch the params. */
fyrenmoo@2879	134	bool IndexToAThings(cell_t num, CBaseEntity pEntData, edict_t pEdictData)
fyrenmoo@2879	135	{
pred@2746	136	CBaseEntity *pEntity = g_HL2.ReferenceToEntity(num);
pred@2746	137
pred@2746	138	if (!pEntity)
pred@2746	139	{
fyrenmoo@2879	140	return false;
dvander@555	141	}
pred@2746	142
pred@2746	143	int index = g_HL2.ReferenceToIndex(num);
pred@2746	144	if (index > 0 && index <= g_Players.GetMaxClients())
dvander@556	145	{
pred@2746	146	CPlayer *pPlayer = g_Players.GetPlayerByIndex(index);
dvander@556	147	if (!pPlayer \|\| !pPlayer->IsConnected())
dvander@556	148	{
fyrenmoo@2879	149	return false;
dvander@556	150	}
dvander@556	151	}
pred@2746	152
fyrenmoo@2879	153	if (pEntData)
dvander@557	154	{
fyrenmoo@2879	155	*pEntData = pEntity;
dvander@557	156	}
pred@2746	157
fyrenmoo@2879	158	if (pEdictData)
dvander@557	159	{
fyrenmoo@2879	160	edict_t *pEdict = ::BaseEntityToEdict(pEntity);
fyrenmoo@2913	161	if (!pEdict \|\| pEdict->IsFree())
dvander@557	162	{
fyrenmoo@2879	163	pEdict = NULL;
dvander@557	164	}
fyrenmoo@2879	165
fyrenmoo@2879	166	*pEdictData = pEdict;
dvander@557	167	}
pred@2746	168
fyrenmoo@2879	169	return true;
dvander@557	170	}
fyrenmoo@2879	171	/*
fyrenmoo@2879	172	<predcrab> AThings is like guaranteed r+ by dvander though
fyrenmoo@2879	173	<predcrab> he wont even read the rest of the patch to nit stuff
fyrenmoo@2879	174	<Fyren> Like I wasn't going to r? you anyway!
fyrenmoo@2879	175	<predcrab> he still sees!
fyrenmoo@2879	176	<predcrab> he's everywhere
fyrenmoo@2879	177	*/
dvander@557	178
faluco@682	179	class VEmptyClass {};
faluco@682	180	datamap_t VGetDataDescMap(CBaseEntity pThisPtr, int offset)
faluco@682	181	{
faluco@682	182	void *this_ptr = reinterpret_cast<void ***>(&pThisPtr);
faluco@682	183	void *vtable = reinterpret_cast<void ***>(pThisPtr);
faluco@682	184	void *vfunc = vtable[offset];
faluco@682	185
faluco@682	186	union
faluco@682	187	{
faluco@682	188	datamap_t (VEmptyClass::mfpnew)();
faluco@682	189	#ifndef PLATFORM_POSIX
faluco@682	190	void *addr;
faluco@682	191	} u;
faluco@682	192	u.addr = vfunc;
faluco@682	193	#else
faluco@682	194	struct
faluco@682	195	{
faluco@682	196	void *addr;
faluco@682	197	intptr_t adjustor;
faluco@682	198	} s;
faluco@682	199	} u;
faluco@682	200	u.s.addr = vfunc;
faluco@682	201	u.s.adjustor = 0;
faluco@682	202	#endif
faluco@682	203
faluco@682	204	return (datamap_t )(reinterpret_cast<VEmptyClass >(this_ptr)->*u.mfpnew)();
faluco@682	205	}
faluco@682	206
faluco@682	207	inline datamap_t CBaseEntity_GetDataDescMap(CBaseEntity pEntity)
faluco@682	208	{
faluco@682	209	int offset;
faluco@682	210
faluco@682	211	if (!g_pGameConf->GetOffset("GetDataDescMap", &offset) \|\| !offset)
faluco@682	212	{
faluco@682	213	return NULL;
faluco@682	214	}
faluco@682	215
faluco@682	216	return VGetDataDescMap(pEntity, offset);
faluco@682	217	}
faluco@682	218
dvander@965	219	/* :TODO: Move this! */
dvander@965	220	datamap_t CHalfLife2::GetDataMap(CBaseEntity pEntity)
dvander@965	221	{
dvander@965	222	return CBaseEntity_GetDataDescMap(pEntity);
dvander@965	223	}
dvander@965	224
dvander@555	225	static cell_t GetMaxEntities(IPluginContext pContext, const cell_t params)
dvander@555	226	{
dvander@555	227	return gpGlobals->maxEntities;
dvander@555	228	}
dvander@555	229
dvander@555	230	static cell_t CreateEdict(IPluginContext pContext, const cell_t params)
dvander@555	231	{
dvander@555	232	edict_t *pEdict = engine->CreateEdict();
dvander@555	233
dvander@555	234	if (!pEdict)
dvander@555	235	{
dvander@555	236	return 0;
dvander@555	237	}
dvander@555	238
ds@2400	239	return IndexOfEdict(pEdict);
dvander@555	240	}
dvander@555	241
dvander@555	242	static cell_t RemoveEdict(IPluginContext pContext, const cell_t params)
dvander@555	243	{
pred@2746	244	edict_t *pEdict = GetEdict(params[1]);
dvander@555	245
dvander@555	246	if (!pEdict)
dvander@555	247	{
pred@2746	248	return pContext->ThrowNativeError("Edict %d (%d) is not a valid edict", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@555	249	}
dvander@555	250
dvander@555	251	engine->RemoveEdict(pEdict);
dvander@555	252
dvander@555	253	return 1;
dvander@555	254	}
dvander@555	255
dvander@555	256	static cell_t IsValidEdict(IPluginContext pContext, const cell_t params)
dvander@555	257	{
dvander@556	258	edict_t *pEdict = GetEdict(params[1]);
dvander@555	259
dvander@555	260	if (!pEdict)
dvander@555	261	{
dvander@555	262	return 0;
dvander@555	263	}
dvander@555	264
dvander@555	265	/* Shouldn't be necessary... not sure though */
dvander@555	266	return pEdict->IsFree() ? 0 : 1;
dvander@555	267	}
dvander@555	268
dvander@555	269	static cell_t IsValidEntity(IPluginContext pContext, const cell_t params)
dvander@555	270	{
pred@2746	271	CBaseEntity *pEntity = g_HL2.ReferenceToEntity(params[1]);
dvander@555	272
dvander@555	273	return (pEntity != NULL) ? 1 : 0;
dvander@555	274	}
dvander@555	275
dvander@555	276	static cell_t IsEntNetworkable(IPluginContext pContext, const cell_t params)
dvander@555	277	{
dvander@556	278	edict_t *pEdict = GetEdict(params[1]);
dvander@555	279
dvander@556	280	if (!pEdict)
dvander@555	281	{
dvander@555	282	return 0;
dvander@555	283	}
dvander@555	284
dvander@555	285	return (pEdict->GetNetworkable() != NULL) ? 1 : 0;
dvander@555	286	}
dvander@555	287
dvander@555	288	static cell_t GetEntityCount(IPluginContext pContext, const cell_t params)
dvander@555	289	{
dvander@555	290	return engine->GetEntityCount();
dvander@555	291	}
dvander@555	292
dvander@555	293	static cell_t GetEdictFlags(IPluginContext pContext, const cell_t params)
dvander@555	294	{
dvander@555	295	edict_t *pEdict = GetEdict(params[1]);
dvander@555	296
dvander@555	297	if (!pEdict)
dvander@555	298	{
pred@2746	299	return pContext->ThrowNativeError("Invalid edict (%d - %d)", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@555	300	}
dvander@555	301
dvander@555	302	return pEdict->m_fStateFlags;
dvander@555	303	}
dvander@555	304
dvander@555	305	static cell_t SetEdictFlags(IPluginContext pContext, const cell_t params)
dvander@555	306	{
dvander@555	307	edict_t *pEdict = GetEdict(params[1]);
dvander@555	308
dvander@555	309	if (!pEdict)
dvander@555	310	{
pred@2746	311	return pContext->ThrowNativeError("Invalid edict (%d - %d)", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@555	312	}
dvander@555	313
dvander@555	314	pEdict->m_fStateFlags = params[2];
dvander@555	315
dvander@555	316	return 1;
dvander@555	317	}
dvander@555	318
dvander@556	319	static cell_t GetEdictClassname(IPluginContext pContext, const cell_t params)
dvander@556	320	{
dvander@556	321	edict_t *pEdict = GetEdict(params[1]);
dvander@556	322
dvander@556	323	if (!pEdict)
dvander@556	324	{
pred@2746	325	return pContext->ThrowNativeError("Invalid edict (%d - %d)", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@556	326	}
dvander@556	327
kyle@3638	328	const char *cls = g_HL2.GetEntityClassname(pEdict);
dvander@556	329
dvander@556	330	if (!cls \|\| cls[0] == '\0')
dvander@556	331	{
dvander@556	332	return 0;
dvander@556	333	}
dvander@556	334
dvander@556	335	pContext->StringToLocal(params[2], params[3], cls);
dvander@556	336
dvander@556	337	return 1;
dvander@556	338	}
dvander@556	339
dvander@556	340	static cell_t GetEntityNetClass(IPluginContext pContext, const cell_t params)
dvander@556	341	{
pred@2746	342	CBaseEntity *pEntity = g_HL2.ReferenceToEntity(params[1]);
pred@2746	343
pred@2746	344	IServerUnknown pUnk = (IServerUnknown )pEntity;
dvander@556	345
pred@2746	346	if (!pEntity)
dvander@556	347	{
pred@2746	348	return pContext->ThrowNativeError("Invalid entity (%d - %d)", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@556	349	}
dvander@556	350
pred@2746	351	IServerNetworkable *pNet = pUnk->GetNetworkable();
dvander@556	352	if (!pNet)
dvander@556	353	{
dvander@556	354	return 0;
dvander@556	355	}
dvander@556	356
dvander@556	357	ServerClass *pClass = pNet->GetServerClass();
dvander@556	358
dvander@556	359	pContext->StringToLocal(params[2], params[3], pClass->GetName());
dvander@556	360
dvander@556	361	return 1;
dvander@556	362	}
dvander@556	363
dvander@557	364	static cell_t GetEntData(IPluginContext pContext, const cell_t params)
dvander@557	365	{
fyrenmoo@2879	366	CBaseEntity *pEntity = GetEntity(params[1]);
dvander@557	367
pred@2746	368	if (!pEntity)
dvander@557	369	{
pred@2746	370	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@557	371	}
dvander@557	372
dvander@557	373	int offset = params[2];
dvander@1847	374	if (offset <= 0 \|\| offset > 32768)
dvander@557	375	{
dvander@557	376	return pContext->ThrowNativeError("Offset %d is invalid", offset);
dvander@557	377	}
dvander@557	378
dvander@557	379	switch (params[3])
dvander@557	380	{
dvander@557	381	case 4:
dvander@557	382	return (int )((uint8_t *)pEntity + offset);
dvander@557	383	case 2:
dvander@557	384	return (short )((uint8_t *)pEntity + offset);
dvander@557	385	case 1:
dvander@557	386	return ((uint8_t )pEntity + offset);
dvander@557	387	default:
dvander@557	388	return pContext->ThrowNativeError("Integer size %d is invalid", params[3]);
dvander@557	389	}
dvander@557	390	}
dvander@557	391
dvander@557	392	static cell_t SetEntData(IPluginContext pContext, const cell_t params)
dvander@557	393	{
dvander@557	394	CBaseEntity *pEntity;
fyrenmoo@2879	395	edict_t *pEdict;
dvander@557	396
fyrenmoo@2879	397	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@557	398	{
pred@2746	399	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@557	400	}
dvander@557	401
dvander@557	402	int offset = params[2];
dvander@1847	403	if (offset <= 0 \|\| offset > 32768)
dvander@557	404	{
dvander@557	405	return pContext->ThrowNativeError("Offset %d is invalid", offset);
dvander@557	406	}
dvander@557	407
pred@2746	408	if (params[5] && (pEdict != NULL))
dvander@561	409	{
dvander@685	410	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@561	411	}
dvander@561	412
dvander@557	413	switch (params[4])
dvander@557	414	{
dvander@557	415	case 4:
dvander@557	416	{
dvander@557	417	(int )((uint8_t *)pEntity + offset) = params[3];
dvander@557	418	break;
dvander@557	419	}
dvander@557	420	case 2:
dvander@557	421	{
dvander@557	422	(short )((uint8_t *)pEntity + offset) = params[3];
dvander@557	423	break;
dvander@557	424	}
dvander@557	425	case 1:
dvander@557	426	{
dvander@557	427	((uint8_t )pEntity + offset) = params[3];
dvander@557	428	break;
dvander@557	429	}
dvander@557	430	default:
dvander@557	431	return pContext->ThrowNativeError("Integer size %d is invalid", params[4]);
dvander@557	432	}
dvander@557	433
dvander@557	434	return 1;
dvander@557	435	}
dvander@557	436
dvander@557	437	static cell_t GetEntDataFloat(IPluginContext pContext, const cell_t params)
dvander@557	438	{
fyrenmoo@2879	439	CBaseEntity *pEntity = GetEntity(params[1]);
dvander@557	440
pred@2746	441	if (!pEntity)
dvander@557	442	{
pred@2746	443	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@557	444	}
dvander@557	445
dvander@557	446	int offset = params[2];
dvander@1847	447	if (offset <= 0 \|\| offset > 32768)
dvander@557	448	{
dvander@557	449	return pContext->ThrowNativeError("Offset %d is invalid", offset);
dvander@557	450	}
dvander@557	451
dvander@557	452	float f = (float )((uint8_t *)pEntity + offset);
dvander@557	453
dvander@557	454	return sp_ftoc(f);
dvander@557	455	}
dvander@557	456
dvander@557	457	static cell_t SetEntDataFloat(IPluginContext pContext, const cell_t params)
dvander@557	458	{
dvander@557	459	CBaseEntity *pEntity;
fyrenmoo@2879	460	edict_t *pEdict;
dvander@557	461
fyrenmoo@2879	462	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@557	463	{
pred@2746	464	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@557	465	}
dvander@557	466
dvander@557	467	int offset = params[2];
dvander@1847	468	if (offset <= 0 \|\| offset > 32768)
dvander@557	469	{
dvander@557	470	return pContext->ThrowNativeError("Offset %d is invalid", offset);
dvander@557	471	}
dvander@557	472
dvander@557	473	(float )((uint8_t *)pEntity + offset) = sp_ctof(params[3]);
dvander@557	474
pred@2746	475	if (params[4] && (pEdict != NULL))
dvander@561	476	{
dvander@685	477	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@561	478	}
dvander@561	479
dvander@557	480	return 1;
dvander@557	481	}
dvander@557	482
dvander@557	483	static cell_t GetEntDataVector(IPluginContext pContext, const cell_t params)
dvander@557	484	{
fyrenmoo@2879	485	CBaseEntity *pEntity = GetEntity(params[1]);
dvander@557	486
pred@2746	487	if (!pEntity)
dvander@557	488	{
pred@2746	489	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@557	490	}
dvander@557	491
dvander@557	492	int offset = params[2];
dvander@1847	493	if (offset <= 0 \|\| offset > 32768)
dvander@557	494	{
dvander@557	495	return pContext->ThrowNativeError("Offset %d is invalid", offset);
dvander@557	496	}
dvander@557	497
dvander@557	498	Vector v = (Vector )((uint8_t *)pEntity + offset);
dvander@557	499
dvander@557	500	cell_t *vec;
dvander@557	501	pContext->LocalToPhysAddr(params[3], &vec);
dvander@557	502
faluco@597	503	vec[0] = sp_ftoc(v->x);
faluco@597	504	vec[1] = sp_ftoc(v->y);
faluco@597	505	vec[2] = sp_ftoc(v->z);
dvander@557	506
dvander@557	507	return 1;
dvander@557	508	}
dvander@557	509
dvander@557	510	static cell_t SetEntDataVector(IPluginContext pContext, const cell_t params)
dvander@557	511	{
dvander@557	512	CBaseEntity *pEntity;
fyrenmoo@2879	513	edict_t *pEdict;
dvander@557	514
fyrenmoo@2879	515	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@557	516	{
pred@2746	517	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@557	518	}
dvander@557	519
dvander@557	520	int offset = params[2];
dvander@1847	521	if (offset <= 0 \|\| offset > 32768)
dvander@557	522	{
dvander@557	523	return pContext->ThrowNativeError("Offset %d is invalid", offset);
dvander@557	524	}
dvander@557	525
dvander@557	526	Vector v = (Vector )((uint8_t *)pEntity + offset);
dvander@557	527
dvander@557	528	cell_t *vec;
dvander@557	529	pContext->LocalToPhysAddr(params[3], &vec);
dvander@557	530
faluco@597	531	v->x = sp_ctof(vec[0]);
faluco@597	532	v->y = sp_ctof(vec[1]);
faluco@597	533	v->z = sp_ctof(vec[2]);
dvander@557	534
pred@2746	535	if (params[4] && (pEdict != NULL))
dvander@561	536	{
dvander@685	537	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@561	538	}
dvander@561	539
dvander@557	540	return 1;
dvander@557	541	}
dvander@557	542
dvander@1847	543	/* THIS GUY IS DEPRECATED. */
dvander@557	544	static cell_t GetEntDataEnt(IPluginContext pContext, const cell_t params)
dvander@557	545	{
fyrenmoo@2879	546	CBaseEntity *pEntity = GetEntity(params[1]);
dvander@557	547
pred@2746	548	if (!pEntity)
dvander@557	549	{
pred@2746	550	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@557	551	}
dvander@557	552
dvander@557	553	int offset = params[2];
dvander@1847	554	if (offset <= 0 \|\| offset > 32768)
dvander@557	555	{
dvander@557	556	return pContext->ThrowNativeError("Offset %d is invalid", offset);
dvander@557	557	}
dvander@557	558
dvander@557	559	CBaseHandle &hndl = (CBaseHandle )((uint8_t *)pEntity + offset);
dvander@557	560
dvander@557	561	if (!hndl.IsValid())
dvander@557	562	{
dvander@557	563	return 0;
dvander@557	564	}
dvander@557	565
pred@2746	566	int ref = g_HL2.IndexToReference(hndl.GetEntryIndex());
pred@2746	567	return g_HL2.ReferenceToBCompatRef(ref);
dvander@557	568	}
dvander@557	569
dvander@1847	570	int CheckBaseHandle(CBaseHandle &hndl)
dvander@1847	571	{
dvander@1847	572	if (!hndl.IsValid())
dvander@1847	573	{
dvander@1847	574	return -1;
dvander@1847	575	}
dvander@1847	576
dvander@1847	577	int index = hndl.GetEntryIndex();
dvander@1847	578
dvander@1847	579	edict_t *pStoredEdict;
dvander@1847	580	CBaseEntity *pStoredEntity;
dvander@1847	581
fyrenmoo@2879	582	if (!IndexToAThings(index, &pStoredEntity, &pStoredEdict))
fyrenmoo@2879	583	{
fyrenmoo@2879	584	return -1;
fyrenmoo@2879	585	}
dvander@1847	586
dvander@1847	587	if (pStoredEdict == NULL \|\| pStoredEntity == NULL)
dvander@1847	588	{
dvander@1847	589	return -1;
dvander@1847	590	}
dvander@1847	591
dvander@1847	592	IServerEntity *pSE = pStoredEdict->GetIServerEntity();
dvander@1847	593
dvander@1847	594	if (pSE == NULL)
dvander@1847	595	{
dvander@1847	596	return -1;
dvander@1847	597	}
dvander@1847	598
dvander@1847	599	if (pSE->GetRefEHandle() != hndl)
dvander@1847	600	{
dvander@1847	601	return -1;
dvander@1847	602	}
dvander@1847	603
dvander@1847	604	return index;
dvander@1847	605	}
dvander@1847	606
dvander@1847	607	static cell_t GetEntDataEnt2(IPluginContext pContext, const cell_t params)
dvander@1847	608	{
fyrenmoo@2879	609	CBaseEntity *pEntity = GetEntity(params[1]);
dvander@1847	610
pred@2746	611	if (pEntity == NULL)
dvander@1847	612	{
pred@2746	613	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	614	}
dvander@1847	615
dvander@1847	616	int offset = params[2];
dvander@1847	617	if (offset <= 0 \|\| offset > 32768)
dvander@1847	618	{
dvander@1847	619	return pContext->ThrowNativeError("Offset %d is invalid", offset);
dvander@1847	620	}
dvander@1847	621
dvander@1847	622	CBaseHandle &hndl = (CBaseHandle )((uint8_t *)pEntity + offset);
skamonkey@3709	623	CBaseEntity *pHandleEntity = g_HL2.ReferenceToEntity(hndl.GetEntryIndex());
dvander@1847	624
skamonkey@3709	625	if (!pHandleEntity \|\| hndl != reinterpret_cast<IHandleEntity *>(pHandleEntity)->GetRefEHandle())
skamonkey@3708	626	return -1;
skamonkey@3708	627
skamonkey@3709	628	return g_HL2.EntityToBCompatRef(pHandleEntity);
dvander@1847	629	}
dvander@1847	630
dvander@1847	631	/* THIS GUY IS DEPRECATED. */
dvander@557	632	static cell_t SetEntDataEnt(IPluginContext pContext, const cell_t params)
dvander@557	633	{
dvander@557	634	CBaseEntity *pEntity;
fyrenmoo@2879	635	edict_t *pEdict;
dvander@557	636
fyrenmoo@2879	637	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@557	638	{
pred@2746	639	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@557	640	}
dvander@557	641
dvander@557	642	int offset = params[2];
dvander@1847	643	if (offset <= 0 \|\| offset > 32768)
dvander@557	644	{
dvander@557	645	return pContext->ThrowNativeError("Offset %d is invalid", offset);
dvander@557	646	}
dvander@557	647
dvander@557	648	CBaseHandle &hndl = (CBaseHandle )((uint8_t *)pEntity + offset);
dvander@557	649
pred@2748	650	if (params[3] == 0 \|\| (unsigned)params[3] == INVALID_EHANDLE_INDEX)
dvander@557	651	{
dvander@557	652	hndl.Set(NULL);
dvander@557	653	} else {
fyrenmoo@2879	654	CBaseEntity *pOther = GetEntity(params[3]);
pred@2746	655
pred@2746	656	if (!pOther)
dvander@557	657	{
pred@2746	658	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[3]), params[3]);
dvander@557	659	}
pred@2746	660
pred@2746	661	IHandleEntity pHandleEnt = (IHandleEntity )pOther;
pred@2746	662	hndl.Set(pHandleEnt);
dvander@557	663	}
dvander@557	664
pred@2746	665	if (params[4] && (pEdict != NULL))
dvander@561	666	{
dvander@685	667	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@561	668	}
dvander@561	669
dvander@557	670	return 1;
dvander@557	671	}
dvander@557	672
dvander@1847	673	static cell_t SetEntDataEnt2(IPluginContext pContext, const cell_t params)
dvander@1847	674	{
dvander@1847	675	CBaseEntity *pEntity;
fyrenmoo@2879	676	edict_t *pEdict;
dvander@1847	677
fyrenmoo@2879	678	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	679	{
pred@2746	680	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	681	}
dvander@1847	682
dvander@1847	683	int offset = params[2];
dvander@1847	684	if (offset <= 0 \|\| offset > 32768)
dvander@1847	685	{
dvander@1847	686	return pContext->ThrowNativeError("Offset %d is invalid", offset);
dvander@1847	687	}
dvander@1847	688
dvander@1847	689	CBaseHandle &hndl = (CBaseHandle )((uint8_t *)pEntity + offset);
dvander@1847	690
pred@2748	691	if ((unsigned)params[3] == INVALID_EHANDLE_INDEX)
dvander@1847	692	{
dvander@1847	693	hndl.Set(NULL);
dvander@1847	694	}
dvander@1847	695	else
dvander@1847	696	{
fyrenmoo@2879	697	CBaseEntity *pOther = GetEntity(params[3]);
pred@2746	698
pred@2746	699	if (!pOther)
dvander@1847	700	{
pred@2746	701	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[3]), params[3]);
dvander@1847	702	}
pred@2746	703
pred@2746	704	IHandleEntity pHandleEnt = (IHandleEntity )pOther;
pred@2746	705	hndl.Set(pHandleEnt);
dvander@1847	706	}
dvander@1847	707
pred@2746	708	if (params[4] && (pEdict != NULL))
dvander@1847	709	{
dvander@1847	710	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@1847	711	}
dvander@1847	712
dvander@1847	713	return 1;
dvander@1847	714	}
dvander@1847	715
dvander@558	716	static cell_t ChangeEdictState(IPluginContext pContext, const cell_t params)
dvander@558	717	{
dvander@558	718	edict_t *pEdict = GetEdict(params[1]);
dvander@558	719
dvander@558	720	if (!pEdict)
dvander@558	721	{
pred@2746	722	return pContext->ThrowNativeError("Edict %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@558	723	}
dvander@558	724
dvander@685	725	g_HL2.SetEdictStateChanged(pEdict, params[2]);
dvander@558	726
dvander@558	727	return 1;
dvander@558	728	}
dvander@558	729
dvander@561	730	static cell_t FindSendPropOffs(IPluginContext pContext, const cell_t params)
dvander@561	731	{
dvander@561	732	char cls, prop;
dvander@561	733	pContext->LocalToString(params[1], &cls);
dvander@561	734	pContext->LocalToString(params[2], &prop);
dvander@561	735
dvander@561	736	SendProp *pSend = g_HL2.FindInSendTable(cls, prop);
dvander@561	737
dvander@561	738	if (!pSend)
dvander@561	739	{
dvander@561	740	return -1;
dvander@561	741	}
dvander@561	742
dvander@561	743	return pSend->GetOffset();
dvander@561	744	}
dvander@561	745
dvander@1847	746	static cell_t FindSendPropInfo(IPluginContext pContext, const cell_t params)
dvander@1847	747	{
dvander@1847	748	char cls, prop;
dvander@1847	749	sm_sendprop_info_t info;
dvander@1847	750	cell_t pType, pBits, *pLocal;
dvander@1847	751
dvander@1847	752	pContext->LocalToString(params[1], &cls);
dvander@1847	753	pContext->LocalToString(params[2], &prop);
dvander@1847	754
dvander@1847	755	if (!g_HL2.FindSendPropInfo(cls, prop, &info))
dvander@1847	756	{
dvander@1847	757	return -1;
dvander@1847	758	}
dvander@1847	759
dvander@1847	760	pContext->LocalToPhysAddr(params[3], &pType);
dvander@1847	761	pContext->LocalToPhysAddr(params[4], &pBits);
dvander@1847	762	pContext->LocalToPhysAddr(params[5], &pLocal);
dvander@1847	763
dvander@1847	764	switch (info.prop->GetType())
dvander@1847	765	{
dvander@1847	766	case DPT_Int:
dvander@1847	767	{
dvander@1847	768	*pType = PropField_Integer;
dvander@1847	769	break;
dvander@1847	770	}
dvander@1847	771	case DPT_Float:
dvander@1847	772	{
dvander@1847	773	*pType = PropField_Float;
dvander@1847	774	break;
dvander@1847	775	}
dvander@1847	776	case DPT_String:
dvander@1847	777	{
dvander@1847	778	*pType = PropField_String;
dvander@1847	779	break;
dvander@1847	780	}
dvander@1847	781	case DPT_Vector:
dvander@1847	782	{
dvander@1847	783	*pType = PropField_Vector;
dvander@1847	784	break;
dvander@1847	785	}
dvander@1847	786	default:
dvander@1847	787	{
dvander@1847	788	*pType = PropField_Unsupported;
dvander@1847	789	break;
dvander@1847	790	}
dvander@1847	791	}
dvander@1847	792
dvander@1847	793	*pBits = info.prop->m_nBits;
dvander@1847	794	*pLocal = info.prop->GetOffset();
dvander@1847	795
dvander@1847	796	return info.actual_offset;
dvander@1847	797	}
dvander@1847	798
faluco@682	799	static cell_t FindDataMapOffs(IPluginContext pContext, const cell_t params)
faluco@682	800	{
faluco@682	801	CBaseEntity *pEntity;
faluco@682	802	datamap_t *pMap;
faluco@682	803	typedescription_t *td;
faluco@682	804	char *offset;
fyrenmoo@2879	805	pEntity = GetEntity(params[1]);
faluco@682	806
pred@2746	807	if (!pEntity)
faluco@682	808	{
pred@2746	809	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
faluco@682	810	}
faluco@682	811
faluco@682	812	if ((pMap=CBaseEntity_GetDataDescMap(pEntity)) == NULL)
faluco@682	813	{
faluco@682	814	return pContext->ThrowNativeError("Unable to retrieve GetDataDescMap offset");
faluco@682	815	}
faluco@682	816
faluco@682	817	pContext->LocalToString(params[2], &offset);
faluco@682	818	if ((td=g_HL2.FindInDataMap(pMap, offset)) == NULL)
faluco@682	819	{
faluco@682	820	return -1;
faluco@682	821	}
faluco@682	822
dvander@1847	823	if (params[0] == 4)
dvander@1847	824	{
dvander@1847	825	cell_t pType, pSize;
dvander@1847	826
dvander@1847	827	pContext->LocalToPhysAddr(params[3], &pType);
dvander@1847	828	pContext->LocalToPhysAddr(params[4], &pSize);
dvander@1847	829
dvander@1847	830	switch (td->fieldType)
dvander@1847	831	{
dvander@1847	832	case FIELD_TICK:
dvander@1847	833	case FIELD_MODELINDEX:
dvander@1847	834	case FIELD_MATERIALINDEX:
dvander@1847	835	case FIELD_INTEGER:
dvander@1847	836	case FIELD_COLOR32:
dvander@1847	837	{
dvander@1847	838	*pType = PropField_Integer;
dvander@1847	839	*pSize = 32;
dvander@1847	840	break;
dvander@1847	841	}
dvander@1847	842	case FIELD_VECTOR:
dvander@1847	843	case FIELD_POSITION_VECTOR:
dvander@1847	844	{
dvander@1847	845	*pType = PropField_Vector;
dvander@1847	846	*pSize = 12;
dvander@1847	847	break;
dvander@1847	848	}
dvander@1847	849	case FIELD_SHORT:
dvander@1847	850	{
dvander@1847	851	*pType = PropField_Integer;
dvander@1847	852	*pSize = 16;
dvander@1847	853	break;
dvander@1847	854	}
dvander@1847	855	case FIELD_BOOLEAN:
dvander@1847	856	{
dvander@1847	857	*pType = PropField_Integer;
dvander@1847	858	*pSize = 1;
dvander@1847	859	break;
dvander@1847	860	}
dvander@1847	861	case FIELD_CHARACTER:
dvander@1847	862	{
dvander@1847	863	if (td->fieldSize == 1)
dvander@1847	864	{
dvander@1847	865	*pType = PropField_Integer;
dvander@1847	866	*pSize = 8;
dvander@1847	867	}
dvander@1847	868	else
dvander@1847	869	{
dvander@1847	870	*pType = PropField_String;
dvander@1847	871	pSize = 8 td->fieldSize;
dvander@1847	872	}
dvander@1847	873	break;
dvander@1847	874	}
dvander@1900	875	case FIELD_MODELNAME:
dvander@1900	876	case FIELD_SOUNDNAME:
dvander@1884	877	case FIELD_STRING:
dvander@1884	878	{
dvander@1884	879	*pSize = sizeof(string_t);
dvander@1884	880	*pType = PropField_String_T;
dvander@1884	881	break;
dvander@1884	882	}
dvander@1847	883	case FIELD_FLOAT:
dvander@1847	884	case FIELD_TIME:
dvander@1847	885	{
dvander@1847	886	*pType = PropField_Float;
dvander@1847	887	*pSize = 32;
dvander@1847	888	break;
dvander@1847	889	}
dvander@1847	890	case FIELD_EHANDLE:
dvander@1847	891	{
dvander@1847	892	*pType = PropField_Entity;
dvander@1847	893	*pSize = 32;
dvander@1847	894	break;
dvander@1847	895	}
dvander@1847	896	default:
dvander@1847	897	{
dvander@1847	898	*pType = PropField_Unsupported;
dvander@1847	899	*pSize = 0;
dvander@1847	900	}
dvander@1847	901	}
dvander@1847	902	}
dvander@1847	903
ds@3099	904	return GetTypeDescOffs(td);
faluco@682	905	}
faluco@682	906
faluco@694	907	static cell_t GetEntDataString(IPluginContext pContext, const cell_t params)
faluco@694	908	{
fyrenmoo@2879	909	CBaseEntity *pEntity = GetEntity(params[1]);
faluco@694	910
pred@2746	911	if (!pEntity)
faluco@694	912	{
pred@2746	913	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
faluco@694	914	}
faluco@694	915
faluco@694	916	int offset = params[2];
faluco@694	917	if (offset < 0 \|\| offset > 32768)
faluco@694	918	{
faluco@694	919	return pContext->ThrowNativeError("Offset %d is invalid", offset);
faluco@694	920	}
faluco@694	921
faluco@694	922	size_t len;
faluco@694	923	char src = (char )((uint8_t *)pEntity + offset);
faluco@694	924	pContext->StringToLocalUTF8(params[3], params[4], src, &len);
faluco@694	925
faluco@694	926	return len;
faluco@694	927	}
faluco@694	928
faluco@694	929	static cell_t SetEntDataString(IPluginContext pContext, const cell_t params)
faluco@694	930	{
faluco@694	931	CBaseEntity *pEntity;
fyrenmoo@2879	932	edict_t *pEdict;
faluco@694	933
fyrenmoo@2879	934	if (!IndexToAThings(params[1], &pEntity, &pEdict))
faluco@694	935	{
pred@2746	936	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
faluco@694	937	}
faluco@694	938
faluco@694	939	int offset = params[2];
faluco@694	940	if (offset < 0 \|\| offset > 32768)
faluco@694	941	{
faluco@694	942	return pContext->ThrowNativeError("Offset %d is invalid", offset);
faluco@694	943	}
faluco@694	944
faluco@694	945	char *src;
faluco@694	946	char dest = (char )((uint8_t *)pEntity + offset);
faluco@694	947
faluco@694	948	pContext->LocalToString(params[3], &src);
faluco@694	949	size_t len = strncopy(dest, src, params[4]);
faluco@694	950
pred@2746	951	if (params[5] && (pEdict != NULL))
faluco@694	952	{
faluco@694	953	g_HL2.SetEdictStateChanged(pEdict, offset);
faluco@694	954	}
faluco@694	955
faluco@694	956	return len;
faluco@694	957	}
faluco@694	958
dvander@1847	959	#define FIND_PROP_DATA(td) \
dvander@1847	960	datamap_t *pMap; \
dvander@1847	961	if ((pMap = CBaseEntity_GetDataDescMap(pEntity)) == NULL) \
dvander@1847	962	{ \
dvander@1847	963	return pContext->ThrowNativeError("Could not retrieve datamap"); \
dvander@1847	964	} \
dvander@1847	965	if ((td = g_HL2.FindInDataMap(pMap, prop)) == NULL) \
dvander@1847	966	{ \
kyle@3638	967	const char *class_name = g_HL2.GetEntityClassname(pEntity); \
dvander@1847	968	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)", \
dvander@1847	969	prop, \
dvander@1847	970	params[1], \
kyle@3638	971	((class_name) ? class_name : "")); \
dvander@1847	972	}
dvander@1847	973
skamonkey@3293	974	#define CHECK_SET_PROP_DATA_OFFSET() \
skamonkey@3417	975	if (element < 0 \|\| element >= td->fieldSize) \
skamonkey@3293	976	{ \
skamonkey@3293	977	return pContext->ThrowNativeError("Element %d is out of bounds (Prop %s has %d elements).", \
skamonkey@3293	978	element, \
skamonkey@3293	979	prop, \
skamonkey@3293	980	td->fieldSize); \
skamonkey@3293	981	} \
skamonkey@3293	982	\
skamonkey@3293	983	offset = GetTypeDescOffs(td) + (element * (td->fieldSizeInBytes / td->fieldSize));
skamonkey@3293	984
skamonkey@3293	985	#define FIND_PROP_SEND(type, type_name) \
skamonkey@3293	986	sm_sendprop_info_t info;\
skamonkey@3762	987	SendProp *pProp; \
pred@2746	988	IServerUnknown pUnk = (IServerUnknown )pEntity; \
pred@2746	989	IServerNetworkable *pNet = pUnk->GetNetworkable(); \
dvander@1847	990	if (!pNet) \
dvander@1847	991	{ \
pred@2746	992	return pContext->ThrowNativeError("Edict %d (%d) is not networkable", g_HL2.ReferenceToIndex(params[1]), params[1]); \
dvander@1847	993	} \
skamonkey@3293	994	if (!g_HL2.FindSendPropInfo(pNet->GetServerClass()->GetName(), prop, &info)) \
dvander@1847	995	{ \
kyle@3638	996	const char *class_name = g_HL2.GetEntityClassname(pEntity); \
dvander@1847	997	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)", \
dvander@1847	998	prop, \
dvander@1847	999	params[1], \
kyle@3638	1000	((class_name) ? class_name : "")); \
skamonkey@3293	1001	} \
skamonkey@3293	1002	\
skamonkey@3293	1003	offset = info.actual_offset; \
skamonkey@3762	1004	pProp = info.prop; \
skamonkey@3762	1005	bit_count = pProp->m_nBits; \
skamonkey@3293	1006	\
skamonkey@3762	1007	switch (pProp->GetType()) \
skamonkey@3293	1008	{ \
skamonkey@3293	1009	case type: \
skamonkey@3293	1010	{ \
skamonkey@3417	1011	if (element != 0) \
skamonkey@3293	1012	{ \
skamonkey@3293	1013	return pContext->ThrowNativeError("SendProp %s is not an array. Element %d is invalid.", \
skamonkey@3293	1014	prop, \
skamonkey@3293	1015	element); \
skamonkey@3293	1016	} \
skamonkey@3293	1017	break; \
skamonkey@3293	1018	} \
skamonkey@3293	1019	case DPT_DataTable: \
skamonkey@3293	1020	{ \
skamonkey@3293	1021	FIND_PROP_SEND_IN_SENDTABLE(info, pProp, element, type, type_name); \
skamonkey@3293	1022	\
skamonkey@3293	1023	offset += pProp->GetOffset(); \
skamonkey@3293	1024	bit_count = pProp->m_nBits; \
skamonkey@3293	1025	break; \
skamonkey@3293	1026	} \
skamonkey@3293	1027	default: \
skamonkey@3293	1028	{ \
skamonkey@3293	1029	return pContext->ThrowNativeError("SendProp %s type is not " type_name " (%d != %d)", \
skamonkey@3293	1030	prop, \
skamonkey@3762	1031	pProp->GetType(), \
skamonkey@3293	1032	type); \
skamonkey@3293	1033	} \
skamonkey@3293	1034	} \
skamonkey@3293	1035
skamonkey@3293	1036	#define FIND_PROP_SEND_IN_SENDTABLE(info, pProp, element, type, type_name) \
skamonkey@3762	1037	SendTable *pTable = pProp->GetDataTable(); \
skamonkey@3293	1038	if (!pTable) \
skamonkey@3293	1039	{ \
skamonkey@3293	1040	return pContext->ThrowNativeError("Error looking up DataTable for prop %s", \
skamonkey@3293	1041	prop); \
skamonkey@3293	1042	} \
skamonkey@3293	1043	\
skamonkey@3293	1044	int elementCount = pTable->GetNumProps(); \
skamonkey@3417	1045	if (element < 0 \|\| element >= elementCount) \
skamonkey@3293	1046	{ \
skamonkey@3293	1047	return pContext->ThrowNativeError("Element %d is out of bounds (Prop %s has %d elements).", \
skamonkey@3293	1048	element, \
skamonkey@3293	1049	prop, \
skamonkey@3293	1050	elementCount); \
skamonkey@3293	1051	} \
skamonkey@3293	1052	\
skamonkey@3293	1053	pProp = pTable->GetProp(element); \
skamonkey@3293	1054	if (pProp->GetType() != type) \
skamonkey@3293	1055	{ \
skamonkey@3293	1056	return pContext->ThrowNativeError("SendProp %s type is not " type_name " ([%d,%d] != %d)", \
skamonkey@3293	1057	prop, \
skamonkey@3762	1058	pProp->GetType(), \
skamonkey@3762	1059	pProp->m_nBits, \
skamonkey@3293	1060	type); \
dvander@1847	1061	}
dvander@1847	1062
skamonkey@3293	1063
dvander@1847	1064	inline int MatchFieldAsInteger(int field_type)
dvander@1847	1065	{
dvander@1847	1066	switch (field_type)
dvander@1847	1067	{
dvander@1847	1068	case FIELD_TICK:
dvander@1847	1069	case FIELD_MODELINDEX:
dvander@1847	1070	case FIELD_MATERIALINDEX:
dvander@1847	1071	case FIELD_INTEGER:
dvander@1847	1072	case FIELD_COLOR32:
dvander@1847	1073	return 32;
dvander@1847	1074	case FIELD_SHORT:
dvander@1847	1075	return 16;
dvander@1847	1076	case FIELD_CHARACTER:
dvander@1847	1077	return 8;
dvander@1847	1078	case FIELD_BOOLEAN:
dvander@1847	1079	return 1;
dvander@1847	1080	default:
dvander@1847	1081	return 0;
dvander@1847	1082	}
dvander@1847	1083
dvander@1847	1084	return 0;
dvander@1847	1085	}
dvander@1847	1086
skamonkey@3293	1087	static cell_t GetEntPropArraySize(IPluginContext pContext, const cell_t params)
skamonkey@3293	1088	{
skamonkey@3293	1089	CBaseEntity *pEntity;
skamonkey@3293	1090	char *prop;
skamonkey@3293	1091	edict_t *pEdict;
skamonkey@3293	1092
skamonkey@3293	1093	if (!IndexToAThings(params[1], &pEntity, &pEdict))
skamonkey@3293	1094	{
skamonkey@3293	1095	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
skamonkey@3293	1096	}
skamonkey@3293	1097
skamonkey@3293	1098	pContext->LocalToString(params[3], &prop);
skamonkey@3293	1099
skamonkey@3293	1100	switch (params[2])
skamonkey@3293	1101	{
skamonkey@3293	1102	case Prop_Data:
skamonkey@3293	1103	{
skamonkey@3293	1104	typedescription_t *td;
skamonkey@3293	1105
skamonkey@3293	1106	FIND_PROP_DATA(td);
skamonkey@3293	1107
skamonkey@3293	1108	return td->fieldSize;
skamonkey@3293	1109	}
skamonkey@3293	1110	case Prop_Send:
skamonkey@3293	1111	{
skamonkey@3293	1112	sm_sendprop_info_t info;
skamonkey@3293	1113
skamonkey@3293	1114	IServerUnknown pUnk = (IServerUnknown )pEntity;
skamonkey@3293	1115	IServerNetworkable *pNet = pUnk->GetNetworkable();
skamonkey@3293	1116	if (!pNet)
skamonkey@3293	1117	{
skamonkey@3293	1118	return pContext->ThrowNativeError("Edict %d (%d) is not networkable", g_HL2.ReferenceToIndex(params[1]), params[1]);
skamonkey@3293	1119	}
skamonkey@3293	1120	if (!g_HL2.FindSendPropInfo(pNet->GetServerClass()->GetName(), prop, &info))
skamonkey@3293	1121	{
kyle@3638	1122	const char *class_name = g_HL2.GetEntityClassname(pEntity);
skamonkey@3293	1123	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)",
skamonkey@3293	1124	prop,
skamonkey@3293	1125	params[1],
kyle@3638	1126	((class_name) ? class_name : ""));
skamonkey@3293	1127	}
skamonkey@3293	1128
skamonkey@3293	1129	if (info.prop->GetType() != DPT_DataTable)
skamonkey@3293	1130	{
skamonkey@3293	1131	return 0;
skamonkey@3293	1132	}
skamonkey@3293	1133
skamonkey@3293	1134	SendTable *pTable = info.prop->GetDataTable();
skamonkey@3293	1135	if (!pTable)
skamonkey@3293	1136	{
skamonkey@3293	1137	return pContext->ThrowNativeError("Error looking up DataTable for prop %s", prop);
skamonkey@3293	1138	}
skamonkey@3293	1139
skamonkey@3293	1140	return pTable->GetNumProps();
skamonkey@3293	1141	}
skamonkey@3293	1142	default:
skamonkey@3293	1143	{
skamonkey@3293	1144	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
skamonkey@3293	1145	}
skamonkey@3293	1146	}
skamonkey@3293	1147
skamonkey@3293	1148	return 1;
skamonkey@3293	1149	}
skamonkey@3293	1150
dvander@1847	1151	static cell_t GetEntProp(IPluginContext pContext, const cell_t params)
dvander@1847	1152	{
dvander@1847	1153	CBaseEntity *pEntity;
dvander@1847	1154	char *prop;
dvander@1847	1155	int offset;
dvander@1847	1156	edict_t *pEdict;
dvander@1847	1157	int bit_count;
skamonkey@3398	1158	bool is_unsigned = false;
dvander@1847	1159
skamonkey@3293	1160	int element = 0;
skamonkey@3293	1161	if (params[0] >= 5)
skamonkey@3293	1162	{
skamonkey@3293	1163	element = params[5];
skamonkey@3293	1164	}
skamonkey@3293	1165
fyrenmoo@2879	1166	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1167	{
pred@2746	1168	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1169	}
dvander@1847	1170
dvander@1847	1171	pContext->LocalToString(params[3], &prop);
dvander@1847	1172
dvander@1847	1173	switch (params[2])
dvander@1847	1174	{
dvander@1847	1175	case Prop_Data:
dvander@1847	1176	{
dvander@1847	1177	typedescription_t *td;
dvander@1847	1178
dvander@1847	1179	FIND_PROP_DATA(td);
dvander@1847	1180
dvander@1847	1181	if ((bit_count = MatchFieldAsInteger(td->fieldType)) == 0)
dvander@1847	1182	{
dvander@1847	1183	return pContext->ThrowNativeError("Data field %s is not an integer (%d)",
dvander@1847	1184	prop,
dvander@1847	1185	td->fieldType);
dvander@1847	1186	}
dvander@1847	1187
skamonkey@3293	1188	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1189
dvander@1847	1190	break;
dvander@1847	1191	}
dvander@1847	1192	case Prop_Send:
dvander@1847	1193	{
skamonkey@3293	1194	FIND_PROP_SEND(DPT_Int, "integer");
skamonkey@3762	1195	is_unsigned = ((pProp->GetFlags() & SPROP_UNSIGNED) == SPROP_UNSIGNED);
skamonkey@3712	1196
skamonkey@3712	1197	// This isn't in CS:S yet, but will be, doesn't hurt to add now, and will save us a build later
skamonkey@3712	1198	#if SOURCE_ENGINE == SE_CSS \|\| SOURCE_ENGINE == SE_ORANGEBOXVALVE
skamonkey@3762	1199	if (pProp->GetFlags() & SPROP_VARINT)
skamonkey@3712	1200	{
skamonkey@3712	1201	bit_count = sizeof(int) * 8;
skamonkey@3712	1202	}
skamonkey@3712	1203	#endif
dvander@1847	1204	break;
dvander@1847	1205	}
dvander@1847	1206	default:
dvander@1847	1207	{
dvander@1847	1208	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1209	}
dvander@1847	1210	}
dvander@1847	1211
dvander@1847	1212	if (bit_count < 1)
dvander@1847	1213	{
dvander@1847	1214	bit_count = params[4] * 8;
dvander@1847	1215	}
dvander@1847	1216
dvander@1847	1217	if (bit_count >= 17)
dvander@1847	1218	{
dvander@1847	1219	return (int32_t )((uint8_t *)pEntity + offset);
dvander@1847	1220	}
dvander@1847	1221	else if (bit_count >= 9)
dvander@1847	1222	{
skamonkey@3398	1223	if (is_unsigned)
skamonkey@3398	1224	{
skamonkey@3398	1225	return (uint16_t )((uint8_t *)pEntity + offset);
skamonkey@3398	1226	}
skamonkey@3398	1227	else
skamonkey@3398	1228	{
skamonkey@3398	1229	return (int16_t )((uint8_t *)pEntity + offset);
skamonkey@3398	1230	}
dvander@1847	1231	}
dvander@1847	1232	else if (bit_count >= 2)
dvander@1847	1233	{
skamonkey@3398	1234	if (is_unsigned)
skamonkey@3398	1235	{
skamonkey@3398	1236	return (uint8_t )((uint8_t *)pEntity + offset);
skamonkey@3398	1237	}
skamonkey@3398	1238	else
skamonkey@3398	1239	{
skamonkey@3398	1240	return (int8_t )((uint8_t *)pEntity + offset);
skamonkey@3398	1241	}
dvander@1847	1242	}
dvander@1847	1243	else
dvander@1847	1244	{
dvander@1847	1245	return (bool )((uint8_t *)pEntity + offset) ? 1 : 0;
dvander@1847	1246	}
dvander@1847	1247
dvander@1847	1248	return 0;
dvander@1847	1249	}
dvander@1847	1250
dvander@1847	1251	static cell_t SetEntProp(IPluginContext pContext, const cell_t params)
faluco@694	1252	{
faluco@694	1253	CBaseEntity *pEntity;
faluco@694	1254	char *prop;
faluco@694	1255	int offset;
dvander@1847	1256	edict_t *pEdict;
dvander@1847	1257	int bit_count;
dvander@1847	1258
skamonkey@3293	1259	int element = 0;
skamonkey@3293	1260	if (params[0] >= 6)
skamonkey@3293	1261	{
skamonkey@3293	1262	element = params[6];
skamonkey@3293	1263	}
skamonkey@3293	1264
fyrenmoo@2879	1265	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1266	{
pred@2746	1267	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1268	}
dvander@1847	1269
dvander@1847	1270	pContext->LocalToString(params[3], &prop);
dvander@1847	1271
dvander@1847	1272	switch (params[2])
dvander@1847	1273	{
dvander@1847	1274	case Prop_Data:
dvander@1847	1275	{
dvander@1847	1276	typedescription_t *td;
dvander@1847	1277
dvander@1847	1278	FIND_PROP_DATA(td);
dvander@1847	1279
dvander@1847	1280	if ((bit_count = MatchFieldAsInteger(td->fieldType)) == 0)
dvander@1847	1281	{
dvander@1847	1282	return pContext->ThrowNativeError("Data field %s is not an integer (%d)",
dvander@1847	1283	prop,
dvander@1847	1284	td->fieldType);
dvander@1847	1285	}
dvander@1847	1286
skamonkey@3293	1287	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1288
dvander@1847	1289	break;
dvander@1847	1290	}
dvander@1847	1291	case Prop_Send:
dvander@1847	1292	{
skamonkey@3293	1293	FIND_PROP_SEND(DPT_Int, "integer");
skamonkey@3712	1294
skamonkey@3712	1295	// This isn't in CS:S yet, but will be, doesn't hurt to add now, and will save us a build later
skamonkey@3712	1296	#if SOURCE_ENGINE == SE_CSS \|\| SOURCE_ENGINE == SE_ORANGEBOXVALVE
skamonkey@3762	1297	if (pProp->GetFlags() & SPROP_VARINT)
skamonkey@3712	1298	{
skamonkey@3712	1299	bit_count = sizeof(int) * 8;
skamonkey@3712	1300	}
skamonkey@3712	1301	#endif
dvander@1847	1302	break;
dvander@1847	1303	}
dvander@1847	1304	default:
dvander@1847	1305	{
dvander@1847	1306	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1307	}
dvander@1847	1308	}
dvander@1847	1309
dvander@1847	1310	if (bit_count < 1)
dvander@1847	1311	{
dvander@1847	1312	bit_count = params[5] * 8;
dvander@1847	1313	}
dvander@1847	1314
dvander@1847	1315	if (bit_count >= 17)
dvander@1847	1316	{
dvander@1847	1317	(int32_t )((uint8_t *)pEntity + offset) = params[4];
dvander@1847	1318	}
dvander@1847	1319	else if (bit_count >= 9)
dvander@1847	1320	{
dvander@1847	1321	(int16_t )((uint8_t *)pEntity + offset) = (int16_t)params[4];
dvander@1847	1322	}
dvander@1847	1323	else if (bit_count >= 2)
dvander@1847	1324	{
dvander@1847	1325	(int8_t )((uint8_t *)pEntity + offset) = (int8_t)params[4];
dvander@1847	1326	}
dvander@1847	1327	else
dvander@1847	1328	{
dvander@1847	1329	(bool )((uint8_t *)pEntity + offset) = params[4] ? true : false;
dvander@1847	1330	}
skamonkey@3239	1331
skamonkey@3239	1332	if (params[2] == Prop_Send && (pEdict != NULL))
skamonkey@3239	1333	{
skamonkey@3239	1334	g_HL2.SetEdictStateChanged(pEdict, offset);
skamonkey@3239	1335	}
dvander@1847	1336
dvander@1847	1337	return 0;
dvander@1847	1338	}
dvander@1847	1339
dvander@1847	1340	static cell_t GetEntPropFloat(IPluginContext pContext, const cell_t params)
dvander@1847	1341	{
dvander@1847	1342	CBaseEntity *pEntity;
dvander@1847	1343	char *prop;
dvander@1847	1344	int offset;
skamonkey@3293	1345	int bit_count;
dvander@1847	1346	edict_t *pEdict;
dvander@1847	1347
skamonkey@3293	1348	int element = 0;
skamonkey@3293	1349	if (params[0] >= 4)
skamonkey@3293	1350	{
skamonkey@3293	1351	element = params[4];
skamonkey@3293	1352	}
skamonkey@3293	1353
fyrenmoo@2879	1354	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1355	{
pred@2746	1356	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1357	}
dvander@1847	1358
dvander@1847	1359	pContext->LocalToString(params[3], &prop);
dvander@1847	1360
dvander@1847	1361	switch (params[2])
dvander@1847	1362	{
dvander@1847	1363	case Prop_Data:
dvander@1847	1364	{
dvander@1847	1365	typedescription_t *td;
dvander@1847	1366
dvander@1847	1367	FIND_PROP_DATA(td);
dvander@1847	1368
dvander@1847	1369	if (td->fieldType != FIELD_FLOAT
dvander@1847	1370	&& td->fieldType != FIELD_TIME)
dvander@1847	1371	{
dvander@1847	1372	return pContext->ThrowNativeError("Data field %s is not a float (%d != [%d,%d])",
dvander@1847	1373	prop,
dvander@1847	1374	td->fieldType,
dvander@1847	1375	FIELD_FLOAT,
dvander@1847	1376	FIELD_TIME);
dvander@1847	1377	}
dvander@1847	1378
skamonkey@3293	1379	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1380
dvander@1847	1381	break;
dvander@1847	1382	}
dvander@1847	1383	case Prop_Send:
dvander@1847	1384	{
skamonkey@3293	1385	FIND_PROP_SEND(DPT_Float, "float");
dvander@1847	1386	break;
dvander@1847	1387	}
dvander@1847	1388	default:
dvander@1847	1389	{
dvander@1847	1390	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1391	}
dvander@1847	1392	}
dvander@1847	1393
dvander@1847	1394	float val = (float )((uint8_t *)pEntity + offset);
dvander@1847	1395
dvander@1847	1396	return sp_ftoc(val);
dvander@1847	1397	}
dvander@1847	1398
dvander@1847	1399	static cell_t SetEntPropFloat(IPluginContext pContext, const cell_t params)
dvander@1847	1400	{
dvander@1847	1401	CBaseEntity *pEntity;
dvander@1847	1402	char *prop;
dvander@1847	1403	int offset;
skamonkey@3293	1404	int bit_count;
dvander@1847	1405	edict_t *pEdict;
dvander@1847	1406
skamonkey@3293	1407	int element = 0;
skamonkey@3293	1408	if (params[0] >= 5)
skamonkey@3293	1409	{
skamonkey@3293	1410	element = params[5];
skamonkey@3293	1411	}
skamonkey@3293	1412
fyrenmoo@2879	1413	if (!IndexToAThings(params[1], &pEntity, &pEdict))
faluco@694	1414	{
pred@2746	1415	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
faluco@694	1416	}
faluco@694	1417
dvander@1847	1418	pContext->LocalToString(params[3], &prop);
dvander@1847	1419
faluco@694	1420	switch (params[2])
faluco@694	1421	{
faluco@694	1422	case Prop_Data:
faluco@694	1423	{
faluco@694	1424	typedescription_t *td;
dvander@1847	1425
dvander@1847	1426	FIND_PROP_DATA(td);
dvander@1847	1427
dvander@1847	1428	if (td->fieldType != FIELD_FLOAT
dvander@1847	1429	&& td->fieldType != FIELD_TIME)
faluco@694	1430	{
dvander@1847	1431	return pContext->ThrowNativeError("Data field %s is not a float (%d != [%d,%d])",
dvander@1847	1432	prop,
dvander@1847	1433	td->fieldType,
dvander@1847	1434	FIELD_FLOAT,
dvander@1847	1435	FIELD_TIME);
dvander@1847	1436	}
dvander@1847	1437
skamonkey@3293	1438	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1439
dvander@1847	1440	break;
dvander@1847	1441	}
dvander@1847	1442	case Prop_Send:
dvander@1847	1443	{
skamonkey@3293	1444	FIND_PROP_SEND(DPT_Float, "float");
dvander@1847	1445	break;
dvander@1847	1446	}
dvander@1847	1447	default:
dvander@1847	1448	{
dvander@1847	1449	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1450	}
dvander@1847	1451	}
dvander@1847	1452
dvander@1847	1453	(float )((uint8_t *)pEntity + offset) = sp_ctof(params[4]);
dvander@1847	1454
pred@2746	1455	if (params[2] == Prop_Send && (pEdict != NULL))
dvander@1847	1456	{
dvander@1847	1457	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@1847	1458	}
dvander@1847	1459
dvander@1847	1460	return 1;
dvander@1847	1461	}
dvander@1847	1462
dvander@1847	1463	static cell_t GetEntPropEnt(IPluginContext pContext, const cell_t params)
dvander@1847	1464	{
dvander@1847	1465	CBaseEntity *pEntity;
dvander@1847	1466	char *prop;
dvander@1847	1467	int offset;
skamonkey@3293	1468	int bit_count;
dvander@1847	1469	edict_t *pEdict;
dvander@1847	1470
skamonkey@3293	1471	int element = 0;
skamonkey@3293	1472	if (params[0] >= 4)
skamonkey@3293	1473	{
skamonkey@3293	1474	element = params[4];
skamonkey@3293	1475	}
skamonkey@3293	1476
fyrenmoo@2879	1477	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1478	{
pred@2746	1479	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1480	}
dvander@1847	1481
dvander@1847	1482	pContext->LocalToString(params[3], &prop);
dvander@1847	1483
dvander@1847	1484	switch (params[2])
dvander@1847	1485	{
dvander@1847	1486	case Prop_Data:
dvander@1847	1487	{
dvander@1847	1488	typedescription_t *td;
dvander@1847	1489
dvander@1847	1490	FIND_PROP_DATA(td);
dvander@1847	1491
dvander@1847	1492	if (td->fieldType != FIELD_EHANDLE)
faluco@694	1493	{
dvander@1847	1494	return pContext->ThrowNativeError("Data field %s is not an entity (%d != %d)",
dvander@1847	1495	prop,
dvander@1847	1496	td->fieldType,
dvander@1847	1497	FIELD_EHANDLE);
faluco@694	1498	}
dvander@1847	1499
skamonkey@3293	1500	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1501
dvander@1847	1502	break;
dvander@1847	1503	}
dvander@1847	1504	case Prop_Send:
dvander@1847	1505	{
skamonkey@3293	1506	FIND_PROP_SEND(DPT_Int, "integer");
dvander@1847	1507	break;
dvander@1847	1508	}
dvander@1847	1509	default:
dvander@1847	1510	{
dvander@1847	1511	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1512	}
dvander@1847	1513	}
dvander@1847	1514
dvander@1847	1515	CBaseHandle &hndl = (CBaseHandle )((uint8_t *)pEntity + offset);
skamonkey@3709	1516	CBaseEntity *pHandleEntity = g_HL2.ReferenceToEntity(hndl.GetEntryIndex());
dvander@1847	1517
skamonkey@3709	1518	if (!pHandleEntity \|\| hndl != reinterpret_cast<IHandleEntity *>(pHandleEntity)->GetRefEHandle())
skamonkey@3708	1519	return -1;
skamonkey@3708	1520
skamonkey@3709	1521	return g_HL2.EntityToBCompatRef(pHandleEntity);
dvander@1847	1522	}
dvander@1847	1523
dvander@1847	1524	static cell_t SetEntPropEnt(IPluginContext pContext, const cell_t params)
dvander@1847	1525	{
dvander@1847	1526	CBaseEntity *pEntity;
dvander@1847	1527	char *prop;
dvander@1847	1528	int offset;
skamonkey@3293	1529	int bit_count;
dvander@1847	1530	edict_t *pEdict;
dvander@1847	1531
skamonkey@3293	1532	int element = 0;
skamonkey@3293	1533	if (params[0] >= 5)
skamonkey@3293	1534	{
skamonkey@3293	1535	element = params[5];
skamonkey@3293	1536	}
skamonkey@3293	1537
fyrenmoo@2879	1538	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1539	{
pred@2746	1540	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1541	}
dvander@1847	1542
dvander@1847	1543	pContext->LocalToString(params[3], &prop);
dvander@1847	1544
dvander@1847	1545	switch (params[2])
dvander@1847	1546	{
dvander@1847	1547	case Prop_Data:
dvander@1847	1548	{
dvander@1847	1549	typedescription_t *td;
dvander@1847	1550
dvander@1847	1551	FIND_PROP_DATA(td);
dvander@1847	1552
dvander@1847	1553	if (td->fieldType != FIELD_EHANDLE)
dvander@1847	1554	{
dvander@1847	1555	return pContext->ThrowNativeError("Data field %s is not an entity (%d != %d)",
dvander@1847	1556	prop,
dvander@1847	1557	td->fieldType,
dvander@1847	1558	FIELD_EHANDLE);
dvander@1847	1559	}
dvander@1847	1560
skamonkey@3293	1561	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1562
faluco@694	1563	break;
faluco@694	1564	}
faluco@694	1565	case Prop_Send:
faluco@694	1566	{
skamonkey@3293	1567	FIND_PROP_SEND(DPT_Int, "integer");
dvander@1847	1568	break;
dvander@1847	1569	}
dvander@1847	1570	default:
dvander@1847	1571	{
dvander@1847	1572	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1573	}
dvander@1847	1574	}
dvander@1847	1575
dvander@1847	1576	CBaseHandle &hndl = (CBaseHandle )((uint8_t *)pEntity + offset);
dvander@1847	1577
dvander@1847	1578	if (params[4] == -1)
dvander@1847	1579	{
dvander@1847	1580	hndl.Set(NULL);
dvander@1847	1581	}
dvander@1847	1582	else
dvander@1847	1583	{
fyrenmoo@2879	1584	CBaseEntity *pOther = GetEntity(params[4]);
dvander@1847	1585
pred@2746	1586	if (!pOther)
dvander@1847	1587	{
pred@2746	1588	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[4]), params[4]);
dvander@1847	1589	}
dvander@1847	1590
pred@2746	1591	IHandleEntity pHandleEnt = (IHandleEntity )pOther;
pred@2746	1592	hndl.Set(pHandleEnt);
dvander@1847	1593	}
dvander@1847	1594
pred@2746	1595	if (params[2] == Prop_Send && (pEdict != NULL))
dvander@1847	1596	{
dvander@1847	1597	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@1847	1598	}
dvander@1847	1599
dvander@1847	1600	return 1;
dvander@1847	1601	}
dvander@1847	1602
dvander@1847	1603	static cell_t GetEntPropVector(IPluginContext pContext, const cell_t params)
dvander@1847	1604	{
dvander@1847	1605	CBaseEntity *pEntity;
dvander@1847	1606	char *prop;
dvander@1847	1607	int offset;
skamonkey@3293	1608	int bit_count;
dvander@1847	1609	edict_t *pEdict;
skamonkey@3293	1610
skamonkey@3293	1611	int element = 0;
skamonkey@3293	1612	if (params[0] >= 5)
skamonkey@3293	1613	{
skamonkey@3293	1614	element = params[5];
skamonkey@3293	1615	}
dvander@1847	1616
fyrenmoo@2879	1617	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1618	{
pred@2746	1619	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1620	}
dvander@1847	1621
dvander@1847	1622	pContext->LocalToString(params[3], &prop);
dvander@1847	1623
dvander@1847	1624	switch (params[2])
dvander@1847	1625	{
dvander@1847	1626	case Prop_Data:
dvander@1847	1627	{
dvander@1847	1628	typedescription_t *td;
dvander@1847	1629
dvander@1847	1630	FIND_PROP_DATA(td);
dvander@1847	1631
dvander@1847	1632	if (td->fieldType != FIELD_VECTOR
dvander@1847	1633	&& td->fieldType != FIELD_POSITION_VECTOR)
dvander@1847	1634	{
dvander@1847	1635	return pContext->ThrowNativeError("Data field %s is not a vector (%d != [%d,%d])",
dvander@1847	1636	prop,
dvander@1847	1637	td->fieldType,
dvander@1847	1638	FIELD_VECTOR,
dvander@1847	1639	FIELD_POSITION_VECTOR);
dvander@1847	1640	}
dvander@1847	1641
skamonkey@3293	1642	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1643
dvander@1847	1644	break;
dvander@1847	1645	}
dvander@1847	1646	case Prop_Send:
dvander@1847	1647	{
skamonkey@3293	1648	FIND_PROP_SEND(DPT_Vector, "vector");
dvander@1847	1649	break;
dvander@1847	1650	}
dvander@1847	1651	default:
dvander@1847	1652	{
dvander@1847	1653	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1654	}
dvander@1847	1655	}
dvander@1847	1656
dvander@1847	1657	Vector v = (Vector )((uint8_t *)pEntity + offset);
dvander@1847	1658
dvander@1847	1659	cell_t *vec;
dvander@1847	1660	pContext->LocalToPhysAddr(params[4], &vec);
dvander@1847	1661
dvander@1847	1662	vec[0] = sp_ftoc(v->x);
dvander@1847	1663	vec[1] = sp_ftoc(v->y);
dvander@1847	1664	vec[2] = sp_ftoc(v->z);
dvander@1847	1665
dvander@1847	1666	return 1;
dvander@1847	1667	}
dvander@1847	1668
dvander@1847	1669	static cell_t SetEntPropVector(IPluginContext pContext, const cell_t params)
dvander@1847	1670	{
dvander@1847	1671	CBaseEntity *pEntity;
dvander@1847	1672	char *prop;
dvander@1847	1673	int offset;
skamonkey@3293	1674	int bit_count;
dvander@1847	1675	edict_t *pEdict;
skamonkey@3293	1676
skamonkey@3293	1677	int element = 0;
skamonkey@3293	1678	if (params[0] >= 5)
skamonkey@3293	1679	{
skamonkey@3293	1680	element = params[5];
skamonkey@3293	1681	}
dvander@1847	1682
fyrenmoo@2879	1683	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1684	{
pred@2746	1685	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1686	}
dvander@1847	1687
dvander@1847	1688	pContext->LocalToString(params[3], &prop);
dvander@1847	1689
dvander@1847	1690	switch (params[2])
dvander@1847	1691	{
dvander@1847	1692	case Prop_Data:
dvander@1847	1693	{
dvander@1847	1694	typedescription_t *td;
dvander@1847	1695
dvander@1847	1696	FIND_PROP_DATA(td);
dvander@1847	1697
dvander@1847	1698	if (td->fieldType != FIELD_VECTOR
dvander@1847	1699	&& td->fieldType != FIELD_POSITION_VECTOR)
faluco@694	1700	{
dvander@1847	1701	return pContext->ThrowNativeError("Data field %s is not a vector (%d != [%d,%d])",
dvander@1847	1702	prop,
dvander@1847	1703	td->fieldType,
dvander@1847	1704	FIELD_VECTOR,
dvander@1847	1705	FIELD_POSITION_VECTOR);
dvander@1847	1706	}
dvander@1847	1707
skamonkey@3293	1708	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1709
dvander@1847	1710	break;
dvander@1847	1711	}
dvander@1847	1712	case Prop_Send:
dvander@1847	1713	{
skamonkey@3293	1714	FIND_PROP_SEND(DPT_Vector, "vector");
dvander@1847	1715	break;
dvander@1847	1716	}
dvander@1847	1717	default:
dvander@1847	1718	{
dvander@1847	1719	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1720	}
dvander@1847	1721	}
dvander@1847	1722
dvander@1847	1723	Vector v = (Vector )((uint8_t *)pEntity + offset);
dvander@1847	1724
dvander@1847	1725	cell_t *vec;
dvander@1847	1726	pContext->LocalToPhysAddr(params[4], &vec);
dvander@1847	1727
dvander@1847	1728	v->x = sp_ctof(vec[0]);
dvander@1847	1729	v->y = sp_ctof(vec[1]);
dvander@1847	1730	v->z = sp_ctof(vec[2]);
dvander@1847	1731
pred@2746	1732	if (params[2] == Prop_Send && (pEdict != NULL))
dvander@1847	1733	{
dvander@1847	1734	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@1847	1735	}
dvander@1847	1736
dvander@1847	1737	return 1;
dvander@1847	1738	}
dvander@1847	1739
dvander@1847	1740	static cell_t GetEntPropString(IPluginContext pContext, const cell_t params)
dvander@1847	1741	{
dvander@1847	1742	CBaseEntity *pEntity;
dvander@1847	1743	char *prop;
dvander@1847	1744	int offset;
dvander@1847	1745	edict_t *pEdict;
dvander@1884	1746	bool bIsStringIndex;
skamonkey@3293	1747
skamonkey@3293	1748	int element = 0;
skamonkey@3293	1749	if (params[0] >= 6)
skamonkey@3293	1750	{
skamonkey@3293	1751	element = params[6];
skamonkey@3293	1752	}
dvander@1847	1753
fyrenmoo@2879	1754	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1755	{
pred@2746	1756	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1757	}
dvander@1847	1758
dvander@1847	1759	pContext->LocalToString(params[3], &prop);
dvander@1847	1760
dvander@1884	1761	bIsStringIndex = false;
dvander@1884	1762
dvander@1847	1763	switch (params[2])
dvander@1847	1764	{
dvander@1847	1765	case Prop_Data:
dvander@1847	1766	{
dvander@1847	1767	typedescription_t *td;
dvander@1847	1768
dvander@1847	1769	FIND_PROP_DATA(td);
dvander@1847	1770
dvander@1884	1771	if (td->fieldType != FIELD_CHARACTER
dvander@1900	1772	&& td->fieldType != FIELD_STRING
dvander@1900	1773	&& td->fieldType != FIELD_MODELNAME
dvander@1900	1774	&& td->fieldType != FIELD_SOUNDNAME)
faluco@694	1775	{
dvander@1847	1776	return pContext->ThrowNativeError("Data field %s is not a string (%d != %d)",
dvander@1847	1777	prop,
dvander@1847	1778	td->fieldType,
dvander@1847	1779	FIELD_CHARACTER);
faluco@694	1780	}
dvander@1847	1781
dvander@1900	1782	bIsStringIndex = (td->fieldType != FIELD_CHARACTER);
dvander@1884	1783
skamonkey@3417	1784	if (bIsStringIndex && (element < 0 \|\| element >= td->fieldSize))
skamonkey@3293	1785	{
skamonkey@3293	1786	return pContext->ThrowNativeError("Element %d is out of bounds (Prop %s has %d elements).",
skamonkey@3293	1787	element,
skamonkey@3293	1788	prop,
skamonkey@3293	1789	td->fieldSize);
skamonkey@3293	1790	}
skamonkey@3417	1791	else if (element != 0)
skamonkey@3293	1792	{
skamonkey@3293	1793	return pContext->ThrowNativeError("Prop %s is not an array. Element %d is invalid.",
skamonkey@3293	1794	prop,
skamonkey@3293	1795	element);
skamonkey@3293	1796	}
skamonkey@3293	1797
ds@3099	1798	offset = GetTypeDescOffs(td);
skamonkey@3293	1799	if (bIsStringIndex)
skamonkey@3293	1800	{
skamonkey@3293	1801	offset += (element * (td->fieldSizeInBytes / td->fieldSize));
skamonkey@3293	1802	}
dvander@1847	1803	break;
dvander@1847	1804	}
dvander@1847	1805	case Prop_Send:
dvander@1847	1806	{
dvander@1847	1807	sm_sendprop_info_t info;
skamonkey@3293	1808
skamonkey@3293	1809	IServerUnknown pUnk = (IServerUnknown )pEntity;
skamonkey@3293	1810	IServerNetworkable *pNet = pUnk->GetNetworkable();
skamonkey@3293	1811	if (!pNet)
skamonkey@3293	1812	{
skamonkey@3293	1813	return pContext->ThrowNativeError("Edict %d (%d) is not networkable", g_HL2.ReferenceToIndex(params[1]), params[1]);
skamonkey@3293	1814	}
skamonkey@3293	1815	if (!g_HL2.FindSendPropInfo(pNet->GetServerClass()->GetName(), prop, &info))
skamonkey@3293	1816	{
kyle@3638	1817	const char *class_name = g_HL2.GetEntityClassname(pEntity);
skamonkey@3293	1818	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)",
skamonkey@3293	1819	prop,
skamonkey@3293	1820	params[1],
kyle@3638	1821	((class_name) ? class_name : ""));
skamonkey@3293	1822	}
dvander@1847	1823
skamonkey@3293	1824	offset = info.actual_offset;
dvander@1847	1825
dvander@1847	1826	if (info.prop->GetType() != DPT_String)
dvander@1847	1827	{
dvander@1847	1828	return pContext->ThrowNativeError("SendProp %s is not a string (%d != %d)",
dvander@1847	1829	prop,
dvander@1847	1830	info.prop->GetType(),
dvander@1847	1831	DPT_String);
dvander@1847	1832	}
skamonkey@3417	1833	else if (element != 0)
skamonkey@3293	1834	{
skamonkey@3293	1835	return pContext->ThrowNativeError("SendProp %s is not an array. Element %d is invalid.",
skamonkey@3293	1836	prop,
skamonkey@3293	1837	element);
skamonkey@3293	1838	}
skamonkey@3293	1839
faluco@694	1840	break;
faluco@694	1841	}
faluco@694	1842	default:
faluco@694	1843	{
faluco@694	1844	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
faluco@694	1845	}
faluco@694	1846	}
faluco@694	1847
faluco@694	1848	size_t len;
dvander@1884	1849	const char *src;
dvander@1884	1850
dvander@1884	1851	if (!bIsStringIndex)
dvander@1884	1852	{
dvander@1884	1853	src = (char )((uint8_t )pEntity + offset);
dvander@1884	1854	}
dvander@1884	1855	else
dvander@1884	1856	{
dvander@1884	1857	string_t idx;
dvander@1884	1858
dvander@1884	1859	idx = (string_t )((uint8_t *)pEntity + offset);
dvander@1884	1860	src = (idx == NULL_STRING) ? "" : STRING(idx);
dvander@1884	1861	}
dvander@1884	1862
faluco@694	1863	pContext->StringToLocalUTF8(params[4], params[5], src, &len);
faluco@694	1864
faluco@694	1865	return len;
faluco@694	1866	}
faluco@694	1867
faluco@694	1868	static cell_t SetEntPropString(IPluginContext pContext, const cell_t params)
faluco@694	1869	{
faluco@694	1870	CBaseEntity *pEntity;
faluco@694	1871	char *prop;
faluco@694	1872	int offset;
faluco@694	1873	int maxlen;
fyrenmoo@2879	1874	edict_t *pEdict;
faluco@694	1875
fyrenmoo@2879	1876	if (!IndexToAThings(params[1], &pEntity, &pEdict))
faluco@694	1877	{
pred@2746	1878	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
faluco@694	1879	}
faluco@694	1880
faluco@694	1881	switch (params[2])
faluco@694	1882	{
faluco@694	1883	case Prop_Data:
faluco@694	1884	{
faluco@694	1885	datamap_t *pMap;
faluco@694	1886	typedescription_t *td;
faluco@694	1887	if ((pMap=CBaseEntity_GetDataDescMap(pEntity)) == NULL)
faluco@694	1888	{
faluco@694	1889	return pContext->ThrowNativeError("Unable to retrieve GetDataDescMap offset");
faluco@694	1890	}
faluco@694	1891	pContext->LocalToString(params[3], &prop);
faluco@694	1892	if ((td=g_HL2.FindInDataMap(pMap, prop)) == NULL)
faluco@694	1893	{
faluco@694	1894	return pContext->ThrowNativeError("Property \"%s\" not found for entity %d", prop, params[1]);
faluco@694	1895	}
faluco@694	1896	if (td->fieldType != FIELD_CHARACTER)
faluco@694	1897	{
faluco@694	1898	return pContext->ThrowNativeError("Property \"%s\" is not a valid string", prop);
faluco@694	1899	}
ds@3099	1900	offset = GetTypeDescOffs(td);
faluco@694	1901	maxlen = td->fieldSize;
faluco@694	1902	break;
faluco@694	1903	}
faluco@694	1904	case Prop_Send:
faluco@694	1905	{
faluco@694	1906	char *prop;
pred@2746	1907	IServerUnknown pUnk = (IServerUnknown )pEntity;
pred@2746	1908	IServerNetworkable *pNet = pUnk->GetNetworkable();
faluco@694	1909	if (!pNet)
faluco@694	1910	{
faluco@694	1911	return pContext->ThrowNativeError("The edict is not networkable");
faluco@694	1912	}
faluco@694	1913	pContext->LocalToString(params[3], &prop);
faluco@694	1914	SendProp *pSend = g_HL2.FindInSendTable(pNet->GetServerClass()->GetName(), prop);
faluco@694	1915	if (!pSend)
faluco@694	1916	{
faluco@694	1917	return pContext->ThrowNativeError("Property \"%s\" not found for entity %d", prop, params[1]);
faluco@694	1918	}
faluco@694	1919	if (pSend->GetType() != DPT_String)
faluco@694	1920	{
faluco@694	1921	return pContext->ThrowNativeError("Property \"%s\" is not a valid string", prop);
faluco@694	1922	}
faluco@694	1923	offset = pSend->GetOffset();
faluco@694	1924	maxlen = DT_MAX_STRING_BUFFERSIZE;
faluco@694	1925	break;
faluco@694	1926	}
faluco@694	1927	default:
faluco@694	1928	{
faluco@694	1929	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
faluco@694	1930	}
faluco@694	1931	}
faluco@694	1932
faluco@694	1933	char *src;
faluco@694	1934	char dest = (char )((uint8_t *)pEntity + offset);
faluco@694	1935
faluco@694	1936	pContext->LocalToString(params[4], &src);
faluco@694	1937	size_t len = strncopy(dest, src, maxlen);
faluco@694	1938
pred@2746	1939	if (params[2] == Prop_Send && (pEdict != NULL))
faluco@694	1940	{
faluco@694	1941	g_HL2.SetEdictStateChanged(pEdict, offset);
faluco@694	1942	}
faluco@694	1943
faluco@694	1944	return len;
faluco@694	1945	}
faluco@694	1946
skamonkey@3220	1947	static int32_t SDKEntFlagToSMEntFlag(int flag)
skamonkey@3220	1948	{
skamonkey@3220	1949	switch (flag)
skamonkey@3220	1950	{
skamonkey@3220	1951	case FL_ONGROUND:
skamonkey@3220	1952	return ENTFLAG_ONGROUND;
skamonkey@3220	1953	case FL_DUCKING:
skamonkey@3220	1954	return ENTFLAG_DUCKING;
skamonkey@3220	1955	case FL_WATERJUMP:
skamonkey@3220	1956	return ENTFLAG_WATERJUMP;
skamonkey@3220	1957	case FL_ONTRAIN:
skamonkey@3220	1958	return ENTFLAG_ONTRAIN;
skamonkey@3220	1959	case FL_INRAIN:
skamonkey@3220	1960	return ENTFLAG_INRAIN;
skamonkey@3220	1961	case FL_FROZEN:
skamonkey@3220	1962	return ENTFLAG_FROZEN;
skamonkey@3220	1963	case FL_ATCONTROLS:
skamonkey@3220	1964	return ENTFLAG_ATCONTROLS;
skamonkey@3220	1965	case FL_CLIENT:
skamonkey@3220	1966	return ENTFLAG_CLIENT;
skamonkey@3220	1967	case FL_FAKECLIENT:
skamonkey@3220	1968	return ENTFLAG_FAKECLIENT;
skamonkey@3220	1969	case FL_INWATER:
skamonkey@3220	1970	return ENTFLAG_INWATER;
skamonkey@3220	1971	case FL_FLY:
skamonkey@3220	1972	return ENTFLAG_FLY;
skamonkey@3220	1973	case FL_SWIM:
skamonkey@3220	1974	return ENTFLAG_SWIM;
skamonkey@3220	1975	case FL_CONVEYOR:
skamonkey@3220	1976	return ENTFLAG_CONVEYOR;
skamonkey@3220	1977	case FL_NPC:
skamonkey@3220	1978	return ENTFLAG_NPC;
skamonkey@3220	1979	case FL_GODMODE:
skamonkey@3220	1980	return ENTFLAG_GODMODE;
skamonkey@3220	1981	case FL_NOTARGET:
skamonkey@3220	1982	return ENTFLAG_NOTARGET;
skamonkey@3220	1983	case FL_AIMTARGET:
skamonkey@3220	1984	return ENTFLAG_AIMTARGET;
skamonkey@3220	1985	case FL_PARTIALGROUND:
skamonkey@3220	1986	return ENTFLAG_PARTIALGROUND;
skamonkey@3220	1987	case FL_STATICPROP:
skamonkey@3220	1988	return ENTFLAG_STATICPROP;
skamonkey@3220	1989	case FL_GRAPHED:
skamonkey@3220	1990	return ENTFLAG_GRAPHED;
skamonkey@3220	1991	case FL_GRENADE:
skamonkey@3220	1992	return ENTFLAG_GRENADE;
skamonkey@3220	1993	case FL_STEPMOVEMENT:
skamonkey@3220	1994	return ENTFLAG_STEPMOVEMENT;
skamonkey@3220	1995	case FL_DONTTOUCH:
skamonkey@3220	1996	return ENTFLAG_DONTTOUCH;
skamonkey@3220	1997	case FL_BASEVELOCITY:
skamonkey@3220	1998	return ENTFLAG_BASEVELOCITY;
skamonkey@3220	1999	case FL_WORLDBRUSH:
skamonkey@3220	2000	return ENTFLAG_WORLDBRUSH;
skamonkey@3220	2001	case FL_OBJECT:
skamonkey@3220	2002	return ENTFLAG_OBJECT;
skamonkey@3220	2003	case FL_KILLME:
skamonkey@3220	2004	return ENTFLAG_KILLME;
skamonkey@3220	2005	case FL_ONFIRE:
skamonkey@3220	2006	return ENTFLAG_ONFIRE;
skamonkey@3220	2007	case FL_DISSOLVING:
skamonkey@3220	2008	return ENTFLAG_DISSOLVING;
skamonkey@3220	2009	case FL_TRANSRAGDOLL:
skamonkey@3220	2010	return ENTFLAG_TRANSRAGDOLL;
skamonkey@3220	2011	case FL_UNBLOCKABLE_BY_PLAYER:
skamonkey@3220	2012	return ENTFLAG_UNBLOCKABLE_BY_PLAYER;
skamonkey@3220	2013	#if SOURCE_ENGINE == SE_ALIENSWARM
skamonkey@3220	2014	case FL_FREEZING:
skamonkey@3220	2015	return ENTFLAG_FREEZING;
skamonkey@3613	2016	#elif SOURCE_ENGINE == SE_ORANGEBOXVALVE \|\| SOURCE_ENGINE == SE_CSS
skamonkey@3220	2017	case FL_EP2V_UNKNOWN:
skamonkey@3220	2018	return ENTFLAG_EP2V_UNKNOWN1;
skamonkey@3220	2019	#endif
skamonkey@3220	2020	default:
skamonkey@3220	2021	return 0;
skamonkey@3220	2022	}
skamonkey@3220	2023	}
skamonkey@3220	2024
skamonkey@3220	2025	static int32_t SMEntFlagToSDKEntFlag(int32_t flag)
skamonkey@3220	2026	{
skamonkey@3220	2027	switch (flag)
skamonkey@3220	2028	{
skamonkey@3220	2029	case ENTFLAG_ONGROUND:
skamonkey@3220	2030	return FL_ONGROUND;
skamonkey@3220	2031	case ENTFLAG_DUCKING:
skamonkey@3220	2032	return FL_DUCKING;
skamonkey@3220	2033	case ENTFLAG_WATERJUMP:
skamonkey@3220	2034	return FL_WATERJUMP;
skamonkey@3220	2035	case ENTFLAG_ONTRAIN:
skamonkey@3220	2036	return FL_ONTRAIN;
skamonkey@3220	2037	case ENTFLAG_INRAIN:
skamonkey@3220	2038	return FL_INRAIN;
skamonkey@3220	2039	case ENTFLAG_FROZEN:
skamonkey@3220	2040	return FL_FROZEN;
skamonkey@3220	2041	case ENTFLAG_ATCONTROLS:
skamonkey@3220	2042	return FL_ATCONTROLS;
skamonkey@3220	2043	case ENTFLAG_CLIENT:
skamonkey@3220	2044	return FL_CLIENT;
skamonkey@3220	2045	case ENTFLAG_FAKECLIENT:
skamonkey@3220	2046	return FL_FAKECLIENT;
skamonkey@3220	2047	case ENTFLAG_INWATER:
skamonkey@3220	2048	return FL_INWATER;
skamonkey@3220	2049	case ENTFLAG_FLY:
skamonkey@3220	2050	return FL_FLY;
skamonkey@3220	2051	case ENTFLAG_SWIM:
skamonkey@3220	2052	return FL_SWIM;
skamonkey@3220	2053	case ENTFLAG_CONVEYOR:
skamonkey@3220	2054	return FL_CONVEYOR;
skamonkey@3220	2055	case ENTFLAG_NPC:
skamonkey@3220	2056	return FL_NPC;
skamonkey@3220	2057	case ENTFLAG_GODMODE:
skamonkey@3220	2058	return FL_GODMODE;
skamonkey@3220	2059	case ENTFLAG_NOTARGET:
skamonkey@3220	2060	return FL_NOTARGET;
skamonkey@3220	2061	case ENTFLAG_AIMTARGET:
skamonkey@3220	2062	return FL_AIMTARGET;
skamonkey@3220	2063	case ENTFLAG_PARTIALGROUND:
skamonkey@3220	2064	return FL_PARTIALGROUND;
skamonkey@3220	2065	case ENTFLAG_STATICPROP:
skamonkey@3220	2066	return FL_STATICPROP;
skamonkey@3220	2067	case ENTFLAG_GRAPHED:
skamonkey@3220	2068	return FL_GRAPHED;
skamonkey@3220	2069	case ENTFLAG_GRENADE:
skamonkey@3220	2070	return FL_GRENADE;
skamonkey@3220	2071	case ENTFLAG_STEPMOVEMENT:
skamonkey@3220	2072	return FL_STEPMOVEMENT;
skamonkey@3220	2073	case ENTFLAG_DONTTOUCH:
skamonkey@3220	2074	return FL_DONTTOUCH;
skamonkey@3220	2075	case ENTFLAG_BASEVELOCITY:
skamonkey@3220	2076	return FL_BASEVELOCITY;
skamonkey@3220	2077	case ENTFLAG_WORLDBRUSH:
skamonkey@3220	2078	return FL_WORLDBRUSH;
skamonkey@3220	2079	case ENTFLAG_OBJECT:
skamonkey@3220	2080	return FL_OBJECT;
skamonkey@3220	2081	case ENTFLAG_KILLME:
skamonkey@3220	2082	return FL_KILLME;
skamonkey@3220	2083	case ENTFLAG_ONFIRE:
skamonkey@3220	2084	return FL_ONFIRE;
skamonkey@3220	2085	case ENTFLAG_DISSOLVING:
skamonkey@3220	2086	return FL_DISSOLVING;
skamonkey@3220	2087	case ENTFLAG_TRANSRAGDOLL:
skamonkey@3220	2088	return FL_TRANSRAGDOLL;
skamonkey@3220	2089	case ENTFLAG_UNBLOCKABLE_BY_PLAYER:
skamonkey@3220	2090	return FL_UNBLOCKABLE_BY_PLAYER;
skamonkey@3220	2091	#if SOURCE_ENGINE == SE_ALIENSWARM
skamonkey@3220	2092	case ENTFLAG_FREEZING:
skamonkey@3220	2093	return FL_FREEZING;
skamonkey@3613	2094	#elif SOURCE_ENGINE == SE_ORANGEBOXVALVE \|\| SOURCE_ENGINE == SE_CSS
skamonkey@3220	2095	case ENTFLAG_EP2V_UNKNOWN1:
skamonkey@3220	2096	return FL_EP2V_UNKNOWN;
skamonkey@3220	2097	#endif
skamonkey@3220	2098	default:
skamonkey@3220	2099	return 0;
skamonkey@3220	2100	}
skamonkey@3220	2101	}
skamonkey@3220	2102
skamonkey@3220	2103	static cell_t GetEntityFlags(IPluginContext pContext, const cell_t params)
skamonkey@3220	2104	{
skamonkey@3220	2105	CBaseEntity *pEntity = g_HL2.ReferenceToEntity(params[1]);
skamonkey@3220	2106	if (!pEntity)
skamonkey@3220	2107	{
skamonkey@3220	2108	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
skamonkey@3220	2109	}
skamonkey@3220	2110
skamonkey@3220	2111	const char *prop = g_pGameConf->GetKeyValue("m_fFlags");
skamonkey@3220	2112	if (!prop)
skamonkey@3220	2113	{
skamonkey@3220	2114	return pContext->ThrowNativeError("Could not find m_fFlags prop in gamedata");
skamonkey@3220	2115	}
skamonkey@3220	2116
skamonkey@3220	2117	typedescription_t *td;
skamonkey@3220	2118	datamap_t *pMap;
skamonkey@3220	2119
skamonkey@3220	2120	if ((pMap = CBaseEntity_GetDataDescMap(pEntity)) == NULL)
skamonkey@3220	2121	{
skamonkey@3220	2122	return pContext->ThrowNativeError("Could not retrieve datamap");
skamonkey@3220	2123	}
skamonkey@3220	2124	if ((td = g_HL2.FindInDataMap(pMap, prop)) == NULL)
skamonkey@3220	2125	{
skamonkey@3220	2126	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d)",
skamonkey@3220	2127	prop,
skamonkey@3220	2128	params[1]);
skamonkey@3220	2129	}
skamonkey@3220	2130
skamonkey@3220	2131	int offset = GetTypeDescOffs(td);
skamonkey@3220	2132
skamonkey@3220	2133	int32_t actual_flags = (int32_t )((uint8_t *)pEntity + offset);
skamonkey@3220	2134	int32_t sm_flags = 0;
skamonkey@3220	2135
skamonkey@3220	2136	for (int32_t i = 0; i < 32; i++)
skamonkey@3220	2137	{
skamonkey@3220	2138	int32_t flag = (1<<i);
skamonkey@3220	2139	if ((actual_flags & flag) == flag)
skamonkey@3220	2140	{
skamonkey@3220	2141	sm_flags \|= SDKEntFlagToSMEntFlag(flag);
skamonkey@3220	2142	}
skamonkey@3220	2143	}
skamonkey@3220	2144
skamonkey@3220	2145	return sm_flags;
skamonkey@3220	2146	}
skamonkey@3220	2147
skamonkey@3220	2148	static cell_t SetEntityFlags(IPluginContext pContext, const cell_t params)
skamonkey@3220	2149	{
skamonkey@3220	2150	CBaseEntity *pEntity = g_HL2.ReferenceToEntity(params[1]);
skamonkey@3220	2151	if (!pEntity)
skamonkey@3220	2152	{
skamonkey@3220	2153	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
skamonkey@3220	2154	}
skamonkey@3220	2155
skamonkey@3220	2156	const char *prop = g_pGameConf->GetKeyValue("m_fFlags");
skamonkey@3220	2157	if (!prop)
skamonkey@3220	2158	{
skamonkey@3220	2159	return pContext->ThrowNativeError("Could not find m_fFlags prop in gamedata");
skamonkey@3220	2160	}
skamonkey@3220	2161
skamonkey@3220	2162	typedescription_t *td;
skamonkey@3220	2163	datamap_t *pMap;
skamonkey@3220	2164
skamonkey@3220	2165	if ((pMap = CBaseEntity_GetDataDescMap(pEntity)) == NULL)
skamonkey@3220	2166	{
skamonkey@3220	2167	return pContext->ThrowNativeError("Could not retrieve datamap");
skamonkey@3220	2168	}
skamonkey@3220	2169	if ((td = g_HL2.FindInDataMap(pMap, prop)) == NULL)
skamonkey@3220	2170	{
skamonkey@3220	2171	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d)",
skamonkey@3220	2172	prop,
skamonkey@3220	2173	params[1]);
skamonkey@3220	2174	}
skamonkey@3220	2175
skamonkey@3220	2176	int offset = GetTypeDescOffs(td);
skamonkey@3220	2177
skamonkey@3220	2178	int32_t sm_flags = params[2];
skamonkey@3220	2179	int32_t actual_flags = 0;
skamonkey@3220	2180
skamonkey@3220	2181	for (int32_t i = 0; i < 32; i++)
skamonkey@3220	2182	{
skamonkey@3220	2183	int32_t flag = (1<<i);
skamonkey@3220	2184	if ((sm_flags & flag) == flag)
skamonkey@3220	2185	{
skamonkey@3220	2186	actual_flags \|= SMEntFlagToSDKEntFlag(flag);
skamonkey@3220	2187	}
skamonkey@3220	2188	}
skamonkey@3220	2189
skamonkey@3220	2190	(int32_t )((uint8_t *)pEntity + offset) = actual_flags;
skamonkey@3220	2191
skamonkey@3220	2192	return 0;
skamonkey@3220	2193	}
skamonkey@3220	2194
prodigysim@3585	2195	static cell_t GetEntityAddress(IPluginContext pContext, const cell_t params)
prodigysim@3585	2196	{
prodigysim@3585	2197	CBaseEntity * pEntity = GetEntity(params[1]);
prodigysim@3585	2198	if (!pEntity)
prodigysim@3585	2199	{
prodigysim@3585	2200	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
prodigysim@3585	2201	}
prodigysim@3585	2202	return reinterpret_cast<cell_t>(pEntity);
prodigysim@3585	2203	}
prodigysim@3585	2204
dvander@555	2205	REGISTER_NATIVES(entityNatives)
dvander@555	2206	{
dvander@558	2207	{"ChangeEdictState", ChangeEdictState},
dvander@555	2208	{"CreateEdict", CreateEdict},
dvander@1847	2209	{"FindDataMapOffs", FindDataMapOffs},
dvander@1847	2210	{"FindSendPropInfo", FindSendPropInfo},
dvander@561	2211	{"FindSendPropOffs", FindSendPropOffs},
dvander@556	2212	{"GetEdictClassname", GetEdictClassname},
dvander@555	2213	{"GetEdictFlags", GetEdictFlags},
dvander@557	2214	{"GetEntData", GetEntData},
dvander@1847	2215	{"GetEntDataEnt", GetEntDataEnt}, /** DEPRECATED */
dvander@1847	2216	{"GetEntDataEnt2", GetEntDataEnt2},
dvander@557	2217	{"GetEntDataFloat", GetEntDataFloat},
dvander@1847	2218	{"GetEntDataString", GetEntDataString},
dvander@557	2219	{"GetEntDataVector", GetEntDataVector},
dvander@1847	2220	{"GetEntProp", GetEntProp},
skamonkey@3293	2221	{"GetEntPropArraySize", GetEntPropArraySize},
dvander@1847	2222	{"GetEntPropEnt", GetEntPropEnt},
dvander@1847	2223	{"GetEntPropFloat", GetEntPropFloat},
dvander@1847	2224	{"GetEntPropString", GetEntPropString},
dvander@1847	2225	{"GetEntPropVector", GetEntPropVector},
dvander@603	2226	{"GetEntityCount", GetEntityCount},
skamonkey@3220	2227	{"GetEntityFlags", GetEntityFlags},
dvander@556	2228	{"GetEntityNetClass", GetEntityNetClass},
dvander@555	2229	{"GetMaxEntities", GetMaxEntities},
dvander@555	2230	{"IsEntNetworkable", IsEntNetworkable},
dvander@555	2231	{"IsValidEdict", IsValidEdict},
dvander@555	2232	{"IsValidEntity", IsValidEntity},
dvander@555	2233	{"RemoveEdict", RemoveEdict},
dvander@555	2234	{"SetEdictFlags", SetEdictFlags},
dvander@557	2235	{"SetEntData", SetEntData},
dvander@1847	2236	{"SetEntDataEnt", SetEntDataEnt}, /** DEPRECATED */
dvander@1847	2237	{"SetEntDataEnt2", SetEntDataEnt2},
dvander@557	2238	{"SetEntDataFloat", SetEntDataFloat},
dvander@557	2239	{"SetEntDataVector", SetEntDataVector},
faluco@694	2240	{"SetEntDataString", SetEntDataString},
skamonkey@3220	2241	{"SetEntityFlags", SetEntityFlags},
dvander@1847	2242	{"SetEntProp", SetEntProp},
dvander@1847	2243	{"SetEntPropEnt", SetEntPropEnt},
dvander@1847	2244	{"SetEntPropFloat", SetEntPropFloat},
faluco@694	2245	{"SetEntPropString", SetEntPropString},
dvander@1847	2246	{"SetEntPropVector", SetEntPropVector},
prodigysim@3585	2247	{"GetEntityAddress", GetEntityAddress},
faluco@588	2248	{NULL, NULL}
dvander@555	2249	};

author	David Anderson <dvander@alliedmods.net>
	Sat Feb 16 15:52:11 2013 -0800 (2013-02-16)
changeset 3791	47e1ee9cea86
parent 3762	0f6b4d692ed9
child 3806	c713139e894c
permissions	-rw-r--r--