推箱子游戏设计使用说明书

sInteger, DestY AsInteger IfOffsetY =-1Then '小人向上移动 Dir =D_UP ElseIf OffsetY =1Then Dir =D_DOWN '小人向下移动 ElseIf OffsetX =-1Then Dir =D_LEFT '向左移动 Else Dir =D_RIGHT '向右移动 End If DestX =X+OffsetX: DestY =Y+OffsetY IfDestX <0OrDestX >=MAXX OrDestY <0OrDestY >=MAXY Then Exit Sub IfMap(DestX, DestY) And B_WALL OrMap(DestX, DestY) And B_BACK Then Exit Sub IfMap(DestX, DestY) And B_BOX Then ‘定义地图的目标地址值 Push DestX, DestY, OffsetX, OffsetY '推动箱子 Else DrawMan DestX, DestY '小人的位置 DrawBox X,Y,Map(X, Y) X=DestX: Y=DestY picMain.Refresh End If End Sub '推动箱子 Private Sub Push(SourceX AsInteger, SourceY AsInteger, OffsetX AsInteger, OffsetY AsInteger) Dim DestX AsInteger, DestY AsInteger '定义场景的大小 DestX =SourceX +OffsetX: DestY =SourceY +OffsetY IfDestX <0OrDestX >=MAXX OrDestY <0OrDestY >=MAXY Then Exit Sub