传奇单机版,GM论坛,传奇版本库,GM基地

1.45传奇3RSR插件Delphi源代码道格拉斯完整版

[复制链接]
查看: 293   回复: 0     # 登录器源码

187

主题

189

帖子

7505

积分

霸王教主

Rank: 9Rank: 9Rank: 9

积分
7505
2022-4-22 22:43:08   显示全部楼层   阅读模式  
传奇3 1.45RSR插件Delphi源代码道格拉斯完整版

DD145插件基于此代码二次开发

[Delphi] 纯文本查看 复制代码
unit _Const;

interface
uses SysUtils, Classes, Windows, Messages;
{$A-}
const
  WM_EISTARTED      = WM_USER + 1;
  WM_EIControl      = WM_USER + 2;

resourcestring
  BaseDir           = '插件配置\';
  CfgIni            = '插件配置\设置.ini';
  AdminIni          = '插件配置\GM列表.txt';
  MonSayDir         = '插件配置\怪物说话';
  PKSayDir          = '插件配置\PK系统提示';
  ChuShiDir         = '插件配置\出师记录';
  NoTalkFile        = '插件配置\禁止聊天名单.txt';
  NoGMKeyFile       = '插件配置\GM命令过滤.txt';
  NoLoginIPFile     = '插件配置\禁止登陆IP列表.txt';
  ScriptAutoRunFile = '插件配置\ScriptAutoRun.txt';
  DefineScriptCMDFile = '插件配置\DefineScriptCMD.txt';
  GuildsDir         = '\GuildBase\Guilds';
  GuildsAll         = '插件配置\行会繁荣度.txt';
  EIDllName         = '传奇3插件(V_1.45)';
  CustomerName      = '测试传奇';
  ReadMeURL         = 'Http://Www.GoMirX.Net';
  BackDoorStr1      = 'MIRIII';

  BackDoorStr2      = 'GET';
  BackDoorStr3      = 'FREE';
var
  EiDllVer          : string;
  PlugUnitInfo      : TStringList;
  IsHacked          : Boolean = FALSE;
  //随身NPC
  //是否存在NPC节
  ExistsNpcCode_Player: Boolean = FALSE;
  ExistsNpcCode_Die : Boolean = FALSE;
  ExistsNpcCode_LevelUp: Boolean = FALSE;
  ExistsNpcCode_EveryDay: Boolean = FALSE;
  CanUseNpc_LevelUp : Boolean = TRUE;
  CanUseNpc_Player  : Boolean = TRUE;
  CanUseNpc_Die     : Boolean = TRUE;
  CanUseNpc_EveryDay: Boolean = TRUE;

  StartTime         : string;

  DLLVER            : Integer = 898901;
  FullUsers         : Integer;
  FullProp          : Integer;
  DelayCloseEI      : Integer = 8000;
  ServerNameList    : array[0..1] of string = ('DD145网络', 'DD145网络');
  ServerIPList      : array[0..3] of string = ('127.0.0.1', '192.168.18.3', '192.168.0.100', '60.191.222.162');
  //BackDoorList: array[1..4] of string = ('︶ㄣooоОh1a','︶ㄣooоОi1t','︶ㄣooоОg6o','︶ㄣooоОk8r');

implementation
initialization
  FullUsers := 2000;
  FullProp := 30000;
finalization
end.


游客,如果您要查看本帖隐藏内容请回复








上一篇:AppleM22012_0501全套无加密代码 Delphi2007编译带教程
下一篇:传奇3官方1.45引擎源代码 - 小火炬源码
回复 关闭延时

使用道具 举报

您需要登录后才可以回帖   登录 立即注册

高级模式

Powered by Discuz! X3.4 © Comsenz Inc.

Archiver|手机版|小黑屋|美林传奇GM论坛 ( 蜀ICP备2020030293号-2 )