编程高手之路—vb入门和游戏编写—VB贪吃蛇单人版游戏〔四〕.docVIP

编程高手之路—vb入门和游戏编写—VB 贪吃蛇 单人版游戏(四)刷新蛇身坐标，更新 地图网格属性 以及画面??? 参数：蛇头的新坐标_X，蛇头的新坐标_Y，是否增加蛇身长度（T＝增加）Private Sub RefreshSnake(NewHead_X As Integer, NewHead_Y As Integer, blnAddLength As Boolean)??? Dim i As Integer??? Dim OldTail As thePosition 用于在更新蛇身坐标之前，保存原来的 蛇尾坐标??? ??? OldTail = Snake_P1(UBound(Snake_P1)) 保存旧的蛇尾坐标??? ??? picDisplay.Line (Snake_P1(0).X * MAP_SCALE, Snake_P1(0).Y * MAP_SCALE)-Step(MAP_SCALE, MAP_SCALE), P1.BodyColor, BF?? 在地图上 擦除旧的的蛇头??? picDisplay.Line (NewHead_X * MAP_SCALE, NewHead_Y * MAP_SCALE)-Step(MAP_SCALE, MAP_SCALE), P1.HeadColor, BF 在地图上 绘画出新的蛇头??? ??? MapProperty(NewHead_X, NewHead_Y) = MAP_SNAKE 标记蛇头新坐标下的地图格属性为 玩家蛇身??? ??? 必须先更新 蛇身 除蛇头外其余部分的坐标。否则会出错??? For i = (UBound(Snake_P1)) To 1 Step -1??????? Snake_P1(i) = Snake_P1(i - 1)??? Next??? ??? 然后更新 蛇头的坐标??? Snake_P1(0).X = NewHead_X??? Snake_P1(0).Y = NewHead_Y??? ??? 判断是否需要 增加蛇身长度??? If blnAddLength Then 增加长度??????? ReDim Preserve Snake_P1(UBound(Snake_P1) + 1) 最后才设定新的 蛇尾坐标（关键字“Preserve”的作用是：保留原数组的内容）??????? Snake_P1(UBound(Snake_P1)) = OldTail 旧蛇尾的坐标不变??????? P1.SnakeLength = UBound(Snake_P1) + 1 蛇身长度 + 1??? Else 蛇身长度不变??????? 如果蛇头的新坐标与旧蛇尾的坐标重合，就不用在旧蛇尾的坐标下 绘画空白地的图案（因为该网格属性已经是 蛇头，而不是空白地）??????? If Not (NewHead_X = OldTail.X And NewHead_Y = OldTail.Y) Then??????????? MapProperty(OldTail.X, OldTail.Y) = MAP_EMPTY 在地图上把 旧蛇尾坐标 下的地图格的属性设置为 空白地??????????? picDisplay.Line (OldTail.X * MAP_SCALE, OldTail.Y * MAP_SCALE)-Step(MAP_SCALE, MAP_SCALE), Map_Empty_Color, BF 在地图上擦除旧蛇尾，绘画空白地??????? End If??? End If??? ??? tmrMove.Enabled = TrueEnd Sub 检查得分能否上榜－－如果能上榜，则更新排行榜Public Sub CheckRecord(Score As Integer)??? Dim FileNum As Integer??? Dim pos As Integer, i As Integer, list As ListBox pos --排名??? Dim Name As String? 记录玩家名称??? Dim TopTen As Boolean 判断得分是否进入前十名??? Dim Ans As Integer??? ??? FileNum = FreeFile??? Set list = frmScoreList.lstScore 映射到列表框 frmScoreList.lstscore??? Do??????? If Score = Val(list.list(pos)) Then??????????? TopTen = True???????????