魔塔之拯救白娘子 完整工程下載地址：
上幾節介紹了地圖編輯器編寫情況，現在開始介紹《魔塔之拯救白娘子》開始游戲后的處理。
游戲開始后的流程處理如下：
一、初始化： 當running=1的時候，就是新的游戲開始，這時候要進行一系列的初始化操作。
初始化過程是放在一個 判斷running狀態_初始化 子程序中判斷的。

Sub 判斷running狀態_初始化() Me.ClsIf Running = 9 Then '游戲第一面，選擇界面背景音樂選擇Me.Caption = "魔塔之拯救白娘子 " & "//游戲選擇界面//" & " by 高保洪 QQ:127644712"BackPic.LoadGraph "image\魔塔背景\魔塔背景1.jpg", xgBLACK End IfIf Running = 1 Then '新的游戲Me.Caption = "魔塔之拯救白娘子 " & "//正在游戲中、、、//" & " by 高保洪 QQ:127644712" BackPic.LoadGraph "image\魔塔背景\魔塔背景3.jpg", xgBLACK '地圖坐標初始化Dim j As Integer 'Dim k As Integer For j = 0 To 12 '地圖格式是13*13，其中11*11是可移動范圍 '首先確定每張圖的起始坐標點X，Y '初始化地圖所有坐標，方便以后計算 地圖XY坐標.mapX坐標(j) = j * 32 地圖XY坐標.mapY坐標(j) = j * 32 'Debug.Print 地圖XY坐標.mapX坐標(j), 地圖XY坐標.mapY坐標(j) Next j'初始化對話 '先設置起點,第一次在10,5格子If 讀檔標志 = False Then'初始化人物相關數據With 談話對象.NPC對話標志_白娘子 = 0.NPC對話標志_紅衣大魔王 = 0.NPC對話標志_紅衣魔王 = 0.NPC對話標志_老人 = 0.NPC對話標志_冥靈魔王 = 0.NPC對話標志_商人 = 0.NPC對話標志_小青 = 0.NPC對話標志_小偷 = 0End WithWith 人物信息.角色等級 = 1.角色生命值 = 1000.角色攻擊力 = 10.角色防御值 = 10.角色持有的金幣 = 0.角色的經驗值 = 0 End With地圖層號 = 2 背景音樂選擇With 勇者包裹 .紅鑰匙數量 = 0 .黃鑰匙數量 = 0 .藍鑰匙數量 = 0 .鐵榔頭數量 = False .風之羅盤數量 = False .怪物手冊數量 = False .星光神鋃數量 = False .幸運十字架數量 = False .圣光徽的數量 = 0End With男主角移動.x = 地圖XY坐標.mapX坐標(10)男主角移動.y = 地圖XY坐標.mapY坐標(6)男主角移動.移動步數 = 0 ' 男主角移動.移動方向 = 0For j = 0 To 99游戲進度.新地圖(j) = True'游戲進度.讀玩家檔(j) = False游戲進度.讀系統檔(j) = False游戲進度.上樓處理標志(j) = False游戲進度.下樓處理標志(j) = FalseNext j End If通過標志 = False地圖編輯器界面_臨時地圖標志 = False游戲進度.地圖當前層號 = 地圖層號游戲進度.到過的最大層號 = 地圖層號讀樓梯坐標信息End If' 地圖編輯器界面 If Running = 8 Then背景音樂選擇Me.Caption = "魔塔之拯救白娘子 //地圖編輯器界面// by 高保洪 QQ:127644712"地圖層號 = -1地圖編輯器界面_修正地圖 = False地圖編輯器界面_選擇圖形編號 = 1地圖編輯器界面_臨時地圖標志 = False當前正在編輯的地圖編號 = 0BackPic.LoadGraph "image\魔塔背景\魔塔背景2.jpg", xgBLACKEnd If'讀取存檔If Running = 2 ThenMe.Caption = "魔塔之拯救白娘子 //存檔管理界面// by 高保洪 QQ:127644712"BackPic.LoadGraph "image\魔塔背景\魔塔背景4.jpg", xgBLACKForm_游戲存檔管理.ShowEnd IftimerDraw.Enabled = True End Sub

總結

以上是生活随笔為你收集整理的魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~13开始游戏-初始化的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。