www.pudn.com > M2Server.rar > GlobalDefinition.pas

//////////////////////////////////////////////////////////////////////////////// 
//                                                                            // 
//                       工程：  M2Server                                     // 
//                       版本:   1.0                                          // 
//                       公司：  乐都在线                                     // 
//                       网址：  http://www.hh8.net                           // 
//                       日期：  2005-05-28                                   // 
//                                                                            // 
//////////////////////////////////////////////////////////////////////////////// 
 
unit GlobalDefinition; 
 
interface 
 
uses 
  Classes, INIFiles, ObjectPlayer, ObjectEngine, UserInfo, ObjectMonster, 
    DataHandler, ObjectEvent, ClassDeclaration, PredefinedData, IdWinSock2; 
var 
  g_xAdminCommandList: Tstrings; 
  g_xUserCommandList: Tstrings; 
 
  g_xEventList: TThreadList; 
  g_xEventCloseList: TThreadList; 
 
  g_xHolySeizeList: TThreadList; 
 
 
  g_xReadyUserInfoList: TThreadList; 
  g_xReadyUserInfoList2: TThreadList; 
  g_xMerchantObjList: TThreadList; 
 
  g_fInitMerchant: Boolean = False; 
  g_xNPCObjList: TThreadList; 
  g_xReadyList: TThreadList; 
 
  g_xGateList: TThreadList; 
 
  g_xUserInfoArr: array[0..4999] of TUserInfo; 
 
 
 
  g_nMirDayTime: Integer = 1; 
 
  // General Standard Data 
  g_xMirMapList: TThreadList; // Map List 
 
  g_pMoveMapEventInfo: array of TMOVEMAPEVENTINFO_RCD; // Map Event List 
  g_nNumOfMoveMapEventInfo: Integer = 0; 
 
  g_pMagicInfo: array of TMagicInfo; // Magic List 
  g_nNumOfMagicInfo: Integer = 0; 
 
  g_pMonGenInfo: array of TMONSTERGENINFO_RCD; // Monster Gen List 
  g_nNumOfMonGenInfo: Integer = 0; 
 
  g_pMonRaceInfo: array of TMONRACEINFO_RCD; // Monster List 
  g_nNumOfMonRaceInfo: Integer = 0; 
 
  g_pStdItemSpecial: array of TStdItemSpecial; // Item List 
  g_pStdItemHash: TStringHash; 
  g_nStdItemSpecial: Integer = 0; 
 
  g_pStdItemEtc: array of tStdItem; 
  g_nStdItemEtc: Integer = 0; 
 
  g_pMerchantInfo: array of TMERCHANTINFO_RCD; 
  g_nNumOfMerchantInfo: Integer = 0; 
  g_nNumOfMapInfo: Integer = 0; 
 
  g_fTerminated: Boolean = True; 
 
  g_SearchTable: array[0.._MAX_SEARCHTABLE - 1] of TSEARCHTABLE_RCD; 
 
  g_szGoldName: string[8]; 
 
  g_xScripterList: TThreadList; 
 
  g_szRemainBuff: string; 
  g_szTempBuffer: string; 
  g_nRemainBuffLen: Integer = 0; 
 
  g_cSocket: TSocket; 
  g_clSocket: TSocket; 
  ReviceMsgList: TList; 
  GateInfo: array[0..50] of TGateInfo; 
  g_xPlayerObjectArr: array[0..5000] of TPlayerObject; 
  Gatei: Integer; 
  WOrdList: TStringHash; 
 
implementation 
initialization 
 
 
  begin 
    g_szTempBuffer := ''; 
    g_szRemainBuff := ''; 
    ReviceMsgList := TList.Create; 
    for Gatei := 0 to 49 do 
      GateInfo[Gatei] := TGateInfo.Create; 
 
  end; 
finalization 
  begin 
 
    ReviceMsgList.Free; 
    for Gatei := 0 to 49 do 
      GateInfo[Gatei].Free; 
    for Gatei := 0 to 4999 do 
    begin 
      g_xPlayerObjectArr[Gatei].Free; 
    end; 
 
  end; 
end.