魔塔之拯救白娘子 完整工程下載地址：
《魔塔之拯救白娘子》流程控制分析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开始游戏-移动方向处理的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。