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

编程高手之路—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'如果上一次的奖品还没有消失（以PrizeRemain0为标志），就先清除旧的奖品，然后才显示新的奖品IfPrizeRemain0ThenCallShowPrize(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_AtOneTimeCallAddBombNextlblPause.Visible=FalselblScore.Caption=P1.ScorelblFoodCount.Caption=P1.FoodlblBombCount.Caption=P1.BombP1.blnGameOver=FalseHscrLevel.Enabled=False'游戏进行期间不能改变级别tmrMove.Enabled=TrueEndSub'显示得分榜PrivateSubcmdShowScoreList_Click()IfblnPause=FalseThenCallForm_KeyDown(KEY_PAUSE,0)'如果游戏正在进行，则发送“暂停”按键事件，暂停游戏frmScoreList.ShowEndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfP1.blnGameOverOrblnStartGame=FalseOrblnOnKeyEvents=FalseThenExitSub'以下情况（游戏结束、游戏还没有开始、禁用击键事件）不接收按键操作。'按“Numpad5”键－－暂停/继续IfKeyCode=KEY_PAUSEThenblnPause=NotblnPauselblPause.Visible=blnPausetmrMove.Enabled=NotblnPauseExitSubEndIfIfblnPauseThenExitSub'在暂停状态下不接受“ESC”外的其它按键SelectCaseKeyCodeCaseKEY_LFUPblnOnKeyEvents=FalseIfP1.X_Way0ThenP1.X_Way=0P1.Y_Way=-1ElseIfP1.Y_Way0ThenP1.X_Way=-1P1.Y_Way=0EndIfCaseKEY_LFDNblnOnKeyEvents=FalseIfP1.X_Way0ThenP1.X_Way=0P1.Y_Way=1ElseIfP1.Y_Way0ThenP1.X_Way=-1P1.Y_Way=0EndIfCaseKEY_RTUPblnOnKeyEvents=FalseIfP1.X_Way0ThenP1.X_Way=0P1.Y_Way=-1ElseIfP1.Y_Way0ThenP1.X_Way=1P1.Y_Way=0EndIfCaseKEY_RTDNblnOnKeyEvents=FalseIfP1.X_Way0ThenP1.X_Way=0P1.Y_Way=1ElseIfP1.Y_Way0ThenP1.X_Way=1P1.Y_Way=0EndIf'当蛇以水平方向移动时，LF和RT按键无效CaseKEY_LFblnOnKeyEvents=FalseIfP1.X_Way=0ThenP1.X_Way=-1P1.Y_Way=0EndIfCaseKEY_RTblnOnKeyEvents=FalseIfP1.X_Way=0ThenP1.X_Way=1P1.Y_Way=0EndIf'当蛇以垂直方向移动时，UP和DN按键无效CaseKEY_UPblnOnKeyEvents=FalseIfP1.Y_Way=0ThenP1.X_Way=0P1.Y_Way=-1EndIfCaseKEY_DNblnOnKeyEvents=FalseIfP1.Y_Way=0ThenP1.X_Way=0P1.Y_Way=1EndIfCaseElseExitSubEndSelecttmrMove.Enabled=False'暂停Timer事件，等到本次移动操作全部完成后（即subRefreshSnake(...)过程执行完毕），再启动TimerCallPlayerMoveEndSub