魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~15开始游戏-地图层次判断

魔塔之拯救白娘子 完整工程下载地址：
《魔塔之拯救白娘子》流程分析：
初始化→根据 主角所在的楼层判断主角的位置并绘制主角→显示主角的基本信息（生命值、体力值、金币、经验值等等）→游戏界面鼠标点击判断→男主角移动及方向处理→自动寻路处理→ 游戏时主角显示处理→循环判断直到游戏结束←
①首先判断玩家是不是赢了游戏，如果赢了游戏就返回到最开始的选择游戏界面。源代码如下：

If Winner = True And 对话窗口显示标志 = False Then
         Running = 9: 读档标志 = False: 判断running状态_初始化: BackPic.LoadGraph "image\魔塔背景\魔塔背景1.jpg", xgBLACK
    End If

②游戏中读取地图层次判断：根据地图层号判断角色所处位置。

Sub 游戏中读取地图层次判断()
  On Error Resume Next
  Dim m() As String

        '新地图处理
       If 游戏进度.新地图(地图层号) = True Then
       '①新地图处理的时候，读原始地图数据，
       读取地图数据 (地图层号)
            
          '将主角所在位置设置为每一层的下楼位置
          修改主角位置 主角地图上每层初始坐标.下楼图形坐标X(地图层号), 主角地图上每层初始坐标.下楼图形坐标Y(地图层号),