dvander@555: /** ds@653: * vim: set ts=4 : ds@1330: * ============================================================================= dvander@1231: * SourceMod ds@3099: * Copyright (C) 2004-2010 AlliedModders LLC. All rights reserved. ds@1330: * ============================================================================= dvander@555: * ds@1330: * This program is free software; you can redistribute it and/or modify it under ds@1330: * the terms of the GNU General Public License, version 3.0, as published by the ds@1330: * Free Software Foundation. dvander@1231: * ds@1330: * This program is distributed in the hope that it will be useful, but WITHOUT ds@1330: * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS ds@1330: * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more ds@1330: * details. dvander@1231: * ds@1330: * You should have received a copy of the GNU General Public License along with ds@1330: * this program. If not, see . dvander@1231: * ds@1330: * As a special exception, AlliedModders LLC gives you permission to link the ds@1330: * code of this program (as well as its derivative works) to "Half-Life 2," the ds@1330: * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software ds@1330: * by the Valve Corporation. You must obey the GNU General Public License in ds@1330: * all respects for all other code used. Additionally, AlliedModders LLC grants ds@1330: * this exception to all derivative works. AlliedModders LLC defines further ds@1330: * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007), ds@1330: * or . dvander@555: * dvander@555: * Version: $Id$ dvander@555: */ dvander@555: dvander@555: #include "sm_globals.h" dvander@555: #include "sourcemod.h" dvander@555: #include "sourcemm_api.h" dvander@591: #include "PlayerManager.h" dvander@592: #include "HalfLife2.h" dvander@3010: #include faluco@694: #include "sm_stringutil.h" dvander@3010: #include "logic_bridge.h" faluco@694: skamonkey@3220: // These values need to mirror the values in entity_prop_stocks skamonkey@3220: #define ENTFLAG_ONGROUND (1 << 0) skamonkey@3220: #define ENTFLAG_DUCKING (1 << 1) skamonkey@3220: #define ENTFLAG_WATERJUMP (1 << 2) skamonkey@3220: #define ENTFLAG_ONTRAIN (1 << 3) skamonkey@3220: #define ENTFLAG_INRAIN (1 << 4) skamonkey@3220: #define ENTFLAG_FROZEN (1 << 5) skamonkey@3220: #define ENTFLAG_ATCONTROLS (1 << 6) skamonkey@3220: #define ENTFLAG_CLIENT (1 << 7) skamonkey@3220: #define ENTFLAG_FAKECLIENT (1 << 8) skamonkey@3220: #define ENTFLAG_INWATER (1 << 9) skamonkey@3220: #define ENTFLAG_FLY (1 << 10) skamonkey@3220: #define ENTFLAG_SWIM (1 << 11) skamonkey@3220: #define ENTFLAG_CONVEYOR (1 << 12) skamonkey@3220: #define ENTFLAG_NPC (1 << 13) skamonkey@3220: #define ENTFLAG_GODMODE (1 << 14) skamonkey@3220: #define ENTFLAG_NOTARGET (1 << 15) skamonkey@3220: #define ENTFLAG_AIMTARGET (1 << 16) skamonkey@3220: #define ENTFLAG_PARTIALGROUND (1 << 17) skamonkey@3220: #define ENTFLAG_STATICPROP (1 << 18) skamonkey@3220: #define ENTFLAG_GRAPHED (1 << 19) skamonkey@3220: #define ENTFLAG_GRENADE (1 << 20) skamonkey@3220: #define ENTFLAG_STEPMOVEMENT (1 << 21) skamonkey@3220: #define ENTFLAG_DONTTOUCH (1 << 22) skamonkey@3220: #define ENTFLAG_BASEVELOCITY (1 << 23) skamonkey@3220: #define ENTFLAG_WORLDBRUSH (1 << 24) skamonkey@3220: #define ENTFLAG_OBJECT (1 << 25) skamonkey@3220: #define ENTFLAG_KILLME (1 << 26) skamonkey@3220: #define ENTFLAG_ONFIRE (1 << 27) skamonkey@3220: #define ENTFLAG_DISSOLVING (1 << 28) skamonkey@3220: #define ENTFLAG_TRANSRAGDOLL (1 << 29) skamonkey@3220: #define ENTFLAG_UNBLOCKABLE_BY_PLAYER (1 << 30) skamonkey@3220: #define ENTFLAG_FREEZING (1 << 31) skamonkey@3220: #define ENTFLAG_EP2V_UNKNOWN1 (1 << 31) skamonkey@3220: skamonkey@3220: // Not defined in the sdk as we have no clue what it is skamonkey@3220: #define FL_EP2V_UNKNOWN (1 << 2) skamonkey@3220: faluco@694: enum PropType faluco@694: { faluco@694: Prop_Send = 0, faluco@694: Prop_Data faluco@694: }; dvander@555: dvander@1847: enum PropFieldType dvander@1847: { dvander@1847: PropField_Unsupported, /**< The type is unsupported. */ dvander@1847: PropField_Integer, /**< Valid for SendProp and Data fields */ dvander@1847: PropField_Float, /**< Valid for SendProp and Data fields */ dvander@1847: PropField_Entity, /**< Valid for Data fields only (SendProp shows as int) */ dvander@1847: PropField_Vector, /**< Valid for SendProp and Data fields */ dvander@1847: PropField_String, /**< Valid for SendProp and Data fields */ dvander@1884: PropField_String_T, /**< Valid for Data fields. Read only! */ dvander@1847: }; dvander@1847: pred@2746: inline edict_t *BaseEntityToEdict(CBaseEntity *pEntity) pred@2746: { pred@2746: IServerUnknown *pUnk = (IServerUnknown *)pEntity; pred@2746: IServerNetworkable *pNet = pUnk->GetNetworkable(); pred@2746: pred@2746: if (!pNet) pred@2746: { pred@2746: return NULL; pred@2746: } pred@2746: pred@2746: return pNet->GetEdict(); pred@2746: } pred@2746: dvander@555: inline edict_t *GetEdict(cell_t num) dvander@555: { fyrenmoo@2879: edict_t *pEdict; fyrenmoo@2879: if (!IndexToAThings(num, NULL, &pEdict)) fyrenmoo@2879: { fyrenmoo@2879: return NULL; fyrenmoo@2879: } fyrenmoo@2879: fyrenmoo@2879: return pEdict; fyrenmoo@2879: } fyrenmoo@2879: fyrenmoo@2879: inline CBaseEntity *GetEntity(cell_t num) fyrenmoo@2879: { fyrenmoo@2879: CBaseEntity *pEntity; fyrenmoo@2879: if (!IndexToAThings(num, &pEntity, NULL)) fyrenmoo@2879: { fyrenmoo@2879: return NULL; fyrenmoo@2879: } fyrenmoo@2879: fyrenmoo@2879: return pEntity; fyrenmoo@2879: } fyrenmoo@2879: fyrenmoo@2879: /* Given an entity reference or index, fill out a CBaseEntity and/or edict. fyrenmoo@2879: If lookup is successful, returns true and writes back the two parameters. fyrenmoo@2879: If lookup fails, returns false and doesn't touch the params. */ fyrenmoo@2879: bool IndexToAThings(cell_t num, CBaseEntity **pEntData, edict_t **pEdictData) fyrenmoo@2879: { pred@2746: CBaseEntity *pEntity = g_HL2.ReferenceToEntity(num); pred@2746: pred@2746: if (!pEntity) pred@2746: { fyrenmoo@2879: return false; dvander@555: } pred@2746: pred@2746: int index = g_HL2.ReferenceToIndex(num); pred@2746: if (index > 0 && index <= g_Players.GetMaxClients()) dvander@556: { pred@2746: CPlayer *pPlayer = g_Players.GetPlayerByIndex(index); dvander@556: if (!pPlayer || !pPlayer->IsConnected()) dvander@556: { fyrenmoo@2879: return false; dvander@556: } dvander@556: } pred@2746: fyrenmoo@2879: if (pEntData) dvander@557: { fyrenmoo@2879: *pEntData = pEntity; dvander@557: } pred@2746: fyrenmoo@2879: if (pEdictData) dvander@557: { fyrenmoo@2879: edict_t *pEdict = ::BaseEntityToEdict(pEntity); fyrenmoo@2913: if (!pEdict || pEdict->IsFree()) dvander@557: { fyrenmoo@2879: pEdict = NULL; dvander@557: } fyrenmoo@2879: fyrenmoo@2879: *pEdictData = pEdict; dvander@557: } pred@2746: fyrenmoo@2879: return true; dvander@557: } fyrenmoo@2879: /* fyrenmoo@2879: AThings is like guaranteed r+ by dvander though fyrenmoo@2879: he wont even read the rest of the patch to nit stuff fyrenmoo@2879: Like I wasn't going to r? you anyway! fyrenmoo@2879: he still sees! fyrenmoo@2879: he's everywhere fyrenmoo@2879: */ dvander@557: faluco@682: class VEmptyClass {}; faluco@682: datamap_t *VGetDataDescMap(CBaseEntity *pThisPtr, int offset) faluco@682: { faluco@682: void **this_ptr = *reinterpret_cast(&pThisPtr); faluco@682: void **vtable = *reinterpret_cast(pThisPtr); faluco@682: void *vfunc = vtable[offset]; faluco@682: faluco@682: union faluco@682: { faluco@682: datamap_t *(VEmptyClass::*mfpnew)(); faluco@682: #ifndef PLATFORM_POSIX faluco@682: void *addr; faluco@682: } u; faluco@682: u.addr = vfunc; faluco@682: #else faluco@682: struct faluco@682: { faluco@682: void *addr; faluco@682: intptr_t adjustor; faluco@682: } s; faluco@682: } u; faluco@682: u.s.addr = vfunc; faluco@682: u.s.adjustor = 0; faluco@682: #endif faluco@682: faluco@682: return (datamap_t *)(reinterpret_cast(this_ptr)->*u.mfpnew)(); faluco@682: } faluco@682: faluco@682: inline datamap_t *CBaseEntity_GetDataDescMap(CBaseEntity *pEntity) faluco@682: { faluco@682: int offset; faluco@682: faluco@682: if (!g_pGameConf->GetOffset("GetDataDescMap", &offset) || !offset) faluco@682: { faluco@682: return NULL; faluco@682: } faluco@682: faluco@682: return VGetDataDescMap(pEntity, offset); faluco@682: } faluco@682: dvander@965: /* :TODO: Move this! */ dvander@965: datamap_t *CHalfLife2::GetDataMap(CBaseEntity *pEntity) dvander@965: { dvander@965: return CBaseEntity_GetDataDescMap(pEntity); dvander@965: } dvander@965: dvander@555: static cell_t GetMaxEntities(IPluginContext *pContext, const cell_t *params) dvander@555: { dvander@555: return gpGlobals->maxEntities; dvander@555: } dvander@555: dvander@555: static cell_t CreateEdict(IPluginContext *pContext, const cell_t *params) dvander@555: { dvander@555: edict_t *pEdict = engine->CreateEdict(); dvander@555: dvander@555: if (!pEdict) dvander@555: { dvander@555: return 0; dvander@555: } dvander@555: ds@2400: return IndexOfEdict(pEdict); dvander@555: } dvander@555: dvander@555: static cell_t RemoveEdict(IPluginContext *pContext, const cell_t *params) dvander@555: { pred@2746: edict_t *pEdict = GetEdict(params[1]); dvander@555: dvander@555: if (!pEdict) dvander@555: { pred@2746: return pContext->ThrowNativeError("Edict %d (%d) is not a valid edict", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@555: } dvander@555: dvander@555: engine->RemoveEdict(pEdict); dvander@555: dvander@555: return 1; dvander@555: } dvander@555: dvander@555: static cell_t IsValidEdict(IPluginContext *pContext, const cell_t *params) dvander@555: { dvander@556: edict_t *pEdict = GetEdict(params[1]); dvander@555: dvander@555: if (!pEdict) dvander@555: { dvander@555: return 0; dvander@555: } dvander@555: dvander@555: /* Shouldn't be necessary... not sure though */ dvander@555: return pEdict->IsFree() ? 0 : 1; dvander@555: } dvander@555: dvander@555: static cell_t IsValidEntity(IPluginContext *pContext, const cell_t *params) dvander@555: { pred@2746: CBaseEntity *pEntity = g_HL2.ReferenceToEntity(params[1]); dvander@555: dvander@555: return (pEntity != NULL) ? 1 : 0; dvander@555: } dvander@555: dvander@555: static cell_t IsEntNetworkable(IPluginContext *pContext, const cell_t *params) dvander@555: { dvander@556: edict_t *pEdict = GetEdict(params[1]); dvander@555: dvander@556: if (!pEdict) dvander@555: { dvander@555: return 0; dvander@555: } dvander@555: dvander@555: return (pEdict->GetNetworkable() != NULL) ? 1 : 0; dvander@555: } dvander@555: dvander@555: static cell_t GetEntityCount(IPluginContext *pContext, const cell_t *params) dvander@555: { dvander@555: return engine->GetEntityCount(); dvander@555: } dvander@555: dvander@555: static cell_t GetEdictFlags(IPluginContext *pContext, const cell_t *params) dvander@555: { dvander@555: edict_t *pEdict = GetEdict(params[1]); dvander@555: dvander@555: if (!pEdict) dvander@555: { pred@2746: return pContext->ThrowNativeError("Invalid edict (%d - %d)", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@555: } dvander@555: dvander@555: return pEdict->m_fStateFlags; dvander@555: } dvander@555: dvander@555: static cell_t SetEdictFlags(IPluginContext *pContext, const cell_t *params) dvander@555: { dvander@555: edict_t *pEdict = GetEdict(params[1]); dvander@555: dvander@555: if (!pEdict) dvander@555: { pred@2746: return pContext->ThrowNativeError("Invalid edict (%d - %d)", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@555: } dvander@555: dvander@555: pEdict->m_fStateFlags = params[2]; dvander@555: dvander@555: return 1; dvander@555: } dvander@555: dvander@556: static cell_t GetEdictClassname(IPluginContext *pContext, const cell_t *params) dvander@556: { dvander@556: edict_t *pEdict = GetEdict(params[1]); dvander@556: dvander@556: if (!pEdict) dvander@556: { pred@2746: return pContext->ThrowNativeError("Invalid edict (%d - %d)", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@556: } dvander@556: kyle@3638: const char *cls = g_HL2.GetEntityClassname(pEdict); dvander@556: dvander@556: if (!cls || cls[0] == '\0') dvander@556: { dvander@556: return 0; dvander@556: } dvander@556: dvander@556: pContext->StringToLocal(params[2], params[3], cls); dvander@556: dvander@556: return 1; dvander@556: } dvander@556: dvander@556: static cell_t GetEntityNetClass(IPluginContext *pContext, const cell_t *params) dvander@556: { pred@2746: CBaseEntity *pEntity = g_HL2.ReferenceToEntity(params[1]); pred@2746: pred@2746: IServerUnknown *pUnk = (IServerUnknown *)pEntity; dvander@556: pred@2746: if (!pEntity) dvander@556: { pred@2746: return pContext->ThrowNativeError("Invalid entity (%d - %d)", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@556: } dvander@556: pred@2746: IServerNetworkable *pNet = pUnk->GetNetworkable(); dvander@556: if (!pNet) dvander@556: { dvander@556: return 0; dvander@556: } dvander@556: dvander@556: ServerClass *pClass = pNet->GetServerClass(); dvander@556: dvander@556: pContext->StringToLocal(params[2], params[3], pClass->GetName()); dvander@556: dvander@556: return 1; dvander@556: } dvander@556: dvander@557: static cell_t GetEntData(IPluginContext *pContext, const cell_t *params) dvander@557: { fyrenmoo@2879: CBaseEntity *pEntity = GetEntity(params[1]); dvander@557: pred@2746: if (!pEntity) dvander@557: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@557: } dvander@557: dvander@557: int offset = params[2]; dvander@1847: if (offset <= 0 || offset > 32768) dvander@557: { dvander@557: return pContext->ThrowNativeError("Offset %d is invalid", offset); dvander@557: } dvander@557: dvander@557: switch (params[3]) dvander@557: { dvander@557: case 4: dvander@557: return *(int *)((uint8_t *)pEntity + offset); dvander@557: case 2: dvander@557: return *(short *)((uint8_t *)pEntity + offset); dvander@557: case 1: dvander@557: return *((uint8_t *)pEntity + offset); dvander@557: default: dvander@557: return pContext->ThrowNativeError("Integer size %d is invalid", params[3]); dvander@557: } dvander@557: } dvander@557: dvander@557: static cell_t SetEntData(IPluginContext *pContext, const cell_t *params) dvander@557: { dvander@557: CBaseEntity *pEntity; fyrenmoo@2879: edict_t *pEdict; dvander@557: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@557: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@557: } dvander@557: dvander@557: int offset = params[2]; dvander@1847: if (offset <= 0 || offset > 32768) dvander@557: { dvander@557: return pContext->ThrowNativeError("Offset %d is invalid", offset); dvander@557: } dvander@557: pred@2746: if (params[5] && (pEdict != NULL)) dvander@561: { dvander@685: g_HL2.SetEdictStateChanged(pEdict, offset); dvander@561: } dvander@561: dvander@557: switch (params[4]) dvander@557: { dvander@557: case 4: dvander@557: { dvander@557: *(int *)((uint8_t *)pEntity + offset) = params[3]; dvander@557: break; dvander@557: } dvander@557: case 2: dvander@557: { dvander@557: *(short *)((uint8_t *)pEntity + offset) = params[3]; dvander@557: break; dvander@557: } dvander@557: case 1: dvander@557: { dvander@557: *((uint8_t *)pEntity + offset) = params[3]; dvander@557: break; dvander@557: } dvander@557: default: dvander@557: return pContext->ThrowNativeError("Integer size %d is invalid", params[4]); dvander@557: } dvander@557: dvander@557: return 1; dvander@557: } dvander@557: dvander@557: static cell_t GetEntDataFloat(IPluginContext *pContext, const cell_t *params) dvander@557: { fyrenmoo@2879: CBaseEntity *pEntity = GetEntity(params[1]); dvander@557: pred@2746: if (!pEntity) dvander@557: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@557: } dvander@557: dvander@557: int offset = params[2]; dvander@1847: if (offset <= 0 || offset > 32768) dvander@557: { dvander@557: return pContext->ThrowNativeError("Offset %d is invalid", offset); dvander@557: } dvander@557: dvander@557: float f = *(float *)((uint8_t *)pEntity + offset); dvander@557: dvander@557: return sp_ftoc(f); dvander@557: } dvander@557: dvander@557: static cell_t SetEntDataFloat(IPluginContext *pContext, const cell_t *params) dvander@557: { dvander@557: CBaseEntity *pEntity; fyrenmoo@2879: edict_t *pEdict; dvander@557: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@557: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@557: } dvander@557: dvander@557: int offset = params[2]; dvander@1847: if (offset <= 0 || offset > 32768) dvander@557: { dvander@557: return pContext->ThrowNativeError("Offset %d is invalid", offset); dvander@557: } dvander@557: dvander@557: *(float *)((uint8_t *)pEntity + offset) = sp_ctof(params[3]); dvander@557: pred@2746: if (params[4] && (pEdict != NULL)) dvander@561: { dvander@685: g_HL2.SetEdictStateChanged(pEdict, offset); dvander@561: } dvander@561: dvander@557: return 1; dvander@557: } dvander@557: dvander@557: static cell_t GetEntDataVector(IPluginContext *pContext, const cell_t *params) dvander@557: { fyrenmoo@2879: CBaseEntity *pEntity = GetEntity(params[1]); dvander@557: pred@2746: if (!pEntity) dvander@557: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@557: } dvander@557: dvander@557: int offset = params[2]; dvander@1847: if (offset <= 0 || offset > 32768) dvander@557: { dvander@557: return pContext->ThrowNativeError("Offset %d is invalid", offset); dvander@557: } dvander@557: dvander@557: Vector *v = (Vector *)((uint8_t *)pEntity + offset); dvander@557: dvander@557: cell_t *vec; dvander@557: pContext->LocalToPhysAddr(params[3], &vec); dvander@557: faluco@597: vec[0] = sp_ftoc(v->x); faluco@597: vec[1] = sp_ftoc(v->y); faluco@597: vec[2] = sp_ftoc(v->z); dvander@557: dvander@557: return 1; dvander@557: } dvander@557: dvander@557: static cell_t SetEntDataVector(IPluginContext *pContext, const cell_t *params) dvander@557: { dvander@557: CBaseEntity *pEntity; fyrenmoo@2879: edict_t *pEdict; dvander@557: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@557: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@557: } dvander@557: dvander@557: int offset = params[2]; dvander@1847: if (offset <= 0 || offset > 32768) dvander@557: { dvander@557: return pContext->ThrowNativeError("Offset %d is invalid", offset); dvander@557: } dvander@557: dvander@557: Vector *v = (Vector *)((uint8_t *)pEntity + offset); dvander@557: dvander@557: cell_t *vec; dvander@557: pContext->LocalToPhysAddr(params[3], &vec); dvander@557: faluco@597: v->x = sp_ctof(vec[0]); faluco@597: v->y = sp_ctof(vec[1]); faluco@597: v->z = sp_ctof(vec[2]); dvander@557: pred@2746: if (params[4] && (pEdict != NULL)) dvander@561: { dvander@685: g_HL2.SetEdictStateChanged(pEdict, offset); dvander@561: } dvander@561: dvander@557: return 1; dvander@557: } dvander@557: dvander@1847: /* THIS GUY IS DEPRECATED. */ dvander@557: static cell_t GetEntDataEnt(IPluginContext *pContext, const cell_t *params) dvander@557: { fyrenmoo@2879: CBaseEntity *pEntity = GetEntity(params[1]); dvander@557: pred@2746: if (!pEntity) dvander@557: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@557: } dvander@557: dvander@557: int offset = params[2]; dvander@1847: if (offset <= 0 || offset > 32768) dvander@557: { dvander@557: return pContext->ThrowNativeError("Offset %d is invalid", offset); dvander@557: } dvander@557: dvander@557: CBaseHandle &hndl = *(CBaseHandle *)((uint8_t *)pEntity + offset); dvander@557: dvander@557: if (!hndl.IsValid()) dvander@557: { dvander@557: return 0; dvander@557: } dvander@557: pred@2746: int ref = g_HL2.IndexToReference(hndl.GetEntryIndex()); pred@2746: return g_HL2.ReferenceToBCompatRef(ref); dvander@557: } dvander@557: dvander@1847: int CheckBaseHandle(CBaseHandle &hndl) dvander@1847: { dvander@1847: if (!hndl.IsValid()) dvander@1847: { dvander@1847: return -1; dvander@1847: } dvander@1847: dvander@1847: int index = hndl.GetEntryIndex(); dvander@1847: dvander@1847: edict_t *pStoredEdict; dvander@1847: CBaseEntity *pStoredEntity; dvander@1847: fyrenmoo@2879: if (!IndexToAThings(index, &pStoredEntity, &pStoredEdict)) fyrenmoo@2879: { fyrenmoo@2879: return -1; fyrenmoo@2879: } dvander@1847: dvander@1847: if (pStoredEdict == NULL || pStoredEntity == NULL) dvander@1847: { dvander@1847: return -1; dvander@1847: } dvander@1847: dvander@1847: IServerEntity *pSE = pStoredEdict->GetIServerEntity(); dvander@1847: dvander@1847: if (pSE == NULL) dvander@1847: { dvander@1847: return -1; dvander@1847: } dvander@1847: dvander@1847: if (pSE->GetRefEHandle() != hndl) dvander@1847: { dvander@1847: return -1; dvander@1847: } dvander@1847: dvander@1847: return index; dvander@1847: } dvander@1847: dvander@1847: static cell_t GetEntDataEnt2(IPluginContext *pContext, const cell_t *params) dvander@1847: { fyrenmoo@2879: CBaseEntity *pEntity = GetEntity(params[1]); dvander@1847: pred@2746: if (pEntity == NULL) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@1847: } dvander@1847: dvander@1847: int offset = params[2]; dvander@1847: if (offset <= 0 || offset > 32768) dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Offset %d is invalid", offset); dvander@1847: } dvander@1847: dvander@1847: CBaseHandle &hndl = *(CBaseHandle *)((uint8_t *)pEntity + offset); skamonkey@3709: CBaseEntity *pHandleEntity = g_HL2.ReferenceToEntity(hndl.GetEntryIndex()); dvander@1847: skamonkey@3709: if (!pHandleEntity || hndl != reinterpret_cast(pHandleEntity)->GetRefEHandle()) skamonkey@3708: return -1; skamonkey@3708: skamonkey@3709: return g_HL2.EntityToBCompatRef(pHandleEntity); dvander@1847: } dvander@1847: dvander@1847: /* THIS GUY IS DEPRECATED. */ dvander@557: static cell_t SetEntDataEnt(IPluginContext *pContext, const cell_t *params) dvander@557: { dvander@557: CBaseEntity *pEntity; fyrenmoo@2879: edict_t *pEdict; dvander@557: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@557: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@557: } dvander@557: dvander@557: int offset = params[2]; dvander@1847: if (offset <= 0 || offset > 32768) dvander@557: { dvander@557: return pContext->ThrowNativeError("Offset %d is invalid", offset); dvander@557: } dvander@557: dvander@557: CBaseHandle &hndl = *(CBaseHandle *)((uint8_t *)pEntity + offset); dvander@557: pred@2748: if (params[3] == 0 || (unsigned)params[3] == INVALID_EHANDLE_INDEX) dvander@557: { dvander@557: hndl.Set(NULL); dvander@557: } else { fyrenmoo@2879: CBaseEntity *pOther = GetEntity(params[3]); pred@2746: pred@2746: if (!pOther) dvander@557: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[3]), params[3]); dvander@557: } pred@2746: pred@2746: IHandleEntity *pHandleEnt = (IHandleEntity *)pOther; pred@2746: hndl.Set(pHandleEnt); dvander@557: } dvander@557: pred@2746: if (params[4] && (pEdict != NULL)) dvander@561: { dvander@685: g_HL2.SetEdictStateChanged(pEdict, offset); dvander@561: } dvander@561: dvander@557: return 1; dvander@557: } dvander@557: dvander@1847: static cell_t SetEntDataEnt2(IPluginContext *pContext, const cell_t *params) dvander@1847: { dvander@1847: CBaseEntity *pEntity; fyrenmoo@2879: edict_t *pEdict; dvander@1847: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@1847: } dvander@1847: dvander@1847: int offset = params[2]; dvander@1847: if (offset <= 0 || offset > 32768) dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Offset %d is invalid", offset); dvander@1847: } dvander@1847: dvander@1847: CBaseHandle &hndl = *(CBaseHandle *)((uint8_t *)pEntity + offset); dvander@1847: pred@2748: if ((unsigned)params[3] == INVALID_EHANDLE_INDEX) dvander@1847: { dvander@1847: hndl.Set(NULL); dvander@1847: } dvander@1847: else dvander@1847: { fyrenmoo@2879: CBaseEntity *pOther = GetEntity(params[3]); pred@2746: pred@2746: if (!pOther) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[3]), params[3]); dvander@1847: } pred@2746: pred@2746: IHandleEntity *pHandleEnt = (IHandleEntity *)pOther; pred@2746: hndl.Set(pHandleEnt); dvander@1847: } dvander@1847: pred@2746: if (params[4] && (pEdict != NULL)) dvander@1847: { dvander@1847: g_HL2.SetEdictStateChanged(pEdict, offset); dvander@1847: } dvander@1847: dvander@1847: return 1; dvander@1847: } dvander@1847: dvander@558: static cell_t ChangeEdictState(IPluginContext *pContext, const cell_t *params) dvander@558: { dvander@558: edict_t *pEdict = GetEdict(params[1]); dvander@558: dvander@558: if (!pEdict) dvander@558: { pred@2746: return pContext->ThrowNativeError("Edict %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@558: } dvander@558: dvander@685: g_HL2.SetEdictStateChanged(pEdict, params[2]); dvander@558: dvander@558: return 1; dvander@558: } dvander@558: dvander@561: static cell_t FindSendPropOffs(IPluginContext *pContext, const cell_t *params) dvander@561: { dvander@561: char *cls, *prop; dvander@561: pContext->LocalToString(params[1], &cls); dvander@561: pContext->LocalToString(params[2], &prop); dvander@561: dvander@561: SendProp *pSend = g_HL2.FindInSendTable(cls, prop); dvander@561: dvander@561: if (!pSend) dvander@561: { dvander@561: return -1; dvander@561: } dvander@561: dvander@561: return pSend->GetOffset(); dvander@561: } dvander@561: dvander@1847: static cell_t FindSendPropInfo(IPluginContext *pContext, const cell_t *params) dvander@1847: { dvander@1847: char *cls, *prop; dvander@1847: sm_sendprop_info_t info; dvander@1847: cell_t *pType, *pBits, *pLocal; dvander@1847: dvander@1847: pContext->LocalToString(params[1], &cls); dvander@1847: pContext->LocalToString(params[2], &prop); dvander@1847: dvander@1847: if (!g_HL2.FindSendPropInfo(cls, prop, &info)) dvander@1847: { dvander@1847: return -1; dvander@1847: } dvander@1847: dvander@1847: pContext->LocalToPhysAddr(params[3], &pType); dvander@1847: pContext->LocalToPhysAddr(params[4], &pBits); dvander@1847: pContext->LocalToPhysAddr(params[5], &pLocal); dvander@1847: dvander@1847: switch (info.prop->GetType()) dvander@1847: { dvander@1847: case DPT_Int: dvander@1847: { dvander@1847: *pType = PropField_Integer; dvander@1847: break; dvander@1847: } dvander@1847: case DPT_Float: dvander@1847: { dvander@1847: *pType = PropField_Float; dvander@1847: break; dvander@1847: } dvander@1847: case DPT_String: dvander@1847: { dvander@1847: *pType = PropField_String; dvander@1847: break; dvander@1847: } dvander@1847: case DPT_Vector: dvander@1847: { dvander@1847: *pType = PropField_Vector; dvander@1847: break; dvander@1847: } dvander@1847: default: dvander@1847: { dvander@1847: *pType = PropField_Unsupported; dvander@1847: break; dvander@1847: } dvander@1847: } dvander@1847: dvander@1847: *pBits = info.prop->m_nBits; dvander@1847: *pLocal = info.prop->GetOffset(); dvander@1847: dvander@1847: return info.actual_offset; dvander@1847: } dvander@1847: kyle@3997: static void GuessDataPropTypes(typedescription_t *td, cell_t * pSize, cell_t * pType) kyle@3997: { kyle@3997: switch (td->fieldType) kyle@3997: { kyle@3997: case FIELD_TICK: kyle@3997: case FIELD_MODELINDEX: kyle@3997: case FIELD_MATERIALINDEX: kyle@3997: case FIELD_INTEGER: kyle@3997: case FIELD_COLOR32: kyle@3997: { kyle@3997: *pType = PropField_Integer; kyle@3997: *pSize = 32; kyle@3997: break; kyle@3997: } kyle@3997: case FIELD_VECTOR: kyle@3997: case FIELD_POSITION_VECTOR: kyle@3997: { kyle@3997: *pType = PropField_Vector; kyle@3997: *pSize = 12; kyle@3997: break; kyle@3997: } kyle@3997: case FIELD_SHORT: kyle@3997: { kyle@3997: *pType = PropField_Integer; kyle@3997: *pSize = 16; kyle@3997: break; kyle@3997: } kyle@3997: case FIELD_BOOLEAN: kyle@3997: { kyle@3997: *pType = PropField_Integer; kyle@3997: *pSize = 1; kyle@3997: break; kyle@3997: } kyle@3997: case FIELD_CHARACTER: kyle@3997: { kyle@3997: if (td->fieldSize == 1) kyle@3997: { kyle@3997: *pType = PropField_Integer; kyle@3997: *pSize = 8; kyle@3997: } kyle@3997: else kyle@3997: { kyle@3997: *pType = PropField_String; kyle@3997: *pSize = 8 * td->fieldSize; kyle@3997: } kyle@3997: break; kyle@3997: } kyle@3997: case FIELD_MODELNAME: kyle@3997: case FIELD_SOUNDNAME: kyle@3997: case FIELD_STRING: kyle@3997: { kyle@3997: *pSize = sizeof(string_t); kyle@3997: *pType = PropField_String_T; kyle@3997: break; kyle@3997: } kyle@3997: case FIELD_FLOAT: kyle@3997: case FIELD_TIME: kyle@3997: { kyle@3997: *pType = PropField_Float; kyle@3997: *pSize = 32; kyle@3997: break; kyle@3997: } kyle@3997: case FIELD_EHANDLE: kyle@3997: { kyle@3997: *pType = PropField_Entity; kyle@3997: *pSize = 32; kyle@3997: break; kyle@3997: } kyle@3997: default: kyle@3997: { kyle@3997: *pType = PropField_Unsupported; kyle@3997: *pSize = 0; kyle@3997: } kyle@3997: } kyle@3997: } kyle@3997: faluco@682: static cell_t FindDataMapOffs(IPluginContext *pContext, const cell_t *params) faluco@682: { faluco@682: CBaseEntity *pEntity; faluco@682: datamap_t *pMap; faluco@682: typedescription_t *td; faluco@682: char *offset; fyrenmoo@2879: pEntity = GetEntity(params[1]); faluco@682: pred@2746: if (!pEntity) faluco@682: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); faluco@682: } faluco@682: faluco@682: if ((pMap=CBaseEntity_GetDataDescMap(pEntity)) == NULL) faluco@682: { faluco@682: return pContext->ThrowNativeError("Unable to retrieve GetDataDescMap offset"); faluco@682: } faluco@682: faluco@682: pContext->LocalToString(params[2], &offset); kyle@3997: sm_datatable_info_t info; kyle@3997: if (!g_HL2.FindDataMapInfo(pMap, offset, &info)) faluco@682: { kyle@3997: return -1; faluco@682: } kyle@3997: kyle@3997: td = info.prop; faluco@682: dvander@1847: if (params[0] == 4) dvander@1847: { dvander@1847: cell_t *pType, *pSize; dvander@1847: dvander@1847: pContext->LocalToPhysAddr(params[3], &pType); dvander@1847: pContext->LocalToPhysAddr(params[4], &pSize); kyle@3997: kyle@3997: GuessDataPropTypes(td, pSize, pType); kyle@3997: } dvander@1847: kyle@3997: return GetTypeDescOffs(td); kyle@3997: } kyle@3997: kyle@3997: static cell_t FindDataMapInfo(IPluginContext *pContext, const cell_t *params) kyle@3997: { kyle@3997: CBaseEntity *pEntity; kyle@3997: datamap_t *pMap; kyle@3997: typedescription_t *td; kyle@3997: char *offset; kyle@3997: pEntity = GetEntity(params[1]); kyle@3997: kyle@3997: if (!pEntity) kyle@3997: { kyle@3997: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); kyle@3997: } kyle@3997: kyle@3997: if ((pMap=CBaseEntity_GetDataDescMap(pEntity)) == NULL) kyle@3997: { kyle@3997: return pContext->ThrowNativeError("Unable to retrieve GetDataDescMap offset"); kyle@3997: } kyle@3997: kyle@3997: pContext->LocalToString(params[2], &offset); kyle@3997: sm_datatable_info_t info; kyle@3997: if (!g_HL2.FindDataMapInfo(pMap, offset, &info)) kyle@3997: { kyle@3997: return -1; kyle@3997: } kyle@3997: kyle@3997: td = info.prop; kyle@3997: kyle@3997: if (params[0] >= 4) kyle@3997: { kyle@3997: cell_t *pType, *pSize; kyle@3997: kyle@3997: pContext->LocalToPhysAddr(params[3], &pType); kyle@3997: pContext->LocalToPhysAddr(params[4], &pSize); kyle@3997: kyle@3997: GuessDataPropTypes(td, pSize, pType); kyle@3997: kyle@3997: if (params[0] == 5) dvander@1847: { kyle@3997: cell_t *pLocalOffs; kyle@3997: kyle@3997: pContext->LocalToPhysAddr(params[5], &pLocalOffs); kyle@3997: kyle@3997: *pLocalOffs = GetTypeDescOffs(info.prop); dvander@1847: } dvander@1847: } dvander@1847: kyle@3997: return info.actual_offset; faluco@682: } faluco@682: faluco@694: static cell_t GetEntDataString(IPluginContext *pContext, const cell_t *params) faluco@694: { fyrenmoo@2879: CBaseEntity *pEntity = GetEntity(params[1]); faluco@694: pred@2746: if (!pEntity) faluco@694: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); faluco@694: } faluco@694: faluco@694: int offset = params[2]; faluco@694: if (offset < 0 || offset > 32768) faluco@694: { faluco@694: return pContext->ThrowNativeError("Offset %d is invalid", offset); faluco@694: } faluco@694: faluco@694: size_t len; faluco@694: char *src = (char *)((uint8_t *)pEntity + offset); faluco@694: pContext->StringToLocalUTF8(params[3], params[4], src, &len); faluco@694: faluco@694: return len; faluco@694: } faluco@694: faluco@694: static cell_t SetEntDataString(IPluginContext *pContext, const cell_t *params) faluco@694: { faluco@694: CBaseEntity *pEntity; fyrenmoo@2879: edict_t *pEdict; faluco@694: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) faluco@694: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); faluco@694: } faluco@694: faluco@694: int offset = params[2]; faluco@694: if (offset < 0 || offset > 32768) faluco@694: { faluco@694: return pContext->ThrowNativeError("Offset %d is invalid", offset); faluco@694: } faluco@694: faluco@694: char *src; faluco@694: char *dest = (char *)((uint8_t *)pEntity + offset); faluco@694: faluco@694: pContext->LocalToString(params[3], &src); faluco@694: size_t len = strncopy(dest, src, params[4]); faluco@694: pred@2746: if (params[5] && (pEdict != NULL)) faluco@694: { faluco@694: g_HL2.SetEdictStateChanged(pEdict, offset); faluco@694: } faluco@694: faluco@694: return len; faluco@694: } faluco@694: dvander@1847: #define FIND_PROP_DATA(td) \ dvander@1847: datamap_t *pMap; \ dvander@1847: if ((pMap = CBaseEntity_GetDataDescMap(pEntity)) == NULL) \ dvander@1847: { \ dvander@1847: return pContext->ThrowNativeError("Could not retrieve datamap"); \ dvander@1847: } \ kyle@3997: sm_datatable_info_t info; \ kyle@3997: if (!g_HL2.FindDataMapInfo(pMap, prop, &info)) \ dvander@1847: { \ kyle@3638: const char *class_name = g_HL2.GetEntityClassname(pEntity); \ kyle@3997: return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)", \ kyle@3997: prop, \ kyle@3997: params[1], \ kyle@3997: ((class_name) ? class_name : "")); \ kyle@3997: } \ kyle@3997: td = info.prop; dvander@1847: skamonkey@3293: #define CHECK_SET_PROP_DATA_OFFSET() \ skamonkey@3417: if (element < 0 || element >= td->fieldSize) \ skamonkey@3293: { \ skamonkey@3293: return pContext->ThrowNativeError("Element %d is out of bounds (Prop %s has %d elements).", \ skamonkey@3293: element, \ skamonkey@3293: prop, \ skamonkey@3293: td->fieldSize); \ skamonkey@3293: } \ skamonkey@3293: \ kyle@3997: offset = info.actual_offset + (element * (td->fieldSizeInBytes / td->fieldSize)); skamonkey@3293: skamonkey@3293: #define FIND_PROP_SEND(type, type_name) \ skamonkey@3293: sm_sendprop_info_t info;\ skamonkey@3762: SendProp *pProp; \ pred@2746: IServerUnknown *pUnk = (IServerUnknown *)pEntity; \ pred@2746: IServerNetworkable *pNet = pUnk->GetNetworkable(); \ dvander@1847: if (!pNet) \ dvander@1847: { \ pred@2746: return pContext->ThrowNativeError("Edict %d (%d) is not networkable", g_HL2.ReferenceToIndex(params[1]), params[1]); \ dvander@1847: } \ skamonkey@3293: if (!g_HL2.FindSendPropInfo(pNet->GetServerClass()->GetName(), prop, &info)) \ dvander@1847: { \ kyle@3638: const char *class_name = g_HL2.GetEntityClassname(pEntity); \ dvander@1847: return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)", \ dvander@1847: prop, \ dvander@1847: params[1], \ kyle@3638: ((class_name) ? class_name : "")); \ skamonkey@3293: } \ skamonkey@3293: \ skamonkey@3293: offset = info.actual_offset; \ skamonkey@3762: pProp = info.prop; \ skamonkey@3762: bit_count = pProp->m_nBits; \ skamonkey@3293: \ skamonkey@3762: switch (pProp->GetType()) \ skamonkey@3293: { \ skamonkey@3293: case type: \ skamonkey@3293: { \ skamonkey@3417: if (element != 0) \ skamonkey@3293: { \ skamonkey@3293: return pContext->ThrowNativeError("SendProp %s is not an array. Element %d is invalid.", \ skamonkey@3293: prop, \ skamonkey@3293: element); \ skamonkey@3293: } \ skamonkey@3293: break; \ skamonkey@3293: } \ skamonkey@3293: case DPT_DataTable: \ skamonkey@3293: { \ skamonkey@3293: FIND_PROP_SEND_IN_SENDTABLE(info, pProp, element, type, type_name); \ skamonkey@3293: \ skamonkey@3293: offset += pProp->GetOffset(); \ skamonkey@3293: bit_count = pProp->m_nBits; \ skamonkey@3293: break; \ skamonkey@3293: } \ skamonkey@3293: default: \ skamonkey@3293: { \ skamonkey@3293: return pContext->ThrowNativeError("SendProp %s type is not " type_name " (%d != %d)", \ skamonkey@3293: prop, \ skamonkey@3762: pProp->GetType(), \ skamonkey@3293: type); \ skamonkey@3293: } \ skamonkey@3293: } \ skamonkey@3293: skamonkey@3293: #define FIND_PROP_SEND_IN_SENDTABLE(info, pProp, element, type, type_name) \ skamonkey@3762: SendTable *pTable = pProp->GetDataTable(); \ skamonkey@3293: if (!pTable) \ skamonkey@3293: { \ skamonkey@3293: return pContext->ThrowNativeError("Error looking up DataTable for prop %s", \ skamonkey@3293: prop); \ skamonkey@3293: } \ skamonkey@3293: \ skamonkey@3293: int elementCount = pTable->GetNumProps(); \ skamonkey@3417: if (element < 0 || element >= elementCount) \ skamonkey@3293: { \ skamonkey@3293: return pContext->ThrowNativeError("Element %d is out of bounds (Prop %s has %d elements).", \ skamonkey@3293: element, \ skamonkey@3293: prop, \ skamonkey@3293: elementCount); \ skamonkey@3293: } \ skamonkey@3293: \ skamonkey@3293: pProp = pTable->GetProp(element); \ skamonkey@3293: if (pProp->GetType() != type) \ skamonkey@3293: { \ skamonkey@3293: return pContext->ThrowNativeError("SendProp %s type is not " type_name " ([%d,%d] != %d)", \ skamonkey@3293: prop, \ skamonkey@3762: pProp->GetType(), \ skamonkey@3762: pProp->m_nBits, \ skamonkey@3293: type); \ dvander@1847: } dvander@1847: skamonkey@3293: dvander@1847: inline int MatchFieldAsInteger(int field_type) dvander@1847: { dvander@1847: switch (field_type) dvander@1847: { dvander@1847: case FIELD_TICK: dvander@1847: case FIELD_MODELINDEX: dvander@1847: case FIELD_MATERIALINDEX: dvander@1847: case FIELD_INTEGER: dvander@1847: case FIELD_COLOR32: dvander@1847: return 32; dvander@1847: case FIELD_SHORT: dvander@1847: return 16; dvander@1847: case FIELD_CHARACTER: dvander@1847: return 8; dvander@1847: case FIELD_BOOLEAN: dvander@1847: return 1; dvander@1847: default: dvander@1847: return 0; dvander@1847: } dvander@1847: dvander@1847: return 0; dvander@1847: } dvander@1847: skamonkey@3293: static cell_t GetEntPropArraySize(IPluginContext *pContext, const cell_t *params) skamonkey@3293: { skamonkey@3293: CBaseEntity *pEntity; skamonkey@3293: char *prop; skamonkey@3293: edict_t *pEdict; skamonkey@3293: skamonkey@3293: if (!IndexToAThings(params[1], &pEntity, &pEdict)) skamonkey@3293: { skamonkey@3293: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); skamonkey@3293: } skamonkey@3293: skamonkey@3293: pContext->LocalToString(params[3], &prop); skamonkey@3293: skamonkey@3293: switch (params[2]) skamonkey@3293: { skamonkey@3293: case Prop_Data: skamonkey@3293: { skamonkey@3293: typedescription_t *td; skamonkey@3293: skamonkey@3293: FIND_PROP_DATA(td); skamonkey@3293: skamonkey@3293: return td->fieldSize; skamonkey@3293: } skamonkey@3293: case Prop_Send: skamonkey@3293: { skamonkey@3293: sm_sendprop_info_t info; skamonkey@3293: skamonkey@3293: IServerUnknown *pUnk = (IServerUnknown *)pEntity; skamonkey@3293: IServerNetworkable *pNet = pUnk->GetNetworkable(); skamonkey@3293: if (!pNet) skamonkey@3293: { skamonkey@3293: return pContext->ThrowNativeError("Edict %d (%d) is not networkable", g_HL2.ReferenceToIndex(params[1]), params[1]); skamonkey@3293: } skamonkey@3293: if (!g_HL2.FindSendPropInfo(pNet->GetServerClass()->GetName(), prop, &info)) skamonkey@3293: { kyle@3638: const char *class_name = g_HL2.GetEntityClassname(pEntity); skamonkey@3293: return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)", skamonkey@3293: prop, skamonkey@3293: params[1], kyle@3638: ((class_name) ? class_name : "")); skamonkey@3293: } skamonkey@3293: skamonkey@3293: if (info.prop->GetType() != DPT_DataTable) skamonkey@3293: { skamonkey@3293: return 0; skamonkey@3293: } skamonkey@3293: skamonkey@3293: SendTable *pTable = info.prop->GetDataTable(); skamonkey@3293: if (!pTable) skamonkey@3293: { skamonkey@3293: return pContext->ThrowNativeError("Error looking up DataTable for prop %s", prop); skamonkey@3293: } skamonkey@3293: skamonkey@3293: return pTable->GetNumProps(); skamonkey@3293: } skamonkey@3293: default: skamonkey@3293: { skamonkey@3293: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); skamonkey@3293: } skamonkey@3293: } skamonkey@3293: skamonkey@3293: return 1; skamonkey@3293: } skamonkey@3293: dvander@1847: static cell_t GetEntProp(IPluginContext *pContext, const cell_t *params) dvander@1847: { dvander@1847: CBaseEntity *pEntity; dvander@1847: char *prop; dvander@1847: int offset; dvander@1847: edict_t *pEdict; dvander@1847: int bit_count; skamonkey@3398: bool is_unsigned = false; dvander@1847: skamonkey@3293: int element = 0; skamonkey@3293: if (params[0] >= 5) skamonkey@3293: { skamonkey@3293: element = params[5]; skamonkey@3293: } skamonkey@3293: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@1847: } dvander@1847: dvander@1847: pContext->LocalToString(params[3], &prop); dvander@1847: dvander@1847: switch (params[2]) dvander@1847: { dvander@1847: case Prop_Data: dvander@1847: { dvander@1847: typedescription_t *td; dvander@1847: dvander@1847: FIND_PROP_DATA(td); dvander@1847: dvander@1847: if ((bit_count = MatchFieldAsInteger(td->fieldType)) == 0) dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Data field %s is not an integer (%d)", dvander@1847: prop, dvander@1847: td->fieldType); dvander@1847: } dvander@1847: skamonkey@3293: CHECK_SET_PROP_DATA_OFFSET(); skamonkey@3293: dvander@1847: break; dvander@1847: } dvander@1847: case Prop_Send: dvander@1847: { skamonkey@3293: FIND_PROP_SEND(DPT_Int, "integer"); skamonkey@3762: is_unsigned = ((pProp->GetFlags() & SPROP_UNSIGNED) == SPROP_UNSIGNED); skamonkey@3712: skamonkey@3712: // This isn't in CS:S yet, but will be, doesn't hurt to add now, and will save us a build later skamonkey@4141: #if SOURCE_ENGINE == SE_CSS || SOURCE_ENGINE == SE_HL2DM || SOURCE_ENGINE == SE_DODS || SOURCE_ENGINE == SE_SDK2013 || SOURCE_ENGINE == SE_TF2 skamonkey@3762: if (pProp->GetFlags() & SPROP_VARINT) skamonkey@3712: { skamonkey@3712: bit_count = sizeof(int) * 8; skamonkey@3712: } skamonkey@3712: #endif dvander@1847: break; dvander@1847: } dvander@1847: default: dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); dvander@1847: } dvander@1847: } dvander@1847: dvander@1847: if (bit_count < 1) dvander@1847: { dvander@1847: bit_count = params[4] * 8; dvander@1847: } dvander@1847: dvander@1847: if (bit_count >= 17) dvander@1847: { dvander@1847: return *(int32_t *)((uint8_t *)pEntity + offset); dvander@1847: } dvander@1847: else if (bit_count >= 9) dvander@1847: { skamonkey@3398: if (is_unsigned) skamonkey@3398: { skamonkey@3398: return *(uint16_t *)((uint8_t *)pEntity + offset); skamonkey@3398: } skamonkey@3398: else skamonkey@3398: { skamonkey@3398: return *(int16_t *)((uint8_t *)pEntity + offset); skamonkey@3398: } dvander@1847: } dvander@1847: else if (bit_count >= 2) dvander@1847: { skamonkey@3398: if (is_unsigned) skamonkey@3398: { skamonkey@3398: return *(uint8_t *)((uint8_t *)pEntity + offset); skamonkey@3398: } skamonkey@3398: else skamonkey@3398: { skamonkey@3398: return *(int8_t *)((uint8_t *)pEntity + offset); skamonkey@3398: } dvander@1847: } dvander@1847: else dvander@1847: { dvander@1847: return *(bool *)((uint8_t *)pEntity + offset) ? 1 : 0; dvander@1847: } dvander@1847: dvander@1847: return 0; dvander@1847: } dvander@1847: dvander@1847: static cell_t SetEntProp(IPluginContext *pContext, const cell_t *params) faluco@694: { faluco@694: CBaseEntity *pEntity; faluco@694: char *prop; faluco@694: int offset; dvander@1847: edict_t *pEdict; dvander@1847: int bit_count; dvander@1847: skamonkey@3293: int element = 0; skamonkey@3293: if (params[0] >= 6) skamonkey@3293: { skamonkey@3293: element = params[6]; skamonkey@3293: } skamonkey@3293: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@1847: } dvander@1847: dvander@1847: pContext->LocalToString(params[3], &prop); dvander@1847: dvander@1847: switch (params[2]) dvander@1847: { dvander@1847: case Prop_Data: dvander@1847: { dvander@1847: typedescription_t *td; dvander@1847: dvander@1847: FIND_PROP_DATA(td); dvander@1847: dvander@1847: if ((bit_count = MatchFieldAsInteger(td->fieldType)) == 0) dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Data field %s is not an integer (%d)", dvander@1847: prop, dvander@1847: td->fieldType); dvander@1847: } dvander@1847: skamonkey@3293: CHECK_SET_PROP_DATA_OFFSET(); skamonkey@3293: dvander@1847: break; dvander@1847: } dvander@1847: case Prop_Send: dvander@1847: { skamonkey@3293: FIND_PROP_SEND(DPT_Int, "integer"); skamonkey@3712: skamonkey@3712: // This isn't in CS:S yet, but will be, doesn't hurt to add now, and will save us a build later skamonkey@4141: #if SOURCE_ENGINE == SE_CSS || SOURCE_ENGINE == SE_HL2DM || SOURCE_ENGINE == SE_DODS || SOURCE_ENGINE == SE_SDK2013 || SOURCE_ENGINE == SE_TF2 skamonkey@3762: if (pProp->GetFlags() & SPROP_VARINT) skamonkey@3712: { skamonkey@3712: bit_count = sizeof(int) * 8; skamonkey@3712: } skamonkey@3712: #endif dvander@1847: break; dvander@1847: } dvander@1847: default: dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); dvander@1847: } dvander@1847: } dvander@1847: dvander@1847: if (bit_count < 1) dvander@1847: { dvander@1847: bit_count = params[5] * 8; dvander@1847: } dvander@1847: dvander@1847: if (bit_count >= 17) dvander@1847: { dvander@1847: *(int32_t *)((uint8_t *)pEntity + offset) = params[4]; dvander@1847: } dvander@1847: else if (bit_count >= 9) dvander@1847: { dvander@1847: *(int16_t *)((uint8_t *)pEntity + offset) = (int16_t)params[4]; dvander@1847: } dvander@1847: else if (bit_count >= 2) dvander@1847: { dvander@1847: *(int8_t *)((uint8_t *)pEntity + offset) = (int8_t)params[4]; dvander@1847: } dvander@1847: else dvander@1847: { dvander@1847: *(bool *)((uint8_t *)pEntity + offset) = params[4] ? true : false; dvander@1847: } skamonkey@3239: skamonkey@3239: if (params[2] == Prop_Send && (pEdict != NULL)) skamonkey@3239: { skamonkey@3239: g_HL2.SetEdictStateChanged(pEdict, offset); skamonkey@3239: } dvander@1847: dvander@1847: return 0; dvander@1847: } dvander@1847: dvander@1847: static cell_t GetEntPropFloat(IPluginContext *pContext, const cell_t *params) dvander@1847: { dvander@1847: CBaseEntity *pEntity; dvander@1847: char *prop; dvander@1847: int offset; skamonkey@3293: int bit_count; dvander@1847: edict_t *pEdict; dvander@1847: skamonkey@3293: int element = 0; skamonkey@3293: if (params[0] >= 4) skamonkey@3293: { skamonkey@3293: element = params[4]; skamonkey@3293: } skamonkey@3293: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@1847: } dvander@1847: dvander@1847: pContext->LocalToString(params[3], &prop); dvander@1847: dvander@1847: switch (params[2]) dvander@1847: { dvander@1847: case Prop_Data: dvander@1847: { dvander@1847: typedescription_t *td; dvander@1847: dvander@1847: FIND_PROP_DATA(td); dvander@1847: dvander@1847: if (td->fieldType != FIELD_FLOAT dvander@1847: && td->fieldType != FIELD_TIME) dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Data field %s is not a float (%d != [%d,%d])", dvander@1847: prop, dvander@1847: td->fieldType, dvander@1847: FIELD_FLOAT, dvander@1847: FIELD_TIME); dvander@1847: } dvander@1847: skamonkey@3293: CHECK_SET_PROP_DATA_OFFSET(); skamonkey@3293: dvander@1847: break; dvander@1847: } dvander@1847: case Prop_Send: dvander@1847: { skamonkey@3293: FIND_PROP_SEND(DPT_Float, "float"); dvander@1847: break; dvander@1847: } dvander@1847: default: dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); dvander@1847: } dvander@1847: } dvander@1847: dvander@1847: float val = *(float *)((uint8_t *)pEntity + offset); dvander@1847: dvander@1847: return sp_ftoc(val); dvander@1847: } dvander@1847: dvander@1847: static cell_t SetEntPropFloat(IPluginContext *pContext, const cell_t *params) dvander@1847: { dvander@1847: CBaseEntity *pEntity; dvander@1847: char *prop; dvander@1847: int offset; skamonkey@3293: int bit_count; dvander@1847: edict_t *pEdict; dvander@1847: skamonkey@3293: int element = 0; skamonkey@3293: if (params[0] >= 5) skamonkey@3293: { skamonkey@3293: element = params[5]; skamonkey@3293: } skamonkey@3293: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) faluco@694: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); faluco@694: } faluco@694: dvander@1847: pContext->LocalToString(params[3], &prop); dvander@1847: faluco@694: switch (params[2]) faluco@694: { faluco@694: case Prop_Data: faluco@694: { faluco@694: typedescription_t *td; dvander@1847: dvander@1847: FIND_PROP_DATA(td); dvander@1847: dvander@1847: if (td->fieldType != FIELD_FLOAT dvander@1847: && td->fieldType != FIELD_TIME) faluco@694: { dvander@1847: return pContext->ThrowNativeError("Data field %s is not a float (%d != [%d,%d])", dvander@1847: prop, dvander@1847: td->fieldType, dvander@1847: FIELD_FLOAT, dvander@1847: FIELD_TIME); dvander@1847: } dvander@1847: skamonkey@3293: CHECK_SET_PROP_DATA_OFFSET(); skamonkey@3293: dvander@1847: break; dvander@1847: } dvander@1847: case Prop_Send: dvander@1847: { skamonkey@3293: FIND_PROP_SEND(DPT_Float, "float"); dvander@1847: break; dvander@1847: } dvander@1847: default: dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); dvander@1847: } dvander@1847: } dvander@1847: dvander@1847: *(float *)((uint8_t *)pEntity + offset) = sp_ctof(params[4]); dvander@1847: pred@2746: if (params[2] == Prop_Send && (pEdict != NULL)) dvander@1847: { dvander@1847: g_HL2.SetEdictStateChanged(pEdict, offset); dvander@1847: } dvander@1847: dvander@1847: return 1; dvander@1847: } dvander@1847: dvander@1847: static cell_t GetEntPropEnt(IPluginContext *pContext, const cell_t *params) dvander@1847: { dvander@1847: CBaseEntity *pEntity; dvander@1847: char *prop; dvander@1847: int offset; skamonkey@3293: int bit_count; dvander@1847: edict_t *pEdict; dvander@1847: skamonkey@3293: int element = 0; skamonkey@3293: if (params[0] >= 4) skamonkey@3293: { skamonkey@3293: element = params[4]; skamonkey@3293: } skamonkey@3293: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@1847: } dvander@1847: dvander@1847: pContext->LocalToString(params[3], &prop); dvander@1847: dvander@1847: switch (params[2]) dvander@1847: { dvander@1847: case Prop_Data: dvander@1847: { dvander@1847: typedescription_t *td; dvander@1847: dvander@1847: FIND_PROP_DATA(td); dvander@1847: dvander@1847: if (td->fieldType != FIELD_EHANDLE) faluco@694: { dvander@1847: return pContext->ThrowNativeError("Data field %s is not an entity (%d != %d)", dvander@1847: prop, dvander@1847: td->fieldType, dvander@1847: FIELD_EHANDLE); faluco@694: } dvander@1847: skamonkey@3293: CHECK_SET_PROP_DATA_OFFSET(); skamonkey@3293: dvander@1847: break; dvander@1847: } dvander@1847: case Prop_Send: dvander@1847: { skamonkey@3293: FIND_PROP_SEND(DPT_Int, "integer"); dvander@1847: break; dvander@1847: } dvander@1847: default: dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); dvander@1847: } dvander@1847: } dvander@1847: dvander@1847: CBaseHandle &hndl = *(CBaseHandle *)((uint8_t *)pEntity + offset); skamonkey@3709: CBaseEntity *pHandleEntity = g_HL2.ReferenceToEntity(hndl.GetEntryIndex()); dvander@1847: skamonkey@3709: if (!pHandleEntity || hndl != reinterpret_cast(pHandleEntity)->GetRefEHandle()) skamonkey@3708: return -1; skamonkey@3708: skamonkey@3709: return g_HL2.EntityToBCompatRef(pHandleEntity); dvander@1847: } dvander@1847: dvander@1847: static cell_t SetEntPropEnt(IPluginContext *pContext, const cell_t *params) dvander@1847: { dvander@1847: CBaseEntity *pEntity; dvander@1847: char *prop; dvander@1847: int offset; skamonkey@3293: int bit_count; dvander@1847: edict_t *pEdict; dvander@1847: skamonkey@3293: int element = 0; skamonkey@3293: if (params[0] >= 5) skamonkey@3293: { skamonkey@3293: element = params[5]; skamonkey@3293: } skamonkey@3293: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@1847: } dvander@1847: dvander@1847: pContext->LocalToString(params[3], &prop); dvander@1847: dvander@1847: switch (params[2]) dvander@1847: { dvander@1847: case Prop_Data: dvander@1847: { dvander@1847: typedescription_t *td; dvander@1847: dvander@1847: FIND_PROP_DATA(td); dvander@1847: dvander@1847: if (td->fieldType != FIELD_EHANDLE) dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Data field %s is not an entity (%d != %d)", dvander@1847: prop, dvander@1847: td->fieldType, dvander@1847: FIELD_EHANDLE); dvander@1847: } dvander@1847: skamonkey@3293: CHECK_SET_PROP_DATA_OFFSET(); skamonkey@3293: faluco@694: break; faluco@694: } faluco@694: case Prop_Send: faluco@694: { skamonkey@3293: FIND_PROP_SEND(DPT_Int, "integer"); dvander@1847: break; dvander@1847: } dvander@1847: default: dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); dvander@1847: } dvander@1847: } dvander@1847: dvander@1847: CBaseHandle &hndl = *(CBaseHandle *)((uint8_t *)pEntity + offset); dvander@1847: dvander@1847: if (params[4] == -1) dvander@1847: { dvander@1847: hndl.Set(NULL); dvander@1847: } dvander@1847: else dvander@1847: { fyrenmoo@2879: CBaseEntity *pOther = GetEntity(params[4]); dvander@1847: pred@2746: if (!pOther) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[4]), params[4]); dvander@1847: } dvander@1847: pred@2746: IHandleEntity *pHandleEnt = (IHandleEntity *)pOther; pred@2746: hndl.Set(pHandleEnt); dvander@1847: } dvander@1847: pred@2746: if (params[2] == Prop_Send && (pEdict != NULL)) dvander@1847: { dvander@1847: g_HL2.SetEdictStateChanged(pEdict, offset); dvander@1847: } dvander@1847: dvander@1847: return 1; dvander@1847: } dvander@1847: dvander@1847: static cell_t GetEntPropVector(IPluginContext *pContext, const cell_t *params) dvander@1847: { dvander@1847: CBaseEntity *pEntity; dvander@1847: char *prop; dvander@1847: int offset; skamonkey@3293: int bit_count; dvander@1847: edict_t *pEdict; skamonkey@3293: skamonkey@3293: int element = 0; skamonkey@3293: if (params[0] >= 5) skamonkey@3293: { skamonkey@3293: element = params[5]; skamonkey@3293: } dvander@1847: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@1847: } dvander@1847: dvander@1847: pContext->LocalToString(params[3], &prop); dvander@1847: dvander@1847: switch (params[2]) dvander@1847: { dvander@1847: case Prop_Data: dvander@1847: { dvander@1847: typedescription_t *td; dvander@1847: dvander@1847: FIND_PROP_DATA(td); dvander@1847: dvander@1847: if (td->fieldType != FIELD_VECTOR dvander@1847: && td->fieldType != FIELD_POSITION_VECTOR) dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Data field %s is not a vector (%d != [%d,%d])", dvander@1847: prop, dvander@1847: td->fieldType, dvander@1847: FIELD_VECTOR, dvander@1847: FIELD_POSITION_VECTOR); dvander@1847: } dvander@1847: skamonkey@3293: CHECK_SET_PROP_DATA_OFFSET(); skamonkey@3293: dvander@1847: break; dvander@1847: } dvander@1847: case Prop_Send: dvander@1847: { skamonkey@3293: FIND_PROP_SEND(DPT_Vector, "vector"); dvander@1847: break; dvander@1847: } dvander@1847: default: dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); dvander@1847: } dvander@1847: } dvander@1847: dvander@1847: Vector *v = (Vector *)((uint8_t *)pEntity + offset); dvander@1847: dvander@1847: cell_t *vec; dvander@1847: pContext->LocalToPhysAddr(params[4], &vec); dvander@1847: dvander@1847: vec[0] = sp_ftoc(v->x); dvander@1847: vec[1] = sp_ftoc(v->y); dvander@1847: vec[2] = sp_ftoc(v->z); dvander@1847: dvander@1847: return 1; dvander@1847: } dvander@1847: dvander@1847: static cell_t SetEntPropVector(IPluginContext *pContext, const cell_t *params) dvander@1847: { dvander@1847: CBaseEntity *pEntity; dvander@1847: char *prop; dvander@1847: int offset; skamonkey@3293: int bit_count; dvander@1847: edict_t *pEdict; skamonkey@3293: skamonkey@3293: int element = 0; skamonkey@3293: if (params[0] >= 5) skamonkey@3293: { skamonkey@3293: element = params[5]; skamonkey@3293: } dvander@1847: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@1847: } dvander@1847: dvander@1847: pContext->LocalToString(params[3], &prop); dvander@1847: dvander@1847: switch (params[2]) dvander@1847: { dvander@1847: case Prop_Data: dvander@1847: { dvander@1847: typedescription_t *td; dvander@1847: dvander@1847: FIND_PROP_DATA(td); dvander@1847: dvander@1847: if (td->fieldType != FIELD_VECTOR dvander@1847: && td->fieldType != FIELD_POSITION_VECTOR) faluco@694: { dvander@1847: return pContext->ThrowNativeError("Data field %s is not a vector (%d != [%d,%d])", dvander@1847: prop, dvander@1847: td->fieldType, dvander@1847: FIELD_VECTOR, dvander@1847: FIELD_POSITION_VECTOR); dvander@1847: } dvander@1847: skamonkey@3293: CHECK_SET_PROP_DATA_OFFSET(); skamonkey@3293: dvander@1847: break; dvander@1847: } dvander@1847: case Prop_Send: dvander@1847: { skamonkey@3293: FIND_PROP_SEND(DPT_Vector, "vector"); dvander@1847: break; dvander@1847: } dvander@1847: default: dvander@1847: { dvander@1847: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); dvander@1847: } dvander@1847: } dvander@1847: dvander@1847: Vector *v = (Vector *)((uint8_t *)pEntity + offset); dvander@1847: dvander@1847: cell_t *vec; dvander@1847: pContext->LocalToPhysAddr(params[4], &vec); dvander@1847: dvander@1847: v->x = sp_ctof(vec[0]); dvander@1847: v->y = sp_ctof(vec[1]); dvander@1847: v->z = sp_ctof(vec[2]); dvander@1847: pred@2746: if (params[2] == Prop_Send && (pEdict != NULL)) dvander@1847: { dvander@1847: g_HL2.SetEdictStateChanged(pEdict, offset); dvander@1847: } dvander@1847: dvander@1847: return 1; dvander@1847: } dvander@1847: dvander@1847: static cell_t GetEntPropString(IPluginContext *pContext, const cell_t *params) dvander@1847: { dvander@1847: CBaseEntity *pEntity; dvander@1847: char *prop; dvander@1847: int offset; dvander@1847: edict_t *pEdict; dvander@1884: bool bIsStringIndex; skamonkey@3293: skamonkey@3293: int element = 0; skamonkey@3293: if (params[0] >= 6) skamonkey@3293: { skamonkey@3293: element = params[6]; skamonkey@3293: } dvander@1847: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) dvander@1847: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); dvander@1847: } dvander@1847: dvander@1847: pContext->LocalToString(params[3], &prop); dvander@1847: dvander@1884: bIsStringIndex = false; dvander@1884: dvander@1847: switch (params[2]) dvander@1847: { dvander@1847: case Prop_Data: dvander@1847: { dvander@1847: typedescription_t *td; dvander@1847: dvander@1847: FIND_PROP_DATA(td); dvander@1847: dvander@1884: if (td->fieldType != FIELD_CHARACTER dvander@1900: && td->fieldType != FIELD_STRING dvander@1900: && td->fieldType != FIELD_MODELNAME dvander@1900: && td->fieldType != FIELD_SOUNDNAME) faluco@694: { dvander@1847: return pContext->ThrowNativeError("Data field %s is not a string (%d != %d)", dvander@1847: prop, dvander@1847: td->fieldType, dvander@1847: FIELD_CHARACTER); faluco@694: } dvander@1847: dvander@1900: bIsStringIndex = (td->fieldType != FIELD_CHARACTER); dvander@1884: skamonkey@3417: if (bIsStringIndex && (element < 0 || element >= td->fieldSize)) skamonkey@3293: { skamonkey@3293: return pContext->ThrowNativeError("Element %d is out of bounds (Prop %s has %d elements).", skamonkey@3293: element, skamonkey@3293: prop, skamonkey@3293: td->fieldSize); skamonkey@3293: } skamonkey@3417: else if (element != 0) skamonkey@3293: { skamonkey@3293: return pContext->ThrowNativeError("Prop %s is not an array. Element %d is invalid.", skamonkey@3293: prop, skamonkey@3293: element); skamonkey@3293: } skamonkey@3293: kyle@3997: offset = info.actual_offset; skamonkey@3293: if (bIsStringIndex) skamonkey@3293: { skamonkey@3293: offset += (element * (td->fieldSizeInBytes / td->fieldSize)); skamonkey@3293: } dvander@1847: break; dvander@1847: } dvander@1847: case Prop_Send: dvander@1847: { dvander@1847: sm_sendprop_info_t info; skamonkey@3293: skamonkey@3293: IServerUnknown *pUnk = (IServerUnknown *)pEntity; skamonkey@3293: IServerNetworkable *pNet = pUnk->GetNetworkable(); skamonkey@3293: if (!pNet) skamonkey@3293: { skamonkey@3293: return pContext->ThrowNativeError("Edict %d (%d) is not networkable", g_HL2.ReferenceToIndex(params[1]), params[1]); skamonkey@3293: } skamonkey@3293: if (!g_HL2.FindSendPropInfo(pNet->GetServerClass()->GetName(), prop, &info)) skamonkey@3293: { kyle@3638: const char *class_name = g_HL2.GetEntityClassname(pEntity); skamonkey@3293: return pContext->ThrowNativeError("Property \"%s\" not found (entity %d/%s)", skamonkey@3293: prop, skamonkey@3293: params[1], kyle@3638: ((class_name) ? class_name : "")); skamonkey@3293: } dvander@1847: skamonkey@3293: offset = info.actual_offset; dvander@1847: dvander@1847: if (info.prop->GetType() != DPT_String) dvander@1847: { dvander@1847: return pContext->ThrowNativeError("SendProp %s is not a string (%d != %d)", dvander@1847: prop, dvander@1847: info.prop->GetType(), dvander@1847: DPT_String); dvander@1847: } skamonkey@3417: else if (element != 0) skamonkey@3293: { skamonkey@3293: return pContext->ThrowNativeError("SendProp %s is not an array. Element %d is invalid.", skamonkey@3293: prop, skamonkey@3293: element); skamonkey@3293: } skamonkey@3293: faluco@694: break; faluco@694: } faluco@694: default: faluco@694: { faluco@694: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); faluco@694: } faluco@694: } faluco@694: faluco@694: size_t len; dvander@1884: const char *src; dvander@1884: dvander@1884: if (!bIsStringIndex) dvander@1884: { dvander@1884: src = (char *)((uint8_t *)pEntity + offset); dvander@1884: } dvander@1884: else dvander@1884: { dvander@1884: string_t idx; dvander@1884: dvander@1884: idx = *(string_t *)((uint8_t *)pEntity + offset); dvander@1884: src = (idx == NULL_STRING) ? "" : STRING(idx); dvander@1884: } dvander@1884: faluco@694: pContext->StringToLocalUTF8(params[4], params[5], src, &len); faluco@694: faluco@694: return len; faluco@694: } faluco@694: faluco@694: static cell_t SetEntPropString(IPluginContext *pContext, const cell_t *params) faluco@694: { faluco@694: CBaseEntity *pEntity; faluco@694: char *prop; faluco@694: int offset; faluco@694: int maxlen; fyrenmoo@2879: edict_t *pEdict; faluco@694: fyrenmoo@2879: if (!IndexToAThings(params[1], &pEntity, &pEdict)) faluco@694: { pred@2746: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); faluco@694: } faluco@694: faluco@694: switch (params[2]) faluco@694: { faluco@694: case Prop_Data: faluco@694: { faluco@694: datamap_t *pMap; faluco@694: if ((pMap=CBaseEntity_GetDataDescMap(pEntity)) == NULL) faluco@694: { faluco@694: return pContext->ThrowNativeError("Unable to retrieve GetDataDescMap offset"); faluco@694: } faluco@694: pContext->LocalToString(params[3], &prop); kyle@3997: sm_datatable_info_t info; kyle@3997: if (!g_HL2.FindDataMapInfo(pMap, prop, &info)) faluco@694: { kyle@3997: return pContext->ThrowNativeError("Property \"%s\" not found for entity %d", prop, params[1]); faluco@694: } kyle@3997: kyle@3997: typedescription_t *td = info.prop; faluco@694: if (td->fieldType != FIELD_CHARACTER) faluco@694: { faluco@694: return pContext->ThrowNativeError("Property \"%s\" is not a valid string", prop); faluco@694: } kyle@3997: offset = info.actual_offset; faluco@694: maxlen = td->fieldSize; faluco@694: break; faluco@694: } faluco@694: case Prop_Send: faluco@694: { faluco@694: char *prop; pred@2746: IServerUnknown *pUnk = (IServerUnknown *)pEntity; pred@2746: IServerNetworkable *pNet = pUnk->GetNetworkable(); faluco@694: if (!pNet) faluco@694: { faluco@694: return pContext->ThrowNativeError("The edict is not networkable"); faluco@694: } faluco@694: pContext->LocalToString(params[3], &prop); faluco@694: SendProp *pSend = g_HL2.FindInSendTable(pNet->GetServerClass()->GetName(), prop); faluco@694: if (!pSend) faluco@694: { faluco@694: return pContext->ThrowNativeError("Property \"%s\" not found for entity %d", prop, params[1]); faluco@694: } faluco@694: if (pSend->GetType() != DPT_String) faluco@694: { faluco@694: return pContext->ThrowNativeError("Property \"%s\" is not a valid string", prop); faluco@694: } faluco@694: offset = pSend->GetOffset(); faluco@694: maxlen = DT_MAX_STRING_BUFFERSIZE; faluco@694: break; faluco@694: } faluco@694: default: faluco@694: { faluco@694: return pContext->ThrowNativeError("Invalid Property type %d", params[2]); faluco@694: } faluco@694: } faluco@694: faluco@694: char *src; faluco@694: char *dest = (char *)((uint8_t *)pEntity + offset); faluco@694: faluco@694: pContext->LocalToString(params[4], &src); faluco@694: size_t len = strncopy(dest, src, maxlen); faluco@694: pred@2746: if (params[2] == Prop_Send && (pEdict != NULL)) faluco@694: { faluco@694: g_HL2.SetEdictStateChanged(pEdict, offset); faluco@694: } faluco@694: faluco@694: return len; faluco@694: } faluco@694: skamonkey@3220: static int32_t SDKEntFlagToSMEntFlag(int flag) skamonkey@3220: { skamonkey@3220: switch (flag) skamonkey@3220: { skamonkey@3220: case FL_ONGROUND: skamonkey@3220: return ENTFLAG_ONGROUND; skamonkey@3220: case FL_DUCKING: skamonkey@3220: return ENTFLAG_DUCKING; skamonkey@3220: case FL_WATERJUMP: skamonkey@3220: return ENTFLAG_WATERJUMP; skamonkey@3220: case FL_ONTRAIN: skamonkey@3220: return ENTFLAG_ONTRAIN; skamonkey@3220: case FL_INRAIN: skamonkey@3220: return ENTFLAG_INRAIN; skamonkey@3220: case FL_FROZEN: skamonkey@3220: return ENTFLAG_FROZEN; skamonkey@3220: case FL_ATCONTROLS: skamonkey@3220: return ENTFLAG_ATCONTROLS; skamonkey@3220: case FL_CLIENT: skamonkey@3220: return ENTFLAG_CLIENT; skamonkey@3220: case FL_FAKECLIENT: skamonkey@3220: return ENTFLAG_FAKECLIENT; skamonkey@3220: case FL_INWATER: skamonkey@3220: return ENTFLAG_INWATER; skamonkey@3220: case FL_FLY: skamonkey@3220: return ENTFLAG_FLY; skamonkey@3220: case FL_SWIM: skamonkey@3220: return ENTFLAG_SWIM; skamonkey@3220: case FL_CONVEYOR: skamonkey@3220: return ENTFLAG_CONVEYOR; skamonkey@3220: case FL_NPC: skamonkey@3220: return ENTFLAG_NPC; skamonkey@3220: case FL_GODMODE: skamonkey@3220: return ENTFLAG_GODMODE; skamonkey@3220: case FL_NOTARGET: skamonkey@3220: return ENTFLAG_NOTARGET; skamonkey@3220: case FL_AIMTARGET: skamonkey@3220: return ENTFLAG_AIMTARGET; skamonkey@3220: case FL_PARTIALGROUND: skamonkey@3220: return ENTFLAG_PARTIALGROUND; skamonkey@3220: case FL_STATICPROP: skamonkey@3220: return ENTFLAG_STATICPROP; skamonkey@3220: case FL_GRAPHED: skamonkey@3220: return ENTFLAG_GRAPHED; skamonkey@3220: case FL_GRENADE: skamonkey@3220: return ENTFLAG_GRENADE; skamonkey@3220: case FL_STEPMOVEMENT: skamonkey@3220: return ENTFLAG_STEPMOVEMENT; skamonkey@3220: case FL_DONTTOUCH: skamonkey@3220: return ENTFLAG_DONTTOUCH; skamonkey@3220: case FL_BASEVELOCITY: skamonkey@3220: return ENTFLAG_BASEVELOCITY; skamonkey@3220: case FL_WORLDBRUSH: skamonkey@3220: return ENTFLAG_WORLDBRUSH; skamonkey@3220: case FL_OBJECT: skamonkey@3220: return ENTFLAG_OBJECT; skamonkey@3220: case FL_KILLME: skamonkey@3220: return ENTFLAG_KILLME; skamonkey@3220: case FL_ONFIRE: skamonkey@3220: return ENTFLAG_ONFIRE; skamonkey@3220: case FL_DISSOLVING: skamonkey@3220: return ENTFLAG_DISSOLVING; skamonkey@3220: case FL_TRANSRAGDOLL: skamonkey@3220: return ENTFLAG_TRANSRAGDOLL; skamonkey@3220: case FL_UNBLOCKABLE_BY_PLAYER: skamonkey@3220: return ENTFLAG_UNBLOCKABLE_BY_PLAYER; skamonkey@3220: #if SOURCE_ENGINE == SE_ALIENSWARM skamonkey@3220: case FL_FREEZING: skamonkey@3220: return ENTFLAG_FREEZING; skamonkey@4141: #elif SOURCE_ENGINE == SE_HL2DM || SOURCE_ENGINE == SE_DODS || SOURCE_ENGINE == SE_SDK2013 || SOURCE_ENGINE == SE_CSS || SOURCE_ENGINE == SE_TF2 skamonkey@3220: case FL_EP2V_UNKNOWN: skamonkey@3220: return ENTFLAG_EP2V_UNKNOWN1; skamonkey@3220: #endif skamonkey@3220: default: skamonkey@3220: return 0; skamonkey@3220: } skamonkey@3220: } skamonkey@3220: skamonkey@3220: static int32_t SMEntFlagToSDKEntFlag(int32_t flag) skamonkey@3220: { skamonkey@3220: switch (flag) skamonkey@3220: { skamonkey@3220: case ENTFLAG_ONGROUND: skamonkey@3220: return FL_ONGROUND; skamonkey@3220: case ENTFLAG_DUCKING: skamonkey@3220: return FL_DUCKING; skamonkey@3220: case ENTFLAG_WATERJUMP: skamonkey@3220: return FL_WATERJUMP; skamonkey@3220: case ENTFLAG_ONTRAIN: skamonkey@3220: return FL_ONTRAIN; skamonkey@3220: case ENTFLAG_INRAIN: skamonkey@3220: return FL_INRAIN; skamonkey@3220: case ENTFLAG_FROZEN: skamonkey@3220: return FL_FROZEN; skamonkey@3220: case ENTFLAG_ATCONTROLS: skamonkey@3220: return FL_ATCONTROLS; skamonkey@3220: case ENTFLAG_CLIENT: skamonkey@3220: return FL_CLIENT; skamonkey@3220: case ENTFLAG_FAKECLIENT: skamonkey@3220: return FL_FAKECLIENT; skamonkey@3220: case ENTFLAG_INWATER: skamonkey@3220: return FL_INWATER; skamonkey@3220: case ENTFLAG_FLY: skamonkey@3220: return FL_FLY; skamonkey@3220: case ENTFLAG_SWIM: skamonkey@3220: return FL_SWIM; skamonkey@3220: case ENTFLAG_CONVEYOR: skamonkey@3220: return FL_CONVEYOR; skamonkey@3220: case ENTFLAG_NPC: skamonkey@3220: return FL_NPC; skamonkey@3220: case ENTFLAG_GODMODE: skamonkey@3220: return FL_GODMODE; skamonkey@3220: case ENTFLAG_NOTARGET: skamonkey@3220: return FL_NOTARGET; skamonkey@3220: case ENTFLAG_AIMTARGET: skamonkey@3220: return FL_AIMTARGET; skamonkey@3220: case ENTFLAG_PARTIALGROUND: skamonkey@3220: return FL_PARTIALGROUND; skamonkey@3220: case ENTFLAG_STATICPROP: skamonkey@3220: return FL_STATICPROP; skamonkey@3220: case ENTFLAG_GRAPHED: skamonkey@3220: return FL_GRAPHED; skamonkey@3220: case ENTFLAG_GRENADE: skamonkey@3220: return FL_GRENADE; skamonkey@3220: case ENTFLAG_STEPMOVEMENT: skamonkey@3220: return FL_STEPMOVEMENT; skamonkey@3220: case ENTFLAG_DONTTOUCH: skamonkey@3220: return FL_DONTTOUCH; skamonkey@3220: case ENTFLAG_BASEVELOCITY: skamonkey@3220: return FL_BASEVELOCITY; skamonkey@3220: case ENTFLAG_WORLDBRUSH: skamonkey@3220: return FL_WORLDBRUSH; skamonkey@3220: case ENTFLAG_OBJECT: skamonkey@3220: return FL_OBJECT; skamonkey@3220: case ENTFLAG_KILLME: skamonkey@3220: return FL_KILLME; skamonkey@3220: case ENTFLAG_ONFIRE: skamonkey@3220: return FL_ONFIRE; skamonkey@3220: case ENTFLAG_DISSOLVING: skamonkey@3220: return FL_DISSOLVING; skamonkey@3220: case ENTFLAG_TRANSRAGDOLL: skamonkey@3220: return FL_TRANSRAGDOLL; skamonkey@3220: case ENTFLAG_UNBLOCKABLE_BY_PLAYER: skamonkey@3220: return FL_UNBLOCKABLE_BY_PLAYER; skamonkey@3220: #if SOURCE_ENGINE == SE_ALIENSWARM skamonkey@3220: case ENTFLAG_FREEZING: skamonkey@3220: return FL_FREEZING; skamonkey@4141: #elif SOURCE_ENGINE == SE_HL2DM || SOURCE_ENGINE == SE_DODS || SOURCE_ENGINE == SE_SDK2013 || SOURCE_ENGINE == SE_CSS || SOURCE_ENGINE == SE_TF2 skamonkey@3220: case ENTFLAG_EP2V_UNKNOWN1: skamonkey@3220: return FL_EP2V_UNKNOWN; skamonkey@3220: #endif skamonkey@3220: default: skamonkey@3220: return 0; skamonkey@3220: } skamonkey@3220: } skamonkey@3220: skamonkey@3220: static cell_t GetEntityFlags(IPluginContext *pContext, const cell_t *params) skamonkey@3220: { skamonkey@3220: CBaseEntity *pEntity = g_HL2.ReferenceToEntity(params[1]); skamonkey@3220: if (!pEntity) skamonkey@3220: { skamonkey@3220: return pContext->ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); skamonkey@3220: } skamonkey@3220: skamonkey@3220: const char *prop = g_pGameConf->GetKeyValue("m_fFlags"); skamonkey@3220: if (!prop) skamonkey@3220: { skamonkey@3220: return pContext->ThrowNativeError("Could not find m_fFlags prop in gamedata"); skamonkey@3220: } skamonkey@3220: skamonkey@3220: datamap_t *pMap; skamonkey@3220: skamonkey@3220: if ((pMap = CBaseEntity_GetDataDescMap(pEntity)) == NULL) skamonkey@3220: { skamonkey@3220: return pContext->ThrowNativeError("Could not retrieve datamap"); skamonkey@3220: } kyle@3997: kyle@3997: sm_datatable_info_t info; kyle@3997: if (!g_HL2.FindDataMapInfo(pMap, prop, &info)) skamonkey@3220: { skamonkey@3220: return pContext->ThrowNativeError("Property \"%s\" not found (entity %d)", skamonkey@3220: prop, skamonkey@3220: params[1]); skamonkey@3220: } skamonkey@3220: kyle@3997: int offset = info.actual_offset; skamonkey@3220: skamonkey@3220: int32_t actual_flags = *(int32_t *)((uint8_t *)pEntity + offset); skamonkey@3220: int32_t sm_flags = 0; skamonkey@3220: skamonkey@3220: for (int32_t i = 0; i < 32; i++) skamonkey@3220: { skamonkey@3220: int32_t flag = (1<ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); skamonkey@3220: } skamonkey@3220: skamonkey@3220: const char *prop = g_pGameConf->GetKeyValue("m_fFlags"); skamonkey@3220: if (!prop) skamonkey@3220: { skamonkey@3220: return pContext->ThrowNativeError("Could not find m_fFlags prop in gamedata"); skamonkey@3220: } skamonkey@3220: skamonkey@3220: datamap_t *pMap; skamonkey@3220: skamonkey@3220: if ((pMap = CBaseEntity_GetDataDescMap(pEntity)) == NULL) skamonkey@3220: { skamonkey@3220: return pContext->ThrowNativeError("Could not retrieve datamap"); skamonkey@3220: } kyle@3997: kyle@3997: sm_datatable_info_t info; kyle@3997: if (!g_HL2.FindDataMapInfo(pMap, prop, &info)) skamonkey@3220: { skamonkey@3220: return pContext->ThrowNativeError("Property \"%s\" not found (entity %d)", skamonkey@3220: prop, skamonkey@3220: params[1]); skamonkey@3220: } skamonkey@3220: kyle@3997: int offset = info.actual_offset; skamonkey@3220: skamonkey@3220: int32_t sm_flags = params[2]; skamonkey@3220: int32_t actual_flags = 0; skamonkey@3220: skamonkey@3220: for (int32_t i = 0; i < 32; i++) skamonkey@3220: { skamonkey@3220: int32_t flag = (1<ThrowNativeError("Entity %d (%d) is invalid", g_HL2.ReferenceToIndex(params[1]), params[1]); prodigysim@3585: } prodigysim@3585: return reinterpret_cast(pEntity); prodigysim@3585: } prodigysim@3585: dvander@555: REGISTER_NATIVES(entityNatives) dvander@555: { dvander@558: {"ChangeEdictState", ChangeEdictState}, dvander@555: {"CreateEdict", CreateEdict}, dvander@1847: {"FindDataMapOffs", FindDataMapOffs}, dvander@1847: {"FindSendPropInfo", FindSendPropInfo}, dvander@561: {"FindSendPropOffs", FindSendPropOffs}, dvander@556: {"GetEdictClassname", GetEdictClassname}, dvander@555: {"GetEdictFlags", GetEdictFlags}, dvander@557: {"GetEntData", GetEntData}, dvander@1847: {"GetEntDataEnt", GetEntDataEnt}, /** DEPRECATED */ dvander@1847: {"GetEntDataEnt2", GetEntDataEnt2}, dvander@557: {"GetEntDataFloat", GetEntDataFloat}, dvander@1847: {"GetEntDataString", GetEntDataString}, dvander@557: {"GetEntDataVector", GetEntDataVector}, dvander@1847: {"GetEntProp", GetEntProp}, skamonkey@3293: {"GetEntPropArraySize", GetEntPropArraySize}, dvander@1847: {"GetEntPropEnt", GetEntPropEnt}, dvander@1847: {"GetEntPropFloat", GetEntPropFloat}, dvander@1847: {"GetEntPropString", GetEntPropString}, dvander@1847: {"GetEntPropVector", GetEntPropVector}, dvander@603: {"GetEntityCount", GetEntityCount}, skamonkey@3220: {"GetEntityFlags", GetEntityFlags}, dvander@556: {"GetEntityNetClass", GetEntityNetClass}, dvander@555: {"GetMaxEntities", GetMaxEntities}, dvander@555: {"IsEntNetworkable", IsEntNetworkable}, dvander@555: {"IsValidEdict", IsValidEdict}, dvander@555: {"IsValidEntity", IsValidEntity}, dvander@555: {"RemoveEdict", RemoveEdict}, dvander@555: {"SetEdictFlags", SetEdictFlags}, dvander@557: {"SetEntData", SetEntData}, dvander@1847: {"SetEntDataEnt", SetEntDataEnt}, /** DEPRECATED */ dvander@1847: {"SetEntDataEnt2", SetEntDataEnt2}, dvander@557: {"SetEntDataFloat", SetEntDataFloat}, dvander@557: {"SetEntDataVector", SetEntDataVector}, faluco@694: {"SetEntDataString", SetEntDataString}, skamonkey@3220: {"SetEntityFlags", SetEntityFlags}, dvander@1847: {"SetEntProp", SetEntProp}, dvander@1847: {"SetEntPropEnt", SetEntPropEnt}, dvander@1847: {"SetEntPropFloat", SetEntPropFloat}, faluco@694: {"SetEntPropString", SetEntPropString}, dvander@1847: {"SetEntPropVector", SetEntPropVector}, prodigysim@3585: {"GetEntityAddress", GetEntityAddress}, kyle@3997: {"FindDataMapInfo", FindDataMapInfo}, faluco@588: {NULL, NULL} dvander@555: };