魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~13开始游戏-初始化

魔塔之拯救白娘子 完整工程下载地址：
上几节介绍了地图编辑器编写情况，现在开始介绍《魔塔之拯救白娘子》开始游戏后的处理。
游戏开始后的流程处理如下：
一、初始化： 当running=1的时候，就是新的游戏开始，这时候要进行一系列的初始化操作。
初始化过程是放在一个 判断running状态_初始化 子程序中判断的。

Sub 判断running状态_初始化()
Me.Cls

 If Running = 9 Then '游戏第一面，选择界面
    背景音乐选择
   
 Me.Caption = "魔塔之拯救白娘子  " & "//游戏选择界面//" & " by 高保洪 QQ:127644712"
 BackPic.LoadGraph "image\魔塔背景\魔塔背景1.jpg", xgBLACK
End If

If 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对话标志_小偷 = 0
    End With

With 人物信息
  .角色等级 = 1
  .角色生命值 = 1000
  .角色攻击力 = 10
  .角色防御值 = 10
  .角色持有的金币 = 0
  .角色的经验值 = 0
End With

地图层号 = 2
背景音乐选择
    With 勇者包裹
.红钥匙数量 = 0
.黄钥匙数量 = 0
.蓝钥匙数量 = 0
.铁榔头数量 = False
.风之罗盘数量 = False
.怪物手册数量 = False
.星光神锒数量 = False
.幸运十字架数量 = False
.圣光徽的数量 = 0
   End With
   男主角移动.x = 地图XY坐标.mapX坐标(10)
   男主角移动.y = 地图XY坐标.mapY坐标(6)

男主角移动.移动步数 = 0 '
男主角移动.移动方向 = 0

For j = 0 To 99

         游戏进度.新地图(j) = True
         '游戏进度.读玩家档(j) = False
         游戏进度.读系统档(j) = False
         游戏进度.上楼处理标志(j) = False
         游戏进度.下楼处理标志(j) = False
         Next j
End If
 

通过标志 = False

地图编辑器界面_临时地图标志 = False

         
         游戏进度.地图当前层号 = 地图层号
         游戏进度.到过的最大层号 = 地图层号
  读楼梯坐标信息
         
        
End If


     ' 地图编辑器界面
If Running = 8 Then
       背景音乐选择
      Me.Caption = "魔塔之拯救白娘子  //地图编辑器界面// by 高保洪 QQ:127644712"
      地图层号 = -1
      地图编辑器界面_修正地图 = False
      地图编辑器界面_选择图形编号 = 1
      地图编辑器界面_临时地图标志 = False
      当前正在编辑的地图编号 = 0
    BackPic.LoadGraph "image\魔塔背景\魔塔背景2.jpg", xgBLACK
    End If
    '读取存档
    If Running = 2 Then
      Me.Caption = "魔塔之拯救白娘子  //存档管理界面// by 高保洪 QQ:127644712"

    BackPic.LoadGraph "image\魔塔背景\魔塔背景4.jpg", xgBLACK
    Form_游戏存档管理.Show
    End If
    
    timerDraw.Enabled = True
End Sub