【正文】 ov ah,0ch mov al,0 int 21h pop di pop si pop dx pop cx pop bx pop ax ret Check_key endp 。傳遞參數(shù) : SI,DI 為當(dāng)前蛇頭部的坐標(biāo) 。檢查是否接觸蛇身 mov dh,al 。死亡即賦 gameover值 1 next: pop di pop si pop dx pop cx pop bx pop ax ret Check_die endp 。傳遞參數(shù) : SI,DI 為當(dāng)前蛇頭部的坐標(biāo) ?？v坐標(biāo)也相等 add point,1 。功能 : 蛇運(yùn)動(dòng) 。坐標(biāo)加方向 mov [bx] , ax 。檢查吃 cmp cx,1 jz A2 mov bx , offset Body mov ax,0 add Len,1 mov al , Len add bx , ax 。蛇運(yùn)動(dòng)循環(huán) DATAS SEGMENT stop: pop di pop si pop dx pop cx pop bx pop ax ret run_snake endp 。****************************************************************************************** Init_snake proc push ax push bx push cx push dx push si push di mov al , 4 mov Len, al 。生成第一個(gè)蛇 mov ax , [bx] mov dx , Direction sub ah , dh 。開始畫第一個(gè)蛇 mov cx,0 mov cl, Len mov dx,0 mov bx , offset Body init_print_loop: mov ax , [bx] mov dl , ah mov si , dx mov dl , al mov di , dx call cutsnake 。功能 : 清空游戲區(qū)域 。函數(shù)名 : HLine 。 si 起點(diǎn) 。函數(shù)返回 : 空 。循環(huán)畫線 mov cx , si int 10h add si , bx cmp si , di je M1_4 jmp M1_3 M1_4: pop di pop si pop dx 35 pop cx pop bx pop ax ret HLine endp 。傳遞參數(shù) : 。 al 顏色號(hào) 。負(fù)數(shù) jmp M2_2 。函數(shù)名 : Rec 。 si 左邊 。函數(shù)返回 : 空 。畫左邊線 pop cx inc di 。函數(shù)名 : Show_point 。取得目標(biāo)字符串地址 add bx, 7 。顯示字符串 pop di pop si pop dx pop cx pop bx pop ax 38 ret Show_point endp end main 。設(shè)置光標(biāo) mov bl,green lea bp,Score 。****************************************************************************************** Show_point proc push ax push bx push cx push dx push si push di mov ax,0 mov al, point 。畫右邊線 pop di pop si pop dx pop cx 37 pop bx pop ax ret Rec endp 。畫上邊線 pop dx call HLine 。 di 右邊 。傳遞參數(shù) : 。循環(huán)畫線 mov dx , si int 10h add si , bx cmp si , di je M2_4 jmp M2_3 M2_4: pop di pop si pop dx 36 pop cx pop bx pop ax ret VLine endp 。函數(shù)返回 : 空 。 si 起點(diǎn) 。函數(shù)名 : VLine 。負(fù)數(shù) jmp M1_2 。 al 顏色號(hào) 。傳遞參數(shù) : 。填充一遍黑顏色 cmp ax,50 jz clear_loop1_over clear_loop2: cmp dx,50 jz clear_loop2_over mov si,ax mov di,dx call clearcut inc dx jmp clear_loop2 clear_loop2_over: mov dx,0 inc ax jmp clear_loop1 clear_loop1_over: pop di pop si pop dx 34 pop cx pop bx pop ax ret clear_area endp 。****************************************************************************************** 。坐標(biāo) y減方向 add bx , 2 mov [bx] , ax 。初始方向?yàn)橛? mov Direction,ax mov gameover,0 mov point,0 mov bx , offset Body mov ch , 25 。函數(shù)名 : Init_snake 。畫新頭部 call getfood A3: call show_point call check_key 。為 check_die 準(zhǔn)備參數(shù) si,di mov dl , ah mov si , dx mov dl , al mov di , dx call check_die 。增加新頭部并改寫數(shù)據(jù) mov ax , [bx] mov dx , Direction add ah , dh 。****************************************************************************************** 。****************************************************************************************** 29 Check_eat proc push ax push bx push dx push si push di mov cx,0 mov ax , foodx mov bx , foody cmp ax , si jz ok1 jmp check_eat_out ok1: 。函數(shù)名 : Check_eat 。取出蛇身信息進(jìn)行比較 jz dead 。****************************************************************************************** Check_die proc push ax push bx push cx push dx 28 push si push di cmp si , 50 。函數(shù)名 : Check_die 。(0,1) mov al , 1 mov bx , Direction 。(1,0) mov al , 0 mov bx , ax 。往下移動(dòng) jz check_DOWN cmp ah , QUIT 。取得掃描碼 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 。功能 : 處理鍵盤響應(yīng) 。功能 : 延時(shí) 。乘象素值 add ax,leftline mov cx,ax pop dx mov ah,0dh mov bh,0 int 10h cmp al,snake_color jz M1 call cutfood 。賦予食物坐標(biāo) y mov si,foodx mov di,foody mov ax,di 。產(chǎn)生隨機(jī)數(shù) mov foodx,ax 。功能 : 產(chǎn)生新食物 ,即隨機(jī)產(chǎn)生一組 49*49 的坐標(biāo) 。****************************************************************************************** Rand proc push bx push cx push dx push si mov ah,2ch int 21h mov ax,dx mov dx,0 mov bx,si 。函數(shù)名 : Rand 。乘象素值 add ax,leftline 。取坐標(biāo)值 mul cut_y 。 si/di 游戲空間列 /游戲空間行 (50*50) 。****************************************************************************************** 。取坐標(biāo)值 mul cut_x 。置顏色 mov ax,di 。傳遞參數(shù) : 。Rec 的參數(shù)是 cl顏色 si左邊 bx上邊 di右邊 dx下邊 pop di pop si pop dx pop cx pop bx pop ax ret cutsnake endp 。加上邊界 mov bx , ax add ax , 2 mov dx , ax push bx push dx mov ax,si 。****************************************************************************************** cutsnake proc near push ax push bx push cx push dx push si push di mov cl, snake_color 。函數(shù)名 : cutsnake 。設(shè)置光標(biāo) call SetGb mov bl , white lea bp , msg4 。****************************************************************************************** show_start_msg proc near push ax 20 push bx push cx push dx mov dx,1426h call SetGb mov bl,0a1h l