【正文】 ood 函數(shù) 設置了一個隨機數(shù)坐標 x 最大值 50，調(diào)用 Rand 函數(shù)獲取隨機 x 軸坐標，同 9 理可得隨機 y 軸坐標，該坐標就是食物的隨機坐標。置隨機數(shù)范圍（最大值 +1） call Rand 。賦予食物坐標 x mov si,50 。產(chǎn)生隨機數(shù) mov foody,ax 。取坐標值 mul cut_y 。取坐標值 mul cut_x 。畫食物 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 。取得掃描碼 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_RIGHT cmp ah , UP 。往下移動 jz check_DOWN cmp ah , QUIT 。(1,0) mov al , 0 mov bx , ax 。(1,0) mov al , 0 mov bx , ax 。(0,1) mov al , 1 mov bx , Direction 。(0,1) mov al , 1 mov bx , Direction 。按下 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）游戲制作的精細度和畫面的質(zhì)量有待提高，改善蛇和食物的樣子 （ 2）聯(lián)機，可以多臺機器聯(lián)機比賽， （ 3）可以記錄歷史最好成績 （ 4）某些食物具有特效，比如縮短蛇身的長度，可以穿墻 （ 5）可以改變游戲的速度， （ 6）長時間游戲提醒玩家休息 （ 7）實現(xiàn)背景音樂 （ 8）可以選擇不同形狀的蛇身，改變蛇的顏色 （ 9）可以保存當前游戲，玩家下次可以繼續(xù)當前游戲 15 4 源碼 .model small .stack 200 .data Len db ? 。蛇的身體位置 Direction dw 256 Score db 39。 。蛇顏色 food_color db 0ch 。速度 gameover db 0 。得分數(shù) foodX dw ? 。隨即數(shù)種子 。顯示方面的參數(shù) topline dw 20 。左邊界 cut_x dw 4 。每格長 max_x dw 49 。最大格數(shù)（縱） msg1 db 39。 msg2 db 39。 msg3 db 39。 msg4 db 39。 msg5 db 39。 msg6 db 39。 msg7 db 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 。顯示開始提示信息 call show_title mov ah , 00h int 16h 。ESC 則退出，否則進入游戲 game_start: mov ah , 00 。邊框顏色 mov si , 59 mov bx , 19 mov di , 260 mov dx , 170 call rec 。游戲區(qū)域清空（效果） call Init_snake 。得到第一個食物 call run_snake 。設置光標 call SetGb 。顯示死亡信息 lea bp , msg3 mov cx , 13 17 call Msg 。顯示提示信息 lea bp , msg5 mov cx , 29 call Msg exit_loop: mov ah , 00h int 16h 。返回開始 does: mov ah , 00 mov al , 03 int 10h 。退出到 DOS main endp 。函數(shù)名 : SetGb 。傳遞參數(shù) : dh/dl 行 /列 。****************************************************************************************** 。功能 : 輸出字符串 。 bl 顏色號（ BL RGB IRGB） 18 。 cx 字符串長度 。****************************************************************************************** Msg proc near push ax push bx push es push ds pop es 。****************************************************************************************** 。功能 : 顯示開始提示信息 。****************************************************************************************** 。功能 : 顯示開始提示信息 。設置光標 mov bl,08h lea bp,msg2 。顯示字符串 mov dx , 1619h 。顯示提示信息 mov cx , 37 call Msg 。****************************************************************************************** 。功能 : 顯示蛇的一格 。 si/di 游戲空間列 /游戲空間行 (50*50) 。置顏色 mov ax,di 。乘象素值 add ax,topline 。取坐標值 mul cut_x 。加上邊界 mov si , ax add ax , 3 mov di , ax pop dx pop bx call Rec 。****************************************************************************************** 。功能 : 顯示食物 。 si/di 游戲空間列 /游戲空間行 (50*50) 。****************************************************************************************** cutfood proc near push ax push bx push cx push dx push si push di mov cl , food_color 。取坐標值 mul cut_y 。加上邊界 22 mov bx , ax add ax , 2 mov dx , ax push bx push dx mov ax,si 。乘象素值 add ax,leftline 。Rec 的參數(shù)是 cl顏色 si左邊 bx上邊 di右邊 dx下邊 pop di pop si pop dx pop cx pop bx pop ax ret cutfood endp 。函數(shù)名 : clearcut 。傳遞參數(shù) : 。函數(shù)返回 : 空 。置顏色 (黑 ) mov ax,di 。乘象素值 add ax,topline 。取坐標值 mul cut_x 。加上邊界 mov si , ax add ax , 3 mov di , ax pop dx pop bx call Rec 。****************************************************************************************** 。功能 : 產(chǎn)生指定范圍大小的隨機數(shù) 。函數(shù)返回 : ax 返回隨機數(shù)的值 。指定隨機數(shù)的范圍 div bx mov ax,dx pop si pop dx pop cx 24 pop bx ret Rand endp 。函數(shù)名 : getfood 。函數(shù)返回 : foodx 與 foody 的值 。置隨機數(shù)范圍（最大值 +1） call Rand 。賦予食物坐標 x mov si,50 。產(chǎn)生隨機數(shù) mov foody,ax 。取坐標值 mul cut_y 。取坐標值 mul cut_x 。畫食物 pop di