魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~17开始游戏-移动方向处理

魔塔之拯救白娘子完整工程下载地址：
《魔塔之拯救白娘子》流程控制分析3：
男主角移动及方向处理：

Sub 男主角移动及方向处理()If Running <> 1 Then Exit Sub
'男主角移动.移动速度 = 0
If 自动寻路开启标志 = True Then Exit Sub
If 战斗开始标志 = True Then Exit Sub
If 对话窗口显示标志 = True Then Exit Sub
If 商店对话窗口显示标志 = True Then Exit Sub
If 跳楼对话窗口显示标志 = True Then Exit Sub
'移动方向
'         2 上
'       1左 0  右3
'          下4
'
'男主角移动.X坐标 = 地图XY坐标.mapX坐标(10)
'男主角移动.Y坐标 = 地图XY坐标.mapY坐标(6)If Xi.KeyInput(DIK_J) Then '按下J键显示跳楼窗口If 勇者包裹.风之罗盘数量 = True Then'Debug.Print "地图层号" & 地图层号 & "已走过的地图层号" & 已走过的地图层号 & "地图当前层号 " & 游戏进度.地图当前层号If 已走过的地图层号 < 地图层号 Then已走过的地图层号 = 地图层号End If跳楼对话窗口显示标志 = TrueForm_跳楼.ShowEnd If
End IfIf Xi.KeyInput(DIK_K) Then '按下k键显示怪物信息If 勇者包裹.怪物手册数量 = True Then开启关闭显示怪物信息 = 开启关闭显示怪物信息 + 1If 开启关闭显示怪物信息 > 1 Then 开启关闭显示怪物信息 = 0End IfEnd IfIf Xi.KeyInput(DIK_LEFT) Or Xi.KeyInput(DIK_A) Then  '向左移动，那么移动方向=1男主角移动.移动方向 = 1男主角移动.移动速度 = 男主角移动.移动速度 + 1End If'右
If Xi.KeyInput(DIK_RIGHT) Or Xi.KeyInput(DIK_D) Then男主角移动.移动方向 = 3
男主角移动.移动速度 = 男主角移动.移动速度 + 1
End If'上
If Xi.KeyInput(DIK_UP) Or Xi.KeyInput(DIK_W) Then男主角移动.移动方向 = 2
男主角移动.移动速度 = 男主角移动.移动速度 + 1
End If
'下
If Xi.KeyInput(DIK_DOWN) Or Xi.KeyInput(DIK_S) Then男主角移动.移动方向 = 4
男主角移动.移动速度 = 男主角移动.移动速度 + 1End If
男主角移动.移动步数 = 1 '通过键盘按动的方式，男主角移动步骤都是1，如果是鼠标移动的话，需要进行A寻路检测
End Sub

魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~17开始游戏-移动方向处理相关推荐

魔塔之拯救白娘子~我的第一个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做的小游戏源码~13开始游戏-初始化
魔塔之拯救白娘子完整工程下载地址: 上几节介绍了地图编辑器编写情况,现在开始介绍<魔塔之拯救白娘子>开始游戏后的处理. 游戏开始后的流程处理如下: 一.初始化: 当running=1的时 ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~14开始游戏-流程处理
魔塔之拯救白娘子完整工程下载地址: 二.游戏开始后的流程控制:当初始化完成后,timerDraw.Enabled = True 开始进行流程控制.下边的代码就是控制内容. 初始化→根据主角所在的楼 ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~23开始游戏-存档管理
魔塔之拯救白娘子完整工程下载地址: 魔塔之拯救白娘子>流程分析7:游戏存档管理作用如下: ①自动存档,当上楼或者下楼的时候,会自动帮玩家存档并截图(吼吼,游戏次数长了,存档容量可是几百M哦, ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~15开始游戏-地图层次判断
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>流程分析: 初始化→根据主角所在的楼层判断主角的位置并绘制主角→显示主角的基本信息(生命值.体力值.金币.经验值等等)→游戏界面 ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~19开始游戏-战斗处理
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>流程分析5:战斗处理这个游戏的战斗系统比较简单,就是对比双方的数据,打的过就显示打斗过程,打不过就提示"打不过&quo ...

魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~17开始游戏-移动方向处理

魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~17开始游戏-移动方向处理相关推荐

最新文章

热门文章