《编程高手之路入门和游戏编写贪吃蛇单人版游戏二》由会员分享，可在线阅读，更多相关《编程高手之路入门和游戏编写贪吃蛇单人版游戏二（10页珍藏版）》请在装配图网上搜索。
1、 财务管理税务规划编程高手之路入门和游戏编写贪吃蛇单人版游戏二 OptionExplicitPrivateSubcmdHelp_Click()IfblnPause=FalseThenCallForm_KeyDown(KEY_PAUSE,0)如果游戏正在进行,则发送“暂停”按键事件,暂停游戏EndSub开始新游戏PrivateSubcmdNewGame_Click()DimiAsIntegerRandomize重新生成随机数列blnStartGame=NotblnStartGameIfblnStartGameThen=停止Else=新游戏EndIf中止游戏IfblnStartGame=False
2、Then如果上一次的奖品还没有消失（以 PrizeRemain0 为标志）,就先清除旧的奖品,然后才显示新的奖品IfPrizeRemain0ThenCallShowPrize(False)P1.Score=0玩家的初始分数P1.Food=0P1.Bomb=0curEatCount=0PrizeRemain=0 blnPause=False=False=P1.Score=P1.Food=P1.BombP1.blnGameOver=True=True=FalseExitSubEndIfblnThroughWall=True穿墙模式blnOnKeyEvents=True暂时使用默认填充色Map_Bo
3、mb_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_SCALE=Map_Width+2=Map_Height+2 (0,0)-Step(Map_Width,Map_Height)
4、,Map_Empty_Color,BFFoodCount_AtOneTime=2地图上同时存在的食物数量BombCount_AtOneTime=1地图上同时存在的炸弹数量EatCountPerShowPrize=5设置蛇每吃进多少物品（包括食物和炸弹,奖品不计）才显示一次奖品curLevel=AddScorePerFood=curLevel每吃进一个食物,所增加的分数当前的级别值AddScorePerBomb=-curLevel*2每吃进一个炸弹,所扣掉的分数P1.Score=Abs(AddScorePerBomb)+1玩家的初始分数每吃进一个炸弹,所扣掉的分数1P1.Food=0P1.Bom
5、b=0PrizeRemain=0P1.blnGameOver=False=P1.Score=P1.Food=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=0 MapProperty(Snake_P1(i).X,Snake_P1(i).Y)=MAP_SNAKE(Snake_P1(
6、i).X*MAP_SCALE,Snake_P1(i).Y*MAP_SCALE)-Step(MAP_SCALE,MAP_SCALE),BODY_COLOR,BFNext使用蛇头颜色重新绘画蛇头(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_AtOneTimeCallAddBombNext=False=P1.Score=P1.Food=
7、P1.BombP1.blnGameOver=False=False游戏进行期间不能改变级别=TrueEndSub显示得分榜PrivateSubcmdShowScoreList_Click() IfblnPause=FalseThenCallForm_KeyDown(KEY_PAUSE,0)如果游戏正在进行,则发送“暂停”按键事件,暂停游戏EndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfP1.blnGameOverOrblnStartGame=FalseOrblnOnKeyEvents=FalseThenExitSub
8、以下情况（游戏结束、游戏还没有开始、禁用击键事件）不接收按键操作。按“Numpad5”键暂停/继续IfKeyCode=KEY_PAUSEThenblnPause=NotblnPause=blnPause=NotblnPauseExitSubEndIfIfblnPauseThenExitSub在暂停状态下不接受“ESC”外的其它按键SelectCaseKeyCodeCaseKEY_LFUPblnOnKeyEvents=FalseIfP1.X_Way0ThenP1.X_Way=0P1.Y_Way=-1ElseIfP1.Y_Way0ThenP1.X_Way=-1P1.Y_Way=0EndIfCase
9、KEY_LFDN blnOnKeyEvents=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_W
10、ay0ThenP1.X_Way=1 P1.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=False IfP1.Y_Way=0ThenP1.X_Way=0P1.Y_Way=1EndIfCaseElseExitSubEndSelect=False暂停 Timer 事件,等到本次移动操作全部完成后（即 subRefreshSnake(.)过程执行完毕）,再启动 TimerCallPlayerMoveEndSub 欢 迎 您 下 载 , 均 可 自 由 编 辑知识改变命运10
编程高手之路入门和游戏编写贪吃蛇单人版游戏二
