m2server.dpr

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

  TPlayObject_GroupOwner Name 'TPlayObject_GroupOwner',
  TPlayObject_GroupMembersList Name 'TPlayObject_GroupMembersList',
  TPlayObject_boHearWhisper Name 'TPlayObject_boHearWhisper',
  TPlayObject_boBanShout Name 'TPlayObject_boBanShout',
  TPlayObject_boBanGuildChat Name 'TPlayObject_boBanGuildChat',
  TPlayObject_boAllowDeal Name 'TPlayObject_boAllowDeal',
  TPlayObject_boAllowGroup Name 'TPlayObject_boAllowGroup',
  TPlayObject_boAllowGuild Name 'TPlayObject_boAllowGuild',
  TPlayObject_nHungerStatus Name 'TPlayObject_nHungerStatus',
  TPlayObject_boAllowGuildReCall Name 'TPlayObject_boAllowGuildReCall',
  TPlayObject_wGroupRcallTime Name 'TPlayObject_wGroupRcallTime',
  TPlayObject_boAllowGroupReCall Name 'TPlayObject_boAllowGroupReCall',

  TPlayObject_IsEnoughBag Name 'TPlayObject_IsEnoughBag',
  TPlayObject_nSoftVersionDate Name 'TPlayObject_nSoftVersionDate',
  TPlayObject_nSoftVersionDateEx Name 'TPlayObject_nSoftVersionDateEx',
  TPlayObject_dLogonTime Name 'TPlayObject_dLogonTime',
  TPlayObject_dwLogonTick Name 'TPlayObject_dwLogonTick',
  TPlayObject_nMemberType Name 'TPlayObject_nMemberType',
  TPlayObject_nMemberLevel Name 'TPlayObject_nMemberLevel',
  TPlayObject_nGameGold Name 'TPlayObject_nGameGold',
  TPlayObject_nGamePoint Name 'TPlayObject_nGamePoint',
  TPlayObject_nPayMentPoint Name 'TPlayObject_nPayMentPoint',
  TPlayObject_nClientFlag Name 'TPlayObject_nClientFlag',
  TPlayObject_nSelectID Name 'TPlayObject_nSelectID',
  TPlayObject_nClientFlagMode Name 'TPlayObject_nClientFlagMode',
  TPlayObject_dwClientTick Name 'TPlayObject_dwClientTick',
  TPlayObject_wClientType Name 'TPlayObject_wClientType',
  TPlayObject_sBankPassword Name 'TPlayObject_sBankPassword',
  TPlayObject_nBankGold Name 'TPlayObject_nBankGold',
  TPlayObject_Create Name 'TPlayObject_Create',
  TPlayObject_Free Name 'TPlayObject_Free',
  TPlayObject_SendSocket Name 'TPlayObject_SendSocket',
  TPlayObject_SendDefMessage Name 'TPlayObject_SendDefMessage',
  TPlayObject_SendAddItem Name 'TPlayObject_SendAddItem',
  TPlayObject_SendDelItem Name 'TPlayObject_SendDelItem',
  TPlayObject_TargetInNearXY Name 'TPlayObject_TargetInNearXY',
  TPlayObject_SetBankPassword Name 'TPlayObject_SetBankPassword',

  TPlayObject_SetHookCreate Name 'TPlayObject_SetHookCreate',
  TPlayObject_GetHookCreate Name 'TPlayObject_GetHookCreate',
  TPlayObject_SetHookDestroy Name 'TPlayObject_SetHookDestroy',
  TPlayObject_GetHookDestroy Name 'TPlayObject_GetHookDestroy',
  TPlayObject_SetHookUserLogin1 Name 'TPlayObject_SetHookUserLogin1',
  TPlayObject_SetHookUserLogin2 Name 'TPlayObject_SetHookUserLogin2',
  TPlayObject_SetHookUserLogin3 Name 'TPlayObject_SetHookUserLogin3',
  TPlayObject_SetHookUserLogin4 Name 'TPlayObject_SetHookUserLogin4',
  TPlayObject_SetHookUserCmd Name 'TPlayObject_SetHookUserCmd',
  TPlayObject_GetHookUserCmd Name 'TPlayObject_GetHookUserCmd',
  TPlayObject_SetHookPlayOperateMessage Name 'TPlayObject_SetHookPlayOperateMessage',
  TPlayObject_GetHookPlayOperateMessage Name 'TPlayObject_GetHookPlayOperateMessage',
  TPlayObject_SetHookClientQueryBagItems Name 'TPlayObject_SetHookClientQueryBagItems',
  TPlayObject_SetHookClientQueryUserState Name 'TPlayObject_SetHookClientQueryUserState',
  TPlayObject_SetHookSendActionGood Name 'TPlayObject_SetHookSendActionGood',
  TPlayObject_SetHookSendActionFail Name 'TPlayObject_SetHookSendActionFail',
  TPlayObject_SetHookSendWalkMsg Name 'TPlayObject_SetHookSendWalkMsg',
  TPlayObject_SetHookSendHorseRunMsg Name 'TPlayObject_SetHookSendHorseRunMsg',
  TPlayObject_SetHookSendRunMsg Name 'TPlayObject_SetHookSendRunMsg',
  TPlayObject_SetHookSendDeathMsg Name 'TPlayObject_SetHookSendDeathMsg',
  TPlayObject_SetHookSendSkeletonMsg Name 'TPlayObject_SetHookSendSkeletonMsg',
  TPlayObject_SetHookSendAliveMsg Name 'TPlayObject_SetHookSendAliveMsg',
  TPlayObject_SetHookSendSpaceMoveMsg Name 'TPlayObject_SetHookSendSpaceMoveMsg',
  TPlayObject_SetHookSendChangeFaceMsg Name 'TPlayObject_SetHookSendChangeFaceMsg',
  TPlayObject_SetHookSendUseitemsMsg Name 'TPlayObject_SetHookSendUseitemsMsg',
  TPlayObject_SetHookSendUserLevelUpMsg Name 'TPlayObject_SetHookSendUserLevelUpMsg',
  TPlayObject_SetHookSendUserAbilieyMsg Name 'TPlayObject_SetHookSendUserAbilieyMsg',
  TPlayObject_SetHookSendUserStatusMsg Name 'TPlayObject_SetHookSendUserStatusMsg',
  TPlayObject_SetHookSendUserStruckMsg Name 'TPlayObject_SetHookSendUserStruckMsg',
  TPlayObject_SetHookSendUseMagicMsg Name 'TPlayObject_SetHookSendUseMagicMsg',
  TPlayObject_SetHookSendSocket Name 'TPlayObject_SetHookSendSocket',
  TPlayObject_SetHookSendGoodsList Name 'TPlayObject_SetHookSendGoodsList',
  TPlayObject_SetCheckClientDropItem Name 'TPlayObject_SetCheckClientDropItem',
  TPlayObject_SetCheckClientDealItem Name 'TPlayObject_SetCheckClientDealItem',
  TPlayObject_SetCheckClientStorageItem Name 'TPlayObject_SetCheckClientStorageItem',
  TPlayObject_SetCheckClientRepairItem Name 'TPlayObject_SetCheckClientRepairItem',
  TPlayObject_SetHookCheckUserItems Name 'TPlayObject_SetHookCheckUserItems',
  TPlayObject_SetHookRun Name 'TPlayObject_SetHookRun',
  TPlayObject_SetHookFilterMsg Name 'TPlayObject_SetHookFilterMsg',

  TPlayObject_SetUserInPutInteger Name 'TPlayObject_SetUserInPutInteger',
  TPlayObject_SetUserInPutString Name 'TPlayObject_SetUserInPutString',
  TPlayObject_IncGold Name 'TPlayObject_IncGold',
  TPlayObject_IncGameGold Name 'TPlayObject_IncGameGold',
  TPlayObject_IncGamePoint Name 'TPlayObject_IncGamePoint',
  TPlayObject_DecGold Name 'TPlayObject_DecGold',
  TPlayObject_DecGameGold Name 'TPlayObject_DecGameGold',
  TPlayObject_DecGamePoint Name 'TPlayObject_DecGamePoint',
  TPlayObject_PlayUseItems Name 'TPlayObject_PlayUseItems',

  TNormNpc_sFilePath Name 'TNormNpc_sFilePath',
  TNormNpc_sPath Name 'TNormNpc_sPath',
  TNormNpc_GetLineVariableText Name 'TNormNpc_GetLineVariableText',
  TNormNpc_SetScriptActionCmd Name 'TNormNpc_SetScriptActionCmd',
  TNormNpc_GetScriptActionCmd Name 'TNormNpc_GetScriptActionCmd',
  TNormNpc_SetScriptConditionCmd Name 'TNormNpc_SetScriptConditionCmd',
  TNormNpc_GetScriptConditionCmd Name 'TNormNpc_GetScriptConditionCmd',
  TNormNpc_GetManageNpc Name 'TNormNpc_GetManageNpc',
  TNormNpc_GetFunctionNpc Name 'TNormNpc_GetFunctionNpc',
  TNormNpc_GotoLable Name 'TNormNpc_GotoLable',
  TNormNpc_SetScriptAction Name 'TNormNpc_SetScriptAction',
  TNormNpc_GetScriptAction Name 'TNormNpc_GetScriptAction',
  TNormNpc_SetScriptCondition Name 'TNormNpc_SetScriptCondition',
  TNormNpc_GetScriptCondition Name 'TNormNpc_GetScriptCondition',

  TMerchant_GoodsList Name 'TMerchant_GoodsList',
  TMerchant_GetItemPrice Name 'TMerchant_GetItemPrice',
  TMerchant_GetUserPrice Name 'TMerchant_GetUserPrice',
  TMerchant_GetUserItemPrice Name 'TMerchant_GetUserItemPrice',
  TMerchant_SetHookClientGetDetailGoodsList Name 'TMerchant_SetHookClientGetDetailGoodsList',
  TMerchant_SetCheckUserSelect Name 'TMerchant_SetCheckUserSelect',
  TMerchant_GetCheckUserSelect Name 'TMerchant_GetCheckUserSelect',

  TUserEngine_Create Name 'TUserEngine_Create',
  TUserEngine_Free Name 'TUserEngine_Free',
  TUserEngine_GetUserEngine Name 'TUserEngine_GetUserEngine',
  TUserEngine_GetPlayObject Name 'TUserEngine_GetPlayObject',
  TUserEngine_GetLoadPlayList Name 'TUserEngine_GetLoadPlayList',
  TUserEngine_GetPlayObjectList Name 'TUserEngine_GetPlayObjectList',
  TUserEngine_GetLoadPlayCount Name 'TUserEngine_GetLoadPlayCount',
  TUserEngine_GetPlayObjectCount Name 'TUserEngine_GetPlayObjectCount',
  TUserEngine_GetStdItemByName Name 'TUserEngine_GetStdItemByName',
  TUserEngine_GetStdItemByIndex Name 'TUserEngine_GetStdItemByIndex',
  TUserEngine_CopyToUserItemFromName Name 'TUserEngine_CopyToUserItemFromName',
  TUserEngine_GetStdItemList Name 'TUserEngine_GetStdItemList',
  TUserEngine_GetMagicList Name 'TUserEngine_GetMagicList',
  TUserEngine_FindMagic Name 'TUserEngine_FindMagic',
  TUserEngine_AddMagic Name 'TUserEngine_AddMagic',
  TUserEngine_DelMagic Name 'TUserEngine_DelMagic',
  TUserEngine_SetHookRun Name 'TUserEngine_SetHookRun',
  TUserEngine_GetHookRun Name 'TUserEngine_GetHookRun',
  TUserEngine_SetHookClientUserMessage Name 'TUserEngine_SetHookClientUserMessage',

  TMapManager_FindMap Name 'TMapManager_FindMap',
  TEnvirnoment_GetRangeBaseObject Name 'TEnvirnoment_GetRangeBaseObject',
  TEnvirnoment_boCANRIDE Name 'TEnvirnoment_boCANRIDE',
  TEnvirnoment_boCANBAT Name 'TEnvirnoment_boCANBAT',

  TGuild_RankList Name 'TGuild_RankList',

  TItemUnit_GetItemAddValue Name 'TItemUnit_GetItemAddValue',

  TMagicManager_MPow Name 'TMagicManager_MPow',
  TMagicManager_GetPower Name 'TMagicManager_GetPower',
  TMagicManager_GetPower13 Name 'TMagicManager_GetPower13',
  TMagicManager_GetRPow Name 'TMagicManager_GetRPow',
  TMagicManager_IsWarrSkill Name 'TMagicManager_IsWarrSkill',
  TMagicManager_MagBigHealing Name 'TMagicManager_MagBigHealing',
  TMagicManager_MagPushArround Name 'TMagicManager_MagPushArround',
  TMagicManager_MagPushArroundTaos Name 'TMagicManager_MagPushArroundTaos',
  TMagicManager_MagTurnUndead Name 'TMagicManager_MagTurnUndead',
  TMagicManager_MagMakeHolyCurtain Name 'TMagicManager_MagMakeHolyCurtain',
  TMagicManager_MagMakeGroupTransparent Name 'TMagicManager_MagMakeGroupTransparent',
  TMagicManager_MagTamming Name 'TMagicManager_MagTamming',
  TMagicManager_MagSaceMove Name 'TMagicManager_MagSaceMove',
  TMagicManager_MagMakeFireCross Name 'TMagicManager_MagMakeFireCross',
  TMagicManager_MagBigExplosion Name 'TMagicManager_MagBigExplosion',
  TMagicManager_MagElecBlizzard Name 'TMagicManager_MagElecBlizzard',
  TMagicManager_MabMabe Name 'TMagicManager_MabMabe',
  TMagicManager_MagMakeSlave Name 'TMagicManager_MagMakeSlave',
  TMagicManager_MagMakeSinSuSlave Name 'TMagicManager_MagMakeSinSuSlave',
  TMagicManager_MagWindTebo Name 'TMagicManager_MagWindTebo',
  TMagicManager_MagGroupLightening Name 'TMagicManager_MagGroupLightening',
  TMagicManager_MagGroupAmyounsul Name 'TMagicManager_MagGroupAmyounsul',
  TMagicManager_MagGroupDeDing Name 'TMagicManager_MagGroupDeDing',
  TMagicManager_MagGroupMb Name 'TMagicManager_MagGroupMb',
  TMagicManager_MagHbFireBall Name 'TMagicManager_MagHbFireBall',
  TMagicManager_MagLightening Name 'TMagicManager_MagLightening',
  TMagicManager_MagMakeSlave_ Name 'TMagicManager_MagMakeSlave_',
  TMagicManager_CheckAmulet Name 'TMagicManager_CheckAmulet',
  TMagicManager_UseAmulet Name 'TMagicManager_UseAmulet',
  TMagicManager_MagMakeSuperFireCross Name 'TMagicManager_MagMakeSuperFireCross',

  TMagicManager_MagMakeFireball Name 'TMagicManager_MagMakeFireball',
  TMagicManager_MagTreatment Name 'TMagicManager_MagTreatment',
  TMagicManager_MagMakeHellFire Name 'TMagicManager_MagMakeHellFire',
  TMagicManager_MagMakeQuickLighting Name 'TMagicManager_MagMakeQuickLighting',
  TMagicManager_MagMakeLighting Name 'TMagicManager_MagMakeLighting',
  TMagicManager_MagMakeFireCharm Name 'TMagicManager_MagMakeFireCharm',
  TMagicManager_MagMakeUnTreatment Name 'TMagicManager_MagMakeUnTreatment',
  TMagicManager_MagMakePrivateTransparent Name 'TMagicManager_MagMakePrivateTransparent',

  TMagicManager_MagMakeLivePlayObject Name 'TMagicManager_MagMakeLivePlayObject',
  TMagicManager_MagMakeArrestObject Name 'TMagicManager_MagMakeArrestObject',
  TMagicManager_MagChangePosition Name 'TMagicManager_MagChangePosition',
  TMagicManager_MagMakeFireDay Name 'TMagicManager_MagMakeFireDay',

  TMagicManager_GetMagicManager Name 'TMagicManager_GetMagicManager',
  TMagicManager_SetHookDoSpell Name 'TMagicManager_SetHookDoSpell',
  TMagicManager_DoSpell Name 'TMagicManager_DoSpell',

  TPlugOfEngine_GetUserVersion Name 'TPlugOfEngine_GetUserVersion',
  TPlugOfEngine_GetProcedureVersion Name 'TPlugOfEngine_GetProcedureVersion';
//------------------------------------------------------------------------------
{$R *.res}
procedure Start();
begin
  g_Config.nServerFile_CRCA := CalcFileCRC(Application.ExeName);
  Application.Initialize;
  Application.HintPause := 100;
  Application.HintShortPause := 100;
  Application.HintHidePause := 5000;
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmSrvMsg, FrmSrvMsg);
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
  Application.CreateForm(TFrmMsgClient, FrmMsgClient);
  Application.CreateForm(TFrmIDSoc, FrmIDSoc);
  Application.CreateForm(TFrmServerValue, FrmServerValue);
  Application.CreateForm(TftmPlugInManage, ftmPlugInManage);
  Application.CreateForm(TfrmGameCmd, frmGameCmd);
  Application.CreateForm(TfrmMonsterConfig, frmMonsterConfig);
  Application.Run;
end;

asm
  jz @@Start
  jnz @@Start
  db 0E8h
@@Start:
  lea eax,Start
  call eax
  jz @@end
  jnz @@end
  db 0F4h
  db 0FFh
@@end:
end.