?? game.asm
字號:
ret
ManyBrick_setMap endp
;接受用戶輸入，并轉化為內部數據，有的立即響應，如：ESC退出
processUserInput proc
push ax
push bx
push cx
mov ah,1
int 16h
jz just_ignore
cmp game.ga_state,GS_OVER
jnz no_need_to_restart
jmp restart_the_game
no_need_to_restart:
mov ah,0
int 16h
cmp ah,KEY_ESC
jnz gameCont
;quit the game
jmp main_quit
gameCont:
cmp ah,KEY_PAUSE
jz away_for_a_while
cmp ah,KEY_QUICKLY
jz go_quickly
cmp ah,KEY_SLOW_DOWN
jz go_slow_down
cmp ah,KEY_LEFT
jz set_dir_left
cmp ah,KEY_RIGHT
jz set_dir_right
cmp ah,KEY_DOWN
jz set_dir_down
cmp ah,KEY_TURN
jz set_dir_turn
cmp ah,KEY_CHANG_MODE
jz set_mode
cmp ah,KEY_ROLATE
jnz just_ignore
set_dir_rolate:
mov dir,DIR_ROTATE
jmp just_ignore
set_dir_left:
mov dir,DIR_LEFT
jmp just_ignore
set_dir_right:
mov dir,DIR_RIGHT
jmp just_ignore
set_dir_turn:
mov dir,DIR_TURN
jmp just_ignore
set_mode:
inc mode
mov ax,mode
mov cx,3
call AXModCX
mov mode,cx
call showMode
jmp just_ignore
go_slow_down:
dec challenge
jmp adjustLevelDelt_adjust
go_quickly:
inc challenge
adjustLevelDelt_adjust:
and challenge,0fh
call showadjustLevelDelt
jmp just_ignore
away_for_a_while:
mov game.ga_state,GS_PAUSED
call doGamePaused
jmp just_ignore
set_dir_down:
mov dir,DIR_DOWN_COMPLETE
just_ignore:
pop cx
pop bx
pop ax
ret
processUserInput endp
;判斷方塊下一步是否能繼續，不能則轉updateGameState
Brick_goNext proc
push ax
push bx
push cx
push dx
push di
push si
mov si,dir
;shl si,1
mov bx,curMB
xor ax,ax
down_complete_agian:
mov cx,(ManyBrick ptr [bx]).mb_bCnt
lea di,(ManyBrick ptr [bx]).mb_sBrick
Brick_goNext_again:
;jc Brick_goNext_can
mov dl,(Brick ptr [di]).b_sPos.pos_bX
mov dh,(Brick ptr [di]).b_sPos.pos_bY
jmp cs:Brick_tryTable[si]
Brick_tryRight:
inc dl
jmp Brick_checkLegal
Brick_tryLeft:
dec dl
jmp Brick_checkLegal
Brick_tryDown:
inc dh
jmp Brick_checkLegal
Brick_tryTrun:
neg dl
jmp Brick_checkLegal
Brick_tryRotate:
xchg dl,dh
neg dh
Brick_checkLegal:
add dl,(ManyBrick ptr [bx]).mb_sPos.pos_bX
add dh,(ManyBrick ptr [bx]).mb_sPos.pos_bY
call isPosLeagel
js do_more_work
cmp dh,0
js go_next_check_again
;now 0<=dl<GM_WIDTH,0<=dh<GM_HEIGHT
call isPosNotEmpty
jne do_more_work
go_next_check_again:
add di,size Brick
loop Brick_goNext_again
cmp (ManyBrick ptr [bx]).mb_bCnt,1
jne more_than_one_brick
call drawMap
jmp clear_pre_brick_over
more_than_one_brick:
call ManyBrick_clearCur
clear_pre_brick_over:
jmp cs:Brick_goTable[si]
Brick_goRight_can:
inc (ManyBrick ptr [bx]).mb_sPos.pos_bX
jmp Brick_goNext_over
Brick_goLeft_can:
dec (ManyBrick ptr [bx]).mb_sPos.pos_bX
jmp Brick_goNext_over
Brick_goDown_can:
inc (ManyBrick ptr [bx]).mb_sPos.pos_bY
jmp Brick_goNext_over
Brick_goTrun_can:
call Brick_turn
jmp Brick_goNext_over
Brick_goRotate_can:
call Brick_rotate
jmp Brick_goNext_over
do_more_work:
;ignor the left or right or down_complete lead to death
cmp dir,DIR_DOWN
jne ring_up_and_ignore
call updateGameState
jmp Brick_goNext_over
ring_up_and_ignore:
mov ax,1
Brick_goNext_over:
cmp ax,0
jne Brick_go_over
cmp dir,DIR_DOWN_COMPLETE
je down_complete_agian
Brick_go_over:
pop si
pop di
pop dx
pop cx
pop bx
pop ax
ret
Brick_tryTable dw Brick_tryRight , Brick_tryLeft , Brick_tryDown , Brick_tryRotate , Brick_tryDown , Brick_tryTrun
Brick_GoTable dw Brick_goRight_can , Brick_goLeft_can , Brick_goDown_can , Brick_goRotate_can , Brick_goDown_can , Brick_goTrun_can
Brick_goNext endp
;在方塊不能繼續下落時，轉到此，判斷游戲結束，檢查滿行，產生新塊等。
updateGameState proc
call isGameOver
cmp game.ga_state,GS_RUNNING
jne game_is_not_running
call lastBattle
call MB_gernicNext
call drawNextBrick
game_is_not_running:
ret
updateGameState endp
;旋轉較為麻煩，單獨成子程序
Brick_rotate proc
push bx
push cx
push di
push ax
mov bx,curMB
mov cx,(ManyBrick ptr [bx]).mb_bCnt
lea di,(ManyBrick ptr [bx]).mb_sBrick
Brick_rotate_again:
sub cx,1
jc Brick_rotate_over
;rotate it
neg (Brick ptr [di]).b_sPos.pos_bX
mov al,(Brick ptr [di]).b_sPos.pos_bY
xchg al,(Brick ptr [di]).b_sPos.pos_bX
mov (Brick ptr [di]).b_sPos.pos_bY,al
add di,size Brick
jmp Brick_rotate_again
Brick_rotate_over:
pop ax
pop di
pop cx
pop bx
ret
Brick_rotate endp
;同旋轉，水平翻轉也獨立成子程序
Brick_turn proc
push bx
push cx
push di
push ax
mov bx,curMB
mov cx,(ManyBrick ptr [bx]).mb_bCnt
lea di,(ManyBrick ptr [bx]).mb_sBrick
Brick_turn_again:
sub cx,1
jc Brick_turn_over
;turn it
neg (Brick ptr [di]).b_sPos.pos_bX
add di,size Brick
jmp Brick_turn_again
Brick_turn_over:
pop ax
pop di
pop cx
pop bx
ret
Brick_turn endp
;隨機生成下一個方塊
MB_gernicNext proc
push ax
push bx
push cx
push si
push di
lea cx,mbArray
mov di,cx
mov ax,1
sub ax,nextNO
jnz cur_will_be_zero
add cx,size ManyBrick
jmp set_next_cur_over
cur_will_be_zero:
add di,size ManyBrick
set_next_cur_over:
mov curMB,cx
mov nextNO,ax
mov nextMB,di
;di----ManyBrick *
assignBase X_START,Y_START
call getRand
and al,07h ;ensure the brick's color is <=8 and >=1
jnz brick_color_ok
inc al
brick_color_ok:
or al,8
mov (ManyBrick ptr [di]).mb_bColor,al
mov (ManyBrick ptr [di]).mb_bCnt ,4
lea bx,(ManyBrick ptr [di]).mb_bCnt
;si---Brick *
lea si,(ManyBrick ptr [di]).mb_sBrick
call getRand
;now di is use for other
mov di,ax
call getProperIndex
shl di,1
jmp MB_gernicNext_jmpTable[di]
MBM_gernicNext_Style_0:
assignPos -1,0
assignPos 0,0
assignPos 1,0
assignPos 2,0
jmp MBM_gernicNext_over
MBM_gernicNext_Style_1:
assignPos 0,0
assignPos 1,0
assignPos 0,-1
assignPos 1,-1
jmp MBM_gernicNext_over
MBM_gernicNext_Style_2:
assignPos -1,0
assignPos 0,0
assignPos 1,0
assignPos 0,-1
jmp MBM_gernicNext_over
MBM_gernicNext_Style_3:
assignPos -1,0
assignPos 0,0
assignPos 0,-1
assignPos 1,-1
jmp MBM_gernicNext_over
MBM_gernicNext_Style_4:
assignPos 0,0
assignPos 0,-1
assignPos 0,-2
assignPos 1,0
jmp MBM_gernicNext_over
MBM_gernicNext_Style_5:
mov (ManyBrick ptr [bx]).mb_bCnt,1
assignPos 0,0
jmp MBM_gernicNext_over
MBM_gernicNext_Style_6:
mov (ManyBrick ptr [bx]).mb_bCnt,2
assignPos 0,0
assignPos 0,1
jmp MBM_gernicNext_over
MBM_gernicNext_Style_7:
mov (ManyBrick ptr [bx]).mb_bCnt,3
assignPos 0,0
assignPos -1,0
assignPos 1,0
jmp MBM_gernicNext_over
MBM_gernicNext_Style_8:
mov (ManyBrick ptr [bx]).mb_bCnt,3
assignPos 0,0
assignPos -1,0
assignPos 0,-1
jmp MBM_gernicNext_over
MBM_gernicNext_Style_9:
mov (ManyBrick ptr [bx]).mb_bCnt,2
assignPos 0,0
assignPos 1,-1
jmp MBM_gernicNext_over
;the next styles but style_F may more difficult
MBM_gernicNext_Style_A:
mov (ManyBrick ptr [bx]).mb_bCnt,3
assignPos 0,0
assignPos -1,0
assignPos 1,-1
jmp MBM_gernicNext_over
MBM_gernicNext_Style_B:
mov (ManyBrick ptr [bx]).mb_bCnt,3
assignPos -1,0
assignPos 1,0
assignPos 0,-1
jmp MBM_gernicNext_over
MBM_gernicNext_Style_C:
mov (ManyBrick ptr [bx]).mb_bCnt,3
assignPos 0,0
assignPos -1,1
assignPos 1,-1
jmp MBM_gernicNext_over
MBM_gernicNext_Style_D:
mov (ManyBrick ptr [bx]).mb_bCnt,4
assignPos 0,0
assignPos -1,0
assignPos -1,-1
assignPos 1,-1
jmp MBM_gernicNext_over
MBM_gernicNext_Style_E:
mov (ManyBrick ptr [bx]).mb_bCnt,4
assignPos 0,-1
assignPos -1,0
assignPos 1,0
assignPos 0,1
jmp MBM_gernicNext_over
MBM_gernicNext_Style_F:
mov (ManyBrick ptr [bx]).mb_bCnt,1
MBM_gernicNext_over:
pop di
pop si
pop cx
pop bx
pop ax
ret
;跳轉表
MB_gernicNext_jmpTable dw MBM_gernicNext_Style_0,MBM_gernicNext_Style_1,MBM_gernicNext_Style_2,MBM_gernicNext_Style_3,\
MBM_gernicNext_Style_4,MBM_gernicNext_Style_5,MBM_gernicNext_Style_6,MBM_gernicNext_Style_7,\
MBM_gernicNext_Style_8,MBM_gernicNext_Style_9,MBM_gernicNext_Style_A,MBM_gernicNext_Style_B,\
MBM_gernicNext_Style_C,MBM_gernicNext_Style_D,MBM_gernicNext_Style_E,MBM_gernicNext_Style_F
MB_gernicNext endp
;根據當前關數，選擇下一個方塊的類型
;關數越高，類型越簡單^_^
;in: di--the random number
;out: 0<=di <=0fh
getProperIndex proc
push ax
push dx
push cx
mov dx,level
add dx,challenge
cmp dx,1
jbe style_less_16
cmp dx,4
jbe style_less_13
mov cx,10
jmp set_style_out
style_less_16:
mov cx,16
jmp set_style_out
style_less_13:
mov cx,13
set_style_out:
xor dx,dx
mov ax,di
div cx
mov di,dx
pop cx
pop dx
pop ax
ret
getProperIndex endp
;顯示當前正下落的方塊s
ManyBrick_drawSelf proc
push ax
mov al,CHAR_BRICK
call ManyBrick_drawCur
pop ax
ret
ManyBrick_drawSelf endp
;用空格清除當前下落方塊
ManyBrick_clearCur proc
push ax
push cx
push di
mov al,CHAR_CLEAR
mov di,curMB
mov cl,(ManyBrick ptr [di]).mb_bColor
mov (ManyBrick ptr [di]).mb_bColor,COLOR_CLEAR
call ManyBrick_drawCur
mov (ManyBrick ptr [di]).mb_bColor,cl
pop di
pop cx
pop ax
ret
ManyBrick_clearCur endp
;顯示當前正下落的方塊s,方塊形狀（字符）al可變,用于擦除與顯示
;in: ManyBrick *curBrick
; al--the char
ManyBrick_drawCur proc
push cx
push si
push dx
push di
push bx
mov di,curMB
mov cx,(ManyBrick ptr [di]).mb_bCnt
lea si,(ManyBrick ptr [di]).mb_sBrick
drawCur_again:
mov dh,(Brick ptr [si]).b_sPos.pos_bY
add dh,(ManyBrick ptr [di]).mb_sPos.pos_bY
cmp dh,0
js ManyBrick_drawCur_ignore
mov dl,(Brick ptr [si]).b_sPos.pos_bX
add dl,(ManyBrick ptr [di]).mb_sPos.pos_bX
mov bl,(ManyBrick ptr [di]).mb_bColor
call drawBrick
ManyBrick_drawCur_ignore:
add si,size Brick
loop drawCur_again
pop bx
pop di
pop dx
pop si
pop cx
ret
ManyBrick_drawCur endp
;顯示游戲區域邊框
;in: dh--y ,dl--x; al---char; bl---color
moreBeautiful proc
mov bl,Y_BOUND_COLOR
mov dh,-1
mov cx,GM_HEIGHT+2
draw_yBound_again:
mov dl,-1
mov al,Y_LBOUND_CHAR
call drawBrick
mov dl,GM_WIDTH
mov al,Y_RBOUND_CHAR
call drawBrick
inc dh
loop draw_yBound_again
mov bl,X_BOUND_COLOR
mov cx,GM_WIDTH
mov dl,0
draw_xBound_again:
mov dh,-1
mov al,X_UBOUND_CHAR
call drawBrick
mov dh,GM_HEIGHT
mov al,X_DBOUND_CHAR
call drawBrick
inc dl
loop draw_xBound_again
;顯示版本信息
mov si,offset gameNameStr
mov dl,X_GAME_NAME
mov dh,Y_GAME_NAME
mov cx,8
call showStr
ret
moreBeautiful endp
;判斷(dl,dh)是否在游戲區域內,注意未判斷dl是否小于0
;in: dl--x, dh--y
isPosLeagel proc
push ax
cmp dl,0
js isPosLeagel_return
mov al,GM_WIDTH-1
cmp al,dl
js isPosLeagel_return
;cmp dh,0
;js isPosLeagel_return
mov al,GM_HEIGHT-1
cmp al,dh
isPosLeagel_return:
pop ax
ret
isPosLeagel endp
;在(dl,dh)處以bl顏色顯示一個al
;in: dl--x, dh--y; al---char; bl---color
drawBrick proc
push dx
push bx
push cx
push ax
;設置輸出位置為(dl,dh)
add dl,GM_LEFT
add dh,GM_TOP
mov ah,02h
xor bh,bh
int 10h
pop ax
push ax
;在當前位置輸出字符al
mov ah,09h
mov cx,1
int 10h
pop ax
pop cx
pop bx
pop dx
ret
drawBrick endp
;在(dl,dh)處顯示字符串(首地址si,長度cx,顏色默認)
;in: si--str buf; cx--char count; dl--x,dh--y >>start pos
showStr proc
push ax
push bx
mov bl,COLOR_TITTLE
cld
show_str_again:
lodsb
call drawBrick
inc dl
loop show_str_again
pop bx
pop ax
ret
showStr endp
;延時，期間還出理鍵盤輸入
delay proc
push cx
mov cx,05fffh
delay_again:
call processUserInput
loop delay_again
pop cx
ret
delay endp
;用線性同余法得到一個隨機數
;out: ax & seed ---the randomize number
getRand proc
;seed=(seed*217+25111)%31111，此公式常量測試所得,也許并不理想
push dx
push cx
mov ax,217
xor dx,dx
mul seed
add ax,25111
adc dx,0
mov cx,31111
div cx
mov seed,dx
mov ax,dx
pop cx
pop dx
ret
getRand endp
GameCode ends
;數據段
MainData segment
;兩個方塊s，一個用于當前下落的，一個用于下一個要下落的
mbArray ManyBrick <>,<>
;分別指向當前與下一個要下落的方塊s的指針，能據nextNO交替變換
curMB dw ? ;ManyBrick*
nextMB dw ? ;ManyBrick*
nextNO dw 0
dir dw 2
game GameApp <>
challenge dw 0
seed dw ?
levelFPS dw 023h,020h,1eh,01dh,01ch,01bh,01ah,010h,\
0fh ,0eh ,0dh,0ch,0bh,0ah,09h,01h; 0-15
level dw 0
levelScore db -1,15,29,42,54,65,75,84,92,99,105,111,116,120,124;15 counts
levelScoreLast db 130
mode dw 0
;diedBrickColorSame db 0
;showBackground db 1
judgeTable dw badJob,normalJob,goodJob
judgeCnt dw 41,16,27
scoreStr db 'SCORE:';6 chars
levelStr db 'LEVEL:';6 chars
levelDeltStr db 'LevelDelt:';10 chars
modeStr db 'ColorMode:'; 10 chars
gameOverStr db ' Game come to end! Press any key to replay.';45 chars
gamePausedStr db 'Game is sleeping! Press any key to wake it up.';46 chars
gameNameStr db 'CNBv0.13'; 8 chars
gameFinishedStr db 'Congratulations,you of genius can get a signature from ZW!';58 chars
badJob db 'Poor score,but sad not.You are not alone!';41
normalJob db 'Yeah,you normal!';16
goodJob db 'Smart you the same failure.';27
usageStr db 27,'mov left |',27,'mov right |',24,'rotate ',25,'down quickly |','END:turn horizontally'
usageStrCNT dw $-usageStr
usageStrEx db 'ESC:quit |Del:pause |F3:increase the LevelDelt |F2:be contrary to F3'
usageStrExCNT dw $-usageStrEx
linkToCoderStr db 'F1 :chang color mode | Any question please QQ to <307831078>.'
linkToCoderCNT dw $-linkToCoderStr
MainData ends
;堆棧
StackSpase segment stack 'stack'
db 100h dup(?)
stackPoint label byte
StackSpase ends
end?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -