DirextX编程

开发平台：
Visual Basic

公共属性.bas：源码内容
							Attribute VB_Name = "公共属性"
Option Explicit
' Download by http://www.codefans.net
'////////  定义职业
Public Enum JobType
    战士 = 0
    法师 = 1
    道士 = 2
End Enum
'/////// 定义性别
Public Enum SexType
    男 = 0
    女 = 1
End Enum
'//////// 定义玩家动作属性
Public Enum HeroActType
    Stand_站立 = 1
    walk_走 = 2
    AttAck_攻击 = 3
    Bruise_受伤 = 4
    Dead_死亡 = 5
    Run_跑 = 6
    Attack_等待 = 7
    Magic_魔法 = 8
End Enum
Public Enum MonActType
    Stone_怪石化 = 1
    Stand_怪站立 = 2
    Move_怪移动 = 3
    AttAck_怪攻击 = 4
    Bruise_怪受伤 = 5
    Dead_怪死亡 = 6
    
End Enum
'/////  定义方向属性
Public Enum FaceInfo
    UpFace = 0
    RightUpFace = 1
    RightFace = 2
    RightDownFace = 3
    DownFace = 4
    LeftDownFace = 5
    Leftface = 6
    LeftUpFace = 7
End Enum
'///////////  定义物品种类属性
Public Enum ResType
    道具 = 1
    药品 = 2
    书籍 = 3
    衣服 = 4
    项链 = 5
    头盔 = 6
    武器 = 7
    手镯 = 8
    戒指 = 9
End Enum
'///// 定义贴图属性
Public Type TexInfo
    Wid As Integer
    Hei As Integer
    PosX As Integer
    PosY As Integer
    StartPos As Long
    EndPos As Long
    Enabled As Boolean
    Tex As Direct3DTexture8
End Type
'/////  物品属性
Public Type Item1Type
    Idx_序号 As Integer
    Name_名称 As String
    StdMode_分类号 As Integer
    Shape_装配外观 As Long
    Weight_重量 As Integer
    Anicount As Integer
    Source_源动力 As Integer
    Reserved_保留 As Integer
    Looks_物品外观 As Long
    DuraMax_持久力 As Long
    Ac_最低防御 As Long
    Ac2_最高防御 As Integer
    Mac_最低魔御 As Integer
    Mac2_最高魔御 As Integer
    Dc_最低攻击力 As Integer
    Dc2_最高攻击力 As Integer
    Sac_最低道术力 As Integer
    Sac2_最高道术力 As Integer
    Mc_Type_魔法类型 As Integer
    Mc_最低魔法力 As Integer
    Mc2_最高魔法力 As Integer
    Need_附加条件 As Integer
    NeedLevel_需要等级 As Integer
    Price_售价 As Long
    Stock_库存量 As Long
End Type
Public Type ItemType
    Idx As Integer
    Name As String
    StdMode As Integer
    Shape As Integer
    Weight As Integer
    Anicount As Integer
    Source As Integer
    Reserved As Integer
    Looks As Integer
    DuraMax As Long
    AC As Integer
    AC2 As Integer
    MAC As Integer
    MAC2 As Integer
    Dc As Integer
    DC2 As Integer
    MC As Integer
    MC2 As Integer
    sc As Integer
    SC2 As Integer
    Need As Integer
    NeedLevel As Integer
    Price As Long
End Type
Public ItemDBCount As Integer
Public ItemDB() As ItemType
Public Type ItemState
    ID As Integer
    State As Boolean
    Item As ItemType
End Type
Public Bag() As ItemState     '定义包裹变量
'///// 定义魔法变量
Public Type MagicTexInfo
    MagicTex() As TexInfo
End Type
Public MagicPic() As MagicTexInfo      ' 魔法贴图
Public Type MagicActType
    Effect As Integer         '魔法效果
    MagicName As String     '魔法名称
    Enabled As Boolean      '魔法状态
    PlayerName As String
    PlayerNum As Integer
    Face As FaceInfo
    Pic As Integer
    PicSpeed As Integer
    PicSuDu As Integer
    MaxPicNum As Integer
    StartPic As Long
    X As Long
    Y As Long
    EndX As Long
    EndY As Long
    XOFFECT As Single
    YOFFECT As Single
End Type
Public Magic() As MagicActType      '魔法变量
Public MagicCount As Integer        '魔法数
Public Type PlayerTalkType
    LiaoTianStr As String
    StrHei As Integer
End Type
'角色属性
Public Type PlayerInfo
    State As Integer
    Dead As Boolean
    Name_名字  As String
    X As Long
    Y As Long
    Exp_经验值 As Long
    MaxExp_所需经验 As Long
    XOFFECT As Single
    YOFFECT As Single
    CanAct As Boolean
    Act As HeroActType
    ActState As HeroActType
    Pic As Integer
    PicSpeed As Integer
    Face As FaceInfo                '方向
    MagicLockType As Integer        '魔法锁定类型   1玩家   2怪
    MagicLockNum As Integer      '魔法锁定编号
    MagicX As Integer               '施放魔法目标X
    MagicY As Integer               '施放魔法目标Y
    
    PlayerMagic() As MagicActType         '施放的魔法
    PlayerMagicCount As Integer          '施放的魔法数
    
    PlayerMagic2() As MagicActType       '被施放的魔法
    PlayerMagic2Count As Integer        '被施放的魔法数
    
    Magic盾 As Boolean              '是否启用魔法盾
    Magic盾LTime As Long            '魔法盾开始时间
    Magic盾PTime As Long            '魔法盾持续时间
    Magic盾Pic As Long
    Magic盾StartPic As Long
    Magic盾PicSpeed As Integer
    Magic盾MaxPic As Integer
    
    AC_自身物防 As Long
    MAC_自身魔防 As Long
    DC_自身攻击 As Long
    MC_自身魔法 As Long
    SC_自身道术 As Long
    
    AC1 As Long
    AC2 As Long
    MAC1 As Long
    MAC2 As Long
    DC1 As Long
    DC2 As Long
    MC1 As Long
    MC2 As Long
    SC1 As Long
    SC2 As Long
    
    LiaoTianInfo As PlayerTalkType
    LiaoTianLTime As Long
    
    Clothing As ItemState
    Weapon As ItemState
    HeadPiece As ItemState
    Necklace As ItemState
    BraceletLeft As ItemState
    BraceletRight As ItemState
    FingerringLeft As ItemState
    FingerringRight As ItemState
    
    WalkSpeed_行走速度 As Integer
    WalkWait_行走等待 As Integer
    ActSpeed_攻击速度 As Integer
    
    MagicLock As Boolean
    MagicLockPlayerNum As Integer
    
    
    HP As Long
    MaxHP As Long
    MP As Long
    MaxMP As Long
    PK值 As Integer
    Level As Long
    Fame_声望值 As Integer
    HomeMap As String
    HomeX As Integer
    HomeY As Integer
    Gold_金币 As Long
    Sex_性别 As SexType
    Job_职业 As JobType
    Map_地图 As String
    
    LoginTime As String
    
    Conneted As Boolean
    JianFa As Integer
End Type
Public SaveHero As PlayerInfo
'/////// 定义怪物数据
Public Type MonDBInfo
    Name_名称 As String
    Race_种族 As Integer
    RaceImage_种族图像 As Integer
    Appr_形象代码 As Integer
    Level_等级 As Integer
    UnDead_不死系 As Integer
    CoolEye_视觉范围 As Integer
    Exp_经验值 As Long
    HP As Long
    MP As Long
    AC As Long
    MAC As Long
    DC_攻击力 As Long
    DCMax_最大攻击力 As Long
    MC_魔法力 As Long
    SC_道术力 As Long
    Speed_速度  As Integer
    Hit_命中率 As Integer
    WalkSpeed_行走速度 As Integer
    WalkStep_行走步伐  As Integer
    WalkWait_行走等待 As Integer
    AttactSpeed_攻击速度 As Integer
End Type
Public MonDBCount As Integer
Public MonDB() As MonDBInfo
'//////  定义怪物属性
Public Type MonInfo
    State As Integer
    Dead As Boolean
    X As Long
    Y As Long
    Face As FaceInfo
    XOFFECT As Single
    YOFFECT As Single
    CanAct As Boolean
    Act As MonActType
    ActState As Integer
    Pic As Integer
    PicSpeed As Integer
    StartPic As Long
    MaxPic As Integer
    DBInfo As MonDBInfo
    ID As Long
    HP As Long
    MaxHP As Long
    Level As Long
    Map_地图 As String
End Type
Public MonCount As Long
Public Mon() As MonInfo
Public SaveMonCount As Long
Public SaveMon() As MonInfo
'////// 定义魔法数据属性
Public Type MagicDBInfo
    MagID_序号 As Integer
    MagName_名称 As String
    EffectType_动作效果 As Integer
    Effect_魔法效果 As Integer
    Spell_魔法消耗 As Integer
    Power_基本威力 As Integer
    MaxPower_最大威力 As Integer
    DefSpell_升级魔法 As Integer
    DefPower_升级威力 As Integer
    DefMaxPower_升最大威力 As Integer
    Job_职业 As Integer
    NeedL1_1级等级 As Integer
    L1Train_1级经验 As Long
    NeedL2_2级等级 As Integer
    L2Train_2级经验 As Long
    NeedL3_3级等级 As Integer
    L3Train_3级经验 As Long
    Delay_技能延时 As Integer
    Descr_备注说明 As String
End Type
Public MagicDBCount As Integer
Public MagicDB() As MagicDBInfo

						