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

编程高手之路—vb入门和游戏编写—VB 贪吃蛇 单人版游戏(三)Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)??? blnOnKeyEvents = True 放开一个键之后，才能接收按键事件End Sub Private Sub Form_Load()??? Me.KeyPreview = True??? picDisplay.BackColor = EMPTY_COLOR??? curLevel = 6 默认级别:6??? HscrLevel.Value = curLevel??? End Sub 游戏结束Private Sub GameOver()??? Dim Ans As Integer??? ??? P1.blnGameOver = True??? tmrMove.Enabled = False??? If PrizeRemain 0 Then Call ShowPrize(False)??? ??? MsgBox 游戏结束。你的得分是： vbCrLf P1.Score, vbInformation, GAME OVER??? Call CheckRecord(P1.Score)? 检查分数能否上榜??? ??? Call cmdNewGame_Click 准备新一轮游戏 End Sub 蛇移动 的处理过程Private Sub PlayerMove()??? Dim tempHead As thePosition 临时存放蛇头的新坐标??? Dim blnAddLengh As Boolean 是否增加蛇身的长度（T＝增加）??? ??? 找出蛇头的新坐标??? tempHead.X = Snake_P1(0).X + P1.X_Way??? tempHead.Y = Snake_P1(0).Y + P1.Y_Way??? ??? If blnThroughWall Then 如果当前是 穿墙模式（默认）??????? If tempHead.X 0 Then??????????? tempHead.X = MAX_COL_INDEX??????? ElseIf tempHead.X MAX_COL_INDEX Then??????????? tempHead.X = 0??????? ElseIf tempHead.Y 0 Then??????????? tempHead.Y = MAX_ROW_INDEX??????? ElseIf tempHead.Y MAX_ROW_INDEX Then??????????? tempHead.Y = 0??????? End If??? Else??????? 非 穿墙模式的移动代码未设置??? End If??????? ??? 判断蛇头新坐标下的 地图属性??? Select Case MapProperty(tempHead.X, tempHead.Y)??????? Case MAP_EMPTY 空白地??????????? 暂时没有空白地的移动操作??????? Case MAP_SNAKE 蛇身??????????? 如果蛇头的新坐标 和当前 蛇尾 的坐标重合，就不算GameOver－－因为随着蛇头的移动，蛇身各个节点都会向前跟进，使得当前 蛇尾 坐标下的网格变成 空白地。??????????? If Not (tempHead.X = Snake_P1(UBound(Snake_P1)).X And tempHead.Y = Snake_P1(UBound(Snake_P1)).Y) Then??????????????? Call GameOver??????????????? Exit Sub??????????? End If??????? Case MAP_FOOD 食物??????????? blnAddLengh = True 增加蛇身长度??????????? P1.Food = P1.Food + 1 统计玩家吃进的 食物数量??????????? lblFoodCount.Caption = P1.Food 显示总共吃进的 食物数量??????????? Call ChangeScore(AddScorePerFood, True) 加分??????????? Call AddFood 补充地图上的 食物??????? Case MAP_BOMB 炸弹??????????? P1.Bomb = P1.Bomb + 1 统计玩家吃进的