engineapi.pas

飘飘M2 本人更新加入英雄系统 修正BUG 全套的源码上传 不看要后悔啊！

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;

  function  TConfig_sEnvirDir():_LPTDIRNAME;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_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;

  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  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;