推箱子設計報告書(編輯修改稿)

　

【文章內容簡介】 , 1 39。小人的位置向右移動 Case 32 LoadMap CurrScene 39。場景的切換 Case 33 LoadMap CurrScene 1 39。關卡減一關 Case 34 LoadMap CurrScene + 1 39。關卡加一關 Case 13 SelectMap 39。選擇地圖 Case 27 Unload Me 39。下載推出 End Select End Sub39。 游戲結束Private Sub Form_Unload(Cancel As Integer) Close 39。關閉窗口退出 EndEnd Sub39。 小人移動Private Sub ManMove(OffsetX As Integer, OffsetY As Integer) Dim DestX As Integer, DestY As Integer If OffsetY = 1 Then 39。小人向上移動 Dir = D_UP ElseIf OffsetY = 1 Then Dir = D_DOWN 39。小人向下移動 ElseIf OffsetX = 1 Then Dir = D_LEFT 39。向左移動 Else Dir = D_RIGHT 39。向右移動 End If DestX = X + OffsetX: DestY = Y + OffsetY If DestX 0 Or DestX = MAXX Or DestY 0 Or DestY = MAXY Then Exit Sub If Map(DestX, DestY) And B_WALL Or Map(DestX, DestY) And B_BACK Then Exit Sub If Map(DestX, DestY) And B_BOX Then ‘定義地圖的目標地址值 Push DestX, DestY, OffsetX, OffsetY 39。推動箱子 Else DrawMan DestX, DestY 39。小人的位置 DrawBox X, Y, Map(X, Y) X = DestX: Y = DestY End IfEnd Sub39。 推動箱子Private Sub Push(SourceX As Integer, SourceY As Integer, OffsetX As Integer, OffsetY As Integer) Dim DestX As Integer, DestY As Integer 39。定義場景的大小 DestX = SourceX + OffsetX: DestY = SourceY + OffsetY If DestX 0 Or DestX = MAXX Or DestY 0 Or DestY = MAXY Then Exit Sub If Map(DestX, DestY) And B_WALL Or Map(DestX, DestY) And B_BACK Or _ Map(DestX, DestY) And B_BOX Then Exit Sub Map(SourceX, SourceY) = Map(SourceX, SourceY) B_BOX 39。地圖大小為減去盒子的大小 Map(DestX, DestY) = Map(DestX, DestY) + B_BOX 39。地圖大小為加上盒子的大小 DrawBox DestX, DestY, B_BOX 39。畫出盒子的大小 DrawBox SourceX, SourceY, Map(SourceX, SourceY) DrawMan SourceX, SourceY 39。定義小人位置 DrawBox X, Y, Map(X, Y) 39。定義地圖位置 X = SourceX: Y = SourceY 39。刷新 If Map(SourceX, SourceY) And B_DEST Then Completed = Completed 1 If Map(DestX, DestY) And B_DEST Then Completed = Completed + 1 If Completed = BoxCount Then WinEnd Sub39。 過關處理Private Sub Win() If MsgBox(你太聰明了！要繼續玩下一關嗎？, vbYesNo, 過關！) = vbNo Then 39。過關了以后如果不繼續則下載當前玩的場景 Unload Me End If If Not LoadMap(CurrScene + 1) Then If MsgBox(你已經過了最后一關！還要繼續嗎？, vbYesNo, 真厲害！) = vbYes Then LoadMap CurrScene 39。過關后如果選擇繼續則 下載下一關的地圖 Else Unload Me End If End IfEnd SubPrivate Sub picMan_Click()End SubOption Explicit39。 API函數聲明Private Declare Function BitBlt Lib gdi32 (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long39。 全局常量Private Const MaxX As Integer = 20 39。定義場景X軸的寬度Private Const MaxY As Integer = 15 39。定義場景y軸的寬度Private Const B_GROUND As Integer = amp。H0 39。定義總背景常量并賦H0Private Con