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

author	Nicholas Hastings <skamonkey@gmail.com>
	Tue Jan 22 23:18:27 2013 -0500 (2013-01-22)
changeset 3749	4dc3d723c490
parent 3712	ea253cc4fbf6
child 3762	0f6b4d692ed9
permissions	-rw-r--r--