m2server.dpr

飞尔传奇世界的引擎代码可直接编译M2Engine 请使用Delphi编译

program M2Server;

uses
  Forms,
  Windows,
  Graphics,
  svMain in 'svMain.pas' {FrmMain},
  LocalDB in 'LocalDB.pas' {FrmDB},
  InterServerMsg in 'InterServerMsg.pas' {FrmSrvMsg},
  InterMsgClient in 'InterMsgClient.pas' {FrmMsgClient},
  IdSrvClient in 'IdSrvClient.pas' {FrmIDSoc},
  FSrvValue in 'FSrvValue.pas' {FrmServerValue},
  UsrEngn in 'UsrEngn.pas',
  ObjNpc in 'ObjNpc.pas',
  ObjMon2 in 'ObjMon2.pas',
  ObjMon in 'ObjMon.pas',
  ObjGuard in 'ObjGuard.pas',
  ObjBase in 'ObjBase.pas',
  ObjAxeMon in 'ObjAxeMon.pas',
  NoticeM in 'NoticeM.pas',
  Mission in 'Mission.pas',
  Magic in 'Magic.pas',
  M2Share in 'M2Share.pas',
  ItmUnit in 'ItmUnit.pas',
  FrnEngn in 'FrnEngn.pas',
  Event in 'Event.pas',
  Envir in 'Envir.pas',
  Castle in 'Castle.pas',
  RunDB in 'RunDB.pas',
  RunSock in 'RunSock.pas',
  HUtil32 in '..\Common\HUtil32.pas',
  Mudutil in '..\Common\Mudutil.pas',
  PlugIn in 'PlugIn.pas',
  GeneralConfig in 'GeneralConfig.pas' {frmGeneralConfig},
  GameConfig in 'GameConfig.pas' {frmGameConfig},
  FunctionConfig in 'FunctionConfig.pas' {frmFunctionConfig},
  ObjRobot in 'ObjRobot.pas',
  BnkEngn in 'BnkEngn.pas',
  ViewSession in 'ViewSession.pas' {frmViewSession},
  ViewOnlineHuman in 'ViewOnlineHuman.pas' {frmViewOnlineHuman},
  ViewLevel in 'ViewLevel.pas' {frmViewLevel},
  ViewList in 'ViewList.pas' {frmViewList},
  OnlineMsg in 'OnlineMsg.pas' {frmOnlineMsg},
  HumanInfo in 'HumanInfo.pas' {frmHumanInfo},
  ViewKernelInfo in 'ViewKernelInfo.pas' {frmViewKernelInfo},
  ConfigMerchant in 'ConfigMerchant.pas' {frmConfigMerchant},
  ItemSet in 'ItemSet.pas' {frmItemSet},
  ConfigMonGen in 'ConfigMonGen.pas' {frmConfigMonGen},
  PlugInManage in 'PlugInManage.pas' {ftmPlugInManage},
  GameCommand in 'GameCommand.pas' {frmGameCmd},
  MonsterConfig in 'MonsterConfig.pas' {frmMonsterConfig},
  UnitManage in 'UnitManage.pas',
  JClasses in 'JClasses.pas',
  ActionSpeedConfig in 'ActionSpeedConfig.pas' {frmActionSpeed},
  EDcode in '..\Common\EDcode.pas',
  CastleManage in 'CastleManage.pas' {frmCastleManage},
  Common in '..\Common\Common.pas',
  EngineRegister in 'EngineRegister.pas' {FrmRegister},
  AttackSabukWallConfig in 'AttackSabukWallConfig.pas' {FrmAttackSabukWall},
  AboutUnit in 'AboutUnit.pas' {FrmAbout},
  ObjPlayMon in 'ObjPlayMon.pas',
  EDcodeUnit in '..\Common\EDcodeUnit.pas',
  Guild in 'Guild.pas',
  Grobal2 in '..\Common\Grobal2.pas',
  DESTR in '..\Common\DESTR.pas',
  ObjPlayRobot in 'ObjPlayRobot.pas',
  ObjHero in 'ObjHero.pas',
  SDK in '..\Common\SDK.pas',
  HeroConfig in 'HeroConfig.pas' {frmHeroConfig},
  PlugOfEngine in 'PlugOfEngine.pas';

//------------------------------------------------------------------------------
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                {PlugOfEngine}//引擎输出函数
exports
  TList_Create Name 'TList_Create',
  TList_Free Name 'TList_Free',
  TList_Count Name 'TList_Count',
  TList_Add Name 'TList_Add',
  TList_Insert Name 'TList_Insert',
  TList_Get Name 'TList_Get',
  TList_Put Name 'TList_Put',
  TList_Delete Name 'TList_Delete',
  TList_Clear Name 'TList_Clear',
  TList_Exchange Name 'TList_Exchange',

  TStringList_Create Name 'TStringList_Create',
  TStringList_Free Name 'TStringList_Free',
  TStringList_Count Name 'TStringList_Count',
  TStringList_Add Name 'TStringList_Add',
  TStringList_AddObject Name 'TStringList_AddObject',
  TStringList_Insert Name 'TStringList_Insert',
  TStringList_Get Name 'TStringList_Get',
  TStringList_GetObject Name 'TStringList_GetObject',
  TStringList_Put Name 'TStringList_Put',
  TStringList_PutObject Name 'TStringList_PutObject',
  TStringList_Delete Name 'TStringList_Delete',
  TStringList_Clear Name 'TStringList_Clear',
  TStringList_Exchange Name 'TStringList_Exchange',
  TStringList_LoadFormFile Name 'TStringList_LoadFormFile',
  TStringList_SaveToFile Name 'TStringList_SaveToFile',

  MainOutMessageAPI Name 'MainOutMessageAPI',
  AddGameDataLogAPI Name 'AddGameDataLogAPI',
  GetGameGoldName Name 'GetGameGoldName',

  EDcode_Decode6BitBuf Name 'EDcode_Decode6BitBuf',
  EDcode_Encode6BitBuf Name 'EDcode_Encode6BitBuf',
  EDcode_SetDecode Name 'EDcode_SetDecode',
  EDcode_SetEncode Name 'EDcode_SetEncode',

  EDcode_DeCodeString Name 'EDcode_DeCodeString',
  EDcode_EncodeString Name 'EDcode_EncodeString',
  EDcode_EncodeBuffer Name 'EDcode_EncodeBuffer',
  EDcode_DecodeBuffer Name 'EDcode_DecodeBuffer',

  TConfig_AmyOunsulPoint Name 'TConfig_AmyOunsulPoint',
  TConfig_sEnvirDir Name 'TConfig_sEnvirDir',

  TBaseObject_Create Name 'TBaseObject_Create',
  TBaseObject_Free Name 'TBaseObject_Free',
  TBaseObject_sMapFileName Name 'TBaseObject_sMapFileName',
  TBaseObject_sMapName Name 'TBaseObject_sMapName',
  TBaseObject_sMapNameA Name 'TBaseObject_sMapNameA',
  TBaseObject_sCharName Name 'TBaseObject_sCharName',
  TBaseObject_sCharNameA Name 'TBaseObject_sCharNameA',
  TBaseObject_nCurrX Name 'TBaseObject_nCurrX',
  TBaseObject_nCurrY Name 'TBaseObject_nCurrY',
  TBaseObject_btDirection Name 'TBaseObject_btDirection',
  TBaseObject_btGender Name 'TBaseObject_btGender',
  TBaseObject_btHair Name 'TBaseObject_btHair',
  TBaseObject_btJob Name 'TBaseObject_btJob',
  TBaseObject_nGold Name 'TBaseObject_nGold',
  TBaseObject_Ability Name 'TBaseObject_Ability',
  TBaseObject_WAbility Name 'TBaseObject_WAbility',
  TBaseObject_nCharStatus Name 'TBaseObject_nCharStatus',
  TBaseObject_sHomeMap Name 'TBaseObject_sHomeMap',
  TBaseObject_nHomeX Name 'TBaseObject_nHomeX',
  TBaseObject_nHomeY Name 'TBaseObject_nHomeY',
  TBaseObject_boOnHorse Name 'TBaseObject_boOnHorse',
  TBaseObject_btHorseType Name 'TBaseObject_btHorseType',
  TBaseObject_btDressEffType Name 'TBaseObject_btDressEffType',
  TBaseObject_nPkPoint Name 'TBaseObject_nPkPoint',

  TBaseObject_nFightZoneDieCount Name 'TBaseObject_nFightZoneDieCount',
  TBaseObject_nBonusPoint Name 'TBaseObject_nBonusPoint',
  TBaseObject_duBodyLuck Name 'TBaseObject_duBodyLuck',
  TBaseObject_nBodyLuckLevel Name 'TBaseObject_nBodyLuckLevel',

  TBaseObject_nCharStatusEx Name 'TBaseObject_nCharStatusEx',
  TBaseObject_dwFightExp Name 'TBaseObject_dwFightExp',
  TBaseObject_nViewRange Name 'TBaseObject_nViewRange',
  TBaseObject_wAppr Name 'TBaseObject_wAppr',
  TBaseObject_btRaceServer Name 'TBaseObject_btRaceServer',
  TBaseObject_btRaceImg Name 'TBaseObject_btRaceImg',
  TBaseObject_btHitPoint Name 'TBaseObject_btHitPoint',
  TBaseObject_nHitPlus Name 'TBaseObject_nHitPlus',
  TBaseObject_nHitDouble Name 'TBaseObject_nHitDouble',
  TBaseObject_boRecallSuite Name 'TBaseObject_boRecallSuite',
  TBaseObject_nHealthRecover Name 'TBaseObject_nHealthRecover',
  TBaseObject_nSpellRecover Name 'TBaseObject_nSpellRecover',
  TBaseObject_btAntiPoison Name 'TBaseObject_btAntiPoison',
  TBaseObject_nPoisonRecover Name 'TBaseObject_nPoisonRecover',
  TBaseObject_nAntiMagic Name 'TBaseObject_nAntiMagic',
  TBaseObject_nLuck Name 'TBaseObject_nLuck',
  TBaseObject_nPerHealth Name 'TBaseObject_nPerHealth',
  TBaseObject_nPerHealing Name 'TBaseObject_nPerHealing',
  TBaseObject_nPerSpell Name 'TBaseObject_nPerSpell',
  TBaseObject_btGreenPoisoningPoint Name 'TBaseObject_btGreenPoisoningPoint',
  TBaseObject_nGoldMax Name 'TBaseObject_nGoldMax',
  TBaseObject_btSpeedPoint Name 'TBaseObject_btSpeedPoint',
  TBaseObject_btPermission Name 'TBaseObject_btPermission',
  TBaseObject_nHitSpeed Name 'TBaseObject_nHitSpeed',
  TBaseObject_TargetCret Name 'TBaseObject_TargetCret',
  TBaseObject_LastHiter Name 'TBaseObject_LastHiter',
  TBaseObject_ExpHiter Name 'TBaseObject_ExpHitter',
  TBaseObject_btLifeAttrib Name 'TBaseObject_btLifeAttrib',

  TBaseObject_nSlaveType Name 'TBaseObject_nSlaveType',
  TBaseObject_Master Name 'TBaseObject_Master',
  TBaseObject_btAttatckMode Name 'TBaseObject_btAttatckMode',
  TBaseObject_btNameColor Name 'TBaseObject_btNameColor',
  TBaseObject_nLight Name 'TBaseObject_nLight',
  TBaseObject_ItemList Name 'TBaseObject_ItemList',
  TBaseObject_MagicList Name 'TBaseObject_MagicList',
  TBaseObject_MyGuild Name 'TBaseObject_MyGuild',
  TBaseObject_UseItems Name 'TBaseObject_UseItems',
  TBaseObject_btMonsterWeapon Name 'TBaseObject_btMonsterWeapon',
  TBaseObject_PEnvir Name 'TBaseObject_PEnvir',
  TBaseObject_boGhost Name 'TBaseObject_boGhost',
  TBaseObject_boDeath Name 'TBaseObject_boDeath',
  TBaseObject_DeleteBagItem Name 'TBaseObject_DeleteBagItem',
  TBaseObject_AddCustomData Name 'TBaseObject_AddCustomData',
  TBaseObject_GetCustomData Name 'TBaseObject_GetCustomData',
  TBaseObject_SendMsg Name 'TBaseObject_SendMsg',
  TBaseObject_SendRefMsg Name 'TBaseObject_SendRefMsg',
  TBaseObject_SendDelayMsg Name 'TBaseObject_SendDelayMsg',
  TBaseObject_SysMsg Name 'TBaseObject_SysMsg',
  TBaseObject_GetFrontPosition Name 'TBaseObject_GetFrontPosition',
  TBaseObject_GetRecallXY Name 'TBaseObject_GetRecallXY',
  TBaseObject_SpaceMove Name 'TBaseObject_SpaceMove',
  TBaseObject_FeatureChanged Name 'TBaseObject_FeatureChanged',
  TBaseObject_StatusChanged Name 'TBaseObject_StatusChanged',
  TBaseObject_GetFeatureToLong Name 'TBaseObject_GetFeatureToLong',
  TBaseObject_GetFeature Name 'TBaseObject_GetFeature',
  TBaseObject_GetCharColor Name 'TBaseObject_GetCharColor',
  TBaseObject_GetNamecolor Name 'TBaseObject_GetNamecolor',
  TBaseObject_GoldChanged Name 'TBaseObject_GoldChanged',
  TBaseObject_GameGoldChanged Name 'TBaseObject_GameGoldChanged',
  TBaseObject_MagCanHitTarget Name 'TBaseObject_MagCanHitTarget',
  TBaseObject_SetTargetCreat Name 'TBaseObject_SetTargetCreat',
  TBaseObject_IsProtectTarget Name 'TBaseObject_IsProtectTarget',
  TBaseObject_IsAttackTarget Name 'TBaseObject_IsAttackTarget',
  TBaseObject_IsProperTarget Name 'TBaseObject_IsProperTarget',
  TBaseObject_IsProperFriend Name 'TBaseObject_IsProperFriend',
  TBaseObject_TrainSkillPoint Name 'TBaseObject_TrainSkillPoint',
  TBaseObject_GetAttackPower Name 'TBaseObject_GetAttackPower',
  TBaseObject_MakeSlave Name 'TBaseObject_MakeSlave',
  TBaseObject_MakeGhost Name 'TBaseObject_MakeGhost',
  TBaseObject_RefNameColor Name 'TBaseObject_RefNameColor',
  //AddItem 占用内存由自己处理，API内部会自动申请内存
  TBaseObject_AddItemToBag Name 'TBaseObject_AddItemToBag',
  TBaseObject_ClearBagItem Name 'TBaseObject_ClearBagItem',
  TBaseObject_SetHookGetFeature Name 'TBaseObject_SetHookGetFeature',
  TBaseObject_SetHookEnterAnotherMap Name 'TBaseObject_SetHookEnterAnotherMap',
  TBaseObject_SetHookObjectDie Name 'TBaseObject_SetHookObjectDie',
  TBaseObject_SetHookChangeCurrMap Name 'TBaseObject_SetHookChangeCurrMap',
  TBaseObject_GetPoseCreate Name 'TBaseObject_GetPoseCreate',
  TBaseObject_MagMakeDefenceArea Name 'TBaseObject_MagMakeDefenceArea',
  TBaseObject_MagBubbleDefenceUp Name 'TBaseObject_MagBubbleDefenceUp',
  TBaseObject_GetBaseObjectTick Name 'TBaseObject_GetBaseObjectTick',

  TPlayObject_AddItemToStorage Name 'TPlayObject_AddItemToStorage',
  TPlayObject_ClearStorageItem Name 'TPlayObject_ClearStorageItem',