game2.asm

不错

include	f:\hong.inc
data	segment
lijiang	db "Made by Sun Baolei$" ;初始菜单内容
no	db "NO.:020802217$"
meg	db "Let us have a game!!Come on!!$"
meg1 	db "**Select Menu**$"
meg2 	db "Please select the game speed,ESC to quit.$"
meg3 	db "1.Very slow Too easy,speed up!$"
meg4 	db "2.Slow Everybody can deal.$"
meg5 	db "3.Nomal I think you can deal!$"
meg6 	db "4.Fast A challenge.Pay attention!$"
meg7 	db "5.Very Fast Too hard,Have a try?$"
meg8 	db "6.Fastest Are you crazy??$"
meg9 	db "*Select the number among 1-6 and press ENTER to start!*$"
meg10 	db "Game Speed Select:$"

hotkey 	db "When you are playing games:$" ;显示功能键内容
hotkey1 db "ESC to return to menu$"
hotkey2 db "SPACE to pause the game$"
hotkey3 db "Press any key to play games......$"
hotkey4 db "Are you ready??$"

failmeg  db "The letter is arrive the bottom, You are lost ! :($" ;显示游戏失败后的信息
failmeg0 db "Press ENTER to go on......$"
failmeg1 db "Game is over!$"
failmeg2 db "Press ENTER to return menu and press ESC to exit!$"
failmeg3 db "Bye-Bye!Thank for your playing!!$"
failmeg4 db "Press any key to quit......$"

speed dw 00d,1200d,800d,600d,400d,200d,100d ;时间延迟

letters db "jwmilzoeucgpravskntxhdyqfb" ;字母数组
	db "iytpkwnxlsvxrmofzhgaebudjq"
	db "nwimzoexrphysfqtvdcgljukda"
letters_bak db "jwmilzoeucgpravskntxhdyqfb" 
	    db "iytpkwnxlsvxrmofzhgaebudjq" 
	    db "nwimzoexrphysfqtvdcgljukda";由于第二次运行游戏时内存中的内容已经改变，故重新初始化

letter_counter 	 db 0 
life_flag 	 db 78 dup(0)
position_flag 	 db 78 dup(0) 
present_position db 1 
data ends

stack segment para stack 'stack'
	db 64 dup(0)
stack ends
;--------------------------------
code segment
main proc far
assume cs:code,ds:data,ss:stack
start:
	mov ax,data
	mov ds,ax
;--------------------------------
	mov letter_counter,00h 
	mov present_position,1 
	lea si,position_flag ；位置状态数组，初始为零，1表示已经遍历过了
	mov ah,00h
	mov cx,00h
init_postion_flag: 	   ；位置状态数组清零
	mov [si],ah
	inc si
	inc cx
	cmp cx,78d
	jne init_postion_flag

	lea di,letters 
	lea si,letters_bak
	mov cx,00h
init_letters:			；备份字母数组
	mov ah,[si]
	mov [di],ah
	inc si
	inc di
	inc cx
	cmp cx,78d
	jne init_letters

	mov ah,00h
	lea si,life_flag
	mov cx,00h
init_life_flag:			；初始化
	mov [si],ah
	inc si
	inc cx
	cmp cx,78d
	jne init_life_flag

	mov cx,00h 
	mov ah,01h 
	or  ch,00010000b
	int 10h			；置光标类型

	clear_screen 00d,00d,24d,79d ；清屏
	Init_game 00d,00d,0ah,dl,80d,nextsign1
	Init_game 24d,00d,0ah,dl,80d,nextsign2
	Init_game 00d,00d,0ah,dh,25d,nextsign3
	Init_game 00d,79d,0ah,dh,25d,nextsign4

	menu 01d,15d,meg ;菜单信息的宏展开
	menu 01h,61d,lijiang 
	menu 03d,20d,meg1
	menu 03d,68d,no
	menu 05d,15d,meg2
	menu 07d,15d,meg3
	menu 09d,15d,meg4
	menu 11d,15d,meg5
	menu 13d,15d,meg6
	menu 15d,15d,meg7
	menu 17d,15d,meg8
	menu 19d,15d,meg9
	menu 22d,15d,meg10

 

 

	input: mov ah,02h 
	mov bh,00h
	mov dh,22d
	mov dl,33d
	int 10h

	mov ah,0ah
	mov al," "
	mov bh,00h
	mov cx,01h
	int 10h

	mov ah,01h
	int 21h
	retry: cmp al,"1"
	je speed1
	cmp al,"2"
	je speed2
	cmp al,"3"
	je speed3
	cmp al,"4"
	je speed4
	cmp al,"5"
	je speed5
	cmp al,"6"
	je speed6
	cmp al,1bh
	je to_over0
	jmp input

	to_over0:jmp over 

speed1: mov ah,01h 
	int 21h
	cmp al,0dh
	jne otherkey
	mov ax,speed+2
	mov speed,ax
	jmp begin 

speed2: mov ah,01h 
	int 21h
	cmp al,0dh
	jne otherkey
	mov ax,speed+4
	mov speed,ax
	jmp begin

speed3: mov ah,01h 
	int 21h
	cmp al,0dh
	jne otherkey
	mov ax,speed+6
	mov speed,ax
	jmp begin

speed4: mov ah,01h 
	int 21h
	cmp al,0dh
	jne otherkey
	mov ax,speed+8
	mov speed,ax
	jmp begin

speed5: mov ah,01h 
	int 21h
	cmp al,0dh
	jne otherkey
	mov ax,speed+10
	mov speed,ax
	jmp begin

speed6: mov ah,01h 
	int 21h
	cmp al,0dh
	jne otherkey
	mov ax,speed+12
	mov speed,ax
	jmp begin 

otherkey: 	; 处理重复输入的代码段

	push ax
	mov ah,02h
	mov bh,00h
	mov dh,22d
	mov dl,34d
	int 10h

	mov ah,0ah
	mov al," "
	mov bh,00h
	mov cx,01h
	int 10h

	mov ah,02h
	mov bh,00h
	mov dh,22d
	mov dl,33d
	int 10h
	pop ax

	mov dx,ax
	mov ah,02h
	int 21h

	jmp retry 

	begin: 

	clear_screen 01d,01d,23d,78d 

	menu 08d,20d,hotkey 
	menu 10d,20d,hotkey1
	menu 12d,20d,hotkey2
	menu 14d,20d,hotkey4
	menu 16d,20d,hotkey3

	mov ah,07h
	int 21h

	clear_screen 01d,01d,23d,78d 
	Init_game 23d,01d,01h,dl,78d,nextsign5

	mov ah,02h ;光标初始化
	mov bh,00h
	mov dh,01h
	mov dl,01h
	int 10h

	mov cx,00h 
	lea si,letters
	nextletter: ; 初始化屏幕上方的字母
	mov ah,02h
	mov dl,[si]
	int 21h

	inc si
	inc cx
	cmp cx,78d
	je nextcycle
	jmp nextletter

	from_front: ; 相关循环的算法
	sub present_position,78d 
	jmp gobackto_si

	find_zero:cmp letter_counter,78d 
	je recycle

	cmp present_position,78d
	je from_one

	mov ah,00h
	nextsi: add present_position,01h
	inc si
	cmp [si],ah
	je gobackto_di

	cmp present_position,78d
	je from_one

	jmp nextsi

 

	from_one:mov present_position,01h 

	jmp gobackto_si

	recycle:mov letter_counter,00h
	mov present_position,01d
	lea si,position_flag
	mov cx,00h

mov ah,00h
clearsi: mov [si],ah
inc cx
cmp cx,78d
je nextcycle
inc si
jmp clearsi

 

nextcycle: 
lea di,letters
lea si,position_flag
add present_position,31d
cmp present_position,78
ja from_front

gobackto_si:
add si,word ptr present_position
dec si
mov ah,[si]
cmp ah,01h
je find_zero

gobackto_di:
mov ah,01h
mov [si],ah
add di,word ptr present_position
dec di
mov dl,present_position

 

mov ah,02h ; 字母下落的代码段部分
mov bh,00h 
mov dh,01h
int 10h

mov cx,00h
nextrow:push cx ; 新的一行

mov cx,00h
out_cycle: ; 延迟
 
push cx
mov cx,00h
in_cycle:
add cx,01h
cmp cx,50000d
jne in_cycle 

push dx
mov ah,06h
mov dl,0ffh
int 21h
pop dx

jz pass ; 如果键盘缓冲区部分为空,则跳转

cmp al,1bh ; 如果键入ESC，则返回主菜单
je to_start1

cmp al," " ;如果键入SPACE，则游戏暂停
je pause

cmp al,[di] ;输入字母正确！跳转!
je disappear

 

pass:
pop cx
inc cx
cmp cx,speed
je print
jmp out_cycle

pause: push dx ;暂停处理
mov ah,06h
mov dl,0ffh
int 21h
pop dx
cmp al," "
jne pause

jmp pass

to_start1: ;返回主菜单
jmp start 

print: 

mov ah,0ah 
mov al," "
mov bh,00h
mov cx,01h
int 10h

inc dh
mov ah,02h
mov bh,00h
int 10h

mov ah,0ah
mov al,[di]
mov bh,00h
mov cx,01h
int 10h

pop cx
inc cx
cmp cx,21d
je print_next_letter
jmp nextrow ; 下一行

disappear: ; 击中字母后的相关处理
pop cx
pop cx

mov ah,0ah
mov al," "
mov bh,00h
mov cx,01h
int 10h

jmp hit 

print_next_letter: ; 处理原位置的空缺
lea si,life_flag
add si,word ptr present_position
dec si

mov ah,[si]
cmp ah,1
je fail

mov ah,0ah
mov al," "
mov bh,00h
mov cx,01h
int 10h

inc dh 
mov ah,02h
mov bh,00h
int 10h

mov ah,0ah
mov al," "
mov bh,00h
mov cx,01h
int 10h

mov ah,1
mov [si],ah

hit: mov ah,02h
mov bh,00h
mov dh,01h
mov dl,present_position
int 10h

mov al,[di] ; 出现下一个新字母的数法
add al,7
cmp al,7ah
ja convey_letter
mov ah,0ah
mov bh,00h
mov cx,01h
int 10h

mov [di],al
add letter_counter,01h
jmp nextcycle

convey_letter: 
sub al,7ah
add al,61h
mov ah,0ah
mov bh,00h
mov cx,01h
int 10h

mov [di],al
add letter_counter,01h
jmp nextcycle 

fail: mov ah,0ah ;游戏失败后的相关处理
mov al," "
mov cx,01h
int 10h

inc dh
mov ah,02h
mov bh,00h
int 10h

mov ah,0ah
mov al,[di]
mov bh,00h
mov cx,01h
int 10h

mov ah,02h
mov bh,00h
mov dh,12d
mov dl,17d
int 10h

push dx
mov ah,09h
lea dx,failmeg
int 21h
pop dx

add dh,2
mov ah,02h
mov bh,00h 
int 10h

mov ah,09h
lea dx,failmeg0
int 21h

re: mov ah,07h
int 21h
cmp al,0dh
jne re

clear_screen 01,01,23,78
mov ah,02h
mov bh,00h
mov dh,11d
mov dl,20d
int 10h

push dx
mov ah,09h
lea dx,failmeg1
int 21h
pop dx

inc dh
inc dh
mov ah,02h
mov bh,00h
int 10h

mov ah,09h
lea dx,failmeg2
int 21h

notkey: 
mov ah,07h
int 21h
cmp al,0dh
je to_start
cmp al,1bh
je over
jmp notkey
to_start: 
clear_screen 00,00,24,79
jmp start

over: clear_screen 01,01,23,78 
mov ah,02h
mov bh,00h
mov dh,11d
mov dl,15h
int 10h

mov ah,09h
lea dx,failmeg3
int 21h

mov ah,02h
mov bh,00h
mov dh,13d
mov dl,15h
int 10h

mov ah,09h
lea dx,failmeg4
int 21h

mov ah,07h
int 21h

mov ah,07h
int 21h

clear_screen 00,00,24,79 

mov ax,4c00h
int 21h

main endp
code ends
end start