魔塔之拯救白娘子 完整工程下载地址:
上几节介绍了地图编辑器编写情况,现在开始介绍《魔塔之拯救白娘子》开始游戏后的处理。
游戏开始后的流程处理如下:
一、初始化: 当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