LegendM2注册说明

主要文件M2Share

    if @Engine_SetScriptConditionCmd <> nil then begin

      nCMDCode := Engine_SetScriptConditionCmd(PChar(sCmd));

      goto L001;

    end;





    if @Engine_SetScriptActionCmd <> nil then begin

      nCMDCode := Engine_SetScriptActionCmd(PChar(sCmd));

      goto L001;

    end;



{$IFDEF DEBUG} 市场系统 测试

VEROWNER几种版本拥有者

{$IF VEROWNER = WL} WinLi 仓库开锁 用于自己测试吧?

      if not CompareIPaddr(m_sIPaddr, sIPaddr) then begin

        SysMsg(sCheckIPaddrFail, c_Red, t_Hint);

        m_boEmergencyClose := True;

      end;

{$IF VEROWNER = WL}

      if not CompareIPaddr(m_sIPaddr, sIPaddr) then begin

        SysMsg(sCheckIPaddrFail, c_Red, t_Hint);

        m_boEmergencyClose := True;

      end;

{$IFEND}



$IFDEF TEST } 测试 TBaseObject.ReAliveEx

{$IF DBTYPE = BDE} 数据库类型

{$IF CUSTOMBUILD = 0} 1 装备类型?

{$IF USEWLSDK = 1} 注册类型1



{$ELSEIF USEWLSDK = 2}注册类型2



{$IFEND USEWLSDK}使用了wl注册



{$IF INTERSERVER = 1} m2 4900



{$IF DBSOCKETMODE = TIMERENGINE}  DB是否为Timer连接 否则多线程



{$IF IDSOCKETMODE = THREADENGINE} ID是否为多线程 否者为 普通连接

{$IF IDSOCKETMODE = TIMERENGINE}ID是否为Timer连接

{$IF USERENGINEMODE = THREADENGINE} 用户引擎是否为多线程 否者普通连接



{$IF SoftVersion <> VERDEMO} demo模式 加载M2ServerDLL   boRemoteOpenGateSocket := True;

并开启TRunSocket.DemoRun 演示版本不保存配置 很多功能都不能用

{$IF (SoftVersion = VERPRO) or (SoftVersion = VERENT)} 开启能量模式

objbase.pas 以下

IdSrvClient以下

  //{$IF (DEBUG = 0) and (SoftVersion <> VERDEMO)}

  //  if IsDebuggerPresent then

  //    Application.Terminate;

  //{$IFEND}

{$IF SoftVersion = VERENT}

    dwRequestVersion: 98;

{$ELSE}//用于DLL sdk.pas中已经注释

    dwRequestVersion: RequestVersion;

{$IFEND}

演示版无法保存配置



{$IF V_TEST = 1} 测试模式 1(限制10人) 2(彻底免费) TUserEngine.GetPlayObjectNotGhost TUserEngine.GetPlayObjectCS_Name TUserEngine.KickPlayer GetPlayObjectCS_IDName TUserEngine.GetMapOfRangeHumanCount KickOnlineUser TUserEngine.GetMapHuman

TUserEngine.GetMapRageHuman

///////////////////////////////////////////////////////////////////////////////

// 一些内置功能无法使用 因为必须加载dll里的函数

//使用插件函数 没有插件可用 将导致游戏内错误 比如无法移动等等

grobl2.pas 

procedure TUserEngine.Execute;

begin

{$IF USEPLUGFUNC = 1}

  if (nEngRemoteRun >= 0) and Assigned(PlugProcArray[nEngRemoteRun].nProcAddr) then

    TClassProc(PlugProcArray[nEngRemoteRun].nProcAddr)(self);

{$ELSE}

  Run();

{$IFEND USEPLUGFUNC}

end;

{$IF USEPLUGFUNC = 1}TUserEngine.Execute   GetNextDirection  GetGoldShape是否使用插件的函数

//////////////////////////////////////////////////////////////////////////////////////////////

PLUGINLIST 开启dll列表文件



OPENTOPLEN m2设置界面top+此设置长度



MAXMAGICLV 魔法最高等级 客户端使用 localdb.pas 已注释



DEBUG LSShare.pas（账号） 

objbase.pas

{$IF DEBUG = 1}

      if g_sPosionType[nType] <> '' then

        SysMsg(Format(g_sPosionType[nType], [nTime]), c_Red, t_Hint);

{$ELSE}

      SysMsg(sYouPoisoned, c_Red, t_Hint);

{$IFEND}



CHECKNEWMSG 开启新功能提示 1046 1056

{$IF USEHASHLIST = 1} 是否使用HASHLIST(散列提高速度)



{$IF USECODE = USEREMOTECODE} 配置文件是否远程加密?Encode6BitBuf

DBserver ->HumDB_sql用来加密 EngineAPI也要输出此函数



{$IF CUSTOM_VERSION = VERENT} 无限制否者其他计月 //客户版本

{$IF CUSTOM_VERSION = VERENT}

  sVerInfo = '授权信息: 程序版本: V5.06 无限版';

{$ELSE}

  sVerInfo = '授权信息: 程序版本: V5.06 计月版';

{$IFEND}



{$IF EXPIPLOCAL=1} 显IP插件



{$IF VER_ClientType_45} 45版本（可能是老版本） objbase.pas m_nSoftVersionDateEx objnpc.pas grobal2.pas



{$IF CATEXCEPTION = TRYEXCEPTION} UsrEngn 处理异常 PlayObject.RunNotice();



{$IF PROCESSMONSTMODE = OLDMONSTERMODE} UsrEngn  开启怪物老版模式

 {$IF VER_PATHMAP = 1} 开启寻路  0直接加载header

{$IF HIGHHP} 高血量版



{$IF SERIESSKILL}连击



{$IF OEMVER = OEM775}

TLevelInfo = record

等级属性775模式



{$IF DEATHWALKING = 0}  1 死亡英雄还能走动? 还是幽灵?

{$IF DEBUGTEST = 1} 英雄测试 能量100 默认0

{$IF NewVisibleEvent = 1} 新的事件?



if (m_boAngryRing or m_boNoDropUseItem)

{$IF CustomBuild = 1}

    and ((m_ExpHitter <> nil) and not m_ExpHitter.m_boUnAngryRing)

{$IFEND} then

      Exit;





{$IF DEMOCLIENT = 1}  演示客户端

{$IF DEMOCLIENT = 1}SM_CHANGELIGHT

    nClientKey: 6534;

{$ELSE}

    nClientKey: 500;

{$IFEND}

CLIENTFLAG无用



{$IF ReleaseVersion = VERPRO}//颜色

    sMemoLogFontColor: 'clWindowText';

    sMemoLogColor: 'clWindow';

{$ELSE}

    sMemoLogFontColor: 'clLime';

    sMemoLogColor: 'clWindowText ';

{$IFEND}

  

SIZEOFTHUMAN              = {$IF V_DIGITEM}