【正文】 op cx pop bx pop ax ret run_snake endp getfood 函數(shù) 設置了一個隨機數(shù)坐標 x 最大值 50，調用 Rand 函數(shù)獲取隨機 x 軸坐標，同 9 理可得隨機 y 軸坐標，該坐標就是食物的隨機坐標。調用 cutfood 函數(shù)，將隨機食物在顯示屏輸出 getfood proc push ax push bx push cx push dx push si push di M1: mov si,50 。置隨機數(shù)范圍（最大值 +1） call Rand 。產生隨機數(shù) mov foodx,ax 。賦予食物坐標 x mov si,50 。置隨機數(shù)范圍（最大值 +1） call Rand 。產生隨機數(shù) mov foody,ax 。賦予食物坐標 y mov si,foodx mov di,foody mov ax,di 。取坐標值 mul cut_y 。乘象素值 add ax,topline mov dx,ax push dx mov ax,si 。取坐標值 mul cut_x 。乘象素值 add ax,leftline mov cx,ax pop dx mov ah,0dh mov bh,0 int 10h cmp al,snake_color jz M1 call cutfood 。畫食物 pop di pop si pop dx pop cx pop bx pop ax ret getfood endp 10 Check_key 函數(shù) 響應鍵盤輸入，控制蛇的移動以及控制游戲退出 Check_key proc push ax push bx push cx push dx push si push di mov ah , 01h int 16h jz check_nokey 。如果沒有按鍵就繼續(xù) mov ah , 0 。取得掃描碼 int 16h push ax cmp ah , SPACE jnz S2 S1: mov ah,0 int 16h cmp ah, SPACE jnz S1 S2: pop ax cmp ah , LEFT 。往左移動 jz check_LEFT cmp ah , RIGHT 。往右邊移動 jz check_RIGHT cmp ah , UP 。往上移動 jz check_UP cmp ah , DOWN 。往下移動 jz check_DOWN cmp ah , QUIT 。結束游戲 jz check_QUIT jmp check_nokey check_LEFT: mov ah , 1 。(1,0) mov al , 0 mov bx , ax 。檢查是否反向 add bx , Direction jz check_nokey mov Direction , ax jmp check_nokey check_RIGHT: 11 mov ah , 1 。(1,0) mov al , 0 mov bx , ax 。檢查是否反向 add bx , Direction jz check_nokey mov Direction , ax jmp check_nokey check_UP: mov ah , 0 。(0,1) mov al , 1 mov bx , Direction 。檢查是否反向 sub bl , 1 jz check_nokey mov Direction , ax jmp check_nokey check_DOWN: mov ah , 0 。(0,1) mov al , 1 mov bx , Direction 。檢查是否反向 add bl , 1 jz check_nokey mov Direction , ax jmp check_nokey check_QUIT: jmp check_exit check_exit: 。按下 ESC 鍵的情況 mov gameover,1 check_nokey: mov ah,0ch mov al,0 int 21h pop di pop si pop dx pop cx pop bx pop ax ret Check_key endp 12 3 系統(tǒng)測試及改進 程序測試 打開程序，顯示歡迎界面，提醒用戶輸入， 按任意鍵進入程序，游戲開始時，貪吃蛇默認向右移動，使用鍵盤的上下左右控制貪吃蛇的前進的方向，最下方的 Score 實時更新分數(shù)，游戲過程中空格鍵可以暫停和繼續(xù)、 13 每吃一個食物， Socre+100，蛇身長度 +1 當蛇頭撞墻之后，彈出信息 — Game is over！程序中斷，提示并等待用戶操作，當按 ESC 鍵時退回主界面，按空格鍵重新開始游戲，此時分數(shù)歸零，蛇身長度也恢復到開始時的默認值 14 如圖，當蛇頭撞上蛇身時，等同蛇頭撞上墻壁 系統(tǒng)改進 （ 1）游戲制作的精細度和畫面的質量有待提高，改善蛇和食物的樣子 （ 2）聯(lián)機，可以多臺機器聯(lián)機比賽， （ 3）可以記錄歷史最好成績 （ 4）某些食物具有特效，比如縮短蛇身的長度，可以穿墻 （ 5）可以改變游戲的速度， （ 6）長時間游戲提醒玩家休息 （ 7）實現(xiàn)背景音樂 （ 8）可以選擇不同形狀的蛇身，改變蛇的顏色 （ 9）可以保存當前游戲，玩家下次可以繼續(xù)當前游戲 15 4 源碼 .model small .stack 200 .data Len db ? 。蛇的長度 Body dw 200 dup(0) 。蛇的身體位置 Direction dw 256 Score db 39。Score0000039。 。得分 snake_color db 0ah 。蛇顏色 food_color db 0ch 。食物色 speed db 0 。速度 gameover db 0 。游戲結束標記 Point db 0 。得分數(shù) foodX dw ? 。食物坐標 foodY dw ? seed dw 2 。隨即數(shù)種子 。****************************************************************************************** 。顯示方面的參數(shù) topline dw 20 。上邊界 leftline dw 60 。左邊界 cut_x dw 4 。每格寬 cut_y dw 3 。每格長 max_x dw 49 。最大格數(shù)（橫） max_y dw 49 。最大格數(shù)（縱） msg1 db 39。Greedy Snakes39。 msg2 db 39。by:xiaobin39。 msg3 db 39。Game is over!39。 msg4 db 39。Press any key for start! Esc for exit39。 msg5 db 39。ESC for back, Space for retry39。 msg6 db 39。press space for pause/continue39。 msg7 db 39。 39。 title1 db 6 dup(20h), 5 dup(0dch), 5 dup(20h) ,5 dup(0dch), 5 dup(20h) 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),0fdh yello db 0eh green db 02h white db 0fh 16 blue db 01h 。****************************************************************************************** 。鍵盤掃描碼 LEFT EQU 4Bh RIGHT EQU 4Dh UP EQU 48h DOWN EQU 50h QUIT EQU 01h SPACE EQU 39h .code main proc far mov ax , @data mov ds , ax start: mov ah , 00 mov al , 12h int 10h 。設置圖形模式 640*480 call show_start_msg 。顯示開始提示信息 call show_title mov ah , 00h int 16h 。等待按鍵 cmp ah , QUIT jz does 。ESC 則退出，否則進入游戲 game_start: mov ah , 00 。設置圖形模式 320*200，游戲在此模式下運行 mov al , 13h int 10h mov cl , 7 。邊框顏色 mov si , 59 mov bx , 19 mov di , 260 mov dx , 170 call rec 。打印邊框 call clear_area 。游戲區(qū)域清空（效果） call Init_snake 。初始化蛇 call getfood 。得到第一個食物 call run_snake 。開始運動蛇 exit: mov dx , 1010h 。設置光標 call SetGb 。設置光標位置 mov bl , white 。顯示死亡信息 lea bp , msg3 mov cx , 13 17 call Msg 。顯示字符串 mov dx , 1605h mov bl , white 。顯示提示信息 lea bp , msg5 mov cx , 29 call Msg exit_loop: mov ah , 00h int 16h 。等待按鍵 cmp ah , QUIT jz start cmp ah , SPACE jz game_start jmp exit_loop 。返回開始 does: mov ah , 00 mov al , 03 int 10h 。設置文本模式 mov ah , 4ch int 21h 。退出到 DOS main endp 。************************************************************************************