推箱子設(shè)計(jì)報(bào)告書(編輯修改稿)
2024-08-31 00:22 本頁面
【文章內(nèi)容簡介】 , 1 39。小人的位置向右移動(dòng) Case 32 LoadMap CurrScene 39。場景的切換 Case 33 LoadMap CurrScene 1 39。關(guān)卡減一關(guān) Case 34 LoadMap CurrScene + 1 39。關(guān)卡加一關(guān) Case 13 SelectMap 39。選擇地圖 Case 27 Unload Me 39。下載推出 End Select End Sub39。 游戲結(jié)束Private Sub Form_Unload(Cancel As Integer) Close 39。關(guān)閉窗口退出 EndEnd Sub39。 小人移動(dòng)Private Sub ManMove(OffsetX As Integer, OffsetY As Integer) Dim DestX As Integer, DestY As Integer If OffsetY = 1 Then 39。小人向上移動(dòng) Dir = D_UP ElseIf OffsetY = 1 Then Dir = D_DOWN 39。小人向下移動(dòng) ElseIf OffsetX = 1 Then Dir = D_LEFT 39。向左移動(dòng) Else Dir = D_RIGHT 39。向右移動(dòng) 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 ‘定義地圖的目標(biāo)地址值 Push DestX, DestY, OffsetX, OffsetY 39。推動(dòng)箱子 Else DrawMan DestX, DestY 39。小人的位置 DrawBox X, Y, Map(X, Y) X = DestX: Y = DestY End IfEnd Sub39。 推動(dòng)箱子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。 過關(guān)處理Private Sub Win() If MsgBox(你太聰明了！要繼續(xù)玩下一關(guān)嗎？, vbYesNo, 過關(guān)！) = vbNo Then 39。過關(guān)了以后如果不繼續(xù)則下載當(dāng)前玩的場景 Unload Me End If If Not LoadMap(CurrScene + 1) Then If MsgBox(你已經(jīng)過了最后一關(guān)！還要繼續(xù)嗎？, vbYesNo, 真厲害！) = vbYes Then LoadMap CurrScene 39。過關(guān)后如果選擇繼續(xù)則 下載下一關(guān)的地圖 Else Unload Me End If End IfEnd SubPrivate Sub picMan_Click()End SubOption Explicit39。 API函數(shù)聲明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
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1