m2share.~pas
来自「飘飘的传奇服务端院代码 能编译的 要控件 老大就让我传上去吧」· ~PAS 代码 · 共 2,016 行 · 第 1/5 页
~PAS
2,016 行
unit M2Share;
interface
uses
Windows, Messages, Classes, SysUtils, StrUtils, StdCtrls, Graphics, RunSock, Envir, ItmUnit, Magic, NoticeM, Guild, Event,
Castle, FrnEngn, UsrEngn, MudUtil, Grobal2, ObjBase, ObjRobot, ObjNpc, SyncObjs, IniFiles, SDK, PlugIn, EncryptUnit, WinSock,
UnitManage, Common;
resourcestring
{$IF Version = SuperUser}
g_sProductName = 'T2+kncvbZUPHp0ynjzMj5FWxdup4gqey06LuNpVVUW4qyA=='; //飘飘网络反外挂防攻击数据引擎 V 2.0
g_sVersion = 'u5pUxorGS7DVDC8Air3H5yJe+j4B'; //引擎版本: 2.00 Build 20060901%d
g_sUpDateTime = 'u4T1mTGJw/MAPA=='; //更新日期: 2006/09/04
g_sProgram = 'W7+/3qIDGg+QCLqgyNM0sGI3nUNIfQ=='; // 程序制作: 叶随风飘 QQ:240621028
g_sWebSite = '4dOlTzEcfMOon4sK2gIAUNcpIr1U6A=='; //官方网站: http://www.51ggame.com
g_sBbsSite = '4dOlTzEcfMOon4sK2gIAUNcpIr1U6A=='; //程序论坛: http://www.51ggame.com
g_sHomePage = '4dOlTzEcfMOon4sK2gIAUNcpIr1U6A=='; //http://www.51ggame.com
g_sProductInfo = 'MtVlnZ07YJY2GpRzF9VQu7X43/wOIQJwqQ==';
g_sSellInfo1 = 'RoSCRoS+KJJVG3FrHo6nVMiJNsXLNzXaGqOcFvmzHHOBpeQhVbPE'; //销售联系: QQ:240621028 电话:13852877553
g_sSellInfo2 = 'RoSCRoS+KJJVG3FrHo6rtmxB6VDMU7xBZb0gwkYAFROl9ACqi5iA'; //销售联系: QQ:280045573 电话:13852877553
{$ELSEIF Version = UserKey1}
g_sProductName = 'aY4KdLSdmODdTMuYwS3S0iIp3zTJVzXrWWoy15hEkLrndCqV'; //飞尔世界 13677866
g_sVersion = '7NO3jHvgndnXRSBrx0iWYA9uE0xN'; //2.00 Build 20060918%d
g_sUpDateTime = '7M0p1/0YDOrY7A=='; // 更新日期: 2006/09/18
g_sProgram = 'aY4KdLSdmOA='; //飞尔世界
g_sWebSite = 'tjqcZXVdyOPYnWM7UqCRpgmpKGc='; //
g_sBbsSite = 'tjqcZXVdyOPYnWM7UqCRpgmpKGc='; //
g_sHomePage = 'tjqcZXVdyOPYnWM7UqCRpgmpKGc=';
{$ELSEIF Version = UserKey2}
g_sProductName = 'ij2vTTjSUxTEgskUMm5/zcp4QWHX1T070QE0bw=='; //亿众网络反外挂防攻击数据引擎 V 2.0
g_sVersion = 'amFs9qhmW9d2WyJ3DmtLKzuHBe4M'; //引擎版本: 2.00 Build 20060905%d
g_sUpDateTime = 'an/UcdFy2TMjUg=='; //更新日期: 2006/09/05
g_sProgram = 'ij2vTTjSUxRTt7CtbvHm5daCfg=='; // 程序制作: 亿众网络 QQ:987355
g_sWebSite = 'MARp8u/cvyWrbzvDBVlO8ME8zw=='; //官方网站: http://www.51ggame.com
g_sBbsSite = 'MARp8u/cvyWrbzvDBVlO8ME8zw=='; //程序论坛: http://www.51ggame.com
g_sHomePage = 'MARp8u/cvyWrbzvDBVlO8ME8zw=='; //http://www.51ggame.com
{$ELSEIF Version = UserKey3}
g_sProductName = 'PP3/SlzgBi8iKi6jrGw7zVMQowpM+k4WCeCeJrQu8txyuA=='; //弘智网络反外挂防攻击数据引擎 V 2.0
g_sVersion = 'tIgeTly1HKfYQjApJecjR2GYioX2'; //引擎版本: 2.00 Build 20060908%d
g_sUpDateTime = 'tJa3W9QJBV6wYQ=='; // 更新日期: 2006/09/08
g_sProgram = 'NbeLiaGhsryB6+m3iuyT96hCUYwfFFQSVC15'; // 程序制作: 我爱罗 QQ:548262
g_sWebSite = '7se9Ar2ZIGaGvDNhv4pvZ9WZGb4S'; //官方网站: http://www.588idc.com
g_sBbsSite = '7se9Ar2ZIGaGvDNhv4pvZ9WZGb4S'; //程序论坛: http://www.588idc.com
g_sHomePage = '7se9Ar2ZIGaGvDNhv4pvZ9WZGb4S'; //http://www.588idc.com
{$ELSEIF Version = UserKey4}
g_sProductName = 'fVjQaWl7AoblHKk5MQWb/1yIoCi/hi/5mgDYHbZhTUI='; //封神网反外挂防攻击数据引擎 V 2.0
g_sVersion = '+KkvA7LSPVT80UAsOAauyfJSGvwJ'; //引擎版本: 2.00 Build 20061006%d
g_sUpDateTime = '+Lfd87syMN4kzA=='; //2006/10/06
g_sProgram = 'BHYs6G31zPLuS9OSjBlJc+I='; // 无泪 QQ:19639454
g_sWebSite = 'omM8cJ9x/qu1w0Ups0A5f+HjyL0='; //官方网站: http://www.coipc.com
g_sBbsSite = 'omM8cJ9x/qu1w0Ups0A5f+HjyL0='; //程序论坛: http://www.coipc.com
g_sHomePage = 'omM8cJ9x/qu1w0Ups0A5f+HjyL0='; //http://www.coipc.com
{$ELSEIF Version = UserKey5}
g_sProductName = '4tFih8EzBTCdZCuQr86YIfQquwPKPFWRMfNFYM60Ms8d4w=='; //速网科技反外挂防攻击数据引擎 V 2.0
g_sVersion = 'G2MySRyOQMDg2M/7I///1ogmjvp/'; //引擎版本: 2.00 Build 20060901%d
g_sUpDateTime = 'G336dHdC1houOg=='; //更新日期: 2006/09/04
g_sProgram = '4tFih8EzBTAKKoiWdFyr012QfQ=='; // 程序制作: 速网科技 QQ:240272000 后加三个0
g_sWebSite = 'QY/jYOuxfA0aLYfIv9mUNHGRfA=='; //官方网站: http://www.sukj.com
g_sBbsSite = 'QY/jYOuxfA0aLYfIv9mUNHGRfA=='; //程序论坛: http://www.sukj.com
g_sHomePage = 'QY/jYOuxfA0aLYfIv9mUNHGRfA=='; //http://www.sukj.com
{$ELSEIF Version = UserKey6}
g_sProductName = 'T2+kncvbZUPHp0ynjzMj5FWxdup4gqey06LuNpVVUW4qyA=='; //飘飘网络反外挂防攻击数据引擎 V 2.0
g_sVersion = 'u5pUxorGS7DVDC8Air3H5yJe+j4B'; //引擎版本: 2.00 Build 20060901%d
g_sUpDateTime = 'u4T1mTGJw/MAPA=='; //更新日期: 2006/09/04
g_sProgram = 'W7+/3qIDGg+QCLqgyNM0sGI3nUNIfQ=='; // 程序制作: 叶随风飘 QQ:240621028
g_sWebSite = '4dOlTzEcfMOon4sK2gIAUNcpIr1U6A=='; //官方网站: http://www.51ggame.com
g_sBbsSite = '4dOlTzEcfMOon4sK2gIAUNcpIr1U6A=='; //程序论坛: http://www.51ggame.com
g_sHomePage = '4dOlTzEcfMOon4sK2gIAUNcpIr1U6A=='; //http://www.51ggame.com
{$ELSEIF Version = UserKey7}
g_sProductName = '7PqbBIbaqAJQFPgkcrxT+9/nKzWwrckRtasQMYlw/JMI'; //飘飘网络反外挂防攻击数据引擎 V 2.0
g_sVersion = 'KoyxRFNYEKoWIRIkNMzIryxZaqAT'; //引擎版本: 2.00 Build 20060901%d
g_sUpDateTime = 'KpLTdBkFbnYozA=='; //更新日期: 2006/09/04
g_sProgram = '7PqbBIbaqALHFcUL2el/QQjFs7d8F284iQ=='; // 程序制作: 叶随风飘 QQ:240621028
g_sWebSite = 'cMGcH+++Iv5UYws1Ls+k061CKQ=='; //官方网站: http://www.51ggame.com
g_sBbsSite = 'cMGcH+++Iv5UYws1Ls+k061CKQ=='; //程序论坛: http://www.51ggame.com
g_sHomePage = 'cMGcH+++Iv5UYws1Ls+k061CKQ=='; //http://www.51ggame.com
{$ELSEIF Version = UserKey8}
g_sProductName = 'T2+kncvbZUPHp0ynjzMj5FWxdup4gqey06LuNpVVUW4qyA=='; //飘飘网络反外挂防攻击数据引擎 V 2.0
g_sVersion = 'u5pUxorGS7DVDC8Air3H5yJe+j4B'; //引擎版本: 2.00 Build 20060901%d
g_sUpDateTime = 'u4T1mTGJw/MAPA=='; //更新日期: 2006/09/04
g_sProgram = 'W7+/3qIDGg+QCLqgyNM0sGI3nUNIfQ=='; // 程序制作: 叶随风飘 QQ:240621028
g_sWebSite = '4dOlTzEcfMOon4sK2gIAUNcpIr1U6A=='; //官方网站: http://www.51ggame.com
g_sBbsSite = '4dOlTzEcfMOon4sK2gIAUNcpIr1U6A=='; //程序论坛: http://www.51ggame.com
g_sHomePage = '4dOlTzEcfMOon4sK2gIAUNcpIr1U6A=='; //http://www.51ggame.com
{$ELSEIF Version = UserKey9}
g_sProductName = 'nqUqePRn3p6/hmJbzo4yz4hvJHByJeHGFTqDTrpsDdsdlw=='; //枫越网络反外挂防攻击数据引擎 V 2.0
g_sVersion = 'GwZuUufS+Uyu6tec9lZ3S/fo7BvF'; //引擎版本: 2.00 Build 20060901%d
g_sUpDateTime = 'GxgR43berazsfw=='; //更新日期: 2006/09/04
g_sProgram = 'mfbRav372p3VJQvtThiYbMpSNLm+'; // ヤ傲氣ぺ無悔 QQ:842321
g_sWebSite = 'YWzCByRLVISHxqtgYlDiS6U097g='; //官方网站: Http://Www.42199.Com
g_sBbsSite = 'YWzCByRLVISHxqtgYlDiS6U097g='; //程序论坛: Http://Www.42199.Com
g_sHomePage = 'YWzCByRLVISHxqtgYlDiS6U097g='; //Http://Www.42199.Com
g_sProductInfo = 'koLLvr5xVPKhOYfi2Iaf4y8xOkdE5ZS8jw==';
g_sSellInfo1 = '5m6FfrFx2sLrkYV4Fn6Ql3Skyv0TmB7c6wfkfoXCYm0IDIL0'; //销售联系: QQ:842321 电话:13216223431
g_sSellInfo2 = '5m6FfrFx2sLrkYV4FnV2FwQXjp/KFWTWZlI4fekC+TAiQsaC'; //销售联系: QQ:388059 电话:13835670008
{$ELSEIF Version = UserKey10}
g_sProductName = 'EpSB8FELvjU74Tbz07Dhv915Ty3wrn831SpBTrof4XCKKg=='; //暴风网络反外挂防攻击数据引擎 V 2.0
g_sVersion = 'kZyiF9bI4l7Muwtm5uYaSDe3Ri2G'; //引擎版本: 2.00 Build 20061010%d
g_sUpDateTime = 'kYL1fsp+ajJpWw=='; //更新日期: 2006/10/10
g_sProgram = 'EpSB8FELvjWsFIOSBwxksfp85mqg'; // 程序制作: 暴风网络 QQ:65631790
g_sWebSite = 'y9H/2eDysVaDMR8Cyv1h7/e/'; //官方网站: http://www.bfsf.cn
g_sBbsSite = 'y9H/2eDysVaDMR8Cyv1h7/e/'; //程序论坛: http://www.bfsf.cn
g_sHomePage = 'y9H/2eDysVaDMR8Cyv1h7/e/'; //http://www.bfsf.cn
{$ELSEIF Version = UserKey11}
g_sProductName = 'NjB5xym3Gv/YZTTmsmsaabbqH5qFZuTuaeVZwMYOdw0Jqg=='; //亿人科技反外挂防攻击数据引擎 V 2.0
g_sVersion = '1geZhh3K97LNvqVJjjSl6hodpP79'; //引擎版本: 2.00 Build 20061010%d
g_sUpDateTime = '1hkmg0nbz+n3Bw=='; //更新日期: 2006/10/10
g_sProgram = 'NjB5xym3Gv9POX53z69dH1xM'; // 程序制作: 亿人科技 QQ:79446
g_sWebSite = 'jIMjjz7j2BgHILlfgJsEMABF/LA='; //官方网站: http://www.79445.com
g_sBbsSite = 'jIMjjz7j2BgHILlfgJsEMABF/LA='; //程序论坛: http://www.79445.com
g_sHomePage = 'jIMjjz7j2BgHILlfgJsEMABF/LA='; //http://www.79445.com
{$ELSEIF Version = UserKey12}
g_sProductName = 'NxjcMTcki61fBlG72GuwtkiRqExaXbU0Q7Akv/oAEtKjQg=='; //奔腾科技反外挂防攻击数据引擎 V 2.0
g_sVersion = 'tDEXIez8LsopMBLAdH4/RErIiJNc'; //引擎版本: 2.00 Build 20061010%d
g_sUpDateTime = 'tC/q/n+B1fUTcA=='; //更新日期: 2006/10/10
g_sProgram = 'NxjcMTcki63I8myD9xyohkY1Vw=='; // 程序制作: 奔腾科技 QQ:774058
g_sWebSite = '7pgUz1mfJ87cnn89aSf104apzdnP'; //官方网站: http://Www.Idc512.Com
g_sBbsSite = '7pgUz1mfJ87cnn89aSf104apzdnP'; //程序论坛: http://Www.Idc512.Com
g_sHomePage = '7pgUz1mfJ87cnn89aSf104apzdnP'; //http://Www.Idc512.Com
{$IFEND}
g_sTitleName = '';
g_sSellOffGoldInfo = '当前没有你的拍卖款';
g_sSellOffItemInfo = '你没有在这拍卖物品';
const
sMYHONEPAGE = '81WCuk76z7RuoveDgO/GYniCRT3rJLMFACz2t8R8jRw9kAC+lY4gHpq1/uyVd7KUV9cq03ZGnRg=';
sBUYHINTINFO = '+vqNB+MWrLV/RnQqlHkDn744+QmVAaZPKmB1Xuc=';
nProductVersion = 20061012;
TESTMODE = 0; //是否是调试模式
SOCKETTYPE = 0;
sSTATUS_FAIL = '+FAIL/'; //?
sSTATUS_GOOD = '+GOOD/'; //?
MAXLEVEL = High(Word);
MAXCHANGELEVEL = 1000;
LOG_GAMEGOLD = 111;
LOG_GAMEPOINT = 112;
ET_STONEMINE = 11;
sENCYPTSCRIPTFLAG = ';+++++++----------';
tM2Server = 3;
PN_GETRGB = 'GETRGB';
PN_GAMEDATALOG = 'GAMEDATALOG';
sSTRING_GOLDNAME = '金币';
SKILL_ONESWORD = 3;
SKILL_ILKWANG = 4;
SKILL_YEDO = 7;
SKILL_ERGUM = 12;
SKILL_BANWOL = 25;
SKILL_FIRESWORD = 26;
SKILL_MOOTEBO = 27;
SKILL_FIREBALL = 1;
SKILL_FIREBALL2 = 5;
SKILL_HEALLING = 2;
SKILL_AMYOUNSUL = 6;
SKILL_FIREWIND = 8;
SKILL_FIRE = 9;
SKILL_SHOOTLIGHTEN = 10;
SKILL_LIGHTENING = 11;
SKILL_FIRECHARM {13} = 13;
SKILL_HANGMAJINBUB {14} = 14;
SKILL_DEJIWONHO {15} = 15;
SKILL_HOLYSHIELD {16} = 16;
SKILL_SKELLETON {17} = 17;
SKILL_CLOAK {18} = 18;
SKILL_BIGCLOAK {19} = 19;
SKILL_TAMMING = 20;
SKILL_SPACEMOVE {21} = 21;
SKILL_EARTHFIRE {22} = 22;
SKILL_FIREBOOM {23} = 23;
SKILL_LIGHTFLOWER {24} = 24;
SKILL_SHOWHP {28} = 28;
SKILL_BIGHEALLING {29} = 29;
SKILL_SINSU {30} = 30;
SKILL_SHIELD {31} = 31;
SKILL_KILLUNDEAD {32} = 32;
SKILL_SNOWWIND {33} = 33;
SKILL_UNAMYOUNSUL {34} = 34;
SKILL_WINDTEBO {35} = 35;
SKILL_MABE {36} = 36;
SKILL_GROUPLIGHTENING {37 群体雷电术} = 37;
SKILL_GROUPAMYOUNSUL {38 群体施毒术} = 38;
SKILL_GROUPDEDING {39 地钉} = 39;
SKILL_40 = 40;
SKILL_41 = 41;
SKILL_42 = 42;
SKILL_43 = 43;
SKILL_44 = 44;
SKILL_45 = 45;
SKILL_46 = 46;
SKILL_47 = 47;
SKILL_48 = 48;
SKILL_49 = 49;
SKILL_50 = 50;
SKILL_51 = 51;
SKILL_52 = 52;
SKILL_53 = 53;
SKILL_54 = 54;
SKILL_55 = 55;
SKILL_56 = 56;
SKILL_57 = 57;
SKILL_58 = 58;
SKILL_59 = 59;
SKILL_60 = 60;
SKILL_61 = 61;
SKILL_62 = 62;
SKILL_63 = 63;
SKILL_64 = 64;
SKILL_65 = 65;
SKILL_66 = 66;
SKILL_67 = 67;
SKILL_68 = 68;
SKILL_69 = 69;
SKILL_70 = 80;
SKILL_71 = 81;
SKILL_72 = 82;
SLAVEMAXLEVEL = 9;
DEBUG = 1; //调试模式
CHECKNEWMSG = 0; //是否显示未处理的客户端消息
NOEXCEPTION = 0;
TRYEXCEPTION = 1;
CATEXCEPTION = TRYEXCEPTION;
DEMOCLIENT = 0; //是否演示客户端
VERDEMO = 0;
VERFREE = 1;
VERSTD = 2;
VEROEM = 3;
VERPRO = 4;
VERENT = 5;
SoftVersion = VERSTD; //程序版本类型
BDE = 0;
ADO = 1;
DBTYPE = BDE;
USELOCALCODE = 0;
USEREMOTECODE = 1;
USECODE = USELOCALCODE;
RequestVersion = 5;
LF = 0;
LD = 1;
ZQ = 2;
DUDU = 3;
ZYL = 4;
WL = 5;
TEST = 53;
VEROWNER = LF;
OEM = 0;
OEM775 = 1;
OEMVER = OEM;
ENDYEAR = 2005;
ENDMONTH = 4;
ENDDAY = 8;
OLDMONSTERMODE = 0;
NEWMONSTERMODE = 1;
PROCESSMONSTMODE = NEWMONSTERMODE; //处理怪物模式
THREADENGINE = 0; //DB数据库SOCKET连接使用线程
TIMERENGINE = 1; //DB数据库SOCKET连接使用控件
DBSOCKETMODE = TIMERENGINE;
IDSOCKETMODE = TIMERENGINE;
USERENGINEMODE = TIMERENGINE;
CHECKENDYEAR = ENDYEAR;
CHECKENDMONTH = ENDMONTH;
CHECKENDDAY = ENDDAY;
MAXMAGIC = 20; //可学技能数
//最高可升级等级
MAXUPLEVEL = High(Word) {65535};
MAXHUMPOWER = High(Word) {65535};
BODYLUCKUNIT = 5.0E3;
HAM_ALL = 0;
HAM_PEACE = 1;
HAM_DEAR = 2;
HAM_MASTER = 3;
HAM_GROUP = 4;
HAM_GUILD = 5;
HAM_PKATTACK = 6;
DEFHIT = 5;
DEFSPEED = 15;
WARR = 0;
WIZARD = 1;
TAOS = 2;
SIZEOFTHUMAN = $C5C;
MONSTER_SANDMOB = 3;
MONSTER_ROCKMAN = 4;
MONSTER_RON = 9;
MONSTER_MINORNUMA = 18;
ANIMAL_CHICKEN = 20;
ANIMAL_DEER = 21;
MONSTER_OMA = 23;
MONSTER_OMAKNIGHT = 25;
MONSTER_OMAWARRIOR = 27;
MONSTER_SPITSPIDER = 30;
MONSTER_STICK = 39;
MONSTER_DUALAXE = 42;
MONSTER_THONEDARK = 74;
MONSTER_LIGHTZOMBI = 78;
MONSTER_WHITESKELETON = 94;
MONSTER_BEEQUEEN = 124;
MONSTER_BEE = 125;
MONSTER_MAGUNGSA = 143;
MONSTER_SCULTURE1 = 145;
MONSTER_SCULTURE2 = 148;
MONSTER_SCULTUREKING = 152;
MONSTER_ELFMONSTER = 161;
MONSTER_ELFWARRIOR = 162;
SUPREGUARD = 11;
CHICKEN = 51;
DEER = 52;
WOLF = 53;
TRAINER = 55;
sMAN = 'MAN';
sSUNRAISE = 'SUNRAISE';
sDAY = 'DAY';
sSUNSET = 'SUNSET';
sNIGHT = 'NIGHT';
sWARRIOR = 'WARRIOR';
sWIZARD = 'WIZARD';
sTAOS = 'TAOIST';
sSUN = 'SUN';
sMON = 'MON';
sTUE = 'TUE';
sWED = 'WED';
sTHU = 'THU';
sFRI = 'FRI';
sSAT = 'SAT';
//脚本常量
sCHECK = 'CHECK';
nCHECK = 1;
sRANDOM = 'RANDOM';
nRANDOM = 2;
sGENDER = 'GENDER';
nGENDER = 3;
sDAYTIME = 'DAYTIME';
nDAYTIME = 4;
sCHECKOPEN = 'CHECKOPEN';
nCHECKOPEN = 5;
sCHECKUNIT = 'CHECKUNIT';
nCHECKUNIT = 6;
sCHECKLEVEL = 'CHECKLEVEL';
nCHECKLEVEL = 7;
sCHECKJOB = 'CHECKJOB';
nCHECKJOB = 8;
sCHECKBBCOUNT = 'CHECKBBCOUNT';
nCHECKBBCOUNT = 9;
sCHECKITEM = 'CHECKITEM';
nCHECKITEM = 20;
sCHECKITEMW = 'CHECKITEMW';
nCHECKITEMW = 21;
sCHECKGOLD = 'CHECKGOLD';
nCHECKGOLD = 22;
sISTAKEITEM = 'ISTAKEITEM';
nISTAKEITEM = 23;
sCHECKDURA = 'CHECKDURA';
nCHECKDURA = 24;
sCHECKDURAEVA = 'CHECKDURAEVA';
nCHECKDURAEVA = 25;
sDAYOFWEEK = 'DAYOFWEEK';
nDAYOFWEEK = 26;
sHOUR = 'HOUR';
nHOUR = 27;
sMIN = 'MIN';
nMIN = 28;
sCHECKPKPOINT = 'CHECKPKPOINT';
nCHECKPKPOINT = 29;
sCHECKLUCKYPOINT = 'CHECKLUCKYPOINT';
nCHECKLUCKYPOINT = 30;
sCHECKMONMAP = 'CHECKMONMAP';
nCHECKMONMAP = 31;
sCHECKMONAREA = 'CHECKMONAREA';
nCHECKMONAREA = 32;
sCHECKHUM = 'CHECKHUM';
nCHECKHUM = 33;
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?