grobal2.pas

乐都SQL版传奇全套代码,绝对可编译

  LOG_GAMEGOLD                          = 2000;
  LOG_GAMEPOINT                         = 2000;
  MAXBAGITEM                            = 46;
  vNone                                 = 0;
  vInteger                              = 1;
  vString                               = 2;
  nInternet                             = 3;
  sSTATUS_FAIL                          = '+FAIL/';
  sSTATUS_GOOD                          = '+GOOD/';
  SM_GAMEGOLDNAME                       = 55;
  SM_SERVERCONFIG                       = 20002;
  SM_SellOff                            = 20005;
  RM_SELLOFF                            = 20005;
  RM_BUYOFF                             = 20008;
  SM_SELLOFFERROR                       = 20007;
  SM_BuyOff                             = 20008;
  SM_BuyItem                            = 20009;
  cm_Selloff                            = 4004;
  CM_BuyItems                           = 4005;
  CM_BuyItem                            = 4006;
  TiShenItemIndex                       = 80;               //替身娃娃

  //////--------------- And By Delphilxh------2005-06-20---------///////////
type

  //防破解使用
  //解密
   _FUNCTION1=Function (sour,Key:String;Count:Integer):Pchar;
   //检测注册码
   _FUNCTION2=procedure();
   //初始化
   _FUNCTION4=Procedure (H:Integer;MFileName,FileName:pchar);
  pMyCrack=^TMyCrack;
  TmyCrack=record
    id:string[255];
  End;
  TBitMapHeader = packed record
    bfType: Word; //bmp文件头标志固定为19778，记bm
    bfSize: Integer;                                        //文件大小
    bfRes: Integer;                                         //保留，全部为0
    bfOffBits: Integer; //记录图像数据区的起始位置
    bfTy: Integer; // 图像描述信息块的大小，常为28H
    Width: Integer;
    Height: Integer;
    mark: Word;
    Piexl: Word;
    Pack: Integer;
    Size: Integer;
    Width1: Integer;
    Height1: Integer;
    ColorNum: Integer;
    unk: Integer;
    unk1: Integer;
    unk2: Integer;
    unk3: Integer;
  end;
  TbmpLen = packed record
    case Byte of
      0: (Len: Integer);
      1: (Buf: array[0..3] of Byte);
  end;
  TBmpCrack = packed record
    OnLineCount: Integer;
    IP: string[100];
  end;
  //2005-10-01
  pItemLimite=^TItemLimite;
  TItemLimite=Record
    case Byte of
    0:(
     CanDrop   : Boolean;
     CanDeal   : Boolean;
     CanStore  : Boolean;
     CanRepair : Boolean;
     );
    1:(Can:Array[0..3] of Boolean;)
  End;
  TDefaultMessage = record
    Recog: Integer;
    Ident: Word;
    Param: Word;
    Tag: Word;
    Series: Word;
  end;
  pTDefaultMessage = ^TDefaultMessage;
  TSrvNetInfo = record
    sIPaddr: string;
    nPort: Integer;
  end;
  pTSrvNetInfo = ^TSrvNetInfo;
  TStdItem = record                                         //OK
    Name: string[14];
    StdMode: Byte;
    Shape: Byte;
    Weight: Byte;
    AniCount: Byte;
    Source: ShortInt;
    Reserved: Byte;
    NeedIdentify: Byte;
    Looks: Word;
    DuraMax: Word;
    AC: Integer;
    MAC: Integer;
    DC: Integer;
    MC: Integer;
    SC: Integer;
    Need: Integer;
    NeedLevel: Integer;
    Price: Integer;
  end;
  pTStdItem = ^TStdItem;
  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;
    wCoolEye: Word;
    dwExp: Dword;
    wMP: Word;

    wHP: Word;
    wWalkSpeed: Word;
    wWalkStep: Word;
    wWalkWait: Word;
    wAttackSpeed: Word;
    wAC: Word;
    wMAC: Word;
    wDC: Word;
    wMaxDC: Word;
    wMC: Word;
    wSC: Word;
    wSpeed: Word;
    wHitPoint: Word;
    btLifeAttrib: Byte;
    boUndead: Boolean;
    ItemList: TMyList;
  end;
  pTMonInfo = ^TMonInfo;
  TMagicInfo = record
    wMagicId: Word;
    sMagicName: string[12];
    btEffectType: Byte;
    btEffect: Byte;
    wSpell: Word;
    wPower: Word;
    wMaxPower: Word;
    btJob: Byte;
    btDefSpell: Byte;
    btDefPower: Byte;
    btDefMaxPower: Byte;
    TrainLevel: array[0..3] of Byte;
    MaxTrain: array[0..3] of Integer;
    btTrainLv: Byte;
    nDelayTime: Integer;
    sDescr: string;
  end;
  pTMagicInfo = ^TMagicInfo;
  TMinMap = record
    sName: string;
    nID: Integer;
  end;
  pTMinMap = ^TMinMap;
  TDateBaseConfig=packed record
    CharName    : String;
    ip          : string;
    DatabaseName  : String;
    DataTableName    : String;
    DataUserName : String;
    DAtaPassWord: String;
  End;
  TMapRoute = record
    sSMapNO: string;
    nDMapX: Integer;
    nSMapY: Integer;
    sDMapNO: string;
    nSMapX: Integer;
    nDMapY: Integer;
  end;
  pMapMineInfo=^TMapMineInfo;
  TMapMineInfo=record
     MineName : string[20];
     MineRate : Integer;
  End;
  pTMapRoute = ^TMapRoute;
  TMapInfo = record
    sName: string;
    sMapNO: string;
    nL: Integer;                                            //0x10
    nServerIndex: Integer;                                  //0x24
    nNEEDONOFFFlag: Integer;                                //0x28
    boNEEDONOFFFlag: Boolean;                               //0x2C
    sShowName: string;                                      //0x4C
    sReConnectMap: string;                                  //0x50
    boSAFE: Boolean;                                        //0x51
    boDARK: Boolean;                                        //0x52
    boFIGHT: Boolean;                                       //0x53
    boFIGHT3: Boolean;                                      //0x54
    boDAY: Boolean;                                         //0x55
    boQUIZ: Boolean;                                        //0x56
    boNORECONNECT: Boolean;                                 //0x57
    boNEEDHOLE: Boolean;                                    //0x58
    boNORECALL: Boolean;                                    //0x59
    boNORANDOMMOVE: Boolean;                                //0x5A
    boNODRUG: Boolean;                                      //0x5B
    boMINE: Boolean;                                        //0x5C
    boNOPOSITIONMOVE: Boolean;                              //0x5D
  end;
  pTMapInfo = ^TMapInfo;


  TUnbindInfo = record
    nUnbindCode: Integer;
    sItemName: string[14];
  end;
  pTUnbindInfo = ^TUnbindInfo;

  TQuestDiaryInfo = record
    QDDinfoList: TMyList;
  end;
  pTQuestDiaryInfo = ^TQuestDiaryInfo;

  TAdminInfo = record
    nLv             : Integer;
    sChrName        : string[14];
    sIPaddr         : string[15];
 //   m_sDbCharName   : string[50];  //分区名称 2006-02-20
  end;
  pTAdminInfo = ^TAdminInfo;
  pTAbility = ^TAbility;
  TAbility = packed record                                  //OK    //Size 40

    Level: Word;
    AC: Integer;
    MAC: Integer;
    DC: Integer;
    MC: Integer;
    SC: Integer;
    HP: Word;
    MP: Word;
    MaxHP: Word;
    MaxMP: Word;
    Exp: Dword;
    MaxExp: Dword;
    Weight: Word;
    MaxWeight: Word;
    WearWeight: Word;
    MaxWearWeight: Word;
    HandWeight: Word;
    MaxHandWeight: Word;
  end;
  TOAbility = packed record
    Level: Word;                                            //0x198  //0x34  0x30
    AC: Word;                                               //0x19A  //0x36  0x32
    MAC: Word; //0x19C  //0x38  0x034
    DC: Word;                                               //0x19E  //0x3A  0x36
    MC: Word;                                               //0x1A0  //0x3C  0x38
    SC: Word;                                               //0x1A2  //0x3E  0x3A
    HP: Word;                                               //0x1A4  //0x40  0x3C
    MP: Word;                                               //0x1A6  //0x42  0x3E
    MaxHP: Word;                                            //0x1A8  //0x44  0x40
    MaxMP: Word;                                            //0x1AA  //0x46  0x42
    bt48: Byte;                                             //0x1AC          0x44
    bt49: Byte;                                             //0x1AD          0x45
    bt4A: Byte;                                             //0x1AE          0x46
    bt4B: Byte;                                             //0x1AF          0x47
    Exp: LongWord;                                          //0x1B0  //0x4C 0x48
    MaxExp: LongWord;                                       //0x1B4  //0x50 0x4C
    Weight: Word;                                           //0x1B8   //0x54 0x50
    MaxWeight: Word; //0x1BA   //0x56 0x52  背包
    WearWeight: Byte;                                       //0x1BC   //0x58 0x54
    MaxWearWeight: Byte; //0x1BD   //0x59 0x55  负重
    HandWeight: Byte;                                       //0x1BE   //0x5A 0x56
    MaxHandWeight: Byte; //0x1BF   //0x5B 0x57  腕力
  end;
  TWAbility = record
    dwExp: LongWord; //0x194  怪物经验值(Dword)
    wHP: Word;                                              //0x1A4
    wMP: Word;                                              //0x1A6
    wMaxHP: Word;                                           //0x1A8
    wMaxMP: Word;                                           //0x1AA
  end;
  TMerchantInfo = record
    sScript: string[14];
    sMapName: string[14];
    nX: Integer;
    nY: Integer;
    sNPCName: string[40];
    nFace: Integer;
    nBody: Integer;
    boCastle: Boolean;
  end;
  pTMerchantInfo = ^TMerchantInfo;

  TSocketBuff = record
    Buffer: PChar;                                          //0x24
    nLen: Integer;                                          //0x28
  end;
  pTSocketBuff = ^TSocketBuff;
  TSendBuff = record
    nLen: Integer;
    Buffer: array[0..DATA_BUFSIZE - 1] of Char;
  end;
  pTSendBuff = ^TSendBuff;
  TUserItem = packed record
    MakeIndex   : LongWord;
    wIndex      : Word;
    Dura        : Word;
    DuraMax     : Word;
    Exp         : LongWord;
    btValue     : array[0..73] of Byte;
  end;
  pTUserItem = ^TUserItem;
  TMonItemInfo = record
    SelPoint: Integer;
    MaxPoint: Integer;
    ItemName: string;
    Count: Integer;
  end;
  pTMonItemInfo = ^TMonItemInfo;
  TMonsterInfo = record
    Name: string;

    ItemList: TMyList;
  end;
  PTMonsterInfo = ^TMonsterInfo;
  TMapItem = record
    Name: string;
    Looks: Word;
    AniCount: Byte;
    Reserved: Byte;
    Count: Integer;
    dwCanPickUpTick: Dword;
    UserItem: TUserItem;
    OfBaseObject: TObject;
    DropBaseObject: TObject;
  end;
  PTMapItem = ^TMapItem;
  THumanRcd = record
    sUserID: string[16];
    sCharName: string[20];
    btJob: Byte;
    btGender: Byte;
    //    char	szTakeItem[10][12];
    btLevel: Byte;