engineapi.pas

M2server 的功能插件 值得研究 此插件支持最新英雄M2

unit EngineAPI;

interface
uses
  Windows, EngineType;
function TList_Create(): TList; stdcall;
procedure TList_Free(List: TList); stdcall;
function TList_Count(List: TList): Integer; stdcall;
function TList_Add(List: TList; Item: Pointer): Integer; stdcall;
procedure TList_Insert(List: TList; nIndex: Integer; Item: Pointer); stdcall;
function TList_Get(List: TList; nIndex: Integer): Pointer; stdcall;
procedure TList_Put(List: TList; nIndex: Integer; Item: Pointer); stdcall;
procedure TList_Delete(List: TList; nIndex: Integer); stdcall;
procedure TList_Clear(List: TList); stdcall;
procedure TList_Exchange(List: TList; nIndex1, nIndex2: Integer); stdcall;

function TStringList_Create(): TStringList; stdcall;
procedure TStringList_Free(List: TStringList); stdcall;
function TStringList_Count(List: TStringList): Integer; stdcall;
function TStringList_Add(List: TStringList; S: PChar): Integer; stdcall;
function TStringList_AddObject(List: TStringList; S: PChar; AObject: TObject): Integer; stdcall;
procedure TStringList_Insert(List: TStringList; nIndex: Integer; S: PChar); stdcall;
function TStringList_Get(List: TStringList; nIndex: Integer): PChar; stdcall;
function TStringList_GetObject(List: TStringList; nIndex: Integer): TObject; stdcall;
procedure TStringList_Put(List: TStringList; nIndex: Integer; S: PChar); stdcall;
procedure TStringList_PutObject(List: TStringList; nIndex: Integer; AObject: TObject); stdcall;
procedure TStringList_Delete(List: TStringList; nIndex: Integer); stdcall;
procedure TStringList_Clear(List: TStringList); stdcall;
procedure TStringList_Exchange(List: TStringList; nIndex1, nIndex2: Integer); stdcall;
procedure TStringList_LoadFormFile(List: TStringList; pszFileName: PChar); stdcall;
procedure TStringList_SaveToFile(List: TStringList; pszFileName: PChar); stdcall;
procedure MainOutMessage(pszMsg: PChar); stdcall;
procedure AddGameDataLog(pszMsg: PChar); stdcall;
function GetGameGoldName(): _LPTSHORTSTRING; stdcall;

procedure EDcode_Decode6BitBuf(pszSource: PChar; pszDest: PChar; nSrcLen, nDestLen: Integer); stdcall;
procedure EDcode_Encode6BitBuf(pszSource: PChar; pszDest: PChar; nSrcLen, nDestLen: Integer); stdcall;
procedure EDcode_SetDecode(Decode: _TEDCODE); stdcall;
procedure EDcode_SetEncode(Encode: _TEDCODE); stdcall;
procedure EDcode_DeCodeString(pszSource: PChar; pszDest: PChar); stdcall;
procedure EDcode_EncodeString(pszSource: PChar; pszDest: PChar); stdcall;
procedure EDcode_EncodeBuffer(Buf: PChar; bufsize: Integer; pszDest: PChar); stdcall;
procedure EDcode_DecodeBuffer(pszSource: PChar; pszDest: PChar; bufsize: Integer); stdcall;

function TConfig_sEnvirDir(): _LPTDIRNAME; stdcall;
function TConfig_AmyOunsulPoint: PInteger; stdcall;

function TBaseObject_Create(): TBaseObject; stdcall;
procedure TBaseObject_Free(BaseObject: TBaseObject); stdcall;
function TBaseObject_sMapFileName(BaseObject: TBaseObject): _LPTSHORTSTRING; stdcall;
function TBaseObject_sMapName(BaseObject: TBaseObject): _LPTSHORTSTRING; stdcall;
function TBaseObject_sMapNameA(BaseObject: TBaseObject): _LPTMAPNAME; stdcall;
function TBaseObject_sCharName(BaseObject: TBaseObject): _LPTSHORTSTRING; stdcall;
function TBaseObject_sCharNameA(BaseObject: TBaseObject): _LPTACTORNAME; stdcall;

function TBaseObject_nCurrX(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_nCurrY(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_btDirection(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_btGender(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_btHair(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_btJob(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_nGold(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_Ability(BaseObject: TBaseObject): _LPTABILITY; stdcall;

function TBaseObject_WAbility(BaseObject: TBaseObject): _LPTABILITY; stdcall;
function TBaseObject_nCharStatus(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_sHomeMap(BaseObject: TBaseObject): _LPTSHORTSTRING; stdcall;
function TBaseObject_nHomeX(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_nHomeY(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_boOnHorse(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_btHorseType(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_btDressEffType(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_nPkPoint(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_boAllowGroup(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_boAllowGuild(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_nFightZoneDieCount(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_nBonusPoint(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_nHungerStatus(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_boAllowGuildReCall(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_duBodyLuck(BaseObject: TBaseObject): PDouble; stdcall;
function TBaseObject_nBodyLuckLevel(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_wGroupRcallTime(BaseObject: TBaseObject): PWord; stdcall;
function TBaseObject_boAllowGroupReCall(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_nCharStatusEx(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_dwFightExp(BaseObject: TBaseObject): PLongWord; stdcall;
function TBaseObject_nViewRange(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_wAppr(BaseObject: TBaseObject): PWord; stdcall;
function TBaseObject_btRaceServer(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_btRaceImg(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_btHitPoint(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_nHitPlus(BaseObject: TBaseObject): PShortInt; stdcall;
function TBaseObject_nHitDouble(BaseObject: TBaseObject): PShortInt; stdcall;
function TBaseObject_boRecallSuite(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_nHealthRecover(BaseObject: TBaseObject): PShortInt; stdcall;
function TBaseObject_nSpellRecover(BaseObject: TBaseObject): PShortInt; stdcall;
function TBaseObject_btAntiPoison(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_nPoisonRecover(BaseObject: TBaseObject): PShortInt; stdcall;
function TBaseObject_nAntiMagic(BaseObject: TBaseObject): PShortInt; stdcall;
function TBaseObject_nLuck(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_nPerHealth(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_nPerHealing(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_nPerSpell(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_btGreenPoisoningPoint(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_nGoldMax(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_btSpeedPoint(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_btPermission(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_nHitSpeed(BaseObject: TBaseObject): PShortInt; stdcall;
function TBaseObject_TargetCret(BaseObject: TBaseObject): PTBaseObject; stdcall;
function TBaseObject_LastHiter(BaseObject: TBaseObject): PTBaseObject; stdcall;
function TBaseObject_ExpHiter(BaseObject: TBaseObject): PTBaseObject; stdcall;
function TBaseObject_btLifeAttrib(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_GroupOwner(BaseObject: TBaseObject): TBaseObject; stdcall;
function TBaseObject_GroupMembersList(BaseObject: TBaseObject): TStringList; stdcall;
function TBaseObject_boHearWhisper(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_boBanShout(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_boBanGuildChat(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_boAllowDeal(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_nSlaveType(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_Master(BaseObject: TBaseObject): PTBaseObject; stdcall;
function TBaseObject_btAttatckMode(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_nNameColor(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_nLight(BaseObject: TBaseObject): PInteger; stdcall;
function TBaseObject_ItemList(BaseObject: TBaseObject): TList; stdcall;
function TBaseObject_MagicList(BaseObject: TBaseObject): TList; stdcall;
function TBaseObject_MyGuild(BaseObject: TBaseObject): TGuild; stdcall;
function TBaseObject_UseItems(BaseObject: TBaseObject): _LPTPLAYUSEITEMS; stdcall;
function TBaseObject_btMonsterWeapon(BaseObject: TBaseObject): PByte; stdcall;
function TBaseObject_PEnvir(BaseObject: TBaseObject): PTEnvirnoment; stdcall;
function TBaseObject_boGhost(BaseObject: TBaseObject): PBoolean; stdcall;
function TBaseObject_boDeath(BaseObject: TBaseObject): PBoolean; stdcall;

function TBaseObject_DeleteBagItem(BaseObject: TBaseObject; UserItem: _LPTUSERITEM): BOOL; stdcall;

function TBaseObject_AddCustomData(BaseObject: TBaseObject; Data: Pointer): Integer; stdcall;
function TBaseObject_GetCustomData(BaseObject: TBaseObject; nIndex: Integer): Pointer; stdcall;

procedure TBaseObject_SendMsg(SelfObject, BaseObject: TBaseObject; wIdent, wParam: Word; nParam1, nParam2, nParam3: Integer; pszMsg: PChar); stdcall;
procedure TBaseObject_SendRefMsg(BaseObject: TBaseObject; wIdent, wParam: Word; nParam1, nParam2, nParam3: Integer; pszMsg: PChar); stdcall;
procedure TBaseObject_SendDelayMsg(SelfObject, BaseObject: TBaseObject; wIdent, wParam: Word; nParam1, nParam2, nParam3: Integer; pszMsg: PChar; dwDelayTime: LongWord); stdcall;

procedure TBaseObject_SysMsg(BaseObject: TBaseObject; pszMsg: PChar; MsgColor: _TMSGCOLOR; MsgType: _TMSGTYPE); stdcall;
function TBaseObject_GetFrontPosition(BaseObject: TBaseObject; var nX: Integer; var nY: Integer): Boolean; stdcall;
function TBaseObject_GetRecallXY(BaseObject: TBaseObject; nX, nY: Integer; nRange: Integer; var nDX: Integer; var nDY: Integer): Boolean; stdcall;
procedure TBaseObject_SpaceMove(BaseObject: TBaseObject; pszMap: PChar; nX, nY: Integer; nInt: Integer); stdcall;
procedure TBaseObject_FeatureChanged(BaseObject: TBaseObject); stdcall;
procedure TBaseObject_StatusChanged(BaseObject: TBaseObject); stdcall;
function TBaseObject_GetFeatureToLong(BaseObject: TBaseObject): Integer; stdcall;
function TBaseObject_GetFeature(SelfObject, BaseObject: TBaseObject): Integer; stdcall;
function TBaseObject_GetCharColor(SelfObject, BaseObject: TBaseObject): Byte; stdcall;
function TBaseObject_GetNamecolor(BaseObject: TBaseObject): Byte; stdcall;
procedure TBaseObject_GoldChanged(BaseObject: TBaseObject); stdcall;
procedure TBaseObject_GameGoldChanged(BaseObject: TBaseObject); stdcall;
function TBaseObject_MagCanHitTarget(BaseObject: TBaseObject; nX, nY: Integer; TargeTBaseObject: TBaseObject): Boolean; stdcall;

procedure TBaseObject_SetTargetCreat(AObject, BObject: TBaseObject); stdcall;
function TBaseObject_IsProtectTarget(AObject, BObject: TBaseObject): Boolean; stdcall;
function TBaseObject_IsAttackTarget(AObject, BObject: TBaseObject): Boolean; stdcall;
function TBaseObject_IsProperTarget(AObject, BObject: TBaseObject): Boolean; stdcall;
function TBaseObject_IsProperFriend(AObject, BObject: TBaseObject): Boolean; stdcall;
procedure TBaseObject_TrainSkillPoint(BaseObject: TBaseObject; UserMagic: _LPTUSERMAGIC; nTranPoint: Integer); stdcall;
function TBaseObject_GetAttackPower(BaseObject: TBaseObject; nBasePower, nPower: Integer): Integer; stdcall;
function TBaseObject_MakeSlave(BaseObject: TBaseObject; pszMonName: PChar; nMakeLevel, nExpLevel, nMaxMob, nType: Integer; dwRoyaltySec: LongWord): TBaseObject; stdcall;
procedure TBaseObject_MakeGhost(BaseObject: TBaseObject); stdcall;
procedure TBaseObject_RefNameColor(BaseObject: TBaseObject); stdcall;
//AddItem 占用内存由自己处理，API内部会自动申请内存
function TBaseObject_AddItemToBag(BaseObject: TBaseObject; AddItem: _LPTUSERITEM): BOOL; stdcall;
function TBaseObject_AddItemToStorage(BaseObject: TBaseObject; AddItem: _LPTUSERITEM): BOOL; stdcall;
procedure TBaseObject_ClearBagItem(BaseObject: TBaseObject); stdcall;
procedure TBaseObject_ClearStorageItem(BaseObject: TBaseObject); stdcall;

procedure TBaseObject_SetHookGetFeature(ObjectActionFeature: _TOBJECTACTIONFEATURE); stdcall;
procedure TBaseObject_SetHookEnterAnotherMap(EnterAnotherMap: _TOBJECTACTIONENTERMAP); stdcall;
procedure TBaseObject_SetHookObjectDie(ObjectDie: _TOBJECTACTIONEX); stdcall;
procedure TBaseObject_SetHookChangeCurrMap(ChangeCurrMap: _TOBJECTACTIONEX); stdcall;
function TBaseObject_GetPoseCreate(BaseObject: TBaseObject): TBaseObject; stdcall;
function TBaseObject_MagMakeDefenceArea(BaseObject: TBaseObject; nX, nY, nRange, nSec: Integer; btState: Byte; boState: Boolean): Integer; stdcall;
function TBaseObject_MagBubbleDefenceUp(BaseObject: TBaseObject; nLevel, nSec: Integer): Boolean; stdcall;

function TPlayObject_nSoftVersionDate(PlayObject: TPlayObject): PInteger; stdcall;
function TPlayObject_nSoftVersionDateEx(PlayObject: TPlayObject): PInteger; stdcall;
function TPlayObject_dLogonTime(PlayObject: TPlayObject): PDateTime; stdcall;
function TPlayObject_dwLogonTick(PlayObject: TPlayObject): PLongWord; stdcall;
function TPlayObject_nMemberType(PlayObject: TPlayObject): PInteger; stdcall;
function TPlayObject_nMemberLevel(PlayObject: TPlayObject): PInteger; stdcall;
function TPlayObject_nGameGold(PlayObject: TPlayObject): PInteger; stdcall;
function TPlayObject_nGamePoint(PlayObject: TPlayObject): PInteger; stdcall;
function TPlayObject_nPayMentPoint(PlayObject: TPlayObject): PInteger; stdcall;
function TPlayObject_nClientFlag(PlayObject: TPlayObject): PInteger; stdcall;
function TPlayObject_nSelectID(PlayObject: TPlayObject): PInteger; stdcall;
function TPlayObject_nClientFlagMode(PlayObject: TPlayObject): PInteger; stdcall;
function TPlayObject_dwClientTick(PlayObject: TPlayObject): PLongWord; stdcall;