开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > DirextX编程 > 查看源码
公共变量.bas
资源名称：vbmcrisrc.rar　[点击查看]
上传用户：pcw2004
上传日期：2022-02-02
资源大小：743k
文件大小：6k
源码类别：

DirextX编程

开发平台：

Visual Basic

公共变量.bas：源码内容
  1. Attribute VB_Name = "公共变量"
  2. Option Explicit
  3. Public Declare Function GetTickCount Lib "kernel32" () As Long
  4. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  5. ' Download by http://www.codefans.net
  6. Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
  7. Public Const KEY_DOWN As Integer = &H1000
  9. Public SCREEN_WIDTH As Integer
  10. Public SCREEN_HEIGHT As Integer
  12. Public JianFa As Boolean
  14. Public Running As Integer   '游戏状态(0账号登陆1角色选择2进入游戏)
  16. Public NetWalkData As Boolean
  17. Public NetRunData As Boolean
  18. Public NetMagicData As Boolean
  19. Public NetAttackData As Boolean
  22. Public Const TILE_WIDTH = 48
  23. Public Const TILE_HEIGHT = 32
  25. Public Const MainSleep = 20
  26. Public MainLassTime As Long
  29. Public NETDATACOUNT As Long
  30. Public NETDATA() As String
  31. Public NowNETData As String
  34. '///////// 定义主角编号
  35. Public MainHeroNum As Integer
  37. '///// 定义FPS变量
  38. Public FPS As Integer
  39. Public Frame As Long
  40. Public FrameLassTime As Long
  42. '////  定义玩家怪物变量
  43. Public PlayerCount As Integer
  44. Public Player() As PlayerInfo
  46. '//// 定义游戏登陆贴图变量
  47. Public ChrSelTex() As TexInfo
  48. Public DoorPic As Integer
  49. Public DoorPicSpeed As Integer
  50. Public IDLoginOK As Boolean
  52. '//// 定义装备物品贴图变量
  53. Public HumTex() As TexInfo
  54. Public WeaponTex() As TexInfo
  55. Public ItemsTex() As TexInfo
  56. Public StateItemTex() As TexInfo
  58. '////////  定义怪物贴图变量
  59. Public Type MonTexInfo
  60.     MonTex() As TexInfo
  61. End Type
  62. Public MonPic() As MonTexInfo
  64. '////// 定义其它图片变量
  65. Public PrguseTex() As TexInfo
  66. Public Prguse2Tex() As TexInfo
  67. Public Prguse3Tex() As TexInfo
  69. '////////// 定义NPC贴图变量
  70. Public NpcTex() As TexInfo
  73. '////  资源路径
  74. Public ResPath As String
  77. '//////定义地图视角变量
  78. Public MapX As Integer
  79. Public MapY As Integer
  80. Public WorldX As Integer
  81. Public WorldY As Integer
  85. '/////  定义地图变量
  87. Public Type MapMagicInfo
  88.     MapMagicNum() As Integer
  89.     MapMagicCount As Integer
  90. End Type
  92. Public Type MapType
  93.     Width As Long
  94.     Height As Long
  95.     Map1() As Long  '地板
  96.     Map2() As Long  '遮挡层
  97.     Map3() As Long  '人
  98.     Map4() As Long  '怪
  99.     Map5() As Long   'NPC
  100. End Type
  104. Public Map As MapType
  106. Public Map3Tex As Direct3DTexture8
  109. '/////  定义鼠标键盘变量
  111. Public Type MouseType
  112.     X As Single
  113.     Y As Single
  114.     MX As Integer
  115.     MY As Integer
  116.     SelX As Integer
  117.     SelY As Integer
  118.     Button1DownX As Single
  119.     Button1DownY As Single
  120.     Button2DownX As Single
  121.     Button2DownY As Single
  122.     Button1Down As Boolean
  123.     button2Down As Boolean
  124.     SelFrm As SelectFrm
  125.     Item As ItemState
  126.     MSelMonNum As Long
  127. End Type
  129. Public Mouse As MouseType
  131. Public ShiftKey As Boolean
  133. '///////  定义其他窗口属性
  134. Public Type OtherFrmType
  135.     X As Long
  136.     Y As Long
  137.     State As Boolean
  138.     Item As ItemState
  139.     MDX As Integer  '鼠标按下坐标X
  140.     MDY As Integer  '鼠标按下坐标Y
  141.     Type As Integer
  142. End Type
  144. Public HeroInfoFrm As OtherFrmType      '定义主角信息窗口
  145. 'Type属性(0主角装备窗口     1 主角属性窗口      2  主角技能窗口     3  主角其他信息窗口)
  147. Public BagFrm As OtherFrmType           '定义包裹窗口
  148. Public NpcFrm As OtherFrmType           '定义NPC信息窗口
  149. Public ErrorFrm As OtherFrmType
  150. Public ErrorStr As String
  153. '////////  鼠标选择的窗口
  154. Public Enum SelectFrm
  155.     MainFrom = 0
  156.     InfoFrom = 1
  157.     JiaoYiFrom = 2
  158.     NpcFrom = 3
  159.     BagFrom = 4
  160.     HeroInfoFrom = 5
  161.     ErrorFrom = 6
  162. End Enum
  165. Public PaiXuPlayerNum() As Long
  169. '////////////  定义交易变量
  170. Public Type JiaoYiType
  171.     State As Boolean
  172.     JiaoYiOK As Boolean
  173.     JiaoYiPlayerNum As Integer
  174.     JiaoYiPlayerName As String
  175.     JiaoYiItems(9) As ItemState
  176.     BeiJiaoYiItems(9) As ItemState
  177. End Type
  179. Public JiaoYi As JiaoYiType
  182. Public SendDataOK As Boolean    '发送数据成功
  185. '///////  定义聊天变量
  186. Public Type TalkType
  187.     mStr As String
  188.     mColor As Long
  189.     PlayerName As String
  190. End Type
  191. Public TalkCount As Long
  192. Public TalkStr() As TalkType
  193. Public TalkStrStart As Long
  195. '/////////  定义技能属性
  196. Public Type MagicType
  197.     Magic_Name As String
  198.     Magic_Exp As Long
  199.     Magic_MaxExp As Long
  200.     Magic_Level As Integer
  201.     Magic_Image As Long
  202. End Type
  203. Public HeroMagic() As MagicType
  206. '///// 定义角色信息
  207. Public Type mHeroType
  208.     State As Boolean
  209.     mName As String
  210.     Level As Integer
  211.     Job As Integer
  212.     Sex As Integer
  213.     mSel As Integer
  214.     StartPic As Integer
  215.     Pic As Integer
  216.     PicSpeed As Integer
  217. End Type
  218. Public mHero(2) As mHeroType
  219. Public mSelHeroNum As Integer
  220. Public HeroID As String
  222. Public RegIDFrm As Boolean      '注册ID窗口
  223. Public RegHero As Boolean       '注册角色
  224. Public RegHeroJob As JobType
  225. Public RegHeroSex As SexType
  226. Public RegHeroPic As Integer
  228. Public mPic As Integer
  229. Public mPicSpeed As Integer
  230. '////////  定义选择角色的魔法变量
  231. Public SelHeroMagic As Boolean
  232. Public SelHeroMagicPic As Integer
  233. Public SelHeroMagicPicSpeed As Integer
  238. '//////////  定义声音变量
  239. Public mVolume As Long          '定义音量
  240. Public LoginGameMusic As DirectSoundSecondaryBuffer8
  245. Public Type MapItemType
  246.     X As Long
  247.     Y As Long
  248.     ID As Long
  249.     mItem As ItemType
  250. End Type
  251. Public MapItemCount As Long
  252. Public MapItem() As MapItemType
  256. '/////////  定义主角属性
  257. Public Enum 攻击模式属性
  258.     和平攻击模式 = 0
  259.     编组攻击模式 = 1
  260.     全体攻击模式 = 2
  261.     行会攻击模式 = 3
  262. End Enum
  263. '/////////  定义主角属性
  264. Public Type HeroType
  265.     攻击模式 As 攻击模式属性
  266.     MagicX As Integer
  267.     MagicY As Integer
  268.     MagicLock As Boolean            '魔法锁定
  269.     MagicLockType As Integer        '魔法锁定目标类型(0 怪  1 玩家 )
  270.     MagicLockNum As Integer         '魔法锁定目标编号
  271.     Map_地图 As String
  272.     
  273. End Type
  274. Public Hero As HeroType