编程高手之路—vb入门和游戏编写—VB 贪吃蛇 单人版游戏(二)VIP专享VIP免费

编程高手之路—vb入门和游戏编写—VB贪吃蛇单人版游戏(二)《主窗体FrmPlay代码》——PrivateblnStartGameAsBoolean'标记是否已经开始新游戏（T＝游戏已经开始）PrivateblnPauseAsBoolean'标记当前是否处于暂停状态（T＝暂停）PrivateblnThroughWallAsBoolean'标记是否为穿墙模式（T＝可以穿墙）PrivateblnOnKeyEventsAsBoolean'标记是否能够接收键盘事件（T＝可以接收），此变量可防止Form_KeyDown()事件重复执行PrivateMap_WidthAsInteger'地图宽度（象素）PrivateMap_HeightAsInteger'地图高度（象素）PrivateMap_Empty_Color'地图－空白地颜色PrivateMap_Bomb_Color'地图－炸弹颜色PrivateMap_Food_Color'地图－食物颜色PrivateMapProperty()AsInteger'记录地图各个网格的属性PrivatecurEatCountAsInteger'记录每次出现奖品之前，一共吃进多少物品（包括食物和炸弹，奖品不计），当奖品出现后，此变量值变为零"0"，然后进入下一次统计PrivatecurLevelAsInteger'当前级别PrivateP1AsthePlayerInfo'记录Player1的信息PrivateSnake_P1()AsthePosition'记录蛇身坐标PrivatePrizePosAsthePosition'记录奖品的坐标PrivateRecord(9)AstheRecord'存放前十名的得分记录信息OptionExplicitPrivateSubcmdHelp_Click()IfblnPause=FalseThenCallForm_KeyDown(KEY_PAUSE,0)'如果游戏正在进行，则发送“暂停”按键事件，暂停游戏frmHelp.ShowEndSub'开始新游戏PrivateSubcmdNewGame_Click()DimiAsIntegerRandomize'重新生成随机数列blnStartGame=NotblnStartGameIfblnStartGameThencmdNewGame.Caption="停止"ElsecmdNewGame.Caption="新游戏"EndIf'中止游戏IfblnStartGame=FalseThen'如果上一次的奖品还没有消失（以PrizeRemain>0为标志），就先清除旧的奖品，然后才显示新的奖品IfPrizeRemain>0ThenCallShowPrize(False)picDisplay.ClsP1.Score=0'玩家的初始分数P1.Food=0P1.Bomb=0curEatCount=0PrizeRemain=0blnPause=FalselblPause.Visible=FalselblScore.Caption=P1.ScorelblFoodCount.Caption=P1.FoodlblBombCount.Caption=P1.BombP1.blnGameOver=TrueHscrLevel.Enabled=TruetmrMove.Enabled=FalseExitSubEndIfblnThroughWall=True'穿墙模式blnOnKeyEvents=True'暂时使用默认填充色Map_Bomb_Color=BOMB_COLORMap_Empty_Color=EMPTY_COLORMap_Food_Color=FOOD_COLORP1.BodyColor=BODY_COLORP1.HeadColor=HEAD_COLOR'地图初始化ReDimMapProperty(MAX_COL_INDEX,MAX_ROW_INDEX)Map_Width=(MAX_COL_INDEX+1)*MAP_SCALEMap_Height=(MAX_ROW_INDEX+1)*MAP_SCALEpicDisplay.ClspicDisplay.Width=Map_Width+2picDisplay.Height=Map_Height+2picDisplay.Line(0,0)-Step(Map_Width,Map_Height),Map_Empty_Color,BFFoodCount_AtOneTime=2'地图上同时存在的食物数量BombCount_AtOneTime=1'地图上同时存在的炸弹数量EatCountPerShowPrize=5'设置蛇每吃进多少物品（包括食物和炸弹，奖品不计）才显示一次奖品curLevel=HscrLevel.ValueAddScorePerFood=curLevel'每吃进一个食物，所增加的分数＝当前的级别值AddScorePerBomb=-curLevel*2'每吃进一个炸弹，所扣掉的分数P1.Score=Abs(AddScorePerBomb)+1'玩家的初始分数＝'每吃进一个炸弹，所扣掉的分数＋1P1.Food=0P1.Bomb=0PrizeRemain=0P1.blnGameOver=FalselblScore.Caption=P1.ScorelblFoodCount.Caption=P1.FoodlblBombCount.Caption=P1.Bomb'初始化P1蛇身ReDimSnake_P1(START_SNAKE_LENGTH)Fori=0ToUBound(Snake_P1)'设定蛇身各段的起始位置Snake_P1(i).X=MAX_COL_INDEX-UBound(Snake_P1)+iSnake_P1(i).Y=MAX_ROW_INDEX'初始化移动方向P1.X_Way=-1P1.Y_Way=0MapProperty(Snake_P1(i).X,Snake_P1(i).Y)=MAP_SNAKEpicDisplay.Line(Snake_P1(i).X*MAP_SCALE,Snake_P1(i).Y*MAP_SCALE)-Step(MAP_SCALE,MAP_SCALE),BODY_COLOR,BFNext'使用蛇头颜色重新绘画蛇头picDisplay.Line(Snake_P1(0).X*MAP_SCALE,Snake_P1(0).Y*MAP_SCALE)-Step(MAP_SCALE,MAP_SCALE),HEAD_COLOR,BF'放置食物Fori=1ToFoodCount_AtOneTimeCallAddFoodNext'放置炸弹Fori=1ToBombCount_...