engineapi.pas

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

  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;
  function  TPlayObject_wClientType(PlayObject:TPlayObject):PWord;stdcall;
  function  TPlayObject_sBankPassword(PlayObject:TPlayObject):_LPTBANKPWD;stdcall;
  function  TPlayObject_nBankGold(PlayObject:TPlayObject):PInteger;stdcall;
  function  TPlayObject_Create():TPlayObject;stdcall;
  procedure TPlayObject_Free(PlayObject:TPlayObject);stdcall;
  procedure TPlayObject_SendSocket(PlayObject:TPlayObject;DefMsg:_LPTDEFAULTMESSAGE;pszMsg:PChar);stdcall;
  procedure TPlayObject_SendDefMessage(PlayObject:TPlayObject;wIdent:Word;nRecog:Integer;nParam,nTag,nSeries:Word;pszMsg:PChar);stdcall;

  function  TPlayObject_IsEnoughBag(PlayObject:TPlayObject):Boolean;stdcall;
  procedure TPlayObject_SendAddItem(PlayObject:TPlayObject;AddItem:_LPTUSERITEM);stdcall;
  procedure TPlayObject_SendDelItem(PlayObject:TPlayObject;AddItem:_LPTUSERITEM);stdcall;
  function  TPlayObject_TargetInNearXY(PlayObject:TPlayObject;Target:TBaseObject; nX,nY: Integer):Boolean;stdcall;
  procedure TPlayObject_SetBankPassword(PlayObject:TPlayObject;pszPassword:PChar);stdcall;

  function  TPlayObject_GetPlayObjectTick(PlayObject:TPlayObject;nCount:Integer):PLongWord;stdcall;
  procedure TPlayObject_SetPlayObjectTick(PlayObject:TPlayObject;nCount:Integer);stdcall;

  procedure TPlayObject_SetHookCreate(PlugHandle: THandle;PlayObjectCreate:_TOBJECTACTION);stdcall;
  function  TPlayObject_GetHookCreate():_TOBJECTACTION;stdcall;
  procedure TPlayObject_SetHookDestroy(PlugHandle: THandle;PlayObjectDestroy:_TOBJECTACTION);stdcall;
  function  TPlayObject_GetHookDestroy():_TOBJECTACTION;stdcall;
  procedure TPlayObject_SetHookUserLogin1(PlayObjectUserLogin:_TOBJECTACTION);stdcall;
  procedure TPlayObject_SetHookUserLogin2(PlayObjectUserLogin:_TOBJECTACTION);stdcall;
  procedure TPlayObject_SetHookUserLogin3(PlayObjectUserLogin:_TOBJECTACTION);stdcall;
  procedure TPlayObject_SetHookUserLogin4(PlayObjectUserLogin:_TOBJECTACTION);stdcall;

  procedure TPlayObject_SetHookUserCmd(PlugHandle: THandle;PlayObjectUserCmd:_TOBJECTUSERCMD);stdcall;
  function  TPlayObject_GetHookUserCmd():_TOBJECTUSERCMD;stdcall;

  procedure TPlayObject_SetHookPlayOperateMessage(PlugHandle: THandle;PlayObjectOperateMessage:_TOBJECTOPERATEMESSAGE);stdcall;
  function  TPlayObject_GetHookPlayOperateMessage():_TOBJECTOPERATEMESSAGE;stdcall;
  procedure TPlayObject_SetHookClientQueryBagItems(ClientQueryBagItems:_TOBJECTACTION);stdcall;
  procedure TPlayObject_SetHookClientQueryUserState(ClientQueryUserState:_TOBJECTACTIONXY);stdcall;
  procedure TPlayObject_SetHookSendActionGood(SendActionGood:_TOBJECTACTION);stdcall;
  procedure TPlayObject_SetHookSendActionFail(SendActionFail:_TOBJECTACTION);stdcall;

  procedure TPlayObject_SetHookSendWalkMsg(ObjectActioinXYD:_TOBJECTACTIONXYD);stdcall;
  procedure TPlayObject_SetHookSendHorseRunMsg(ObjectActioinXYD:_TOBJECTACTIONXYD);stdcall;
  procedure TPlayObject_SetHookSendRunMsg(ObjectActioinXYD:_TOBJECTACTIONXYD);stdcall;
  procedure TPlayObject_SetHookSendDeathMsg(ObjectActioinXYDM:_TOBJECTACTIONXYDM);stdcall;
  procedure TPlayObject_SetHookSendSkeletonMsg(ObjectActioinXYD:_TOBJECTACTIONXYD);stdcall;
  procedure TPlayObject_SetHookSendAliveMsg(ObjectActioinXYD:_TOBJECTACTIONXYD);stdcall;
  procedure TPlayObject_SetHookSendSpaceMoveMsg(ObjectActioinXYDWS:_TOBJECTACTIONXYDWS);stdcall;
  procedure TPlayObject_SetHookSendChangeFaceMsg(ObjectActioinObject:_TOBJECTACTIONOBJECT);stdcall;
  procedure TPlayObject_SetHookSendUseitemsMsg(ObjectActioin:_TOBJECTACTION);stdcall;
  procedure TPlayObject_SetHookSendUserLevelUpMsg(ObjectActioinObject:_TOBJECTACTION);stdcall;
  procedure TPlayObject_SetHookSendUserAbilieyMsg(ObjectActioinObject:_TOBJECTACTION);stdcall;
  procedure TPlayObject_SetHookSendUserStatusMsg(ObjectActioinXYDWS:_TOBJECTACTIONXYDWS);stdcall;
  procedure TPlayObject_SetHookSendUserStruckMsg(ObjectActioinObject:_TOBJECTACTIONOBJECT);stdcall;
  procedure TPlayObject_SetHookSendUseMagicMsg(ObjectActioin:_TOBJECTACTION);stdcall;
  procedure TPlayObject_SetHookSendSocket(SendSocket:_TPLAYSENDSOCKET);stdcall;
  procedure TPlayObject_SetHookSendGoodsList(SendGoodsList:_TOBJECTACTIONSENDGOODS);stdcall;
  procedure TPlayObject_SetCheckClientDropItem(ActionDropItem:_TOBJECTACTIONITEM);stdcall;
  procedure TPlayObject_SetCheckClientDealItem(ActionItem:_TOBJECTACTIONITEM);stdcall;
  procedure TPlayObject_SetCheckClientStorageItem(ActionItem:_TOBJECTACTIONITEM);stdcall;
  procedure TPlayObject_SetCheckClientRepairItem(ActionItem:_TOBJECTACTIONITEM);stdcall;
  procedure TPlayObject_SetHookCheckUserItems(ObjectActioin:_TOBJECTACTIONCHECKUSEITEM);stdcall;
  procedure TPlayObject_SetHookRun(PlayRun:_TOBJECTACTION);stdcall;
  procedure TPlayObject_SetHookFilterMsg(FilterMsg:_TOBJECTFILTERMSG);stdcall;

  procedure TPlayObject_SetHookUserRunMsg(ObjectUserRunMsg: _TOBJECTUSERRUNMSG); stdcall;
  procedure TPlayObject_SetUserInPutInteger(PlayObject: TPlayObject; nData: Integer); stdcall;
  procedure TPlayObject_SetUserInPutString(PlayObject: TPlayObject; pszData: PChar); stdcall;
  function TPlayObject_IncGold(PlayObject: TPlayObject; nAddGold: Integer): Boolean; stdcall;
  procedure TPlayObject_IncGameGold(PlayObject: TPlayObject; nAddGameGold: Integer); stdcall;
  procedure TPlayObject_IncGamePoint(PlayObject: TPlayObject; nAddGamePoint: Integer); stdcall;
  function TPlayObject_DecGold(PlayObject: TPlayObject; nDecGold: Integer): Boolean; stdcall;
  procedure TPlayObject_DecGameGold(PlayObject: TPlayObject; nDecGameGold: Integer); stdcall;
  procedure TPlayObject_DecGamePoint(PlayObject: TPlayObject; nDecGamePoint: Integer); stdcall;


  function  TNormNpc_sFilePath(NormNpc:TNormNpc):_LPTPATHNAME;stdcall;
  function  TNormNpc_sPath(NormNpc:TNormNpc):_LPTPATHNAME;stdcall;
  procedure TNormNpc_GetLineVariableText(NormNpc:TNormNpc;BaseObject: TBaseObject;pszMsg:PChar;pszOutMsg:PChar;nOutMsgLen:Integer);stdcall;
  procedure TNormNpc_SetScriptActionCmd(PlugHandle: THandle;ActionCmd:_TSCRIPTCMD);stdcall;
  function  TNormNpc_GetScriptActionCmd():_TSCRIPTCMD;stdcall;

  procedure TNormNpc_SetScriptConditionCmd(PlugHandle: THandle;ConditionCmd:_TSCRIPTCMD);stdcall;
  function  TNormNpc_GetScriptConditionCmd():_TSCRIPTCMD;stdcall;

  function  TNormNpc_GetManageNpc():TNormNpc;stdcall;
  function  TNormNpc_GetFunctionNpc():TNormNpc;stdcall;
  procedure TNormNpc_GotoLable(NormNpc:TNormNpc;PlayObject:TPlayObject;pszLabel:PChar);stdcall;

  procedure TNormNpc_SetScriptAction(PlugHandle: THandle;ScriptAction:_TSCRIPTACTION);stdcall;
  function  TNormNpc_GetScriptAction():_TSCRIPTACTION;stdcall;

  procedure TNormNpc_SetScriptCondition(PlugHandle: THandle;ScriptAction:_TSCRIPTCONDITION);stdcall;
  function  TNormNpc_GetScriptCondition():_TSCRIPTCONDITION;stdcall;
  function  TMerchant_GoodsList(Merchant:TMerchant):TList;stdcall;

  function  TMerchant_GetItemPrice(Merchant:TMerchant;nIndex:Integer):Integer;stdcall;
  function  TMerchant_GetUserPrice(Merchant:TMerchant;PlayObject:TPlayObject;nPrice:Integer):Integer;stdcall;
  function  TMerchant_GetUserItemPrice(Merchant:TMerchant;UserItem:_LPTUSERITEM):Integer;stdcall;

  procedure TMerchant_SetHookClientGetDetailGoodsList(GetDetailGoods:_TOBJECTACTIONDETAILGOODS);stdcall;
  function  TMerchant_SetCheckUserSelect(PlugHandle: THandle;ObjectActionUserSelect: _TOBJECTACTIONUSERSELECT): Boolean; stdcall;
  function  TMerchant_GetCheckUserSelect(): _TOBJECTACTIONUSERSELECT; stdcall;

  function  TUserEngine_Create():TUserEngine;stdcall;
  procedure TUserEngine_Free(UserEngine:TUserEngine);stdcall;
  function  TUserEngine_GetUserEngine():TUserEngine;stdcall;

  function  TUserEngine_GetPlayObject(szPlayName:PChar;boGetHide:Boolean):TPlayObject;stdcall;

  function  TUserEngine_GetLoadPlayList():TStringList;stdcall;
  function  TUserEngine_GetPlayObjectList():TStringList;stdcall;
  function  TUserEngine_GetLoadPlayCount():Integer;stdcall;
  function  TUserEngine_GetPlayObjectCount():Integer;stdcall;
  function  TUserEngine_GetStdItemByName(pszItemName:PChar): _LPTSTDITEM;stdcall;
  function  TUserEngine_GetStdItemByIndex(nIndex:Integer): _LPTSTDITEM;stdcall;
  function TUserEngine_CopyToUserItemFromName(const pszItemName:PChar;UserItem:_LPTUSERITEM):BOOL;stdcall;

  function TUserEngine_GetStdItemList(): TList; stdcall;

  function  TMapManager_FindMap(pszMapName:PChar):TEnvirnoment;stdcall;
  function  TEnvirnoment_GetRangeBaseObject(Envir:TEnvirnoment;nX, nY, nRage: Integer; boFlag: Boolean;BaseObjectList: TList): Integer;stdcall;
  function  TEnvirnoment_boCANRIDE(Envir:TEnvirnoment):PBoolean;stdcall;
  function  TEnvirnoment_boCANBAT(Envir:TEnvirnoment):PBoolean;stdcall;

  procedure TUserEngine_SetHookRun(PlugHandle: THandle;UserEngineRun:_TOBJECTACTION);stdcall;
  function  TUserEngine_GetHookRun():_TOBJECTACTION;stdcall;
  procedure TUserEngine_SetHookClientUserMessage(ClientMsg:_TOBJECTCLIENTMSG);stdcall;

  function  TGuild_RankList(Guild:TGuild):TList;stdcall;

  procedure TItemUnit_GetItemAddValue(UserItem: _LPTUSERITEM;var StdItem:_TSTDITEM);stdcall;

  function  TMagicManager_GetMagicManager():TMagicManager;stdcall;
  function  TMagicManager_DoSpell(MagicManager:TMagicManager;PlayObject: TPlayObject;UserMagic: _LPTUSERMAGIC; nTargetX, nTargetY: Integer;TargeTBaseObject: TBaseObject):Boolean;stdcall;

  function  TMagicManager_MPow(UserMagic:_LPTUSERMAGIC):Integer;stdcall;
  function  TMagicManager_GetPower(nPower:Integer;UserMagic:_LPTUSERMAGIC):Integer;stdcall;
  function  TMagicManager_GetPower13(nInt:Integer;UserMagic:_LPTUSERMAGIC):Integer;stdcall;
  function  TMagicManager_GetRPow(wInt:Integer):Word;stdcall;
  function  TMagicManager_IsWarrSkill(MagicManager:TMagicManager;wMagIdx: Integer): Boolean;stdcall;

  function  TMagicManager_MagBigHealing(MagicManager:TMagicManager;PlayObject:TBaseObject;nPower,nX,nY:integer):Boolean;stdcall;
  function  TMagicManager_MagPushArround(MagicManager:TMagicManager;PlayObject:TBaseObject; nPushLevel: integer): integer;stdcall;
  function  TMagicManager_MagPushArroundTaos(MagicManager:TMagicManager;PlayObject: TBaseObject;nPushLevel: integer): integer;stdcall;
  function  TMagicManager_MagTurnUndead(MagicManager:TMagicManager;BaseObject,TargeTBaseObject:TBaseObject;nTargetX,nTargetY:Integer;nLevel:Integer):Boolean;stdcall;
  function  TMagicManager_MagMakeHolyCurtain(MagicManager:TMagicManager;BaseObject:TBaseObject;nPower:Integer;nX,nY:Integer):Integer;stdcall;
  function  TMagicManager_MagMakeGroupTransparent(MagicManager:TMagicManager;BaseObject:TBaseObject;nX,nY:Integer;nHTime:Integer):Boolean;stdcall;
  function  TMagicManager_MagTamming(MagicManager:TMagicManager;BaseObject,TargeTBaseObject:TBaseObject;nTargetX,nTargetY:Integer;nMagicLevel:Integer):Boolean;stdcall;
  function  TMagicManager_MagSaceMove(MagicManager:TMagicManager;BaseObject:TBaseObject;nLevel:integer):Boolean;stdcall;
  function  TMagicManager_MagMakeFireCross(MagicManager:TMagicManager;PlayObject:TPlayObject;nDamage,nHTime,nX,nY:Integer):Integer;stdcall;
  function  TMagicManager_MagBigExplosion(MagicManager:TMagicManager;BaseObject:TBaseObject;nPower,nX,nY:Integer;nRage:Integer):Boolean;stdcall;
  function  TMagicManager_MagElecBlizzard(MagicManager:TMagicManager;BaseObject:TBaseObject;nPower:integer):Boolean;stdcall;
  function  TMagicManager_MabMabe(MagicManager:TMagicManager;BaseObject,TargeTBaseObject: TBaseObject;nPower,nLevel, nTargetX, nTargetY: Integer):Boolean;stdcall;
  function  TMagicManager_MagMakeSlave(MagicManager:TMagicManager;PlayObject:TPlayObject;UserMagic:_LPTUSERMAGIC):Boolean;stdcall;
  function  TMagicManager_MagMakeSinSuSlave(MagicManager:TMagicManager;PlayObject:TPlayObject;UserMagic:_LPTUSERMAGIC):Boolean;stdcall;
  function  TMagicManager_MagWindTebo(MagicManager:TMagicManager;PlayObject:TPlayObject;UserMagic:_LPTUSERMAGIC):Boolean;stdcall;
  function  TMagicManager_MagGroupLightening(MagicManager:TMagicManager;PlayObject:TPlayObject;UserMagic:_LPTUSERMAGIC;nTargetX,nTargetY:Integer;TargeTBaseObject:TBaseObject; var boSpellFire:Boolean):Boolean;stdcall;
  function  TMagicManager_MagGroupAmyounsul(MagicManager:TMagicManager;PlayObject:TPlayObject;UserMagic:_LPTUSERMAGIC;nTargetX,nTargetY:Integer;TargeTBaseObject:TBaseObject):Boolean;stdcall;
  function  TMagicManager_MagGroupDeDing(MagicManager:TMagicManager;PlayObject:TPlayObject;UserMagic:_LPTUSERMAGIC;nTargetX,nTargetY:Integer;TargeTBaseObject:TBaseObject):Boolean;stdcall;
  function  TMagicManager_MagGroupMb(MagicManager:TMagicManager;PlayObject:TPlayObject;UserMagic:_LPTUSERMAGIC;nTargetX,nTargetY:Integer;TargeTBaseObject:TBaseObject):Boolean;stdcall;
  function  TMagicManager_MagHbFireBall(MagicManager:TMagicManager;PlayObject:TPlayObject;UserMagic:_LPTUSERMAGIC;nTargetX,nTargetY:Integer;var TargeTBaseObject:TBaseObject):Boolean;stdcall;
  function  TMagicManager_MagLightening(MagicManager:TMagicManager;PlayObject:TPlayObject;UserMagic:_LPTUSERMAGIC;nTargetX,nTargetY:Integer;var TargeTBaseObject:TBaseObject):Boolean;stdcall;
  procedure TMagicManager_SetHookDoSpell(doSpell:_TDOSPELL);stdcall;
  procedure TRunSocket_CloseUser(GateIdx, nSocket: Integer); stdcall;
  procedure TRunSocket_SetHookExecGateMsgOpen(RunSocketExecGateMsg: TRunSocketObject_Open); stdcall;
  procedure TRunSocket_SetHookExecGateMsgClose(RunSocketExecGateMsg: TRunSocketObject_Close); stdcall;
  procedure TRunSocket_SetHookExecGateMsgEeceive_OK(RunSocketExecGateMsg: TRunSocketObject_Eeceive_OK); stdcall;
  procedure TRunSocket_SetHookExecGateMsgData(RunSocketExecGateMsg: TRunSocketObject_Data); stdcall;


  procedure ShortStringToPChar(S:_LPTSHORTSTRING;pszDest:PChar);
implementation
//将短字符类型的数据转换成PChar
//pszDest指向的字符大小在256个字符
procedure ShortStringToPChar(S:_LPTSHORTSTRING;pszDest:PChar);
begin