1、目錄1程序簡介12程序設計12.1程序分析程序初始化：12.2游戲流程22.3程序流程圖32.4數據定義及重要函數43系統測試及改進123.1程序測試123.2系統改進144源碼151程序簡介貪吃蛇游戲是一個經典小游戲，在封閉的圍墻里面，通過鍵盤的上下左右控制蛇的方向，尋找隨機出現的食物。蛇頭撞到食物，則食物被吃掉，蛇身體長度+1，同時記100分，蛇的身子越吃越長，身子越長玩的難度就越大，如果蛇在移動中撞到墻或身體交叉蛇頭撞倒自己身體游戲結束。2程序設計2.1程序分析程序初始化：加載在數據段定義好相關的提示信息以及儲存蛇身的數組，主要是如何開始游戲的提示信息蛇的移動：程序的關鍵是表示蛇的圖形以

2、及蛇的移動。一開始用4個小矩形表示蛇的身體，每吃一個食物，身體增加一個矩形，移動時必須從蛇頭開始，所以蛇不能向相反方向移動，蛇頭的前進方向也就是蛇的方向，蛇尾不能改作蛇頭。設置一個等待時間，如果不按任何按鍵，蛇在當前方向上前進。按了有效的方向鍵后，先確定蛇頭的位置然后蛇身體隨著蛇頭移動，圖形的實現是從蛇頭的新位置開始畫出蛇，這時由于沒有清屏的原因，原來蛇的位置和新蛇的位置相差一個單位，所以看起來蛇會多一節(jié)身體。食物的產生：通過一系列運算產生在要求范圍內的的隨機數，此時的隨機數便是隨即點，可以通過產生的隨即點的坐標畫出隨即點，也就是食物了。蛇吃食物： 蛇頭的位置可以與隨即點的位置坐標判斷，如果此

3、時兩點的坐標是相同的，那么該食物被蛇吃掉，蛇的長度+1。判斷游戲結束的條件： 當蛇的頭部位置坐標與邊界坐標重合或者蛇頭的位置與自身相重合，游戲結束 暫停： 游戲過程中，按空格鍵可以使游戲暫停，在按空格鍵進入被暫停的游戲2.2游戲流程 由程序分析知，該游戲是用方向鍵實現貪吃蛇的移動，游戲大概流程分為：游戲初始化（描繪圍墻、蛇體、食物等及其顏色），游戲過程（通過四個方向鍵控制蛇頭帶動身體移動），游戲結束（顯示總分并判斷是否重新游戲）。2.3程序流程圖 2.4數據定義及重要函數 數據定義及鍵盤掃描碼 數據定義： Len db ? ;蛇的長度Body dw 200 dup(0) ;蛇的身體位置Dire

4、ction dw 256Score db 'Score00000' ;得分snake_color db 0ah ;蛇顏色food_color db 0ch ;食物色speed db 0 ;速度gameover db 0 ;游戲結束標記Point db 0 ;得分數foodX dw ? ;食物坐標foodY dw ?seed dw 2 ;隨即數種子 鍵盤掃描碼：LEFT EQU 4BhRIGHT EQU 4DhUP EQU 48hDOWN EQU 50hQUIT EQU 01hSPACE EQU 39h main函數 主函數首先加載定義好的數據，設置圖形模式大小，調用顯示開始提示

5、信息的函數，中斷等待用戶按鍵輸入，判斷退出或開始游戲。進入游戲，重新設置圖形模式，調用rec，clear_area,getfood,run_sanke函數分別打印邊框，初始化蛇，隨機食物，開始運動蛇。當蛇死亡時，中斷，等待用戶輸入，根據用戶的輸入繼續(xù)游戲或退出程序。 main proc farmov ax , datamov ds , axstart:mov ah , 00mov al , 12hint 10h ;設置圖形模式640*480call show_start_msg ;顯示開始提示信息call show_titlemov ah , 00hint 16h ;等待按鍵cmp ah ,

6、QUIT jz dos ;ESC則退出，否則進入游戲game_start:mov ah , 00 ;設置圖形模式320*200，游戲在此模式下運行mov al , 13hint 10h mov cl , 7 ;邊框顏色mov si , 59mov bx , 19Init_snake ;初始化蛇call getfood ;得到第一個食物call run_snake ;開始運動蛇mov dx , 1010h ;設置光標call SetGb ;設置光標位置mov bl , white ;顯示死亡信息lea bp , msg3mov cx , 13call Msg ;顯示字符串mov dx , 160

7、5hmov bl , white ;顯示提示信息lea bp , msg5mov cx , 29call Msgexit_loop:mov ah , 00hint 16h ;等待按鍵cmp ah , QUITjz startcmp ah , SPACEjz game_startjmp exit_loop ;返回開始dos:mov ah , 00mov al , 03int 10h ;設置文本模式mov ah , 4chint 21h ;退出到DOSmain endp Run_snake函數 蛇一開始默認向右運動，當按下空格鍵時游戲暫停，再按空格鍵游戲開始。用INT 10H的1號功能檢

8、測是否有按鍵輸入，改變蛇頭前進的方向，沒有保持當前的前進方向。在蛇運動過程中，不斷檢查是否撞墻或蛇頭觸碰到蛇身，如果是，跳轉到stop，提示重新或退出。當檢查到食物坐標和蛇頭坐標一致時，食物被吃，蛇身長度+1，保存當前前進方向。run_snake procpush axpush bxpush cxpush dxpush sipush dimov dx, 0005hcall SetGbmov bl,whitelea bp,msg6mov cx,30call Msgloop1:call Delaymov al,1cmp al,gameoverjz stopmov bx , offset Bodym

9、ov cx,0mov cl,Lenadd bx,cxadd bx,cxsub bx,2A1:mov ax,bx mov bx+2,axsub bx,2loop A1addhead: mov bx , offset Body ;增加新頭部并改寫數據mov ax , bxmov dx , Directionadd ah , dh ;坐標加方向add al , dl ;坐標加方向mov bx , ax ;存入頭部mov dx,0 ;為check_die準備參數si,dimov dl , ahmov si , dxmov dl , almov di , dxcall check_die ;檢查死亡mo

10、v al,1cmp al,gameoverjz stop call check_eat ;檢查吃cmp cx,1jz A2 mov bx , offset Bodymov ax,0add Len,1mov al , Lenadd bx , ax ;取到蛇尾add bx , axsub bx , 2mov ax , bxmov cx,0mov bx,cxmov dx,0mov dl , ahmov si , dxmov dl , almov di , dxsub Len,1call clearcutmov bx , offset Bodymov ax, bxmov dx,0mov dl , ah

11、mov si , dxmov dl , almov di , dxcall cutsnakejmp A3A2:add Len,1mov bx , offset Bodymov ax, bxmov dx,0mov dl , ahmov si , dxmov dl , almov di , dxcall cutsnake ;畫新頭部call getfoodA3:call show_pointcall check_key ;檢查按鍵jmp loop1 ;蛇運動循環(huán)DATAS SEGMENTstop:pop dipop sipop dxpop cxpop bxpop axretrun_snake en

12、dp getfood函數 設置了一個隨機數坐標x最大值50，調用Rand函數獲取隨機x軸坐標，同理可得隨機y軸坐標，該坐標就是食物的隨機坐標。調用cutfood函數，將隨機食物在顯示屏輸出getfood procpush axpush bxpush cxpush dxpush sipush diM1:mov si,50 ;置隨機數范圍（最大值+1）call Rand ;產生隨機數mov foodx,ax ;賦予食物坐標xmov si,50 ;置隨機數范圍（最大值+1）call Rand ;產生隨機數mov foody,ax ;賦予食物坐標ymov si,foodxmov di,foodymov

13、 ax,di ;取坐標值mul cut_y ;乘象素值add ax,topline mov dx,axpush dxmov ax,si ;取坐標值mul cut_x ;乘象素值add ax,leftline mov cx,axpop dxmov ah,0dhmov bh,0int 10hcmp al,snake_colorjz M1call cutfood ;畫食物pop dipop sipop dxpop cxpop bxpop axretgetfood endp Check_key函數響應鍵盤輸入，控制蛇的移動以及控制游戲退出 Check_key procpush axpush bxpus

14、h cxpush dxpush sipush dimov ah , 01hint 16hjz check_nokey ;如果沒有按鍵就繼續(xù)mov ah , 0 ;取得掃描碼 int 16hpush ax cmp ah , SPACEjnz S2S1:mov ah,0int 16hcmp ah, SPACEjnz S1S2:pop axcmp ah , LEFT ;往左移動jz check_LEFTcmp ah , RIGHT ;往右邊移動jz check_RIGHTcmp ah , UP ;往上移動jz check_UPcmp ah , DOWN ;往下移動jz check_DOWNcmp a

15、h , QUIT ;結束游戲jz check_QUITjmp check_nokeycheck_LEFT:mov ah , -1 ;(-1,0)mov al , 0mov bx , ax ;檢查是否反向add bx , Directionjz check_nokeymov Direction , axjmp check_nokeycheck_RIGHT:mov ah , 1 ;(1,0)mov al , 0mov bx , ax ;檢查是否反向add bx , Directionjz check_nokeymov Direction , axjmp check_nokeycheck_UP:mo

16、v ah , 0 ;(0,-1)mov al , -1mov bx , Direction ;檢查是否反向sub bl , 1jz check_nokey mov Direction , axjmp check_nokeycheck_DOWN:mov ah , 0 ;(0,1)mov al , 1 mov bx , Direction ;檢查是否反向add bl , 1jz check_nokeymov Direction , axjmp check_nokeycheck_QUIT:jmp check_exitcheck_exit: ;按下ESC鍵的情況mov gameover,1check_

17、nokey:mov ah,0chmov al,0int 21hpop dipop sipop dxpop cxpop bxpop axretCheck_key endp3系統測試及改進3.1程序測試打開程序，顯示歡迎界面，提醒用戶輸入，按任意鍵進入程序，游戲開始時，貪吃蛇默認向右移動，使用鍵盤的上下左右控制貪吃蛇的前進的方向，最下方的Score實時更新分數，游戲過程中空格鍵可以暫停和繼續(xù)、每吃一個食物，Socre+100，蛇身長度+1當蛇頭撞墻之后，彈出信息Game is over！程序中斷，提示并等待用戶操作，當按ESC鍵時退回主界面，按空格鍵重新開始游戲，此時分數歸零，蛇身長度也恢復到開始

18、時的默認值如圖，當蛇頭撞上蛇身時，等同蛇頭撞上墻壁3.2系統改進（1）游戲制作的精細度和畫面的質量有待提高，改善蛇和食物的樣子（2）聯機，可以多臺機器聯機比賽，（3）可以記錄歷史最好成績（4）某些食物具有特效，比如縮短蛇身的長度，可以穿墻（5）可以改變游戲的速度，（6）長時間游戲提醒玩家休息（7）實現背景音樂（8）可以選擇不同形狀的蛇身，改變蛇的顏色（9）可以保存當前游戲，玩家下次可以繼續(xù)當前游戲4源碼.model small.stack 200.dataLen db ? ;蛇的長度Body dw 200 dup(0) ;蛇的身體位置Direction dw 256Score db '

19、Score00000' ;得分snake_color db 0ah ;蛇顏色food_color db 0ch ;食物色speed db 0 ;速度gameover db 0 ;游戲結束標記Point db 0 ;得分數foodX dw ? ;食物坐標foodY dw ?seed dw 2 ;隨即數種子;* ;顯示方面的參數topline dw 20 ;上邊界leftline dw 60 ;左邊界cut_x dw 4 ;每格寬cut_y dw 3 ;每格長max_x dw 49 ;最大格數（橫）max_y dw 49 ;最大格數（縱）msg1 db 'Greedy Snakes

20、'msg2 db 'by:xiaobin'msg3 db 'Game is over!'msg4 db 'Press any key for start! Esc for exit'msg5 db 'ESC for back, Space for retry'msg6 db 'press space for pause/continue'msg7 db ' 'title1 db 6 dup(20h), 5 dup(0dch), 5 dup(20h) ,5 dup(0dch), 5 dup(2

21、0h) title2 db 6 dup(20h), 0dbh,3 dup(20h),0dbh,5 dup(20h),0dbh,3 dup(20h),0dbh ,5 dup(20h) title3 db 6 dup(20h), 0dbh,3 dup(20h),0dbh,5 dup(20h) ,0dbh,3 dup(20h),0dbh,5 dup(20h)title4 db 7 dup(0dfh), 3 dup(20h),7 dup(0dfh), 3 dup(20h),5 dup(0dfh),0fdhyello db 0eh green db 02h white db 0fh blue db 01

22、h;* ;鍵盤掃描碼LEFT EQU 4BhRIGHT EQU 4DhUP EQU 48hDOWN EQU 50hQUIT EQU 01hSPACE EQU 39h.codemain proc farmov ax , datamov ds , axstart:mov ah , 00mov al , 12hint 10h ;設置圖形模式640*480call show_start_msg ;顯示開始提示信息call show_titlemov ah , 00hint 16h ;等待按鍵cmp ah , QUIT jz does ;ESC則退出，否則進入游戲game_start:mov ah ,

23、00 ;設置圖形模式320*200，游戲在此模式下運行mov al , 13hint 10h mov cl , 7 ;邊框顏色mov si , 59mov bx , 19mov di , 260mov dx , 170call rec ;打印邊框call clear_area ;游戲區(qū)域清空（效果）call Init_snake ;初始化蛇call getfood ;得到第一個食物call run_snake ;開始運動蛇exit:mov dx , 1010h ;設置光標call SetGb ;設置光標位置mov bl , white ;顯示死亡信息lea bp , msg3mov cx ,

24、13call Msg ;顯示字符串mov dx , 1605hmov bl , white ;顯示提示信息lea bp , msg5mov cx , 29call Msgexit_loop:mov ah , 00hint 16h ;等待按鍵cmp ah , QUITjz startcmp ah , SPACEjz game_startjmp exit_loop ;返回開始does:mov ah , 00mov al , 03int 10h ;設置文本模式mov ah , 4chint 21h ;退出到DOSmain endp;*;函數名: SetGb;功能: 設置光標位置;傳遞參數: dh/d

25、l 行/列;*SetGb proc nearpush axpush bxmov bh , 0mov ah , 02hint 10hpop bxpop ax retSetGb endp;*;函數名: Msg;功能: 輸出字符串;傳遞參數: ; bl 顏色號（BL RGB IRGB）; bp 字符串偏移地址; cx 字符串長度; dh/dl 行/列;*Msg proc near push axpush bxpush espush dspop es ;將數據段ds送esmov al , 0mov ah , 13hmov bh , 0 int 10hpop espop bxpop axret Msg

26、endp;*;函數名: show_title;功能: 顯示開始提示信息;*show_title proc nearpush axpush bxpush cxpush dxmov dl,10hmov cx,10hyidong:push cxdec dlmov dh,0fhcall SetGbmov al,020hmov ah,0ehint 10hinc dlmov dh,0chcall SetGbmov bl,yellolea bp,title1mov cx,26call Msgmov dh,0dhcall SetGbmov bl,yellolea bp,title2mov cx,26call

27、Msgmov dh,0ehcall SetGbmov bl,yellolea bp,title3mov cx,26call Msgmov dh,0fhcall SetGbmov bl,yellolea bp,title4mov cx,26call Msgcall delayinc dlpop cxcall show_start_msgloop yidongmov ah,0chmov al,0int 21hpop dxpop cxpop bxpop ax retshow_title endp;*;函數名: show_start_msg;功能: 顯示開始提示信息;*show_start_msg p

28、roc nearpush axpush bxpush cxpush dxmov dx,1426hcall SetGbmov bl,0a1hlea bp,msg1mov cx,12call Msgmov dx , 190bhcall SetGb ;設置光標mov bl,08hlea bp,msg2 ;顯示作者信息mov cx,11call Msg ;顯示字符串mov dx , 1619h ;設置光標call SetGbmov bl , whitelea bp , msg4 ;顯示提示信息mov cx , 37call Msg ;顯示字符串pop dxpop cxpop bxpop ax rets

29、how_start_msg endp;*;函數名: cutsnake;功能: 顯示蛇的一格;傳遞參數: ; si/di 游戲空間列/游戲空間行(50*50);*cutsnake proc nearpush axpush bxpush cxpush dxpush sipush dimov cl, snake_color ;置顏色mov ax,di ;取坐標值mul cut_y ;乘象素值add ax,topline ;加上邊界mov bx , ax add ax , 2 mov dx , axpush bxpush dxmov ax,si ;取坐標值mul cut_x ;乘象素值add ax,l

30、eftline ;加上邊界mov si , axadd ax , 3mov di , axpop dxpop bxcall Rec ;Rec的參數是cl顏色 si左邊 bx上邊 di右邊 dx下邊pop dipop sipop dxpop cxpop bxpop ax retcutsnake endp;*;函數名: cutfood;功能: 顯示食物;傳遞參數: ; si/di 游戲空間列/游戲空間行(50*50);函數返回: 空;*cutfood proc nearpush axpush bxpush cxpush dxpush sipush dimov cl , food_color ;置顏

31、色mov ax,di ;取坐標值mul cut_y ;乘象素值add ax,topline ;加上邊界mov bx , axadd ax , 2mov dx , axpush bx push dxmov ax,si ;取坐標值mul cut_x ;乘象素值add ax,leftline ;加上邊界mov si , axadd ax , 3mov di , axpop dxpop bxcall Rec ;Rec的參數是cl顏色 si左邊 bx上邊 di右邊 dx下邊pop dipop sipop dxpop cxpop bxpop ax retcutfood endp;*;函數名: clearc

32、ut;功能: 清除格;傳遞參數: ; si/di 游戲空間列/游戲空間行(50*50);函數返回: 空;*clearcut proc nearpush axpush bxpush cxpush dxpush sipush dimov cl , 0 ;置顏色(黑)mov ax,di ;取坐標值mul cut_y ;乘象素值add ax,topline ;加上邊界mov bx , axadd ax , 2mov dx , axpush bxpush dxmov ax,si ;取坐標值mul cut_x ;乘象素值add ax,leftline ;加上邊界mov si , axadd ax , 3m

33、ov di , axpop dxpop bxcall Rec ;Rec的參數是cl顏色 si左邊 bx上邊 di右邊 dx下邊pop dipop sipop dxpop cxpop bxpop ax retclearcut endp;*;函數名: Rand;功能: 產生指定范圍大小的隨機數;傳遞參數: si 數字的范圍最大值+1;函數返回: ax 返回隨機數的值;*Rand procpush bxpush cxpush dxpush simov ah,2chint 21hmov ax,dxmov dx,0mov bx,si ;指定隨機數的范圍div bx mov ax,dxpop sipop

34、dxpop cxpop bx retRand endp;*;函數名: getfood;功能: 產生新食物,即隨機產生一組49*49的坐標 ;函數返回: foodx與foody的值;*getfood procpush axpush bxpush cxpush dxpush sipush diM1:mov si,50 ;置隨機數范圍（最大值+1）call Rand ;產生隨機數mov foodx,ax ;賦予食物坐標xmov si,50 ;置隨機數范圍（最大值+1）call Rand ;產生隨機數mov foody,ax ;賦予食物坐標ymov si,foodxmov di,foodymov ax

35、,di ;取坐標值mul cut_y ;乘象素值add ax,topline mov dx,axpush dxmov ax,si ;取坐標值mul cut_x ;乘象素值add ax,leftline mov cx,axpop dxmov ah,0dhmov bh,0int 10hcmp al,snake_colorjz M1call cutfood ;畫食物pop dipop sipop dxpop cxpop bxpop axretgetfood endp;*;函數名: Delay;功能: 延時;*Delay procpush axpush bxpush cx push dx mov cx

36、,33144waitf:in al,61hand al,10hcmp al,ahje waitfmov ah,alloop waitfpop dxpop cxpop bxpop axretDelay endp;*;函數名: Check_key;功能: 處理鍵盤響應 ;函數返回: Direction的值,gameover的值（按ESC時）;*Check_key procpush axpush bxpush cxpush dxpush sipush dimov ah , 01hint 16hjz check_nokey ;如果沒有按鍵就繼續(xù)mov ah , 0 ;取得掃描碼 int 16hpush

37、 ax cmp ah , SPACEjnz S2S1:mov ah,0int 16hcmp ah, SPACEjnz S1S2:pop axcmp ah , LEFT ;往左移動jz check_LEFTcmp ah , RIGHT ;往右邊移動jz check_RIGHTcmp ah , UP ;往上移動jz check_UPcmp ah , DOWN ;往下移動jz check_DOWNcmp ah , QUIT ;結束游戲jz check_QUITjmp check_nokeycheck_LEFT:mov ah , -1 ;(-1,0)mov al , 0mov bx , ax ;檢查是

38、否反向add bx , Directionjz check_nokeymov Direction , axjmp check_nokeycheck_RIGHT:mov ah , 1 ;(1,0)mov al , 0mov bx , ax ;檢查是否反向add bx , Directionjz check_nokeymov Direction , axjmp check_nokeycheck_UP:mov ah , 0 ;(0,-1)mov al , -1mov bx , Direction ;檢查是否反向sub bl , 1jz check_nokey mov Direction , axjm

39、p check_nokeycheck_DOWN:mov ah , 0 ;(0,1)mov al , 1 mov bx , Direction ;檢查是否反向add bl , 1jz check_nokeymov Direction , axjmp check_nokeycheck_QUIT:jmp check_exitcheck_exit: ;按下ESC鍵的情況mov gameover,1check_nokey:mov ah,0chmov al,0int 21hpop dipop sipop dxpop cxpop bxpop axretCheck_key endp;*;函數名: Check_

40、die;功能: 處理死亡的響應;傳遞參數: SI,DI為當前蛇頭部的坐標 ;函數返回: 蛇參數的值;*Check_die procpush axpush bxpush cxpush dxpush sipush dicmp si , 50 ;檢查是否到達邊界jz deadcmp si , 255jz deadcmp di , 50jz deadcmp di , 255jz deadmov ax,si ;檢查是否接觸蛇身mov dh,al ;DX中獲得當前坐標mov ax,dimov dl,almov cx,0mov cl, Lensub cl,1 mov bx,offset Bodycheck_

41、die_loop:add bx , 2mov ax , bxcmp ax , dx ;取出蛇身信息進行比較jz dead ;觸及蛇身即死亡loop check_die_loopjmp nextdead:mov gameover,1 ;死亡即賦gameover值1next:pop dipop sipop dxpop cxpop bxpop axretCheck_die endp;*;函數名: Check_eat;功能: 處理吃到食物的響應;傳遞參數: SI,DI為當前蛇頭部的坐標 ;函數返回: cx;*Check_eat procpush axpush bxpush dxpush sipush

42、dimov cx,0mov ax , foodxmov bx , foodycmp ax , sijz ok1jmp check_eat_outok1: ;橫坐標相等cmp bx , dijz ok2jmp check_eat_outok2: ;縱坐標也相等 add point,1 ;加分mov cx,1check_eat_out:pop dipop sipop dxpop bxpop axretCheck_eat endp;*;函數名: Run_snake;功能: 蛇運動;*run_snake procpush axpush bxpush cxpush dxpush sipush dimov dx, 0005hcall SetGbmov bl,whitelea bp,msg6mov cx,30call Msgloop1:call Delaymov al,1cmp al,gameoverjz stopmov bx , offset Bodymov cx,0mov cl,Lenadd bx,cxadd bx,cxsub bx,2A1:mov ax,bx mov bx+2,axsub bx,2loop A1addhead: mov bx , offset Body ;增加新頭部并改寫數據mov a