grobal2.pas

来自「FIR引擎最新源码+注册」· PAS 代码 · 共 2,085 行 · 第 1/4 页

  RM_SENDUSERSELL = 10129;
  RM_SENDUSERREPAIR = 11139;
  RM_USERMAKEDRUGITEMLIST = 10149;
  RM_USERSTORAGEITEM = 10146;
  RM_USERGETBACKITEM = 10147;

  RM_USERBIGSTORAGEITEM = 20146;
  RM_USERBIGGETBACKITEM = 20147;
  RM_USERLEVELORDER = 20148;


  RM_SPACEMOVE_FIRE2 = 11330;
  RM_SPACEMOVE_FIRE = 11331;

  RM_BUYITEM_SUCCESS = 10133;
  RM_BUYITEM_FAIL = 10134;
  RM_SENDDETAILGOODSLIST = 10135;
  RM_SENDBUYPRICE = 10130;
  RM_USERSELLITEM_OK = 10131;
  RM_USERSELLITEM_FAIL = 10132;
  RM_MAKEDRUG_SUCCESS = 10150;
  RM_MAKEDRUG_FAIL = 10151;
  RM_SENDREPAIRCOST = 10142;
  RM_USERREPAIRITEM_OK = 10143;
  RM_USERREPAIRITEM_FAIL = 10144;

  MAXBAGITEM = 46;
  MAXHEROBAGITEM = 40; //英雄包裹
  RM_10155 = 10155;
  RM_PLAYDICE = 10500;
  RM_ADJUST_BONUS = 10400;

  RM_BUILDGUILD_OK = 10303;
  RM_BUILDGUILD_FAIL = 10304;
  RM_DONATE_OK = 10305;

  RM_GAMEGOLDCHANGED = 10666;

  STATE_OPENHEATH = 1;
  POISON_68 = 68;

  RM_MYSTATUS = 10777;

  CM_QUERYUSERSTATE = 82;

  CM_QUERYBAGITEMS = 81;

  CM_QUERYUSERSET = 49999;

  CM_OPENDOOR = 1002;
  CM_SOFTCLOSE = 1009;
  CM_1017 = 1017;
  CM_1042 = 1042;
  CM_GUILDALLY = 1044;
  CM_GUILDBREAKALLY = 1045;

  RM_HORSERUN = 11000;
  RM_HEAVYHIT = 10005;
  RM_BIGHIT = 10006;
  RM_MOVEFAIL = 10010;
  RM_CRSHIT = 11014;
  RM_RUSHKUNG = 11015;

  RM_41 = 41;
  RM_42 = 42;
  RM_43 = 43;

  RM_MAGICFIREFAIL = 10121;
  RM_LAMPCHANGEDURA = 10138;
  RM_GROUPCANCEL = 10140;

  RM_DONATE_FAIL = 10306;

  RM_BREAKWEAPON = 10413;

  RM_PASSWORD = 10416;

  RM_PASSWORDSTATUS = 10601;

  SM_40 = 35;
  SM_41 = 36;
  SM_42 = 37;
  SM_43 = 38;

  SM_HORSERUN = 5;
  SM_716 = 716;

  SM_PASSWORD = 3030;
  SM_PLAYDICE = 1200;

  SM_PASSWORDSTATUS = 20001;

  SM_GAMEGOLDNAME = 55; //游戏币名称

  SM_SERVERCONFIG = 20002;
  SM_GETREGINFO = 20003;


  ET_DIGOUTZOMBI = 1;
  ET_PILESTONES = 3;
  ET_HOLYCURTAIN = 4;
  ET_FIRE = 5;
  ET_SCULPEICE = 6;
{6种烟花}
  ET_FIREFLOWER_1 = 7;
  ET_FIREFLOWER_2 = 8;
  ET_FIREFLOWER_3 = 9;
  ET_FIREFLOWER_4 = 10;
  ET_FIREFLOWER_5 = 11;
  ET_FIREFLOWER_6 = 12;
  ET_FIREFLOWER_7 = 13;
  ET_FIREFLOWER_8 = 14;

  CM_PROTOCOL = 2000;
  CM_IDPASSWORD = 2001;
  CM_ADDNEWUSER = 2002;
  CM_CHANGEPASSWORD = 2003;
  CM_UPDATEUSER = 2004;
  CM_RANDOMCODE = 2006;
  SM_RANDOMCODE = 2007;


  CLIENT_VERSION_NUMBER = 120061220;
  CM_3037 = 3037;

  SM_NEEDPASSWORD = 8003;
  CM_POWERBLOCK = 0;

  //商铺相关
  CM_OPENSHOP = 9000;
  CM_BUYSHOPITEM = 9002;
  SM_BUYSHOPITEM_SUCCESS = 9003;
  SM_BUYSHOPITEM_FAIL = 9004;
  SM_SENGSHOPITEMS = 9001; // SERIES 7 每页的数量    wParam 总页数
  //==============================================================================
  CM_QUERYUSERLEVELSORT = 3500; //用户等级排行
  RM_QUERYUSERLEVELSORT = 35000;
  SM_QUERYUSERLEVELSORT = 2500;
  //==============================新增物品寄售系统==============================
  RM_SENDSELLOFFGOODSLIST = 21008;
  SM_SENDSELLOFFGOODSLIST = 20008;
  RM_SENDUSERSELLOFFITEM = 21005;
  SM_SENDUSERSELLOFFITEM = 20005; //寄售物品
  RM_SENDSELLOFFITEMLIST = 22009; //查询得到的寄售物品
  CM_SENDSELLOFFITEMLIST = 20009; //查询得到的寄售物品
  RM_SENDBUYSELLOFFITEM_OK = 21010; //购买寄售物品成功
  SM_SENDBUYSELLOFFITEM_OK = 20010; //购买寄售物品成功
  RM_SENDBUYSELLOFFITEM_FAIL = 21011; //购买寄售物品失败
  SM_SENDBUYSELLOFFITEM_FAIL = 20011; //购买寄售物品失败
  RM_SENDBUYSELLOFFITEM = 41005; //购买选择寄售物品
  CM_SENDBUYSELLOFFITEM = 4005; //购买选择寄售物品
  RM_SENDQUERYSELLOFFITEM = 41006; //查询选择寄售物品
  CM_SENDQUERYSELLOFFITEM = 4006; //查询选择寄售物品
  RM_SENDSELLOFFITEM = 41004; //接受寄售物品
  CM_SENDSELLOFFITEM = 4004; //接受寄售物品
  RM_SENDUSERSELLOFFITEM_FAIL = 2007; //R = -3  寄售物品失败
  RM_SENDUSERSELLOFFITEM_OK = 2006; //寄售物品成功
  SM_SENDUSERSELLOFFITEM_FAIL = 20007; //R = -3  寄售物品失败
  SM_SENDUSERSELLOFFITEM_OK = 20006; //寄售物品成功
  ////////////////////////////////////////////////////////////////////////////////
  CM_RECALLHERO = 5000; //召唤英雄
  SM_RECALLHERO = 5001;
  CM_HEROLOGOUT = 5002; //英雄退出
  SM_HEROLOGOUT = 5003;
  SM_CREATEHERO = 5004;
  SM_HERODEATH = 5005;
  CM_HEROCHGSTATUS = 5006; //改变英雄状态
  CM_HEROATTACKTARGET = 5007; //英雄锁定目标
  CM_HEROPROTECT = 5008; //守护目标
  CM_HEROTAKEONITEM = 5009;
  CM_HEROTAKEOFFITEM = 5010;
  CM_TAKEOFFITEMHEROBAG = 5011; //装备脱下到英雄包裹
  CM_TAKEOFFITEMTOMASTERBAG = 5012; //装备脱下到主人包裹
  CM_SENDITEMTOMASTERBAG = 5013; //主人包裹到英雄包裹
  CM_SENDITEMTOHEROBAG = 5014; //英雄包裹到主人包裹
  SM_HEROTAKEON_OK = 5015;
  SM_HEROTAKEON_FAIL = 5016;
  SM_HEROTAKEOFF_OK = 5017;
  SM_HEROTAKEOFF_FAIL = 5018;
  SM_TAKEOFFTOHEROBAG_OK = 5019;
  SM_TAKEOFFTOHEROBAG_FAIL = 5020;
  SM_TAKEOFFTOMASTERBAG_OK = 5021;
  SM_TAKEOFFTOMASTERBAG_FAIL = 5022;
  CM_HEROTAKEONITEMFORMMASTERBAG = 5023; //从主人包裹穿装备到英雄包裹
  CM_TAKEONITEMFORMHEROBAG = 5024; //从英雄包裹穿装备到主人包裹
  SM_SENDITEMTOMASTERBAG_OK = 5025; //主人包裹到英雄包裹成功
  SM_SENDITEMTOMASTERBAG_FAIL = 5026; //主人包裹到英雄包裹失败
  SM_SENDITEMTOHEROBAG_OK = 5027; //英雄包裹到主人包裹
  SM_SENDITEMTOHEROBAG_FAIL = 5028; //英雄包裹到主人包裹
  CM_QUERYHEROBAGCOUNT = 5029; //查看英雄包裹容量
  SM_QUERYHEROBAGCOUNT = 5030; //查看英雄包裹容量
  CM_QUERYHEROBAGITEMS = 5031; //查看英雄包裹
  SM_SENDHEROUSEITEMS = 5032;
  SM_HEROBAGITEMS = 5033;
  SM_HEROADDITEM = 5034;
  SM_HERODELITEM = 5035;
  SM_HEROUPDATEITEM = 5036;
  SM_HEROADDMAGIC = 5037;
  SM_HEROSENDMYMAGIC = 5038;
  SM_HERODELMAGIC = 5039;
  SM_HEROABILITY = 5040;
  SM_HEROSUBABILITY = 5041;
  SM_HEROWEIGHTCHANGED = 5042;
  CM_HEROEAT = 5043;
  SM_HEROEAT_OK = 5044;
  SM_HEROEAT_FAIL = 5045;
  SM_HEROMAGIC_LVEXP = 5046;
  SM_HERODURACHANGE = 5047;
  SM_HEROWINEXP = 5048;
  SM_HEROLEVELUP = 5049;
  SM_HEROCHANGEITEM = 5050;
  SM_HERODELITEMS = 5051;
  CM_HERODROPITEM = 5052;
  SM_HERODROPITEM_SUCCESS = 5053;
  SM_HERODROPITEM_FAIL = 5054;
  CM_HEROGOTETHERUSESPELL = 5055; //使用合击
  SM_GOTETHERUSESPELL = 5056; //使用合击
  SM_FIRDRAGONPOINT = 5057;
  CM_REPAIRFIRDRAGON = 5058;
  SM_REPAIRFIRDRAGON_OK = 5059;
  SM_REPAIRFIRDRAGON_FAIL = 5060;

  RM_RECALLHERO = 19999;
  RM_HEROWEIGHTCHANGED = 20000;
  RM_SENDHEROUSEITEMS = 20001;
  RM_SENDHEROMYMAGIC = 20002;
  RM_HEROMAGIC_LVEXP = 20003;
  RM_QUERYHEROBAGCOUNT = 20004;
  RM_HEROABILITY = 20005;
  RM_HERODURACHANGE = 20006;
  RM_HERODEATH = 20007;
  RM_HEROLEVELUP = 20008;
  RM_HEROWINEXP = 20009;
  RM_HEROLOGOUT = 20010;
  RM_CREATEHERO = 20011;
  RM_MAKEGHOSTHERO = 20012;
  RM_HEROSUBABILITY = 20013;

  RM_GOTETHERUSESPELL = 20014; //使用合击
  RM_FIRDRAGONPOINT = 20015;
  RM_CHANGETURN = 20016;
  ////////////////////////////////////////////////////////////////////////////////
  UNITX = 48;
  UNITY = 32;
  HALFX = 24;
  HALFY = 16;
  //MAXBAGITEM = 46; //用户背包最大数量
  MAXMAGIC = 20; //原来54;
  MAXSTORAGEITEM = 50;
  LOGICALMAPUNIT = 40;
type
  TMonStatus = (s_KillHuman, s_UnderFire, s_Die, s_MonGen);
  TMsgColor = (c_Red, c_Green, c_Blue, c_White);
  TMsgType = (t_Notice, t_Hint, t_System, t_Say, t_Mon, t_GM, t_Cust, t_Castle);
  //  TSayMsgType = (s_NoneMsg,s_GroupMsg,s_GuildMsg,s_SystemMsg,s_NoticeMsg); clWindowText
  TDefaultMessage = record
    Recog: Integer;
    Ident: Word;
    Param: Word;
    Tag: Word;
    Series: Word;
  end;
  pTDefaultMessage = ^TDefaultMessage;

  TOSObject = record
    btType: Byte;
    CellObj: TObject;
    dwAddTime: LongWord;
    boObjectDisPose: Boolean;
  end;
  pTOSObject = ^TOSObject;

  TSendMessage = record
    wIdent: Word;
    wParam: Word;
    nParam1: Integer;
    nParam2: Integer;
    nParam3: Integer;
    BaseObject: TObject;
    dwAddTime: LongWord;
    dwDeliveryTime: LongWord;
    boLateDelivery: Boolean;
    Buff: PChar;
  end;
  pTSendMessage = ^TSendMessage;

  TProcessMessage = record
    wIdent: Word;
    wParam: Word;
    nParam1: Integer;
    nParam2: Integer;
    nParam3: Integer;
    BaseObject: TObject;
    boLateDelivery: Boolean;
    dwDeliveryTime: LongWord;
    sMsg: string;
  end;
  pTProcessMessage = ^TProcessMessage;

  TLoadHuman = record
    sAccount: string[12];
    sChrName: string[ACTORNAMELEN];
    sUserAddr: string[15];
    nSessionID: Integer;
  end;

  TShortMessage = record
    Ident: Word;
    wMsg: Word;
  end;

  TMessageBodyW = record
    Param1: Word;
    Param2: Word;
    Tag1: Word;
    Tag2: Word;
  end;

  TMessageBodyWL = record
    lParam1: Integer;
    lParam2: Integer;
    lTag1: Integer;
    lTag2: Integer;
  end;

  TCharDesc = record
    feature: Integer;
    Status: Integer;
  end;

  TSessInfo = record //全局会话
    sAccount: string[12];
    sIPaddr: string[15];
    nSessionID: Integer;
    nPayMent: Integer;
    nPayMode: Integer;
    nSessionStatus: Integer;
    dwStartTick: LongWord;
    dwActiveTick: LongWord;
    nRefCount: Integer;
  end;
  pTSessInfo = ^TSessInfo;

  TQuestInfo = record
    wFlag: Word;
    btValue: Byte;
    nRandRage: Integer;
  end;
  pTQuestInfo = ^TQuestInfo;

  TScript = record
    boQuest: Boolean;
    QuestInfo: array[0..9] of TQuestInfo;
    nQuest: Integer;
    RecordList: TList;
  end;
  pTScript = ^TScript;

  TMonItem = record
    n00: Integer;
    n04: Integer;
    sMonName: string;
    n18: Integer;
  end;
  pTMonItem = ^TMonItem;

  TItemName = record
    nItemIndex: Integer;
    nMakeIndex: Integer;
    sItemName: string;
  end;
  pTItemName = ^TItemName;

  TVarType = (vNone, vInteger, vString);

  TDynamicVar = record
    sName: string;
    VarType: TVarType;
    nInternet: Integer;
    sString: string;
  end;
  pTDynamicVar = ^TDynamicVar;

  TRecallMigic = record
    nHumLevel: Integer;
    sMonName: string;
    nCount: Integer;
    nLevel: Integer;
  end;

  TMonSayMsg = record
    nRate: Integer;
    sSayMsg: string;
    State: TMonStatus;
    Color: TMsgColor;
  end;
  pTMonSayMsg = ^TMonSayMsg;

  TMonDrop = record
    sItemName: string;
    nDropCount: Integer;
    nNoDropCount: Integer;
    nCountLimit: Integer;
  end;
  pTMonDrop = ^TMonDrop;

  TGameCmd = record
    sCmd: string[25];
    nPermissionMin: Integer;
    nPermissionMax: Integer;
  end;
  pTGameCmd = ^TGameCmd;

  TIPAddr = record
    dIPaddr: string[15];
    sIPaddr: string[15];
  end;
  pTIPAddr = ^TIPAddr;

  TSrvNetInfo = record
    sIPaddr: string[15];
    nPort: Integer;
  end;
  pTSrvNetInfo = ^TSrvNetInfo;

  TCheckCode = record
  end;

  TStdItem = packed record
    Name: string[14];
    StdMode: Byte;
    Shape: Byte;
    Weight: Byte;
    AniCount: Byte;
    Source: ShortInt;
    Reserved: Byte; //0x14
    NeedIdentify: Byte; //0x15
    Looks: Word; //0x16
    DuraMax: Word; //0x18
    Reserved1: Word;
    AC: Integer; //0x1A
    MAC: Integer; //0x1C
    DC: Integer; //0x1E
    MC: Integer; //0x20
    SC: Integer; //0x22
    Need: Integer; //0x24
    NeedLevel: Integer; //0x25
    Price: Integer; //0x28
  end;
  pTStdItem = ^TStdItem;

  TOStdItem = packed record //OK
    Name: string[14];
    StdMode: Byte;
    Shape: Byte;
    Weight: Byte;
    AniCount: Byte;
    Source: ShortInt;
    Reserved: Byte;
    NeedIdentify: Byte;
    Looks: Word;
    DuraMax: Word;
    AC: Word;
    MAC: Word;
    DC: Word;
    MC: Word;
    SC: Word;
    Need: Byte;
    NeedLevel: Byte;
    w26: Word;
    Price: Integer;
  end;
  pTOStdItem = ^TOStdItem;

  TOClientItem = record //OK
    s: TOStdItem;
    MakeIndex: Integer;
    Dura: Word;
    DuraMax: Word;
  end;
  pTOClientItem = ^TOClientItem;

  TClientItem = record //OK
    s: TStdItem;
    MakeIndex: Integer;
    Dura: Word;
    DuraMax: Word;
  end;
  PTClientItem = ^TClientItem;

  TMonInfo = record
    sName: string[14];
    btRace: Byte;
    btRaceImg: Byte;
    wAppr: Word;
    wLevel: Word;
    btLifeAttrib: Byte;
    boUndead: Boolean;
    wCoolEye: Word;
    dwExp: LongWord;
    wMP: Word;
    wHP: Word;
    wAC: Word;
    wMAC: Word;
    wDC: Word;
    wMaxDC: Word;
    wMC: Word;
    wSC: Word;
    wSpeed: Word;
    wHitPoint: Word;
    wWalkSpeed: Word;
    wWalkStep: Word;
    wWalkWait: Word;
    wAttackSpeed: Word;
    ItemList: TList;
  end;
  pTMonInfo = ^TMonInfo;

  TMagic = record
    wMagicId: Word;
    sMagicName: string[12];
    btEffectType: Byte;