请选择 进入手机版 | 继续访问电脑版

传奇一条龙,GM基地,传奇单机版,手游GM论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

飓风盾 SLK 夜游神会员
查看: 228|回复: 1

Ei3.0 Tools插件源码Delphi框架 - 逍遥共享版

[复制链接]
  • TA的每日心情
    开心
    1 小时前
  • 签到天数: 165 天

    [LV.7]常住居民III

    1626

    帖子

    222 小时

    在线时间

    3976

    金币

    管理员

    Rank: 9Rank: 9Rank: 9

    积分
    1848
    发表于 2018-12-3 00:42:02 | 显示全部楼层 |阅读模式
    Ei3.0 Tools插件源码Delphi框架 - 逍遥共享版


    unit _Grobal2;

    interface
    uses
            Windows, SysUtils, Classes, Hutil32;
    const
      _MAX_ATOM_        = 7;
    type

       TAbility = packed record
          Level       : byte;                        //Abil   34    //WAbil   $230
          AC          : word;                        //Abil   35    //WAbil   $231
          DC          : word;                        //Abil   37    //WAbil   $233
          HP          : word;                        //Abil   39    //WAbil   $235
          MP          : word;                        //Abil   3B    //WAbil   $237
          MaxHP       : word;                        //Abil   3D    //WAbil   $239
          MaxMP       : word;                        //Abil   3F    //WAbil   $23B
          Exp         : longword;                    //Abil   41    //WAbil   $23D
          MaxExp      : longword;                    //Abil   45    //WAbil   $241
          Weight      : word;                        //Abil   49    //WAbil   $245  包裹负重
          MaxWeight   : word;                        //Abil   4B    //WAbil   $247  最大包裹负重
          WearWeight    : byte;                      //Abil   4C    //WAbil   $249  装备负重
          MaxWearWeight : byte;                      //Abil   4E    //WAbil   $24A  最大装备负重
          HandWeight    : byte;                      //Abil   4F    //WAbil   $24B  腕力负重
          MaxHandWeight : byte;                      //Abil   50    //WAbil   $24C  最大腕力负重

          //
          FameLevel      : byte;  //
          MiningLevel    : byte;  //
          FramingLevel   : byte;  //
          FishingLevel   : byte;  //250

          FameExp        : integer;//251
          FameMaxExp     : integer;
          MiningExp      : integer;
          MiningMaxExp   : integer;
          FramingExp     : integer;//261
          FramingMaxExp  : integer;
          FishingExp     : integer;
          FishingMaxExp  : integer;

          //ATOM_DC        : array [0.._MAX_ATOM_] of word;             8     $271  ??
          ATOM_MC        : array [0.._MAX_ATOM_] of word;   // 0: 火焰系      $271   (MC)F      75
                                                            // 1: 冰冰系      $273   (MC)I     77
                                                            // 2: 雷电系      $275   (MC)L     79
                                                            // 3: 狂风系      $277   (MC)W     7B
                                                            // 4: 神圣系      $279   (MC)H     7D
                                                            // 5: 黑暗系      $27B   (MC)D     7F
                                                            // 6: 幻影系      $27D   (MC)P     81
                                                            //                            83
          ATOM_MAC       : array [0.._MAX_ATOM_] of word;   // 0: 火焰系      $281   (MAC)F         85
                                                            // 1: 冰冰系      $283   (MAC)I
                                                            // 2: 雷电系      $285   (MAC)L
                                                            // 3: 狂风系      $287   (MAC)W
                                                            // 4: 神圣系      $289   (MAC)H
                                                            // 5: 黑暗系      $28B   (MAC)D
                                                            // 6: 幻影系      $28D   (MAC)P

       end;

      TUserItem = packed record
        MakeIndex: integer;      //制造编号
        Index:     word;
        Dura:      word;
        DuraMax:   word;
        Desc:      array[0..13] of byte;
        ColorR:    byte;
        ColorG:    byte;
        ColorB:    byte;
        Prefix:    array [0..12] of Byte;
      end;
      PTUserItem = ^TUserItem;

       TStdItem = record
          Name                    : string[30];
          StdMode      : byte;
          Shape              : byte;                 //$20
          CharLooks    : byte;
          Weight       : byte;                 //$22
          AniCount     : byte;
          //SpecialPwr   : shortint;
          //ItemDesc     : byte;
          Source, Reserved: Byte;
          Looks        : word;
          DuraMax      : word;
          AC           : word;
          MACType      : Byte;
          TEMP         : byte;
          MAC          : word;
          DC           : Word;                  //$30
          Mc_Type      : Word;
          MC           : Word;                  //$34
          Need         : byte;              // 0:Level, 1:DC, 2:MC, 3:SC
          NeedLevel    : byte;
          Price        : integer;
          Func_Type    : byte;
          Throw        : byte;
       end;
       PTStdItem = ^TStdItem;


    const
       RM_SPACEMOVE_HIDE       = 10330;
    implementation

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







    上一篇:Delphi源码3D加速便捷打开关闭小工具代码分享
    下一篇:剑网3完整源码+配套客户端资源+数据库+教程 可编译运行
    回复

    使用道具 举报

    该用户从未签到

    33

    帖子

    0 小时

    在线时间

    37

    金币

    Lv3~裁决之杖

    Rank: 2

    积分
    107
    发表于 2018-12-8 18:06:00 | 显示全部楼层
    Ei3.0 Tools插件源码Delphi框架 - 逍遥共享版
    回复 支持 反对

    使用道具 举报

    QQ|Archiver|手机版|小黑屋|看版本库. ( 蜀ICP备18026109号-4 )

    Powered by Discuz! X3.4© 2001-2013 Comsenz Inc.