sourcemod-central: core/smn_entities.cpp@fe179ff9a57a (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);
asherkin@3806	818	bool isNested = false;
asherkin@3806	819	if ((td=g_HL2.FindInDataMap(pMap, offset, &isNested)) == NULL)
faluco@682	820	{
asherkin@3806	821	if (isNested)
asherkin@3806	822	return pContext->ThrowNativeError("Property \"%s\" is not safe to access for entity %d", offset, params[1]);
asherkin@3806	823	else
asherkin@3806	824	return -1;
faluco@682	825	}
faluco@682	826
dvander@1847	827	if (params[0] == 4)
dvander@1847	828	{
dvander@1847	829	cell_t pType, pSize;
dvander@1847	830
dvander@1847	831	pContext->LocalToPhysAddr(params[3], &pType);
dvander@1847	832	pContext->LocalToPhysAddr(params[4], &pSize);
dvander@1847	833
dvander@1847	834	switch (td->fieldType)
dvander@1847	835	{
dvander@1847	836	case FIELD_TICK:
dvander@1847	837	case FIELD_MODELINDEX:
dvander@1847	838	case FIELD_MATERIALINDEX:
dvander@1847	839	case FIELD_INTEGER:
dvander@1847	840	case FIELD_COLOR32:
dvander@1847	841	{
dvander@1847	842	*pType = PropField_Integer;
dvander@1847	843	*pSize = 32;
dvander@1847	844	break;
dvander@1847	845	}
dvander@1847	846	case FIELD_VECTOR:
dvander@1847	847	case FIELD_POSITION_VECTOR:
dvander@1847	848	{
dvander@1847	849	*pType = PropField_Vector;
dvander@1847	850	*pSize = 12;
dvander@1847	851	break;
dvander@1847	852	}
dvander@1847	853	case FIELD_SHORT:
dvander@1847	854	{
dvander@1847	855	*pType = PropField_Integer;
dvander@1847	856	*pSize = 16;
dvander@1847	857	break;
dvander@1847	858	}
dvander@1847	859	case FIELD_BOOLEAN:
dvander@1847	860	{
dvander@1847	861	*pType = PropField_Integer;
dvander@1847	862	*pSize = 1;
dvander@1847	863	break;
dvander@1847	864	}
dvander@1847	865	case FIELD_CHARACTER:
dvander@1847	866	{
dvander@1847	867	if (td->fieldSize == 1)
dvander@1847	868	{
dvander@1847	869	*pType = PropField_Integer;
dvander@1847	870	*pSize = 8;
dvander@1847	871	}
dvander@1847	872	else
dvander@1847	873	{
dvander@1847	874	*pType = PropField_String;
dvander@1847	875	pSize = 8 td->fieldSize;
dvander@1847	876	}
dvander@1847	877	break;
dvander@1847	878	}
dvander@1900	879	case FIELD_MODELNAME:
dvander@1900	880	case FIELD_SOUNDNAME:
dvander@1884	881	case FIELD_STRING:
dvander@1884	882	{
dvander@1884	883	*pSize = sizeof(string_t);
dvander@1884	884	*pType = PropField_String_T;
dvander@1884	885	break;
dvander@1884	886	}
dvander@1847	887	case FIELD_FLOAT:
dvander@1847	888	case FIELD_TIME:
dvander@1847	889	{
dvander@1847	890	*pType = PropField_Float;
dvander@1847	891	*pSize = 32;
dvander@1847	892	break;
dvander@1847	893	}
dvander@1847	894	case FIELD_EHANDLE:
dvander@1847	895	{
dvander@1847	896	*pType = PropField_Entity;
dvander@1847	897	*pSize = 32;
dvander@1847	898	break;
dvander@1847	899	}
dvander@1847	900	default:
dvander@1847	901	{
dvander@1847	902	*pType = PropField_Unsupported;
dvander@1847	903	*pSize = 0;
dvander@1847	904	}
dvander@1847	905	}
dvander@1847	906	}
dvander@1847	907
ds@3099	908	return GetTypeDescOffs(td);
faluco@682	909	}
faluco@682	910
faluco@694	911	static cell_t GetEntDataString(IPluginContext pContext, const cell_t params)
faluco@694	912	{
fyrenmoo@2879	913	CBaseEntity *pEntity = GetEntity(params[1]);
faluco@694	914
pred@2746	915	if (!pEntity)
faluco@694	916	{
pred@2746	917	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
faluco@694	918	}
faluco@694	919
faluco@694	920	int offset = params[2];
faluco@694	921	if (offset < 0 \|\| offset > 32768)
faluco@694	922	{
faluco@694	923	return pContext->ThrowNativeError("Offset %d is invalid", offset);
faluco@694	924	}
faluco@694	925
faluco@694	926	size_t len;
faluco@694	927	char src = (char )((uint8_t *)pEntity + offset);
faluco@694	928	pContext->StringToLocalUTF8(params[3], params[4], src, &len);
faluco@694	929
faluco@694	930	return len;
faluco@694	931	}
faluco@694	932
faluco@694	933	static cell_t SetEntDataString(IPluginContext pContext, const cell_t params)
faluco@694	934	{
faluco@694	935	CBaseEntity *pEntity;
fyrenmoo@2879	936	edict_t *pEdict;
faluco@694	937
fyrenmoo@2879	938	if (!IndexToAThings(params[1], &pEntity, &pEdict))
faluco@694	939	{
pred@2746	940	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
faluco@694	941	}
faluco@694	942
faluco@694	943	int offset = params[2];
faluco@694	944	if (offset < 0 \|\| offset > 32768)
faluco@694	945	{
faluco@694	946	return pContext->ThrowNativeError("Offset %d is invalid", offset);
faluco@694	947	}
faluco@694	948
faluco@694	949	char *src;
faluco@694	950	char dest = (char )((uint8_t *)pEntity + offset);
faluco@694	951
faluco@694	952	pContext->LocalToString(params[3], &src);
faluco@694	953	size_t len = strncopy(dest, src, params[4]);
faluco@694	954
pred@2746	955	if (params[5] && (pEdict != NULL))
faluco@694	956	{
faluco@694	957	g_HL2.SetEdictStateChanged(pEdict, offset);
faluco@694	958	}
faluco@694	959
faluco@694	960	return len;
faluco@694	961	}
faluco@694	962
dvander@1847	963	#define FIND_PROP_DATA(td) \
dvander@1847	964	datamap_t *pMap; \
dvander@1847	965	if ((pMap = CBaseEntity_GetDataDescMap(pEntity)) == NULL) \
dvander@1847	966	{ \
dvander@1847	967	return pContext->ThrowNativeError("Could not retrieve datamap"); \
dvander@1847	968	} \
asherkin@3806	969	bool isNested = false; \
asherkin@3806	970	if ((td = g_HL2.FindInDataMap(pMap, prop, &isNested)) == NULL) \
dvander@1847	971	{ \
kyle@3638	972	const char *class_name = g_HL2.GetEntityClassname(pEntity); \
asherkin@3806	973	if (isNested) \
asherkin@3806	974	{ \
asherkin@3806	975	return pContext->ThrowNativeError("Property \"%s\" not safe to access (entity %d/%s)", \
asherkin@3806	976	prop, \
asherkin@3806	977	params[1], \
asherkin@3806	978	((class_name) ? class_name : "")); \
asherkin@3806	979	} else { \
asherkin@3806	980	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)", \
asherkin@3806	981	prop, \
asherkin@3806	982	params[1], \
asherkin@3806	983	((class_name) ? class_name : "")); \
asherkin@3806	984	} \
dvander@1847	985	}
dvander@1847	986
skamonkey@3293	987	#define CHECK_SET_PROP_DATA_OFFSET() \
skamonkey@3417	988	if (element < 0 \|\| element >= td->fieldSize) \
skamonkey@3293	989	{ \
skamonkey@3293	990	return pContext->ThrowNativeError("Element %d is out of bounds (Prop %s has %d elements).", \
skamonkey@3293	991	element, \
skamonkey@3293	992	prop, \
skamonkey@3293	993	td->fieldSize); \
skamonkey@3293	994	} \
skamonkey@3293	995	\
skamonkey@3293	996	offset = GetTypeDescOffs(td) + (element * (td->fieldSizeInBytes / td->fieldSize));
skamonkey@3293	997
skamonkey@3293	998	#define FIND_PROP_SEND(type, type_name) \
skamonkey@3293	999	sm_sendprop_info_t info;\
skamonkey@3762	1000	SendProp *pProp; \
pred@2746	1001	IServerUnknown pUnk = (IServerUnknown )pEntity; \
pred@2746	1002	IServerNetworkable *pNet = pUnk->GetNetworkable(); \
dvander@1847	1003	if (!pNet) \
dvander@1847	1004	{ \
pred@2746	1005	return pContext->ThrowNativeError("Edict %d (%d) is not networkable", g_HL2.ReferenceToIndex(params[1]), params[1]); \
dvander@1847	1006	} \
skamonkey@3293	1007	if (!g_HL2.FindSendPropInfo(pNet->GetServerClass()->GetName(), prop, &info)) \
dvander@1847	1008	{ \
kyle@3638	1009	const char *class_name = g_HL2.GetEntityClassname(pEntity); \
dvander@1847	1010	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)", \
dvander@1847	1011	prop, \
dvander@1847	1012	params[1], \
kyle@3638	1013	((class_name) ? class_name : "")); \
skamonkey@3293	1014	} \
skamonkey@3293	1015	\
skamonkey@3293	1016	offset = info.actual_offset; \
skamonkey@3762	1017	pProp = info.prop; \
skamonkey@3762	1018	bit_count = pProp->m_nBits; \
skamonkey@3293	1019	\
skamonkey@3762	1020	switch (pProp->GetType()) \
skamonkey@3293	1021	{ \
skamonkey@3293	1022	case type: \
skamonkey@3293	1023	{ \
skamonkey@3417	1024	if (element != 0) \
skamonkey@3293	1025	{ \
skamonkey@3293	1026	return pContext->ThrowNativeError("SendProp %s is not an array. Element %d is invalid.", \
skamonkey@3293	1027	prop, \
skamonkey@3293	1028	element); \
skamonkey@3293	1029	} \
skamonkey@3293	1030	break; \
skamonkey@3293	1031	} \
skamonkey@3293	1032	case DPT_DataTable: \
skamonkey@3293	1033	{ \
skamonkey@3293	1034	FIND_PROP_SEND_IN_SENDTABLE(info, pProp, element, type, type_name); \
skamonkey@3293	1035	\
skamonkey@3293	1036	offset += pProp->GetOffset(); \
skamonkey@3293	1037	bit_count = pProp->m_nBits; \
skamonkey@3293	1038	break; \
skamonkey@3293	1039	} \
skamonkey@3293	1040	default: \
skamonkey@3293	1041	{ \
skamonkey@3293	1042	return pContext->ThrowNativeError("SendProp %s type is not " type_name " (%d != %d)", \
skamonkey@3293	1043	prop, \
skamonkey@3762	1044	pProp->GetType(), \
skamonkey@3293	1045	type); \
skamonkey@3293	1046	} \
skamonkey@3293	1047	} \
skamonkey@3293	1048
skamonkey@3293	1049	#define FIND_PROP_SEND_IN_SENDTABLE(info, pProp, element, type, type_name) \
skamonkey@3762	1050	SendTable *pTable = pProp->GetDataTable(); \
skamonkey@3293	1051	if (!pTable) \
skamonkey@3293	1052	{ \
skamonkey@3293	1053	return pContext->ThrowNativeError("Error looking up DataTable for prop %s", \
skamonkey@3293	1054	prop); \
skamonkey@3293	1055	} \
skamonkey@3293	1056	\
skamonkey@3293	1057	int elementCount = pTable->GetNumProps(); \
skamonkey@3417	1058	if (element < 0 \|\| element >= elementCount) \
skamonkey@3293	1059	{ \
skamonkey@3293	1060	return pContext->ThrowNativeError("Element %d is out of bounds (Prop %s has %d elements).", \
skamonkey@3293	1061	element, \
skamonkey@3293	1062	prop, \
skamonkey@3293	1063	elementCount); \
skamonkey@3293	1064	} \
skamonkey@3293	1065	\
skamonkey@3293	1066	pProp = pTable->GetProp(element); \
skamonkey@3293	1067	if (pProp->GetType() != type) \
skamonkey@3293	1068	{ \
skamonkey@3293	1069	return pContext->ThrowNativeError("SendProp %s type is not " type_name " ([%d,%d] != %d)", \
skamonkey@3293	1070	prop, \
skamonkey@3762	1071	pProp->GetType(), \
skamonkey@3762	1072	pProp->m_nBits, \
skamonkey@3293	1073	type); \
dvander@1847	1074	}
dvander@1847	1075
skamonkey@3293	1076
dvander@1847	1077	inline int MatchFieldAsInteger(int field_type)
dvander@1847	1078	{
dvander@1847	1079	switch (field_type)
dvander@1847	1080	{
dvander@1847	1081	case FIELD_TICK:
dvander@1847	1082	case FIELD_MODELINDEX:
dvander@1847	1083	case FIELD_MATERIALINDEX:
dvander@1847	1084	case FIELD_INTEGER:
dvander@1847	1085	case FIELD_COLOR32:
dvander@1847	1086	return 32;
dvander@1847	1087	case FIELD_SHORT:
dvander@1847	1088	return 16;
dvander@1847	1089	case FIELD_CHARACTER:
dvander@1847	1090	return 8;
dvander@1847	1091	case FIELD_BOOLEAN:
dvander@1847	1092	return 1;
dvander@1847	1093	default:
dvander@1847	1094	return 0;
dvander@1847	1095	}
dvander@1847	1096
dvander@1847	1097	return 0;
dvander@1847	1098	}
dvander@1847	1099
skamonkey@3293	1100	static cell_t GetEntPropArraySize(IPluginContext pContext, const cell_t params)
skamonkey@3293	1101	{
skamonkey@3293	1102	CBaseEntity *pEntity;
skamonkey@3293	1103	char *prop;
skamonkey@3293	1104	edict_t *pEdict;
skamonkey@3293	1105
skamonkey@3293	1106	if (!IndexToAThings(params[1], &pEntity, &pEdict))
skamonkey@3293	1107	{
skamonkey@3293	1108	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
skamonkey@3293	1109	}
skamonkey@3293	1110
skamonkey@3293	1111	pContext->LocalToString(params[3], &prop);
skamonkey@3293	1112
skamonkey@3293	1113	switch (params[2])
skamonkey@3293	1114	{
skamonkey@3293	1115	case Prop_Data:
skamonkey@3293	1116	{
skamonkey@3293	1117	typedescription_t *td;
skamonkey@3293	1118
skamonkey@3293	1119	FIND_PROP_DATA(td);
skamonkey@3293	1120
skamonkey@3293	1121	return td->fieldSize;
skamonkey@3293	1122	}
skamonkey@3293	1123	case Prop_Send:
skamonkey@3293	1124	{
skamonkey@3293	1125	sm_sendprop_info_t info;
skamonkey@3293	1126
skamonkey@3293	1127	IServerUnknown pUnk = (IServerUnknown )pEntity;
skamonkey@3293	1128	IServerNetworkable *pNet = pUnk->GetNetworkable();
skamonkey@3293	1129	if (!pNet)
skamonkey@3293	1130	{
skamonkey@3293	1131	return pContext->ThrowNativeError("Edict %d (%d) is not networkable", g_HL2.ReferenceToIndex(params[1]), params[1]);
skamonkey@3293	1132	}
skamonkey@3293	1133	if (!g_HL2.FindSendPropInfo(pNet->GetServerClass()->GetName(), prop, &info))
skamonkey@3293	1134	{
kyle@3638	1135	const char *class_name = g_HL2.GetEntityClassname(pEntity);
skamonkey@3293	1136	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)",
skamonkey@3293	1137	prop,
skamonkey@3293	1138	params[1],
kyle@3638	1139	((class_name) ? class_name : ""));
skamonkey@3293	1140	}
skamonkey@3293	1141
skamonkey@3293	1142	if (info.prop->GetType() != DPT_DataTable)
skamonkey@3293	1143	{
skamonkey@3293	1144	return 0;
skamonkey@3293	1145	}
skamonkey@3293	1146
skamonkey@3293	1147	SendTable *pTable = info.prop->GetDataTable();
skamonkey@3293	1148	if (!pTable)
skamonkey@3293	1149	{
skamonkey@3293	1150	return pContext->ThrowNativeError("Error looking up DataTable for prop %s", prop);
skamonkey@3293	1151	}
skamonkey@3293	1152
skamonkey@3293	1153	return pTable->GetNumProps();
skamonkey@3293	1154	}
skamonkey@3293	1155	default:
skamonkey@3293	1156	{
skamonkey@3293	1157	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
skamonkey@3293	1158	}
skamonkey@3293	1159	}
skamonkey@3293	1160
skamonkey@3293	1161	return 1;
skamonkey@3293	1162	}
skamonkey@3293	1163
dvander@1847	1164	static cell_t GetEntProp(IPluginContext pContext, const cell_t params)
dvander@1847	1165	{
dvander@1847	1166	CBaseEntity *pEntity;
dvander@1847	1167	char *prop;
dvander@1847	1168	int offset;
dvander@1847	1169	edict_t *pEdict;
dvander@1847	1170	int bit_count;
skamonkey@3398	1171	bool is_unsigned = false;
dvander@1847	1172
skamonkey@3293	1173	int element = 0;
skamonkey@3293	1174	if (params[0] >= 5)
skamonkey@3293	1175	{
skamonkey@3293	1176	element = params[5];
skamonkey@3293	1177	}
skamonkey@3293	1178
fyrenmoo@2879	1179	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1180	{
pred@2746	1181	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1182	}
dvander@1847	1183
dvander@1847	1184	pContext->LocalToString(params[3], &prop);
dvander@1847	1185
dvander@1847	1186	switch (params[2])
dvander@1847	1187	{
dvander@1847	1188	case Prop_Data:
dvander@1847	1189	{
dvander@1847	1190	typedescription_t *td;
dvander@1847	1191
dvander@1847	1192	FIND_PROP_DATA(td);
dvander@1847	1193
dvander@1847	1194	if ((bit_count = MatchFieldAsInteger(td->fieldType)) == 0)
dvander@1847	1195	{
dvander@1847	1196	return pContext->ThrowNativeError("Data field %s is not an integer (%d)",
dvander@1847	1197	prop,
dvander@1847	1198	td->fieldType);
dvander@1847	1199	}
dvander@1847	1200
skamonkey@3293	1201	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1202
dvander@1847	1203	break;
dvander@1847	1204	}
dvander@1847	1205	case Prop_Send:
dvander@1847	1206	{
skamonkey@3293	1207	FIND_PROP_SEND(DPT_Int, "integer");
skamonkey@3762	1208	is_unsigned = ((pProp->GetFlags() & SPROP_UNSIGNED) == SPROP_UNSIGNED);
skamonkey@3712	1209
skamonkey@3712	1210	// This isn't in CS:S yet, but will be, doesn't hurt to add now, and will save us a build later
skamonkey@3961	1211	#if SOURCE_ENGINE == SE_CSS \|\| SOURCE_ENGINE == SE_HL2DM \|\| SOURCE_ENGINE == SE_DODS \|\| SOURCE_ENGINE == SE_TF2
skamonkey@3762	1212	if (pProp->GetFlags() & SPROP_VARINT)
skamonkey@3712	1213	{
skamonkey@3712	1214	bit_count = sizeof(int) * 8;
skamonkey@3712	1215	}
skamonkey@3712	1216	#endif
dvander@1847	1217	break;
dvander@1847	1218	}
dvander@1847	1219	default:
dvander@1847	1220	{
dvander@1847	1221	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1222	}
dvander@1847	1223	}
dvander@1847	1224
dvander@1847	1225	if (bit_count < 1)
dvander@1847	1226	{
dvander@1847	1227	bit_count = params[4] * 8;
dvander@1847	1228	}
dvander@1847	1229
dvander@1847	1230	if (bit_count >= 17)
dvander@1847	1231	{
dvander@1847	1232	return (int32_t )((uint8_t *)pEntity + offset);
dvander@1847	1233	}
dvander@1847	1234	else if (bit_count >= 9)
dvander@1847	1235	{
skamonkey@3398	1236	if (is_unsigned)
skamonkey@3398	1237	{
skamonkey@3398	1238	return (uint16_t )((uint8_t *)pEntity + offset);
skamonkey@3398	1239	}
skamonkey@3398	1240	else
skamonkey@3398	1241	{
skamonkey@3398	1242	return (int16_t )((uint8_t *)pEntity + offset);
skamonkey@3398	1243	}
dvander@1847	1244	}
dvander@1847	1245	else if (bit_count >= 2)
dvander@1847	1246	{
skamonkey@3398	1247	if (is_unsigned)
skamonkey@3398	1248	{
skamonkey@3398	1249	return (uint8_t )((uint8_t *)pEntity + offset);
skamonkey@3398	1250	}
skamonkey@3398	1251	else
skamonkey@3398	1252	{
skamonkey@3398	1253	return (int8_t )((uint8_t *)pEntity + offset);
skamonkey@3398	1254	}
dvander@1847	1255	}
dvander@1847	1256	else
dvander@1847	1257	{
dvander@1847	1258	return (bool )((uint8_t *)pEntity + offset) ? 1 : 0;
dvander@1847	1259	}
dvander@1847	1260
dvander@1847	1261	return 0;
dvander@1847	1262	}
dvander@1847	1263
dvander@1847	1264	static cell_t SetEntProp(IPluginContext pContext, const cell_t params)
faluco@694	1265	{
faluco@694	1266	CBaseEntity *pEntity;
faluco@694	1267	char *prop;
faluco@694	1268	int offset;
dvander@1847	1269	edict_t *pEdict;
dvander@1847	1270	int bit_count;
dvander@1847	1271
skamonkey@3293	1272	int element = 0;
skamonkey@3293	1273	if (params[0] >= 6)
skamonkey@3293	1274	{
skamonkey@3293	1275	element = params[6];
skamonkey@3293	1276	}
skamonkey@3293	1277
fyrenmoo@2879	1278	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1279	{
pred@2746	1280	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1281	}
dvander@1847	1282
dvander@1847	1283	pContext->LocalToString(params[3], &prop);
dvander@1847	1284
dvander@1847	1285	switch (params[2])
dvander@1847	1286	{
dvander@1847	1287	case Prop_Data:
dvander@1847	1288	{
dvander@1847	1289	typedescription_t *td;
dvander@1847	1290
dvander@1847	1291	FIND_PROP_DATA(td);
dvander@1847	1292
dvander@1847	1293	if ((bit_count = MatchFieldAsInteger(td->fieldType)) == 0)
dvander@1847	1294	{
dvander@1847	1295	return pContext->ThrowNativeError("Data field %s is not an integer (%d)",
dvander@1847	1296	prop,
dvander@1847	1297	td->fieldType);
dvander@1847	1298	}
dvander@1847	1299
skamonkey@3293	1300	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1301
dvander@1847	1302	break;
dvander@1847	1303	}
dvander@1847	1304	case Prop_Send:
dvander@1847	1305	{
skamonkey@3293	1306	FIND_PROP_SEND(DPT_Int, "integer");
skamonkey@3712	1307
skamonkey@3712	1308	// This isn't in CS:S yet, but will be, doesn't hurt to add now, and will save us a build later
skamonkey@3961	1309	#if SOURCE_ENGINE == SE_CSS \|\| SOURCE_ENGINE == SE_HL2DM \|\| SOURCE_ENGINE == SE_DODS \|\| SOURCE_ENGINE == SE_TF2
skamonkey@3762	1310	if (pProp->GetFlags() & SPROP_VARINT)
skamonkey@3712	1311	{
skamonkey@3712	1312	bit_count = sizeof(int) * 8;
skamonkey@3712	1313	}
skamonkey@3712	1314	#endif
dvander@1847	1315	break;
dvander@1847	1316	}
dvander@1847	1317	default:
dvander@1847	1318	{
dvander@1847	1319	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1320	}
dvander@1847	1321	}
dvander@1847	1322
dvander@1847	1323	if (bit_count < 1)
dvander@1847	1324	{
dvander@1847	1325	bit_count = params[5] * 8;
dvander@1847	1326	}
dvander@1847	1327
dvander@1847	1328	if (bit_count >= 17)
dvander@1847	1329	{
dvander@1847	1330	(int32_t )((uint8_t *)pEntity + offset) = params[4];
dvander@1847	1331	}
dvander@1847	1332	else if (bit_count >= 9)
dvander@1847	1333	{
dvander@1847	1334	(int16_t )((uint8_t *)pEntity + offset) = (int16_t)params[4];
dvander@1847	1335	}
dvander@1847	1336	else if (bit_count >= 2)
dvander@1847	1337	{
dvander@1847	1338	(int8_t )((uint8_t *)pEntity + offset) = (int8_t)params[4];
dvander@1847	1339	}
dvander@1847	1340	else
dvander@1847	1341	{
dvander@1847	1342	(bool )((uint8_t *)pEntity + offset) = params[4] ? true : false;
dvander@1847	1343	}
skamonkey@3239	1344
skamonkey@3239	1345	if (params[2] == Prop_Send && (pEdict != NULL))
skamonkey@3239	1346	{
skamonkey@3239	1347	g_HL2.SetEdictStateChanged(pEdict, offset);
skamonkey@3239	1348	}
dvander@1847	1349
dvander@1847	1350	return 0;
dvander@1847	1351	}
dvander@1847	1352
dvander@1847	1353	static cell_t GetEntPropFloat(IPluginContext pContext, const cell_t params)
dvander@1847	1354	{
dvander@1847	1355	CBaseEntity *pEntity;
dvander@1847	1356	char *prop;
dvander@1847	1357	int offset;
skamonkey@3293	1358	int bit_count;
dvander@1847	1359	edict_t *pEdict;
dvander@1847	1360
skamonkey@3293	1361	int element = 0;
skamonkey@3293	1362	if (params[0] >= 4)
skamonkey@3293	1363	{
skamonkey@3293	1364	element = params[4];
skamonkey@3293	1365	}
skamonkey@3293	1366
fyrenmoo@2879	1367	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1368	{
pred@2746	1369	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1370	}
dvander@1847	1371
dvander@1847	1372	pContext->LocalToString(params[3], &prop);
dvander@1847	1373
dvander@1847	1374	switch (params[2])
dvander@1847	1375	{
dvander@1847	1376	case Prop_Data:
dvander@1847	1377	{
dvander@1847	1378	typedescription_t *td;
dvander@1847	1379
dvander@1847	1380	FIND_PROP_DATA(td);
dvander@1847	1381
dvander@1847	1382	if (td->fieldType != FIELD_FLOAT
dvander@1847	1383	&& td->fieldType != FIELD_TIME)
dvander@1847	1384	{
dvander@1847	1385	return pContext->ThrowNativeError("Data field %s is not a float (%d != [%d,%d])",
dvander@1847	1386	prop,
dvander@1847	1387	td->fieldType,
dvander@1847	1388	FIELD_FLOAT,
dvander@1847	1389	FIELD_TIME);
dvander@1847	1390	}
dvander@1847	1391
skamonkey@3293	1392	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1393
dvander@1847	1394	break;
dvander@1847	1395	}
dvander@1847	1396	case Prop_Send:
dvander@1847	1397	{
skamonkey@3293	1398	FIND_PROP_SEND(DPT_Float, "float");
dvander@1847	1399	break;
dvander@1847	1400	}
dvander@1847	1401	default:
dvander@1847	1402	{
dvander@1847	1403	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1404	}
dvander@1847	1405	}
dvander@1847	1406
dvander@1847	1407	float val = (float )((uint8_t *)pEntity + offset);
dvander@1847	1408
dvander@1847	1409	return sp_ftoc(val);
dvander@1847	1410	}
dvander@1847	1411
dvander@1847	1412	static cell_t SetEntPropFloat(IPluginContext pContext, const cell_t params)
dvander@1847	1413	{
dvander@1847	1414	CBaseEntity *pEntity;
dvander@1847	1415	char *prop;
dvander@1847	1416	int offset;
skamonkey@3293	1417	int bit_count;
dvander@1847	1418	edict_t *pEdict;
dvander@1847	1419
skamonkey@3293	1420	int element = 0;
skamonkey@3293	1421	if (params[0] >= 5)
skamonkey@3293	1422	{
skamonkey@3293	1423	element = params[5];
skamonkey@3293	1424	}
skamonkey@3293	1425
fyrenmoo@2879	1426	if (!IndexToAThings(params[1], &pEntity, &pEdict))
faluco@694	1427	{
pred@2746	1428	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
faluco@694	1429	}
faluco@694	1430
dvander@1847	1431	pContext->LocalToString(params[3], &prop);
dvander@1847	1432
faluco@694	1433	switch (params[2])
faluco@694	1434	{
faluco@694	1435	case Prop_Data:
faluco@694	1436	{
faluco@694	1437	typedescription_t *td;
dvander@1847	1438
dvander@1847	1439	FIND_PROP_DATA(td);
dvander@1847	1440
dvander@1847	1441	if (td->fieldType != FIELD_FLOAT
dvander@1847	1442	&& td->fieldType != FIELD_TIME)
faluco@694	1443	{
dvander@1847	1444	return pContext->ThrowNativeError("Data field %s is not a float (%d != [%d,%d])",
dvander@1847	1445	prop,
dvander@1847	1446	td->fieldType,
dvander@1847	1447	FIELD_FLOAT,
dvander@1847	1448	FIELD_TIME);
dvander@1847	1449	}
dvander@1847	1450
skamonkey@3293	1451	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1452
dvander@1847	1453	break;
dvander@1847	1454	}
dvander@1847	1455	case Prop_Send:
dvander@1847	1456	{
skamonkey@3293	1457	FIND_PROP_SEND(DPT_Float, "float");
dvander@1847	1458	break;
dvander@1847	1459	}
dvander@1847	1460	default:
dvander@1847	1461	{
dvander@1847	1462	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1463	}
dvander@1847	1464	}
dvander@1847	1465
dvander@1847	1466	(float )((uint8_t *)pEntity + offset) = sp_ctof(params[4]);
dvander@1847	1467
pred@2746	1468	if (params[2] == Prop_Send && (pEdict != NULL))
dvander@1847	1469	{
dvander@1847	1470	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@1847	1471	}
dvander@1847	1472
dvander@1847	1473	return 1;
dvander@1847	1474	}
dvander@1847	1475
dvander@1847	1476	static cell_t GetEntPropEnt(IPluginContext pContext, const cell_t params)
dvander@1847	1477	{
dvander@1847	1478	CBaseEntity *pEntity;
dvander@1847	1479	char *prop;
dvander@1847	1480	int offset;
skamonkey@3293	1481	int bit_count;
dvander@1847	1482	edict_t *pEdict;
dvander@1847	1483
skamonkey@3293	1484	int element = 0;
skamonkey@3293	1485	if (params[0] >= 4)
skamonkey@3293	1486	{
skamonkey@3293	1487	element = params[4];
skamonkey@3293	1488	}
skamonkey@3293	1489
fyrenmoo@2879	1490	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1491	{
pred@2746	1492	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1493	}
dvander@1847	1494
dvander@1847	1495	pContext->LocalToString(params[3], &prop);
dvander@1847	1496
dvander@1847	1497	switch (params[2])
dvander@1847	1498	{
dvander@1847	1499	case Prop_Data:
dvander@1847	1500	{
dvander@1847	1501	typedescription_t *td;
dvander@1847	1502
dvander@1847	1503	FIND_PROP_DATA(td);
dvander@1847	1504
dvander@1847	1505	if (td->fieldType != FIELD_EHANDLE)
faluco@694	1506	{
dvander@1847	1507	return pContext->ThrowNativeError("Data field %s is not an entity (%d != %d)",
dvander@1847	1508	prop,
dvander@1847	1509	td->fieldType,
dvander@1847	1510	FIELD_EHANDLE);
faluco@694	1511	}
dvander@1847	1512
skamonkey@3293	1513	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1514
dvander@1847	1515	break;
dvander@1847	1516	}
dvander@1847	1517	case Prop_Send:
dvander@1847	1518	{
skamonkey@3293	1519	FIND_PROP_SEND(DPT_Int, "integer");
dvander@1847	1520	break;
dvander@1847	1521	}
dvander@1847	1522	default:
dvander@1847	1523	{
dvander@1847	1524	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1525	}
dvander@1847	1526	}
dvander@1847	1527
dvander@1847	1528	CBaseHandle &hndl = (CBaseHandle )((uint8_t *)pEntity + offset);
skamonkey@3709	1529	CBaseEntity *pHandleEntity = g_HL2.ReferenceToEntity(hndl.GetEntryIndex());
dvander@1847	1530
skamonkey@3709	1531	if (!pHandleEntity \|\| hndl != reinterpret_cast<IHandleEntity *>(pHandleEntity)->GetRefEHandle())
skamonkey@3708	1532	return -1;
skamonkey@3708	1533
skamonkey@3709	1534	return g_HL2.EntityToBCompatRef(pHandleEntity);
dvander@1847	1535	}
dvander@1847	1536
dvander@1847	1537	static cell_t SetEntPropEnt(IPluginContext pContext, const cell_t params)
dvander@1847	1538	{
dvander@1847	1539	CBaseEntity *pEntity;
dvander@1847	1540	char *prop;
dvander@1847	1541	int offset;
skamonkey@3293	1542	int bit_count;
dvander@1847	1543	edict_t *pEdict;
dvander@1847	1544
skamonkey@3293	1545	int element = 0;
skamonkey@3293	1546	if (params[0] >= 5)
skamonkey@3293	1547	{
skamonkey@3293	1548	element = params[5];
skamonkey@3293	1549	}
skamonkey@3293	1550
fyrenmoo@2879	1551	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1552	{
pred@2746	1553	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1554	}
dvander@1847	1555
dvander@1847	1556	pContext->LocalToString(params[3], &prop);
dvander@1847	1557
dvander@1847	1558	switch (params[2])
dvander@1847	1559	{
dvander@1847	1560	case Prop_Data:
dvander@1847	1561	{
dvander@1847	1562	typedescription_t *td;
dvander@1847	1563
dvander@1847	1564	FIND_PROP_DATA(td);
dvander@1847	1565
dvander@1847	1566	if (td->fieldType != FIELD_EHANDLE)
dvander@1847	1567	{
dvander@1847	1568	return pContext->ThrowNativeError("Data field %s is not an entity (%d != %d)",
dvander@1847	1569	prop,
dvander@1847	1570	td->fieldType,
dvander@1847	1571	FIELD_EHANDLE);
dvander@1847	1572	}
dvander@1847	1573
skamonkey@3293	1574	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1575
faluco@694	1576	break;
faluco@694	1577	}
faluco@694	1578	case Prop_Send:
faluco@694	1579	{
skamonkey@3293	1580	FIND_PROP_SEND(DPT_Int, "integer");
dvander@1847	1581	break;
dvander@1847	1582	}
dvander@1847	1583	default:
dvander@1847	1584	{
dvander@1847	1585	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1586	}
dvander@1847	1587	}
dvander@1847	1588
dvander@1847	1589	CBaseHandle &hndl = (CBaseHandle )((uint8_t *)pEntity + offset);
dvander@1847	1590
dvander@1847	1591	if (params[4] == -1)
dvander@1847	1592	{
dvander@1847	1593	hndl.Set(NULL);
dvander@1847	1594	}
dvander@1847	1595	else
dvander@1847	1596	{
fyrenmoo@2879	1597	CBaseEntity *pOther = GetEntity(params[4]);
dvander@1847	1598
pred@2746	1599	if (!pOther)
dvander@1847	1600	{
pred@2746	1601	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[4]), params[4]);
dvander@1847	1602	}
dvander@1847	1603
pred@2746	1604	IHandleEntity pHandleEnt = (IHandleEntity )pOther;
pred@2746	1605	hndl.Set(pHandleEnt);
dvander@1847	1606	}
dvander@1847	1607
pred@2746	1608	if (params[2] == Prop_Send && (pEdict != NULL))
dvander@1847	1609	{
dvander@1847	1610	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@1847	1611	}
dvander@1847	1612
dvander@1847	1613	return 1;
dvander@1847	1614	}
dvander@1847	1615
dvander@1847	1616	static cell_t GetEntPropVector(IPluginContext pContext, const cell_t params)
dvander@1847	1617	{
dvander@1847	1618	CBaseEntity *pEntity;
dvander@1847	1619	char *prop;
dvander@1847	1620	int offset;
skamonkey@3293	1621	int bit_count;
dvander@1847	1622	edict_t *pEdict;
skamonkey@3293	1623
skamonkey@3293	1624	int element = 0;
skamonkey@3293	1625	if (params[0] >= 5)
skamonkey@3293	1626	{
skamonkey@3293	1627	element = params[5];
skamonkey@3293	1628	}
dvander@1847	1629
fyrenmoo@2879	1630	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1631	{
pred@2746	1632	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1633	}
dvander@1847	1634
dvander@1847	1635	pContext->LocalToString(params[3], &prop);
dvander@1847	1636
dvander@1847	1637	switch (params[2])
dvander@1847	1638	{
dvander@1847	1639	case Prop_Data:
dvander@1847	1640	{
dvander@1847	1641	typedescription_t *td;
dvander@1847	1642
dvander@1847	1643	FIND_PROP_DATA(td);
dvander@1847	1644
dvander@1847	1645	if (td->fieldType != FIELD_VECTOR
dvander@1847	1646	&& td->fieldType != FIELD_POSITION_VECTOR)
dvander@1847	1647	{
dvander@1847	1648	return pContext->ThrowNativeError("Data field %s is not a vector (%d != [%d,%d])",
dvander@1847	1649	prop,
dvander@1847	1650	td->fieldType,
dvander@1847	1651	FIELD_VECTOR,
dvander@1847	1652	FIELD_POSITION_VECTOR);
dvander@1847	1653	}
dvander@1847	1654
skamonkey@3293	1655	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1656
dvander@1847	1657	break;
dvander@1847	1658	}
dvander@1847	1659	case Prop_Send:
dvander@1847	1660	{
skamonkey@3293	1661	FIND_PROP_SEND(DPT_Vector, "vector");
dvander@1847	1662	break;
dvander@1847	1663	}
dvander@1847	1664	default:
dvander@1847	1665	{
dvander@1847	1666	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1667	}
dvander@1847	1668	}
dvander@1847	1669
dvander@1847	1670	Vector v = (Vector )((uint8_t *)pEntity + offset);
dvander@1847	1671
dvander@1847	1672	cell_t *vec;
dvander@1847	1673	pContext->LocalToPhysAddr(params[4], &vec);
dvander@1847	1674
dvander@1847	1675	vec[0] = sp_ftoc(v->x);
dvander@1847	1676	vec[1] = sp_ftoc(v->y);
dvander@1847	1677	vec[2] = sp_ftoc(v->z);
dvander@1847	1678
dvander@1847	1679	return 1;
dvander@1847	1680	}
dvander@1847	1681
dvander@1847	1682	static cell_t SetEntPropVector(IPluginContext pContext, const cell_t params)
dvander@1847	1683	{
dvander@1847	1684	CBaseEntity *pEntity;
dvander@1847	1685	char *prop;
dvander@1847	1686	int offset;
skamonkey@3293	1687	int bit_count;
dvander@1847	1688	edict_t *pEdict;
skamonkey@3293	1689
skamonkey@3293	1690	int element = 0;
skamonkey@3293	1691	if (params[0] >= 5)
skamonkey@3293	1692	{
skamonkey@3293	1693	element = params[5];
skamonkey@3293	1694	}
dvander@1847	1695
fyrenmoo@2879	1696	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1697	{
pred@2746	1698	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1699	}
dvander@1847	1700
dvander@1847	1701	pContext->LocalToString(params[3], &prop);
dvander@1847	1702
dvander@1847	1703	switch (params[2])
dvander@1847	1704	{
dvander@1847	1705	case Prop_Data:
dvander@1847	1706	{
dvander@1847	1707	typedescription_t *td;
dvander@1847	1708
dvander@1847	1709	FIND_PROP_DATA(td);
dvander@1847	1710
dvander@1847	1711	if (td->fieldType != FIELD_VECTOR
dvander@1847	1712	&& td->fieldType != FIELD_POSITION_VECTOR)
faluco@694	1713	{
dvander@1847	1714	return pContext->ThrowNativeError("Data field %s is not a vector (%d != [%d,%d])",
dvander@1847	1715	prop,
dvander@1847	1716	td->fieldType,
dvander@1847	1717	FIELD_VECTOR,
dvander@1847	1718	FIELD_POSITION_VECTOR);
dvander@1847	1719	}
dvander@1847	1720
skamonkey@3293	1721	CHECK_SET_PROP_DATA_OFFSET();
skamonkey@3293	1722
dvander@1847	1723	break;
dvander@1847	1724	}
dvander@1847	1725	case Prop_Send:
dvander@1847	1726	{
skamonkey@3293	1727	FIND_PROP_SEND(DPT_Vector, "vector");
dvander@1847	1728	break;
dvander@1847	1729	}
dvander@1847	1730	default:
dvander@1847	1731	{
dvander@1847	1732	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
dvander@1847	1733	}
dvander@1847	1734	}
dvander@1847	1735
dvander@1847	1736	Vector v = (Vector )((uint8_t *)pEntity + offset);
dvander@1847	1737
dvander@1847	1738	cell_t *vec;
dvander@1847	1739	pContext->LocalToPhysAddr(params[4], &vec);
dvander@1847	1740
dvander@1847	1741	v->x = sp_ctof(vec[0]);
dvander@1847	1742	v->y = sp_ctof(vec[1]);
dvander@1847	1743	v->z = sp_ctof(vec[2]);
dvander@1847	1744
pred@2746	1745	if (params[2] == Prop_Send && (pEdict != NULL))
dvander@1847	1746	{
dvander@1847	1747	g_HL2.SetEdictStateChanged(pEdict, offset);
dvander@1847	1748	}
dvander@1847	1749
dvander@1847	1750	return 1;
dvander@1847	1751	}
dvander@1847	1752
dvander@1847	1753	static cell_t GetEntPropString(IPluginContext pContext, const cell_t params)
dvander@1847	1754	{
dvander@1847	1755	CBaseEntity *pEntity;
dvander@1847	1756	char *prop;
dvander@1847	1757	int offset;
dvander@1847	1758	edict_t *pEdict;
dvander@1884	1759	bool bIsStringIndex;
skamonkey@3293	1760
skamonkey@3293	1761	int element = 0;
skamonkey@3293	1762	if (params[0] >= 6)
skamonkey@3293	1763	{
skamonkey@3293	1764	element = params[6];
skamonkey@3293	1765	}
dvander@1847	1766
fyrenmoo@2879	1767	if (!IndexToAThings(params[1], &pEntity, &pEdict))
dvander@1847	1768	{
pred@2746	1769	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
dvander@1847	1770	}
dvander@1847	1771
dvander@1847	1772	pContext->LocalToString(params[3], &prop);
dvander@1847	1773
dvander@1884	1774	bIsStringIndex = false;
dvander@1884	1775
dvander@1847	1776	switch (params[2])
dvander@1847	1777	{
dvander@1847	1778	case Prop_Data:
dvander@1847	1779	{
dvander@1847	1780	typedescription_t *td;
dvander@1847	1781
dvander@1847	1782	FIND_PROP_DATA(td);
dvander@1847	1783
dvander@1884	1784	if (td->fieldType != FIELD_CHARACTER
dvander@1900	1785	&& td->fieldType != FIELD_STRING
dvander@1900	1786	&& td->fieldType != FIELD_MODELNAME
dvander@1900	1787	&& td->fieldType != FIELD_SOUNDNAME)
faluco@694	1788	{
dvander@1847	1789	return pContext->ThrowNativeError("Data field %s is not a string (%d != %d)",
dvander@1847	1790	prop,
dvander@1847	1791	td->fieldType,
dvander@1847	1792	FIELD_CHARACTER);
faluco@694	1793	}
dvander@1847	1794
dvander@1900	1795	bIsStringIndex = (td->fieldType != FIELD_CHARACTER);
dvander@1884	1796
skamonkey@3417	1797	if (bIsStringIndex && (element < 0 \|\| element >= td->fieldSize))
skamonkey@3293	1798	{
skamonkey@3293	1799	return pContext->ThrowNativeError("Element %d is out of bounds (Prop %s has %d elements).",
skamonkey@3293	1800	element,
skamonkey@3293	1801	prop,
skamonkey@3293	1802	td->fieldSize);
skamonkey@3293	1803	}
skamonkey@3417	1804	else if (element != 0)
skamonkey@3293	1805	{
skamonkey@3293	1806	return pContext->ThrowNativeError("Prop %s is not an array. Element %d is invalid.",
skamonkey@3293	1807	prop,
skamonkey@3293	1808	element);
skamonkey@3293	1809	}
skamonkey@3293	1810
ds@3099	1811	offset = GetTypeDescOffs(td);
skamonkey@3293	1812	if (bIsStringIndex)
skamonkey@3293	1813	{
skamonkey@3293	1814	offset += (element * (td->fieldSizeInBytes / td->fieldSize));
skamonkey@3293	1815	}
dvander@1847	1816	break;
dvander@1847	1817	}
dvander@1847	1818	case Prop_Send:
dvander@1847	1819	{
dvander@1847	1820	sm_sendprop_info_t info;
skamonkey@3293	1821
skamonkey@3293	1822	IServerUnknown pUnk = (IServerUnknown )pEntity;
skamonkey@3293	1823	IServerNetworkable *pNet = pUnk->GetNetworkable();
skamonkey@3293	1824	if (!pNet)
skamonkey@3293	1825	{
skamonkey@3293	1826	return pContext->ThrowNativeError("Edict %d (%d) is not networkable", g_HL2.ReferenceToIndex(params[1]), params[1]);
skamonkey@3293	1827	}
skamonkey@3293	1828	if (!g_HL2.FindSendPropInfo(pNet->GetServerClass()->GetName(), prop, &info))
skamonkey@3293	1829	{
kyle@3638	1830	const char *class_name = g_HL2.GetEntityClassname(pEntity);
skamonkey@3293	1831	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)",
skamonkey@3293	1832	prop,
skamonkey@3293	1833	params[1],
kyle@3638	1834	((class_name) ? class_name : ""));
skamonkey@3293	1835	}
dvander@1847	1836
skamonkey@3293	1837	offset = info.actual_offset;
dvander@1847	1838
dvander@1847	1839	if (info.prop->GetType() != DPT_String)
dvander@1847	1840	{
dvander@1847	1841	return pContext->ThrowNativeError("SendProp %s is not a string (%d != %d)",
dvander@1847	1842	prop,
dvander@1847	1843	info.prop->GetType(),
dvander@1847	1844	DPT_String);
dvander@1847	1845	}
skamonkey@3417	1846	else if (element != 0)
skamonkey@3293	1847	{
skamonkey@3293	1848	return pContext->ThrowNativeError("SendProp %s is not an array. Element %d is invalid.",
skamonkey@3293	1849	prop,
skamonkey@3293	1850	element);
skamonkey@3293	1851	}
skamonkey@3293	1852
faluco@694	1853	break;
faluco@694	1854	}
faluco@694	1855	default:
faluco@694	1856	{
faluco@694	1857	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
faluco@694	1858	}
faluco@694	1859	}
faluco@694	1860
faluco@694	1861	size_t len;
dvander@1884	1862	const char *src;
dvander@1884	1863
dvander@1884	1864	if (!bIsStringIndex)
dvander@1884	1865	{
dvander@1884	1866	src = (char )((uint8_t )pEntity + offset);
dvander@1884	1867	}
dvander@1884	1868	else
dvander@1884	1869	{
dvander@1884	1870	string_t idx;
dvander@1884	1871
dvander@1884	1872	idx = (string_t )((uint8_t *)pEntity + offset);
dvander@1884	1873	src = (idx == NULL_STRING) ? "" : STRING(idx);
dvander@1884	1874	}
dvander@1884	1875
faluco@694	1876	pContext->StringToLocalUTF8(params[4], params[5], src, &len);
faluco@694	1877
faluco@694	1878	return len;
faluco@694	1879	}
faluco@694	1880
faluco@694	1881	static cell_t SetEntPropString(IPluginContext pContext, const cell_t params)
faluco@694	1882	{
faluco@694	1883	CBaseEntity *pEntity;
faluco@694	1884	char *prop;
faluco@694	1885	int offset;
faluco@694	1886	int maxlen;
fyrenmoo@2879	1887	edict_t *pEdict;
faluco@694	1888
fyrenmoo@2879	1889	if (!IndexToAThings(params[1], &pEntity, &pEdict))
faluco@694	1890	{
pred@2746	1891	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
faluco@694	1892	}
faluco@694	1893
faluco@694	1894	switch (params[2])
faluco@694	1895	{
faluco@694	1896	case Prop_Data:
faluco@694	1897	{
faluco@694	1898	datamap_t *pMap;
faluco@694	1899	typedescription_t *td;
faluco@694	1900	if ((pMap=CBaseEntity_GetDataDescMap(pEntity)) == NULL)
faluco@694	1901	{
faluco@694	1902	return pContext->ThrowNativeError("Unable to retrieve GetDataDescMap offset");
faluco@694	1903	}
faluco@694	1904	pContext->LocalToString(params[3], &prop);
asherkin@3806	1905	bool isNested = false;
asherkin@3806	1906	if ((td=g_HL2.FindInDataMap(pMap, prop, &isNested)) == NULL)
faluco@694	1907	{
asherkin@3806	1908	if (isNested)
asherkin@3806	1909	return pContext->ThrowNativeError("Property \"%s\" is not safe to access for entity %d", prop, params[1]);
asherkin@3806	1910	else
asherkin@3806	1911	return pContext->ThrowNativeError("Property \"%s\" not found for entity %d", prop, params[1]);
faluco@694	1912	}
faluco@694	1913	if (td->fieldType != FIELD_CHARACTER)
faluco@694	1914	{
faluco@694	1915	return pContext->ThrowNativeError("Property \"%s\" is not a valid string", prop);
faluco@694	1916	}
ds@3099	1917	offset = GetTypeDescOffs(td);
faluco@694	1918	maxlen = td->fieldSize;
faluco@694	1919	break;
faluco@694	1920	}
faluco@694	1921	case Prop_Send:
faluco@694	1922	{
faluco@694	1923	char *prop;
pred@2746	1924	IServerUnknown pUnk = (IServerUnknown )pEntity;
pred@2746	1925	IServerNetworkable *pNet = pUnk->GetNetworkable();
faluco@694	1926	if (!pNet)
faluco@694	1927	{
faluco@694	1928	return pContext->ThrowNativeError("The edict is not networkable");
faluco@694	1929	}
faluco@694	1930	pContext->LocalToString(params[3], &prop);
faluco@694	1931	SendProp *pSend = g_HL2.FindInSendTable(pNet->GetServerClass()->GetName(), prop);
faluco@694	1932	if (!pSend)
faluco@694	1933	{
faluco@694	1934	return pContext->ThrowNativeError("Property \"%s\" not found for entity %d", prop, params[1]);
faluco@694	1935	}
faluco@694	1936	if (pSend->GetType() != DPT_String)
faluco@694	1937	{
faluco@694	1938	return pContext->ThrowNativeError("Property \"%s\" is not a valid string", prop);
faluco@694	1939	}
faluco@694	1940	offset = pSend->GetOffset();
faluco@694	1941	maxlen = DT_MAX_STRING_BUFFERSIZE;
faluco@694	1942	break;
faluco@694	1943	}
faluco@694	1944	default:
faluco@694	1945	{
faluco@694	1946	return pContext->ThrowNativeError("Invalid Property type %d", params[2]);
faluco@694	1947	}
faluco@694	1948	}
faluco@694	1949
faluco@694	1950	char *src;
faluco@694	1951	char dest = (char )((uint8_t *)pEntity + offset);
faluco@694	1952
faluco@694	1953	pContext->LocalToString(params[4], &src);
faluco@694	1954	size_t len = strncopy(dest, src, maxlen);
faluco@694	1955
pred@2746	1956	if (params[2] == Prop_Send && (pEdict != NULL))
faluco@694	1957	{
faluco@694	1958	g_HL2.SetEdictStateChanged(pEdict, offset);
faluco@694	1959	}
faluco@694	1960
faluco@694	1961	return len;
faluco@694	1962	}
faluco@694	1963
skamonkey@3220	1964	static int32_t SDKEntFlagToSMEntFlag(int flag)
skamonkey@3220	1965	{
skamonkey@3220	1966	switch (flag)
skamonkey@3220	1967	{
skamonkey@3220	1968	case FL_ONGROUND:
skamonkey@3220	1969	return ENTFLAG_ONGROUND;
skamonkey@3220	1970	case FL_DUCKING:
skamonkey@3220	1971	return ENTFLAG_DUCKING;
skamonkey@3220	1972	case FL_WATERJUMP:
skamonkey@3220	1973	return ENTFLAG_WATERJUMP;
skamonkey@3220	1974	case FL_ONTRAIN:
skamonkey@3220	1975	return ENTFLAG_ONTRAIN;
skamonkey@3220	1976	case FL_INRAIN:
skamonkey@3220	1977	return ENTFLAG_INRAIN;
skamonkey@3220	1978	case FL_FROZEN:
skamonkey@3220	1979	return ENTFLAG_FROZEN;
skamonkey@3220	1980	case FL_ATCONTROLS:
skamonkey@3220	1981	return ENTFLAG_ATCONTROLS;
skamonkey@3220	1982	case FL_CLIENT:
skamonkey@3220	1983	return ENTFLAG_CLIENT;
skamonkey@3220	1984	case FL_FAKECLIENT:
skamonkey@3220	1985	return ENTFLAG_FAKECLIENT;
skamonkey@3220	1986	case FL_INWATER:
skamonkey@3220	1987	return ENTFLAG_INWATER;
skamonkey@3220	1988	case FL_FLY:
skamonkey@3220	1989	return ENTFLAG_FLY;
skamonkey@3220	1990	case FL_SWIM:
skamonkey@3220	1991	return ENTFLAG_SWIM;
skamonkey@3220	1992	case FL_CONVEYOR:
skamonkey@3220	1993	return ENTFLAG_CONVEYOR;
skamonkey@3220	1994	case FL_NPC:
skamonkey@3220	1995	return ENTFLAG_NPC;
skamonkey@3220	1996	case FL_GODMODE:
skamonkey@3220	1997	return ENTFLAG_GODMODE;
skamonkey@3220	1998	case FL_NOTARGET:
skamonkey@3220	1999	return ENTFLAG_NOTARGET;
skamonkey@3220	2000	case FL_AIMTARGET:
skamonkey@3220	2001	return ENTFLAG_AIMTARGET;
skamonkey@3220	2002	case FL_PARTIALGROUND:
skamonkey@3220	2003	return ENTFLAG_PARTIALGROUND;
skamonkey@3220	2004	case FL_STATICPROP:
skamonkey@3220	2005	return ENTFLAG_STATICPROP;
skamonkey@3220	2006	case FL_GRAPHED:
skamonkey@3220	2007	return ENTFLAG_GRAPHED;
skamonkey@3220	2008	case FL_GRENADE:
skamonkey@3220	2009	return ENTFLAG_GRENADE;
skamonkey@3220	2010	case FL_STEPMOVEMENT:
skamonkey@3220	2011	return ENTFLAG_STEPMOVEMENT;
skamonkey@3220	2012	case FL_DONTTOUCH:
skamonkey@3220	2013	return ENTFLAG_DONTTOUCH;
skamonkey@3220	2014	case FL_BASEVELOCITY:
skamonkey@3220	2015	return ENTFLAG_BASEVELOCITY;
skamonkey@3220	2016	case FL_WORLDBRUSH:
skamonkey@3220	2017	return ENTFLAG_WORLDBRUSH;
skamonkey@3220	2018	case FL_OBJECT:
skamonkey@3220	2019	return ENTFLAG_OBJECT;
skamonkey@3220	2020	case FL_KILLME:
skamonkey@3220	2021	return ENTFLAG_KILLME;
skamonkey@3220	2022	case FL_ONFIRE:
skamonkey@3220	2023	return ENTFLAG_ONFIRE;
skamonkey@3220	2024	case FL_DISSOLVING:
skamonkey@3220	2025	return ENTFLAG_DISSOLVING;
skamonkey@3220	2026	case FL_TRANSRAGDOLL:
skamonkey@3220	2027	return ENTFLAG_TRANSRAGDOLL;
skamonkey@3220	2028	case FL_UNBLOCKABLE_BY_PLAYER:
skamonkey@3220	2029	return ENTFLAG_UNBLOCKABLE_BY_PLAYER;
skamonkey@3220	2030	#if SOURCE_ENGINE == SE_ALIENSWARM
skamonkey@3220	2031	case FL_FREEZING:
skamonkey@3220	2032	return ENTFLAG_FREEZING;
skamonkey@3961	2033	#elif SOURCE_ENGINE == SE_HL2DM \|\| SOURCE_ENGINE == SE_DODS \|\| SOURCE_ENGINE == SE_CSS \|\| SOURCE_ENGINE == SE_TF2
skamonkey@3220	2034	case FL_EP2V_UNKNOWN:
skamonkey@3220	2035	return ENTFLAG_EP2V_UNKNOWN1;
skamonkey@3220	2036	#endif
skamonkey@3220	2037	default:
skamonkey@3220	2038	return 0;
skamonkey@3220	2039	}
skamonkey@3220	2040	}
skamonkey@3220	2041
skamonkey@3220	2042	static int32_t SMEntFlagToSDKEntFlag(int32_t flag)
skamonkey@3220	2043	{
skamonkey@3220	2044	switch (flag)
skamonkey@3220	2045	{
skamonkey@3220	2046	case ENTFLAG_ONGROUND:
skamonkey@3220	2047	return FL_ONGROUND;
skamonkey@3220	2048	case ENTFLAG_DUCKING:
skamonkey@3220	2049	return FL_DUCKING;
skamonkey@3220	2050	case ENTFLAG_WATERJUMP:
skamonkey@3220	2051	return FL_WATERJUMP;
skamonkey@3220	2052	case ENTFLAG_ONTRAIN:
skamonkey@3220	2053	return FL_ONTRAIN;
skamonkey@3220	2054	case ENTFLAG_INRAIN:
skamonkey@3220	2055	return FL_INRAIN;
skamonkey@3220	2056	case ENTFLAG_FROZEN:
skamonkey@3220	2057	return FL_FROZEN;
skamonkey@3220	2058	case ENTFLAG_ATCONTROLS:
skamonkey@3220	2059	return FL_ATCONTROLS;
skamonkey@3220	2060	case ENTFLAG_CLIENT:
skamonkey@3220	2061	return FL_CLIENT;
skamonkey@3220	2062	case ENTFLAG_FAKECLIENT:
skamonkey@3220	2063	return FL_FAKECLIENT;
skamonkey@3220	2064	case ENTFLAG_INWATER:
skamonkey@3220	2065	return FL_INWATER;
skamonkey@3220	2066	case ENTFLAG_FLY:
skamonkey@3220	2067	return FL_FLY;
skamonkey@3220	2068	case ENTFLAG_SWIM:
skamonkey@3220	2069	return FL_SWIM;
skamonkey@3220	2070	case ENTFLAG_CONVEYOR:
skamonkey@3220	2071	return FL_CONVEYOR;
skamonkey@3220	2072	case ENTFLAG_NPC:
skamonkey@3220	2073	return FL_NPC;
skamonkey@3220	2074	case ENTFLAG_GODMODE:
skamonkey@3220	2075	return FL_GODMODE;
skamonkey@3220	2076	case ENTFLAG_NOTARGET:
skamonkey@3220	2077	return FL_NOTARGET;
skamonkey@3220	2078	case ENTFLAG_AIMTARGET:
skamonkey@3220	2079	return FL_AIMTARGET;
skamonkey@3220	2080	case ENTFLAG_PARTIALGROUND:
skamonkey@3220	2081	return FL_PARTIALGROUND;
skamonkey@3220	2082	case ENTFLAG_STATICPROP:
skamonkey@3220	2083	return FL_STATICPROP;
skamonkey@3220	2084	case ENTFLAG_GRAPHED:
skamonkey@3220	2085	return FL_GRAPHED;
skamonkey@3220	2086	case ENTFLAG_GRENADE:
skamonkey@3220	2087	return FL_GRENADE;
skamonkey@3220	2088	case ENTFLAG_STEPMOVEMENT:
skamonkey@3220	2089	return FL_STEPMOVEMENT;
skamonkey@3220	2090	case ENTFLAG_DONTTOUCH:
skamonkey@3220	2091	return FL_DONTTOUCH;
skamonkey@3220	2092	case ENTFLAG_BASEVELOCITY:
skamonkey@3220	2093	return FL_BASEVELOCITY;
skamonkey@3220	2094	case ENTFLAG_WORLDBRUSH:
skamonkey@3220	2095	return FL_WORLDBRUSH;
skamonkey@3220	2096	case ENTFLAG_OBJECT:
skamonkey@3220	2097	return FL_OBJECT;
skamonkey@3220	2098	case ENTFLAG_KILLME:
skamonkey@3220	2099	return FL_KILLME;
skamonkey@3220	2100	case ENTFLAG_ONFIRE:
skamonkey@3220	2101	return FL_ONFIRE;
skamonkey@3220	2102	case ENTFLAG_DISSOLVING:
skamonkey@3220	2103	return FL_DISSOLVING;
skamonkey@3220	2104	case ENTFLAG_TRANSRAGDOLL:
skamonkey@3220	2105	return FL_TRANSRAGDOLL;
skamonkey@3220	2106	case ENTFLAG_UNBLOCKABLE_BY_PLAYER:
skamonkey@3220	2107	return FL_UNBLOCKABLE_BY_PLAYER;
skamonkey@3220	2108	#if SOURCE_ENGINE == SE_ALIENSWARM
skamonkey@3220	2109	case ENTFLAG_FREEZING:
skamonkey@3220	2110	return FL_FREEZING;
skamonkey@3961	2111	#elif SOURCE_ENGINE == SE_HL2DM \|\| SOURCE_ENGINE == SE_DODS \|\| SOURCE_ENGINE == SE_CSS \|\| SOURCE_ENGINE == SE_TF2
skamonkey@3220	2112	case ENTFLAG_EP2V_UNKNOWN1:
skamonkey@3220	2113	return FL_EP2V_UNKNOWN;
skamonkey@3220	2114	#endif
skamonkey@3220	2115	default:
skamonkey@3220	2116	return 0;
skamonkey@3220	2117	}
skamonkey@3220	2118	}
skamonkey@3220	2119
skamonkey@3220	2120	static cell_t GetEntityFlags(IPluginContext pContext, const cell_t params)
skamonkey@3220	2121	{
skamonkey@3220	2122	CBaseEntity *pEntity = g_HL2.ReferenceToEntity(params[1]);
skamonkey@3220	2123	if (!pEntity)
skamonkey@3220	2124	{
skamonkey@3220	2125	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
skamonkey@3220	2126	}
skamonkey@3220	2127
skamonkey@3220	2128	const char *prop = g_pGameConf->GetKeyValue("m_fFlags");
skamonkey@3220	2129	if (!prop)
skamonkey@3220	2130	{
skamonkey@3220	2131	return pContext->ThrowNativeError("Could not find m_fFlags prop in gamedata");
skamonkey@3220	2132	}
skamonkey@3220	2133
skamonkey@3220	2134	typedescription_t *td;
skamonkey@3220	2135	datamap_t *pMap;
skamonkey@3220	2136
skamonkey@3220	2137	if ((pMap = CBaseEntity_GetDataDescMap(pEntity)) == NULL)
skamonkey@3220	2138	{
skamonkey@3220	2139	return pContext->ThrowNativeError("Could not retrieve datamap");
skamonkey@3220	2140	}
skamonkey@3220	2141	if ((td = g_HL2.FindInDataMap(pMap, prop)) == NULL)
skamonkey@3220	2142	{
skamonkey@3220	2143	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d)",
skamonkey@3220	2144	prop,
skamonkey@3220	2145	params[1]);
skamonkey@3220	2146	}
skamonkey@3220	2147
skamonkey@3220	2148	int offset = GetTypeDescOffs(td);
skamonkey@3220	2149
skamonkey@3220	2150	int32_t actual_flags = (int32_t )((uint8_t *)pEntity + offset);
skamonkey@3220	2151	int32_t sm_flags = 0;
skamonkey@3220	2152
skamonkey@3220	2153	for (int32_t i = 0; i < 32; i++)
skamonkey@3220	2154	{
skamonkey@3220	2155	int32_t flag = (1<<i);
skamonkey@3220	2156	if ((actual_flags & flag) == flag)
skamonkey@3220	2157	{
skamonkey@3220	2158	sm_flags \|= SDKEntFlagToSMEntFlag(flag);
skamonkey@3220	2159	}
skamonkey@3220	2160	}
skamonkey@3220	2161
skamonkey@3220	2162	return sm_flags;
skamonkey@3220	2163	}
skamonkey@3220	2164
skamonkey@3220	2165	static cell_t SetEntityFlags(IPluginContext pContext, const cell_t params)
skamonkey@3220	2166	{
skamonkey@3220	2167	CBaseEntity *pEntity = g_HL2.ReferenceToEntity(params[1]);
skamonkey@3220	2168	if (!pEntity)
skamonkey@3220	2169	{
skamonkey@3220	2170	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
skamonkey@3220	2171	}
skamonkey@3220	2172
skamonkey@3220	2173	const char *prop = g_pGameConf->GetKeyValue("m_fFlags");
skamonkey@3220	2174	if (!prop)
skamonkey@3220	2175	{
skamonkey@3220	2176	return pContext->ThrowNativeError("Could not find m_fFlags prop in gamedata");
skamonkey@3220	2177	}
skamonkey@3220	2178
skamonkey@3220	2179	typedescription_t *td;
skamonkey@3220	2180	datamap_t *pMap;
skamonkey@3220	2181
skamonkey@3220	2182	if ((pMap = CBaseEntity_GetDataDescMap(pEntity)) == NULL)
skamonkey@3220	2183	{
skamonkey@3220	2184	return pContext->ThrowNativeError("Could not retrieve datamap");
skamonkey@3220	2185	}
skamonkey@3220	2186	if ((td = g_HL2.FindInDataMap(pMap, prop)) == NULL)
skamonkey@3220	2187	{
skamonkey@3220	2188	return pContext->ThrowNativeError("Property \"%s\" not found (entity %d)",
skamonkey@3220	2189	prop,
skamonkey@3220	2190	params[1]);
skamonkey@3220	2191	}
skamonkey@3220	2192
skamonkey@3220	2193	int offset = GetTypeDescOffs(td);
skamonkey@3220	2194
skamonkey@3220	2195	int32_t sm_flags = params[2];
skamonkey@3220	2196	int32_t actual_flags = 0;
skamonkey@3220	2197
skamonkey@3220	2198	for (int32_t i = 0; i < 32; i++)
skamonkey@3220	2199	{
skamonkey@3220	2200	int32_t flag = (1<<i);
skamonkey@3220	2201	if ((sm_flags & flag) == flag)
skamonkey@3220	2202	{
skamonkey@3220	2203	actual_flags \|= SMEntFlagToSDKEntFlag(flag);
skamonkey@3220	2204	}
skamonkey@3220	2205	}
skamonkey@3220	2206
skamonkey@3220	2207	(int32_t )((uint8_t *)pEntity + offset) = actual_flags;
skamonkey@3220	2208
skamonkey@3220	2209	return 0;
skamonkey@3220	2210	}
skamonkey@3220	2211
prodigysim@3585	2212	static cell_t GetEntityAddress(IPluginContext pContext, const cell_t params)
prodigysim@3585	2213	{
prodigysim@3585	2214	CBaseEntity * pEntity = GetEntity(params[1]);
prodigysim@3585	2215	if (!pEntity)
prodigysim@3585	2216	{
prodigysim@3585	2217	return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]);
prodigysim@3585	2218	}
prodigysim@3585	2219	return reinterpret_cast<cell_t>(pEntity);
prodigysim@3585	2220	}
prodigysim@3585	2221
dvander@555	2222	REGISTER_NATIVES(entityNatives)
dvander@555	2223	{
dvander@558	2224	{"ChangeEdictState", ChangeEdictState},
dvander@555	2225	{"CreateEdict", CreateEdict},
dvander@1847	2226	{"FindDataMapOffs", FindDataMapOffs},
dvander@1847	2227	{"FindSendPropInfo", FindSendPropInfo},
dvander@561	2228	{"FindSendPropOffs", FindSendPropOffs},
dvander@556	2229	{"GetEdictClassname", GetEdictClassname},
dvander@555	2230	{"GetEdictFlags", GetEdictFlags},
dvander@557	2231	{"GetEntData", GetEntData},
dvander@1847	2232	{"GetEntDataEnt", GetEntDataEnt}, /** DEPRECATED */
dvander@1847	2233	{"GetEntDataEnt2", GetEntDataEnt2},
dvander@557	2234	{"GetEntDataFloat", GetEntDataFloat},
dvander@1847	2235	{"GetEntDataString", GetEntDataString},
dvander@557	2236	{"GetEntDataVector", GetEntDataVector},
dvander@1847	2237	{"GetEntProp", GetEntProp},
skamonkey@3293	2238	{"GetEntPropArraySize", GetEntPropArraySize},
dvander@1847	2239	{"GetEntPropEnt", GetEntPropEnt},
dvander@1847	2240	{"GetEntPropFloat", GetEntPropFloat},
dvander@1847	2241	{"GetEntPropString", GetEntPropString},
dvander@1847	2242	{"GetEntPropVector", GetEntPropVector},
dvander@603	2243	{"GetEntityCount", GetEntityCount},
skamonkey@3220	2244	{"GetEntityFlags", GetEntityFlags},
dvander@556	2245	{"GetEntityNetClass", GetEntityNetClass},
dvander@555	2246	{"GetMaxEntities", GetMaxEntities},
dvander@555	2247	{"IsEntNetworkable", IsEntNetworkable},
dvander@555	2248	{"IsValidEdict", IsValidEdict},
dvander@555	2249	{"IsValidEntity", IsValidEntity},
dvander@555	2250	{"RemoveEdict", RemoveEdict},
dvander@555	2251	{"SetEdictFlags", SetEdictFlags},
dvander@557	2252	{"SetEntData", SetEntData},
dvander@1847	2253	{"SetEntDataEnt", SetEntDataEnt}, /** DEPRECATED */
dvander@1847	2254	{"SetEntDataEnt2", SetEntDataEnt2},
dvander@557	2255	{"SetEntDataFloat", SetEntDataFloat},
dvander@557	2256	{"SetEntDataVector", SetEntDataVector},
faluco@694	2257	{"SetEntDataString", SetEntDataString},
skamonkey@3220	2258	{"SetEntityFlags", SetEntityFlags},
dvander@1847	2259	{"SetEntProp", SetEntProp},
dvander@1847	2260	{"SetEntPropEnt", SetEntPropEnt},
dvander@1847	2261	{"SetEntPropFloat", SetEntPropFloat},
faluco@694	2262	{"SetEntPropString", SetEntPropString},
dvander@1847	2263	{"SetEntPropVector", SetEntPropVector},
prodigysim@3585	2264	{"GetEntityAddress", GetEntityAddress},
faluco@588	2265	{NULL, NULL}
dvander@555	2266	};

author	Nicholas Hastings <skamonkey@gmail.com>
	Sat Aug 03 19:03:12 2013 -0400 (2013-08-03)
changeset 3969	fe179ff9a57a
parent 3961	0dc477c29792
child 3997	59bcfc51eb79
permissions	-rw-r--r--