推箱子設(shè)計(jì)報(bào)告書-文庫吧資料
2024-08-17 00:22本頁面
【正文】 Box(你已經(jīng)過了最后一關(guān)！還要繼續(xù)嗎？, vbYesNo, 真厲害！) = vbYes Then LoadMap CurrScene 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。定義小人位置 DrawBox X, Y, Map(X, Y) 39。地圖大小為加上盒子的大小 DrawBox DestX, DestY, B_BOX 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。小人的位置 DrawBox X, Y, Map(X, Y) X = DestX: Y = DestY End IfEnd Sub39。向右移動 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。小人向下移動 ElseIf OffsetX = 1 Then Dir = D_LEFT 39。 小人移動Private Sub ManMove(OffsetX As Integer, OffsetY As Integer) Dim DestX As Integer, DestY As Integer If OffsetY = 1 Then 39。 游戲結(jié)束Private Sub Form_Unload(Cancel As Integer) Close 39。選擇地圖 Case 27 Unload Me 39。關(guān)卡減一關(guān) Case 34 LoadMap CurrScene + 1 39。小人的位置向右移動 Case 32 LoadMap CurrScene 39。小人的位置向下移動 Case 39 ManMove 1, 0 39。 游戲操作（按鍵處理）Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Not Playing Then Exit Sub Select Case KeyCode Case 37 39。 顯示小人Private Sub DrawMan(ByVal X As Integer, ByVal Y As Integer) 39。顯示盒子 Offset = 3 Case B_WALL 39。空白處的背景 Offset = 1 Case B_DEST 39。 顯示背景塊（包括地面、墻、箱子等）Private Sub DrawBox(ByVal X As Integer, ByVal Y As Integer, ByVal BoxType As Integer) Dim Offset As Integer Select Case BoxType Case B_BACK Offset = 0 39。 顯示整個游戲畫面Private Sub DrawMap() Dim i As Long, j As Long For i = 0 To MAXY 1 For j = 0 To MAXX 1 DrawBox j, i, Map(j, i) 39。 ）, 選擇一關(guān), 1)) If Temp = 1 And Temp = ScenesCount Then CurrScene = Temp 39。選擇關(guān)卡 Dim Temp As Integer Temp = Val(InputBox(請輸入關(guān)數(shù)（1～ amp。定義地圖的大小 If Map(j, i) And B_DEST Then BoxCount = BoxCount + 1 Next Next DrawMap LoadMap = True MapLoading = FalseEnd Function39。x方向的數(shù)據(jù) Get FileNum, , Data Y = Data 39。定義方向鍵 Dim Data As Byte Get FileNum, (CurrScene 1) * SIZE + 1, Data 39。 關(guān) 39。運(yùn)行當(dāng)前場景 Caption = 推箱子 第 amp。則退出功能 End If MapLoading = True 39。如果場景是1或當(dāng)前場景 LoadMap = False 39。 讀取關(guān)卡數(shù)據(jù)Private Function LoadMap(Scene As Integer) As Boolean If MapLoadin
電大資料相關(guān)推薦
鄂ICP備17016276號-1