gshare.pas

传奇源代码的delphi版本

unit GShare;

interface
uses
  Windows,Messages,Classes,SysUtils,IniFiles;
type
  TProgram = record
    boGetStart   :Boolean;
    boReStart    :Boolean; //程序异常停止，是否重新启动
    btStartStatus:Byte; //0,1,2,3 未启动，正在启动，已启动,正在关闭
    sProgramFile :String[50];
    sDirectory   :String[100];
    ProcessInfo  :TProcessInformation;
    ProcessHandle:THandle;
    MainFormHandle:THandle;
    nMainFormX     :Integer;
    nMainFormY     :Integer;
  end;
  pTProgram = ^TProgram;
  procedure  LoadConfig();
  function   RunProgram(var ProgramInfo:TProgram;sHandle:String;dwWaitTime:LongWord):LongWord;
  function  StopProgram(var ProgramInfo:TProgram;dwWaitTime:LongWord):Integer;
  procedure SendProgramMsg(DesForm:THandle;wIdent:Word;sSendMsg:String);
var

  g_sServerAddr:String = '0.0.0.0';
  g_nServerPort:Integer = 6350;
  g_SessionList:TStringList;

  g_sGameFile:String = '.\GameList.txt';
  g_sNoticeUrl:String = 'www.lingame.com';
  g_nClientForm:Integer = -1;


  g_nFormIdx       :Integer;
  g_IniConf        :TIniFile;
  g_sButtonStartGame        :String = '启动游戏服务器(&S)';
  g_sButtonStopGame         :String = '停止游戏服务器(&T)';
  g_sButtonStopStartGame    :String = '中止启动游戏服务器(&T)';
  g_sButtonStopStopGame     :String = '中止停止游戏服务器(&T)';

  g_sConfFile      :String = '.\Config.ini';
  g_sGameDirectory :String = 'D:\GameOfMir\';
  g_sHeroDBName    :String = 'HeroDB';
  g_sGameName      :String = '翎风世界';
  g_sGameName1     :String = '翎风世界一';
  g_sAllIPaddr     :String = '0.0.0.0';
  g_sLocalIPaddr   :String = '127.0.0.1';
  g_sExtIPaddr     :String = '192.168.1.8';
  g_boDynamicIPMode               :Boolean = False;
  g_nLimitOnlineUser              :Integer = 2000;  //服务器最高上线人数

  g_sDBServer_ProgramFile         :String = 'DBServer.exe';
  g_sDBServer_Directory           :String = 'DBServer\';
  g_boDBServer_GetStart           :Boolean = True;
  g_sDBServer_ConfigFile          :String = 'dbsrc.ini';
  g_sDBServer_Config_ServerAddr   :String = '127.0.0.1';
  g_nDBServer_Config_ServerPort   :Integer = 6000;
  g_sDBServer_Config_GateAddr     :String = '127.0.0.1';
  g_nDBServer_Config_GatePort     :Integer = 5100;
  g_sDBServer_Config_IDSAddr      :String = '127.0.0.1';
  g_nDBServer_Config_IDSPort      :Integer = 5600;

  g_sDBServer_Config_RegKey       :String = '0123456789';
  g_sDBServer_Config_RegServerAddr:String = '61.128.194.170';
  g_nDBServer_Config_RegServerPort:Integer = 63300;
  g_nDBServer_Config_Interval     :Integer = 1000;
  g_nDBServer_Config_Level1       :Integer = 1;
  g_nDBServer_Config_Level2       :Integer = 7;
  g_nDBServer_Config_Level3       :Integer = 14;
  g_nDBServer_Config_Day1         :Integer = 7;
  g_nDBServer_Config_Day2         :Integer = 62;
  g_nDBServer_Config_Day3         :Integer = 124;
  g_nDBServer_Config_Month1       :Integer = 0;
  g_nDBServer_Config_Month2       :Integer = 0;
  g_nDBServer_Config_Month3       :Integer = 0;

  g_sDBServer_Config_Dir          :String = 'FDB\';
  g_sDBServer_Config_IdDir        :String = 'FDB\';
  g_sDBServer_Config_HumDir       :String = 'FDB\';
  g_sDBServer_Config_FeeDir       :String = 'FDB\';
  g_sDBServer_Config_BackupDir    :String = 'Backup\';
  g_sDBServer_Config_ConnectDir   :String = 'Connection\';
  g_sDBServer_Config_LogDir       :String = 'Log\';
  g_sDBServer_ClearLogDir         :String = 'ClearLog\';

  g_sDBServer_Config_MapFile      :String  = 'D:\GameOfmir\Mir200\Envir\MapInfo.txt';
  g_boDBServer_Config_ViewHackMsg :Boolean = False;
  g_sDBServer_AddrTableFile       :String  = '!addrtable.txt';
  g_sDBServer_ServerinfoFile      :String  = '!serverinfo.txt';
  g_nDBServer_MainFormX           :Integer = 0;
  g_nDBServer_MainFormY           :Integer = 326;
  g_boDBServer_AutoBackup         :Boolean = False;
  g_boDBServer_BackupClearData    :Boolean = True;
  g_dwDBServer_BackupTime         :LongWord = 7200000;
  g_sDBServer_DBName              :String = 'HeroDB';
  g_boDBServer_ShowItemName       :Boolean = False;
  
  g_sLoginServer_ProgramFile       :String = 'LoginSrv.exe';
  g_sLoginServer_Directory         :String = 'LoginSrv\';
  g_sLoginServer_ConfigFile        :String = 'Logsrv.ini';
  g_boLoginServer_GetStart         :Boolean = True;
  g_sLoginServer_GateAddr          :String = '127.0.0.1';
  g_nLoginServer_GatePort          :Integer = 5500;
  g_sLoginServer_ServerAddr        :String = '127.0.0.1';
  g_nLoginServer_ServerPort        :Integer = 5600;

  g_sLoginServer_MonAddr           :String = '127.0.0.1';
  g_nLoginServer_MonPort           :Integer = 3000;


  g_boLoginServer_EnableGetbackPassword :Boolean = True;
  g_nLoginServer_ReadyServers     :Integer = 0;
  g_boLoginServer_EnableMakingID  :Boolean = True;
  g_boLoginServer_TestServer      :Boolean = True;
  g_boLoginServer_AutoClear       :Boolean = False;
  g_dwLoginServer_AutoClearTime   :LongWord = 1000;


  g_sLoginServer_IdDir            :String = 'IDDB\';
  g_sLoginServer_FeedIDList       :String = 'FeedIDList.txt';
  g_sLoginServer_FeedIPList       :String = 'FeedIPList.txt';
  g_sLoginServer_CountLogDir      :String = 'CountLog\';
  g_sLoginServer_WebLogDir        :String = 'GameWFolder\';
  g_sLoginServer_ChrLogDir        :String = 'ChrLog\';
  g_sLoginServer_IdLogDir         :String = 'IdLog\';

  g_sLoginServer_AddrTableFile    :String = '!addrtable.txt';
  g_sLoginServer_ServeraddrFile   :String = '!serveraddr.txt';
  g_sLoginServerUserLimitFile     :String = '!UserLimit.txt';
  g_sLoginServerFeedIDListFile    :String = 'FeedIDList.txt';
  g_sLoginServerFeedIPListFile    :String = 'FeedIPList.txt';
  g_nLoginServer_MainFormX        :Integer = 251;
  g_nLoginServer_MainFormY        :Integer = 0;
  g_nLoginServer_RouteList        :TList;




  g_sLogServer_ProgramFile        :String = 'LogDataServer.exe';
  g_sLogServer_Directory          :String = 'LogServer\';
  g_boLogServer_GetStart          :Boolean = True;
  g_sLogServer_ConfigFile         :String = 'LogData.ini';
  g_sLogServer_BaseDir            :String = 'BaseDir\';
  g_sLogServer_ServerAddr         :String = '127.0.0.1';
  g_nLogServer_Port               :Integer = 10000;
  g_nLogServer_MainFormX          :Integer = 251;
  g_nLogServer_MainFormY          :Integer = 239;

  g_sM2Server_ProgramFile         :String = 'M2Server.exe';
  g_sM2Server_Directory           :String = 'Mir200\';
  g_boM2Server_GetStart           :Boolean = True;
  g_sM2Server_ConfigFile          :String = '!setup.txt';
  g_sM2Server_AbuseFile           :String = '!abuse.txt';
  g_sM2Server_RunAddrFile         :String = '!runaddr.txt';
  g_sM2Server_ServerTableFile     :String = '!servertable.txt';

  g_sM2Server_RegKey              :String = '0123456789';
  g_sM2Server_Config_RegServerAddr  :String = '61.128.194.170';
  g_nM2Server_Config_RegServerPort  :Integer = 63000;

  g_nM2Server_ServerNumber        :Integer = 0;
  g_nM2Server_ServerIndex         :Integer = 0;
  g_boM2Server_VentureServer      :Boolean = False;
  g_boM2Server_TestServer         :Boolean = True;
  g_nM2Server_TestLevel           :Integer = 1;
  g_nM2Server_TestGold            :Integer = 0;
  g_boM2Server_ServiceMode        :Boolean = False;
  g_boM2Server_NonPKServer        :Boolean = False;
  g_sM2Server_MsgSrvAddr          :String = '127.0.0.1';
  g_nM2Server_MsgSrvPort          :Integer = 4900;
  g_sM2Server_GateAddr            :String = '127.0.0.1';
  g_nM2Server_GatePort            :Integer = 5000;

  g_sM2Server_BaseDir             :String = 'Share\';
  g_sM2Server_GuildDir            :String = 'GuildBase\Guilds\';
  g_sM2Server_GuildFile           :String = 'GuildBase\Guildlist.txt';
  g_sM2Server_VentureDir          :String = 'ShareV\';
  g_sM2Server_ConLogDir           :String = 'ConLog\';
  g_sM2Server_LogDir              :String = 'Log\';
  g_sM2Server_CastleDir           :String = 'Castle\';
  g_sM2Server_EnvirDir            :String = 'Envir\';
  g_sM2Server_MapDir              :String = 'Map\';
  g_sM2Server_NoticeDir           :String = 'Notice\';
  g_nM2Server_MainFormX          :Integer = 560;
  g_nM2Server_MainFormY          :Integer = 0;

  g_sLoginGate_ProgramFile        :String = 'LoginGate.exe';
  g_sLoginGate_Directory          :String = 'LoginGate\';
  g_boLoginGate_GetStart          :Boolean = True;
  g_sLoginGate_ConfigFile         :String = 'Config.ini';
  g_sLoginGate_ServerAddr         :String = '127.0.0.1';
  g_nLoginGate_ServerPort         :Integer = 5500;
  g_sLoginGate_GateAddr           :String = '0.0.0.0';
  g_nLoginGate_GatePort           :Integer = 7000;
  g_nLoginGate_ShowLogLevel       :Integer = 3;
  g_nLoginGate_MaxConnOfIPaddr    :Integer = 20;
  g_nLoginGate_BlockMethod        :Integer = 0;
  g_nLoginGate_KeepConnectTimeOut :Integer = 60000;
  g_nLoginGate_MainFormX          :Integer = 0;
  g_nLoginGate_MainFormY          :Integer = 0;

  g_sSelGate_ProgramFile        :String = 'SelGate.exe';
  g_sSelGate_Directory          :String = 'SelGate\';
  g_boSelGate_GetStart          :Boolean = True;
  g_sSelGate_ConfigFile         :String = 'Config.ini';
  g_sSelGate_ServerAddr         :String = '127.0.0.1';
  g_nSelGate_ServerPort         :Integer = 5100;
  g_sSelGate_GateAddr           :String = '0.0.0.0';
  g_nSelGate_GatePort           :Integer = 7100;
  g_sSelGate_GateAddr1          :String = '0.0.0.0';
  g_nSelGate_GatePort1          :Integer = 7101;
  g_nSelGate_ShowLogLevel       :Integer = 3;
  g_nSelGate_MaxConnOfIPaddr    :Integer = 20;
  g_nSelGate_BlockMethod        :Integer = 0;
  g_nSelGate_KeepConnectTimeOut :Integer = 60000;
  g_nSelGate_MainFormX          :Integer = 0;
  g_nSelGate_MainFormY          :Integer = 163;

  g_sRunGate_ProgramFile          :String = 'RunGate.exe';
  g_sRunGate_RegKey               :String = 'ABCDEFGHIJKL';
//  g_sRunGate_RegKey               :String = '0123456789';
  g_sRunGate_Directory            :String = 'RunGate\';