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

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

魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~20开始游戏-对话处理
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>流程分析6:对话处理游戏的对话处理比较简单,仅仅是根据游戏流程提供简单的对话系统,没有涉及复杂的东西.下边是设计的窗体: Opt ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~24开始游戏-屏幕截图
魔塔之拯救白娘子完整工程下载地址: 魔塔之拯救白娘子>流程分析8:屏幕截图和通用申明有网友问我主窗口设计界面是什么样子?下图就是:frmMain.frm 设计界面非常清爽,只有一个tiemr ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~18开始游戏-物体碰撞检测
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>流程分析4:物体碰撞检测处理方式分2步,第一步是游戏时主角显示处理:当主角移动时需要擦除上一个坐标位的主角,然后在新位置上放置主 ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~16开始游戏-自动寻路（A星算法）
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>流程分析2: ⑤游戏界面鼠标点击判断以及自动寻路: 自动寻路的效果如下: 源码如下: Sub 游戏界面鼠标点击判断() Dim m ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~14开始游戏-流程处理
魔塔之拯救白娘子完整工程下载地址: 二.游戏开始后的流程控制:当初始化完成后,timerDraw.Enabled = True 开始进行流程控制.下边的代码就是控制内容. 初始化→根据主角所在的楼 ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~23开始游戏-存档管理
魔塔之拯救白娘子完整工程下载地址: 魔塔之拯救白娘子>流程分析7:游戏存档管理作用如下: ①自动存档,当上楼或者下楼的时候,会自动帮玩家存档并截图(吼吼,游戏次数长了,存档容量可是几百M哦, ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~15开始游戏-地图层次判断
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>流程分析: 初始化→根据主角所在的楼层判断主角的位置并绘制主角→显示主角的基本信息(生命值.体力值.金币.经验值等等)→游戏界面 ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~19开始游戏-战斗处理
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>流程分析5:战斗处理这个游戏的战斗系统比较简单,就是对比双方的数据,打的过就显示打斗过程,打不过就提示"打不过&quo ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~21开始游戏-商店NPC
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>流程分析6:-商店NPC 设计界面: 子窗口代码: Option ExplicitDim 商店对话选择编号 As IntegerP ...

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

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

最新文章

热门文章