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

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

DirextX编程

开发平台：

Visual Basic

载入数据库.bas：源码内容
  1. Attribute VB_Name = "载入数据库"
  2. Option Explicit
  4. '/////载入刷怪数据
  5. Public Sub LoadMonGen()
  6.     Dim i As Integer, SS As String
  7.     Dim AA() As String
  8.     Open App.Path & "DataMonGen.txt" For Input As #1
  9.         Do While Not EOF(1)
  10.             Line Input #1, SS
  11.             For i = 9 To 2 Step -1
  12.                 SS = Replace(SS, String(i, " "), " ")
  13.             Next i
  14.             If Left(SS, 1) <> ";" Then
  15.                 AA = Split(SS, " ")
  16.                 If UBound(AA) >= 5 Then
  17.                     If GetMonDBNum(AA(0)) > 0 Then
  18.                         MonGenCount = MonGenCount + 1
  19.                         ReDim Preserve MonGen(MonGenCount)
  20.                         MonGen(MonGenCount).MonName = AA(0)
  21.                         MonGen(MonGenCount).X = AA(1)
  22.                         MonGen(MonGenCount).Y = AA(2)
  23.                         MonGen(MonGenCount).mCount = AA(3)
  24.                         MonGen(MonGenCount).Pos = AA(4)
  25.                         MonGen(MonGenCount).mTime = AA(5)
  26.                     End If
  27.                 End If
  28.             End If
  29.             DoEvents
  30.         Loop
  31.     Close #1
  32.     
  33. End Sub
  36. '////////// 载入等级HP数据
  37. Public Sub LoadLevelHP()
  38.     Dim i As Integer
  39.     For i = 1 To 255
  40.         LevelHP(i) = ReadINIFile("HP", Str(i), App.Path & "DataHP.txt")
  41.     Next
  42.         
  43. End Sub
  46. '/////////  载入注册玩家信息
  47. Public Sub loadRegPlayerInfo()
  48.     Dim i As Integer, j As Integer
  49.     Open App.Path & "SavePlayerPlayerlist.txt" For Input As #1
  50.         Input #1, RegPlayerCount
  51.         ReDim RegPlayer(RegPlayerCount)
  52.         If RegPlayerCount > 0 Then
  53.             
  54.             For i = 1 To RegPlayerCount
  55.                 Input #1, RegPlayer(i).Id
  56.                 Input #1, RegPlayer(i).SelNum
  57.                 Input #1, RegPlayer(i).SavePlayerCount
  58.                 ReDim RegPlayer(i).mPlayer(RegPlayer(i).SavePlayerCount)
  59.                 If RegPlayer(i).SavePlayerCount > 0 Then
  60.                     For j = 1 To RegPlayer(i).SavePlayerCount
  61.                         Input #1, RegPlayer(i).mPlayer(RegPlayer(i).SavePlayerCount).PlayerName
  62.                         Input #1, RegPlayer(i).mPlayer(RegPlayer(i).SavePlayerCount).Level
  63.                         Input #1, RegPlayer(i).mPlayer(RegPlayer(i).SavePlayerCount).Job
  64.                         Input #1, RegPlayer(i).mPlayer(RegPlayer(i).SavePlayerCount).Sex
  65.                     Next
  66.                 End If
  67.             Next
  68.         End If
  69.     Close #1
  70.     
  71. End Sub
  73. '////////  载入注册玩家信息
  74. Public Sub LoadPlayer(PlayerNum As Integer, PlayerName As String)
  75.     Dim i As Integer, SS As String
  76.     Open App.Path & "SavePlayerSave" & PlayerName & ".DB" For Input As #1
  77.         Input #1, Player(PlayerNum).Name_名字
  78.         Input #1, Player(PlayerNum).Level
  79.         Input #1, Player(PlayerNum).Exp_经验值
  80.         Input #1, Player(PlayerNum).Job_职业
  81.         Input #1, Player(PlayerNum).Sex_性别
  82.         Input #1, SaveHero.Gold_金币
  83.         Input #1, Player(PlayerNum).Face
  84.         Input #1, Player(PlayerNum).X
  85.         Input #1, Player(PlayerNum).Y
  86.         Input #1, Player(PlayerNum).HP
  87.         Input #1, Player(PlayerNum).MaxHP
  88.         Input #1, Player(PlayerNum).MP
  89.         Input #1, Player(PlayerNum).MaxMP
  90.         Input #1, Player(PlayerNum).Clothing.State
  91.         Input #1, SS
  92.         Player(PlayerNum).Clothing.Item = GetItem(SS)
  93.         Input #1, Player(PlayerNum).Weapon.State
  94.         Input #1, SS
  95.         Player(PlayerNum).Weapon.Item = GetItem(SS)
  96.         Input #1, Player(PlayerNum).HeadPiece.State
  97.         Input #1, SS
  98.         Player(PlayerNum).HeadPiece.Item = GetItem(SS)
  99.         Input #1, Player(PlayerNum).Necklace.State
  100.         Input #1, SS
  101.         Player(PlayerNum).Necklace.Item = GetItem(SS)
  102.         Input #1, Player(PlayerNum).BraceletLeft.State
  103.         Input #1, SS
  104.         Player(PlayerNum).BraceletLeft.Item = GetItem(SS)
  105.         Input #1, Player(PlayerNum).BraceletRight.State
  106.         Input #1, SS
  107.         Player(PlayerNum).BraceletRight.Item = GetItem(SS)
  108.         Input #1, Player(PlayerNum).FingerRingLeft.State
  109.         Input #1, SS
  110.         Player(PlayerNum).FingerRingLeft.Item = GetItem(SS)
  111.         Input #1, Player(PlayerNum).FingerRingRight.State
  112.         Input #1, SS
  113.         Player(PlayerNum).FingerRingRight.Item = GetItem(SS)
  114.         
  115.         '////////  载入玩家包裹信息
  116.         For i = 0 To 39
  117.             Input #1, Player(PlayerNum).Bag(i).State
  118.             Input #1, SS
  119.             Player(PlayerNum).Bag(i).Item = GetItem(SS)
  120.         Next
  121.     Close #1
  122. End Sub
  124. '////////  保存玩家信息
  125. Public Sub SavePlayerInfo()
  126.     
  127.     Dim i As Integer
  128.     Open App.Path & "SavePlayerSave" & SaveHero.Name_名字 & ".DB" For Output As #1
  129.         Write #1, SaveHero.Name_名字
  130.         Write #1, SaveHero.Level
  131.         Write #1, SaveHero.Exp_经验值
  132.         Write #1, SaveHero.Job_职业
  133.         Write #1, SaveHero.Sex_性别
  134.         Write #1, SaveHero.Gold_金币
  135.         Write #1, SaveHero.Face
  136.         Write #1, SaveHero.X
  137.         Write #1, SaveHero.Y
  138.         Write #1, SaveHero.HP
  139.         Write #1, SaveHero.MaxHP
  140.         Write #1, SaveHero.MP
  141.         Write #1, SaveHero.MaxMP
  142.         
  143.         Write #1, SaveHero.Clothing.State
  144.         Write #1, ItemStr(SaveHero.Clothing.Item)
  145.         Write #1, SaveHero.Weapon.State
  146.         Write #1, ItemStr(SaveHero.Weapon.Item)
  147.         Write #1, SaveHero.HeadPiece.State
  148.         Write #1, ItemStr(SaveHero.HeadPiece.Item)
  149.         Write #1, SaveHero.Necklace.State
  150.         Write #1, ItemStr(SaveHero.Necklace.Item)
  151.         Write #1, SaveHero.BraceletLeft.State
  152.         Write #1, ItemStr(SaveHero.BraceletLeft.Item)
  153.         Write #1, SaveHero.BraceletRight.State
  154.         Write #1, ItemStr(SaveHero.BraceletRight.Item)
  155.         Write #1, SaveHero.FingerRingLeft.State
  156.         Write #1, ItemStr(SaveHero.FingerRingLeft.Item)
  157.         Write #1, SaveHero.FingerRingRight.State
  158.         Write #1, ItemStr(SaveHero.FingerRingRight.Item)
  159.         '//////////  保存包裹信息
  160.         For i = 0 To 39
  161.             Write #1, SaveHero.Bag(i).State
  162.             Write #1, ItemStr(SaveHero.Bag(i).Item)
  163.         Next
  164.     Close #1
  165. End Sub
  167. '/////////// 载入各等级所需经验
  168. Public Sub LoadLevelExpData()
  169.     Dim i As Integer
  170.     For i = 1 To 255
  171.         LevelExp(i) = ReadINIFile("Exp", Str(i), App.Path & "DataExp.txt")
  172.     Next
  173.     
  174. End Sub
  177. '///////////  载入NPC脚本
  178. Public Sub LoadNPCInfo()
  179.     Dim SS As Variant, Num As Integer
  180.     Dim nn As String, mStr As String
  181.     Dim i As Integer, j As Integer
  182.     Open App.Path & "DataNpcs.txt" For Input As #1
  183.         Line Input #1, nn
  184.         NpcCount = nn
  185.         
  186.         ReDim NPCInfo(NpcCount)
  187.         For i = 1 To nn
  188.             Line Input #1, mStr
  189.             For j = 9 To 2 Step -1
  190.                 mStr = Replace(mStr, String(j, " "), " ")
  191.             Next j
  192.             SS = Split(mStr, " ")
  193.             NPCInfo(i).Name_名称 = SS(0)
  194.             NPCInfo(i).X = SS(1)
  195.             NPCInfo(i).Y = SS(2)
  196.             NPCInfo(i).Pic = 17
  197.             NPCInfo(i).Image = SS(3)
  198.             NPCInfo(i).ScriptFileName = SS(4)
  199.             Map.Map5(NPCInfo(i).X, NPCInfo(i).Y) = Map.Map5(NPCInfo(i).X, NPCInfo(i).Y) + 1
  200.         Next
  201.     Close #1
  202.     For i = 1 To nn
  203.         LoadScriptFile i, App.Path & "NpcScript" & NPCInfo(i).ScriptFileName & ".txt"
  204.     Next
  205.                 
  206. End Sub
  209. Public Sub LoadMonDBData()
  210.     Dim i As Integer
  211.     Open App.Path & "DBMon.DB" For Input As #1
  212.         Input #1, MonDBCount
  213.         ReDim MonDB(MonDBCount)
  214.         For i = 1 To MonDBCount
  215.             Input #1, MonDB(i).Name_名称
  216.             Input #1, MonDB(i).Race_种族
  217.             Input #1, MonDB(i).RaceImage_种族图像
  218.             Input #1, MonDB(i).Appr_形象代码
  219.             Input #1, MonDB(i).Level_等级
  220.             Input #1, MonDB(i).UnDead_不死系
  221.             Input #1, MonDB(i).CoolEye_视觉范围
  222.             Input #1, MonDB(i).Exp_经验值
  223.             Input #1, MonDB(i).HP
  224.             Input #1, MonDB(i).MP
  225.             Input #1, MonDB(i).AC
  226.             Input #1, MonDB(i).MAC
  227.             Input #1, MonDB(i).DC_攻击力
  228.             Input #1, MonDB(i).DCMax_最大攻击力
  229.             Input #1, MonDB(i).MC_魔法力
  230.             Input #1, MonDB(i).SC_道术力
  231.             Input #1, MonDB(i).Speed_速度
  232.             Input #1, MonDB(i).Hit_命中率
  233.             Input #1, MonDB(i).WalkSpeed_行走速度
  234.             Input #1, MonDB(i).WalkStep_行走步伐
  235.             Input #1, MonDB(i).WalkWait_行走等待
  236.             Input #1, MonDB(i).AttactSpeed_攻击速度
  237.         Next
  238.     Close #1
  239.     
  240. End Sub
  242. '///////  载入魔法数据
  243. Public Sub LoadMagicDBData()
  244.     Dim i As Integer
  245.     Open App.Path & "DBMagic.DB" For Input As #1
  246.         Input #1, MagicDBCount
  247.         ReDim MagicDB(MagicDBCount)
  248.         If MagicDBCount > 0 Then
  249.             For i = 1 To MagicDBCount
  250.                 Input #1, MagicDB(i).MagID_序号
  251.                 Input #1, MagicDB(i).MagName_名称
  252.                 Input #1, MagicDB(i).EffectType_动作效果
  253.                 Input #1, MagicDB(i).Effect_魔法效果
  254.                 Input #1, MagicDB(i).Spell_魔法消耗
  255.                 Input #1, MagicDB(i).Power_基本威力
  256.                 Input #1, MagicDB(i).MaxPower_最大威力
  257.                 Input #1, MagicDB(i).DefSpell_升级魔法
  258.                 Input #1, MagicDB(i).DefPower_升级威力
  259.                 Input #1, MagicDB(i).DefMaxPower_升最大威力
  260.                 Input #1, MagicDB(i).Job_职业
  261.                 Input #1, MagicDB(i).NeedL1_1级等级
  262.                 Input #1, MagicDB(i).L1Train_1级经验
  263.                 Input #1, MagicDB(i).NeedL2_2级等级
  264.                 Input #1, MagicDB(i).L2Train_2级经验
  265.                 Input #1, MagicDB(i).NeedL3_3级等级
  266.                 Input #1, MagicDB(i).L3Train_3级经验
  267.                 Input #1, MagicDB(i).Delay_技能延时
  268.             Next
  269.         End If
  270.     Close #1
  271.             
  272. End Sub
  275. '///////  载入物品数据
  276. Public Sub LoadItemDBData()
  277.     Dim i As Integer
  278.     Open App.Path & "DBStdItem.DB" For Input As #1
  279.         Input #1, ItemDBCount
  280.         ReDim ItemDB(ItemDBCount)
  281.         If ItemDBCount > 0 Then
  282.             For i = 1 To ItemDBCount
  283.                 Input #1, ItemDB(i).Idx
  284.                 Input #1, ItemDB(i).Name
  285.                 Input #1, ItemDB(i).StdMode
  286.                 Input #1, ItemDB(i).Shape
  287.                 Input #1, ItemDB(i).Weight
  288.                 Input #1, ItemDB(i).Anicount
  289.                 Input #1, ItemDB(i).Source
  290.                 Input #1, ItemDB(i).Reserved
  291.                 Input #1, ItemDB(i).Looks
  292.                 Input #1, ItemDB(i).DuraMax
  293.                 Input #1, ItemDB(i).AC
  294.                 Input #1, ItemDB(i).Ac2
  295.                 Input #1, ItemDB(i).MAC
  296.                 Input #1, ItemDB(i).Mac2
  297.                 Input #1, ItemDB(i).DC
  298.                 Input #1, ItemDB(i).Dc2
  299.                 Input #1, ItemDB(i).MC
  300.                 Input #1, ItemDB(i).Mc2
  301.                 Input #1, ItemDB(i).SC
  302.                 Input #1, ItemDB(i).Sc2
  303.                 Input #1, ItemDB(i).Need
  304.                 Input #1, ItemDB(i).NeedLevel
  305.                 Input #1, ItemDB(i).Price
  306.             Next
  307.         End If
  308.     Close #1
  309.         
  310. End Sub
  313. Public Function GetMonDBNum(MonName As String) As Integer
  314.     Dim i As Integer
  315.     For i = 1 To MonDBCount
  316.         If MonName = MonDB(i).Name_名称 Then
  317.             GetMonDBNum = i
  318.             Exit For
  319.         End If
  320.     Next
  321. End Function