;*********************************************************************************
; 程 序: snake.exe *
; 源文件: snake.asm *
; 环 境: masmplus 1.2 *
; 编 译: ml /c /coff /Fo"snake.obj" ".\snake.asm" *
; 链 接: link /out:snake.exe /subsystem:windows /merge:.rdata=.text snake.obj *
; 作 者: hiroyukki *
; 日 期: 2011.03.04 *
; 玩 法: P: 暂停和继续 C: 切换颜色模式 上下左右WASD键: 调整蛇头方向 *
; Q或ESC: 退出游戏 N: 开始新游戏 *
; 说 明: 模型如下,因为总共的格子是有限的,所以我采取了静态内存的方法,以 *
; 避免每吃一个食物就申请一次内存的麻烦,在程序初始化时,就把所有空格上 *
; 的结点初始化好了,类似内存池的机制。 *
; 程序共 23 * 17 = 391个格子,故在 data? 域申请 391 个 DWORD。这些 *
; DWORD的4个字节从高到低分别表示一个结点的 x位置 y位置 结点类型(食物还 *
; 是蛇身,绘制时根据此指定不同颜色) 有效标志(即蛇到达的位置的结点才是 *
; 有效的)。 *
; 程序时刻记录着当前头的结点,在每次移动时根据方向不同来获取下一个 *
; 将要到达的位置,如果该位置是墙或蛇身,则撞死,否则把下一个位置上的结 *
; 点标志为有效(同时应该把当前蛇尾标志为无效)。 *
; 当前的所有有效结点都存放在另一个数组中,此数组看做一个结点的链表 *
; 数组的第一个元素是蛇尾,最后一个非0元素是蛇头。每当吃掉一个食物或者 *
; 前进一步,视做换掉了蛇头。但是不一样的是,吃掉食物时只简单地把新结点 *
; 放到数组的第一个0元素,即成为新的蛇头。而前进的情况下,在数组最后加 *
; 入新结点后,要把蛇尾,即数组中第一个结点移除,做法是把数组后面的结点 *
; 依次左移。绘制时其实是使用这个链表里的元素进行绘制,所以要保持链表里 *
; 元素与全局结点列表里的相应元素同步。 *
; 共 23 * 17个结点,第一个结点位置为 (1, 1),最后一个为(23, 17)。 *
; 这些结点在一个一维数组中,则由 (x, y)得到相应结点在一维数组中的索引的 *
; 公式为 (y - 1) * 23 + (x - 1) *
; 为了进一步减小可执行文件体积,合并了只读数据段和代码段,然后使用 *
; upx 压,EXE为 4096 bytes 。 *
;*********************************************************************************
.386
.model flat, stdcall
option casemap:none
;***************************************************************************
; Include
;***************************************************************************
include windows.inc
include gdi32.inc
includelib gdi32.lib
include user32.inc
includelib user32.lib
include kernel32.inc
includelib kernel32.lib
includelib Coredll.lib
;***************************************************************************
; 这个结构并未使用,只是大致描述下一个结点的样子,一个节点是一个DWORD *
; 从高位到低位分别是: x坐标 y坐标 类型(食物或蛇身) 有效标志 *
; 每个字段点一个字节 *
;***************************************************************************
Node struct
x BYTE ?
y BYTE ?
ntype BYTE ?
bValid BYTE ?
Node ends
TIMER equ 1
FOOD equ 0
BODY equ 1
RIGHT equ 2
LEFT equ 3
UP equ 4
DOWN equ 5
;***************************************************************************
; 数据段
;***************************************************************************
.data?
hInstance dd ?
hWinMain dd ?
hDc dd ?
isPaused dd ?
isAlive dd ?
bRanColor dd ?
bTurnPending dd ?
direction dd ?
food dd ?
nodes dd 391 dup (?)
nodeList dd 391 dup (?)
curX dd ?
curY dd ?
foodX dd ?
foodY dd ?
score dd ?
rClient RECT <>
wndWidth dd ?
wndHeight dd ?
szScoreBuffer db 32 dup (?)
seed dd ?
speed dd ?
timerCounts dd ?
eatCounts dd ?
.const
szClassName db '1', 0
szCaptionMain db '贪食蛇', 0
szCaptionPause db '已暂停', 0
szCaptionDie db '游戏结束,请按N键开始新游戏', 0
szDown db '下', 0
szUp db '上', 0
szRight db '右', 0
szLeft db '左', 0
szScore db '得分:%d', 0
;***************************************************************************
; 代码段
;***************************************************************************
.code
;***************************************************************************
; 随机数生成
;***************************************************************************
_NextInt proc uses edx ebx max
push edx
invoke GetTickCount
add eax, seed
add seed, eax
xor edx, edx
mov ebx, max
div ebx
xor seed, eax
mov eax, edx
inc eax
pop edx
ret
_NextInt endp
;***************************************************************************
; 初始化所有蛇身结点把前三个置为有效
;***************************************************************************
_InitNodes proc
push edi
push edx
push ebx
push ecx
xor edi, edi
@@:
xor edx, edx
mov eax, edi
mov ebx, 17h
div ebx
; 商是 y 坐标,余数是 x 坐标
xor ecx, ecx
or ecx, edx
inc ecx
shl ecx, 8
or ecx, eax
inc ecx
shl ecx, 8
or ecx, BODY
shl ecx, 8
; ecx 为结点, ebx 为有效结点列表
; nodeList 数组首元素即蛇尾,最后一个不为0的元素为蛇头
xor ebx, ebx
.if edi < 4
or ecx, 1
mov ebx, ecx
.endif
mov [offset nodes + edi * 4], ecx
mov [offset nodeList + edi * 4], ebx
inc edi
.if edi >= 187h
jmp @F
.endif
jmp @B
@@:
pop ecx
pop ebx
pop edx
pop edi
ret
_InitNodes endp
;***************************************************************************
; 节点构造函数,参数分别是X坐标,Y坐标,类型(食物还是身体),有效标志
;***************************************************************************
_CreateNode proc nx, ny, nntype, nInvalid
xor eax, eax
or eax, nx
shl eax, 8
or eax, ny
shl eax, 8
or eax, nntype
shl eax, 8
or eax, nInvalid
ret
_CreateNode endp
;***************************************************************************
; 查看指定结点是否在(x, y)
;***************************************************************************
_IsNodeAt proc node, x, y
push ebx
push ecx
mov eax, node
mov ebx, eax
mov ecx, eax
shr ebx, 24
and ebx, 0ffh
sub ebx, x
shr ecx, 16
and ecx, 0ffh
sub ecx, y
.if ecx == 0 && ebx == 0
xor eax, eax
.endif
pop ecx
pop ebx
ret
_IsNodeAt endp
;***************************************************************************
; 绘制单个节点
;***************************************************************************
_DrawNode proc uses ebx ecx _hDC, hNode
local @stColor: COLORREF
local @hBrush: HBRUSH
local @hOldBrush: HBRUSH
local @stRect: RECT
push ecx
push ebx
mov eax, hNode
; 先取标志状态,如果是无效,直接退出
and eax, 000000ffh
.if !eax
jmp @F
.endif
invoke _IsNodeAt, hNode, curX, curY
mov ecx, eax
mov eax, hNode
and eax, 0000ff00h
shr eax, 8
.if (eax == BODY) && (ecx == 0)
mov @stColor, 00ffffffh
.elseif eax == BODY
.if bRanColor
invoke _NextInt, 255
mov ecx, eax
shl ecx, 8
invoke _NextInt, 255
or ecx, eax
shl ecx, 8
invoke _NextInt, 255
or ecx, eax
mov @stColor, ecx
.else
mov @stColor, 000000ffh
.endif
.else
mov @stColor, 0000ff00h
.endif
invoke CreateSolidBrush, @stColor
mov @hBrush, eax
invoke SelectObject, _hDC, @hBrush
mov @hOldBrush, eax
; 算出左右要画的地方
mov ecx, hNode
and ecx, 0ff000000h
shr ecx, 24
xor eax, eax
mov al, cl
mov bl, 20
mul bl
sub eax, 4
mov @stRect.left, eax
add eax, 18
mov @stRect.right, eax
; 算出上下要画的地方
mov ecx, hNode
and ecx, 00ff0000h
shr ecx, 16
xor eax, eax
mov al, cl
mov bl, 20
mul bl
sub eax, 4
mov @stRect.top, eax
add eax, 18
mov @stRect.bottom, eax
invoke FillRect, _hDC, addr @stRect, NULL
invoke SelectObject, _hDC, @hOldBrush
; 狂他妈漏啊……
invoke DeleteObject, @hBrush
@@:
pop ebx
pop ecx
ret
_DrawNode endp
;***************************************************************************
; 画蛇身,其实就是遍历所有结点画,绘画函数会自己根据结点的状态来选择绘
; 制方式。
;***************************************************************************
_DrawBody proc uses ecx edi _hDC
push edi
push ecx
push eax
xor edi, edi
mov ecx, 187h
@@:
mov eax, [offset nodeList + edi * 4]
.if !eax
jmp @F
.endif
invoke _DrawNode, _hDC, eax
inc edi
loop @B
@@:
pop eax
pop ecx
pop edi
ret
_DrawBody endp
;***************************************************************************
; 绘制分数
;***************************************************************************
_DrawScore proc _hDC
local @oldColor: COLORREF
local @oldBkMode: DWORD
local @szBuffer[128]: BYTE
local @hFont: HFONT
local @hOldFont: HFONT
local @hPen: HPEN
local @hOldPen: HPEN
local @strLen: DWORD
push ebx
invoke wsprintf, offset szScoreBuffer, offset szScore, score
; 求字符串长度
xor eax, eax
@@:
mov bl, BYTE ptr [offset szScoreBuffer + eax]
.if bl != 0
inc eax
jmp @B
.endif
mov @strLen, eax
invoke SetBkMode, _hDC, TRANSPARENT
mov @oldBkMode, eax
invoke SetTextColor, _hDC, 0000ffffh
mov @oldColor, eax
invoke CreateFont, 14, 7, 0, 0, 8, FALSE, FALSE, FALSE, GB2312_CHARSET, OUT_CHARACTER_PRECIS, CLIP_CHARACTER_PRECIS, 5, DEFAULT_PITCH, NULL
mov @hFont, eax
invoke SelectObject, _hDC, eax
mov @hOldFont, eax
invoke CreatePen, PS_SOLID, 1, 00ffffffh
mov @hPen, eax
invoke SelectObject, _hDC, eax
mov @hOldPen, eax
invoke TextOut, _hDC, 410, 15, offset szScoreBuffer, @strLen
invoke MoveToEx, _hDC, 10, 10, 0
invoke LineTo, _hDC, 480, 10
invoke LineTo, _hDC, 480, 360
invoke LineTo, _hDC, 10, 360
invoke LineTo, _hDC, 10, 10
invoke SetBkMode, _hDC, @oldBkMode
invoke SetTextColor, _hDC, @oldColor
invoke SelectObject, _hDC, @hOldFont
invoke SelectObject, _hDC, @hOldPen
invoke DeleteObject, @hFont
invoke DeleteObject, @hOldPen
pop ebx
ret
_DrawScore endp
;***************************************************************************
; 获得指定位置上的结点
;***************************************************************************
_GetNodeAt proc xLocation, yLocation
push ebx
mov eax, yLocation
dec eax
mov ebx, 17h
mul ebx
add eax, xLocation
dec eax
mov eax, [offset nodes + eax * 4]
pop ebx
ret
_GetNodeAt endp
;***************************************************************************
; 由传入的X Y 位置查询目标结点的状态(是否激活)
;***************************************************************************
_QueryNodeStat proc xLocation, yLocation
invoke _GetNodeAt, xLocation, yLocation
and eax, 000000ffh
ret
_QueryNodeStat endp
;***************************************************************************
; 激活或压制一个已处于激活状态的结点
; 参数分别是 x 坐标, y坐标, 是否激活的布尔变量
;***************************************************************************
_Activate proc xLocation, yLocation, bActivate
push ebx
push edi
mov eax, yLocation
dec eax
mov ebx, 17h
mul ebx
add eax, xLocation
dec eax
mov edi, eax
mov eax, [offset nodes + eax * 4]
.if bActivate
or eax, 0000001h
.else
and eax, 0ffffff00h
.endif
mov [offset nodes + edi * 4], eax
pop edi
pop ebx
ret
_Activate endp
;***************************************************************************
; 下一个食物,总是随机出现。并且不会出现在蛇身上
; 这种实现似乎比较2,更好的方法应该是把所有结点串成两个链表,蛇身链表和非
; 蛇身链表。每次随机地从非蛇身链表里取出结点插入蛇身链表中,这样就不会造成
; 随机生成的位置在蛇身上从而重新生成了。
; 重新生巢呗陨在蛇身将要填充满整个区域时性能急剧下降。
;***************************************************************************
_NextFood proc uses ebx
invoke _NextInt, 17
mov foodY, eax
invoke _NextInt, 23
mov foodX, eax
invoke _QueryNodeStat, foodX, foodY
.if eax
invoke _NextFood
.endif
invoke _CreateNode, foodX, foodY, FOOD, 1
mov food, eax
ret
_NextFood endp
;***************************************************************************
; 往队列头加一个结点,刚吃了一顿或走了一步后都会调用此函数。
; 第一个参数是要加入的结点,第二个是指示是否移除队列尾。正常移动时需要
; 在队列头加结点的同时移除队列尾,以达到好像在移动的假象……
;***************************************************************************
_AddBody proc node, bRmvTail
push edi
push ebx
push ecx
; 如果是刚吃的,先把类型改成 BODY
mov eax, node
or eax, 00000100h
xor edi, edi
@@:
mov ebx, [offset nodeList + edi * 4]
.if ebx != 0
inc edi
jmp @B
.endif
mov [offset nodeList + edi * 4], eax
; 如果要移除队列尾,则先把队列尾的激活状态压下去,然后集体左移一个索引位置
; 此时edi里保存着队列应有的长度
.if bRmvTail
; 取第一个元素,这是队列头,先反激活它
mov eax, [nodeList]
mov ebx, eax
and ebx, 0ff000000h
shr ebx, 24
mov ecx, eax
and ecx, 00ff0000h
shr ecx, 16
invoke _Activate, ebx, ecx, FALSE
; 然后移动这个队列,把后面的都左移
mov ecx, edi
xor edi, edi
@@:
mov eax, [offset nodeList + edi * 4 + 4]
mov [offset nodeList + edi * 4], eax
inc edi
loop @B
mov [offset nodeList + edi * 4], 0
.endif
pop ecx
pop ebx
pop edi
ret
_AddBody endp
;***************************************************************************
; 吃掉食物,吃掉时候分数增加,并且生成下一个食物
;***************************************************************************
_PieFromSky proc
mov eax, score
add eax, 10
mov score, eax
mov eax, eatCounts
.if eax != 3
inc eatCounts
.else
mov eax, speed
.if eax > 1
dec speed
.endif
mov eatCounts, 0
.endif
invoke _GetNodeAt, foodX, foodY
invoke _AddBody, eax, FALSE
invoke _NextFood
ret
_PieFromSky endp
;***************************************************************************
; 新游戏,初始化各种状态
;***************************************************************************
_NewGame proc
invoke _InitNodes
invoke _NextFood
mov bTurnPending, FALSE
mov isPaused, 0
mov isAlive, 1
mov score, 0
mov speed, 8
mov timerCounts, 0
mov eatCounts, 0
mov curX, 4
mov curY, 1
mov direction, RIGHT
ret
_NewGame endp
;***************************************************************************
; 蛇身移动
;***************************************************************************
_Move proc
local @nextX: DWORD
local @nextY: DWORD
push ebx
push curX
push curY
pop @nextY
pop @nextX
mov bTurnPending, FALSE
.if direction == RIGHT
inc @nextX
.elseif direction == DOWN
inc @nextY
.elseif direction == LEFT
dec @nextX
.elseif direction == UP
dec @nextY
.endif
.if (@nextX == 0) || (@nextX > 23) || (@nextY == 0) || (@nextY > 17)
mov isAlive, 0
jmp @F
.endif
invoke _QueryNodeStat, @nextX, @nextY
.if eax
mov isAlive, 0
jmp @F
.endif
mov eax, foodX
mov ebx, foodY
.if (@nextX == eax) && (@nextY == ebx)
invoke _PieFromSky
.endif
; 头的处理,下一个位置即将激活
invoke _Activate, @nextX, @nextY, 1
push @nextX
push @nextY
pop curY
pop curX
; 把新头加入队列头,并指示移除队列尾
invoke _GetNodeAt, curX, curY
invoke _AddBody, eax, TRUE
@@:
pop ebx
ret
_Move endp
;***************************************************************************
; 窗口过程
;***************************************************************************
_ProcWinMain proc hWnd, uMsg, wParam, lParam
local @stPs:PAINTSTRUCT
local @stRect:RECT
local @hBmp: HBITMAP
local @hOldBmp: HBITMAP
local @memDC: HDC
local @hDC: HDC
mov eax, uMsg
.if eax == WM_PAINT
invoke BeginPaint, hWnd, addr @stPs
mov @hDC, eax
invoke CreateCompatibleBitmap, @hDC, wndWidth, wndHeight
mov @hBmp, eax
invoke CreateCompatibleDC, @hDC
mov @memDC, eax
invoke SelectObject, @memDC, @hBmp
mov @hOldBmp, eax
invoke _DrawBody, @memDC
invoke _DrawNode, @memDC, food
invoke _DrawScore, @memDC
invoke BitBlt, @hDC, rClient.left, rClient.top, wndWidth, wndHeight, @memDC, rClient.left, rClient.top, SRCCOPY
invoke SelectObject, @memDC, @hOldBmp
invoke DeleteObject, @hBmp
invoke DeleteDC, @memDC
invoke EndPaint, hWnd, addr @stPs
.elseif eax == WM_TIMER
.if !isAlive
invoke SetWindowText, hWnd, offset szCaptionDie
jmp @F
.endif
.if isPaused
jmp @F
.endif
mov eax, timerCounts
.if speed != eax
inc timerCounts
jmp @F
.endif
mov timerCounts, 0
invoke _Move
invoke InvalidateRect, hWnd, addr rClient, FALSE
.elseif eax == WM_CLOSE
invoke KillTimer, hWnd, TIMER
invoke DestroyWindow, hWinMain
invoke PostQuitMessage, NULL
.elseif eax == WM_CREATE
invoke SetTimer, hWnd, TIMER, 100, NULL
invoke GetClientRect, hWnd, offset rClient
mov bRanColor, TRUE
mov eax, rClient.right
sub eax, rClient.left
mov wndWidth, eax
mov eax, rClient.bottom
sub eax, rClient.top
mov wndHeight, eax
invoke _NewGame
.elseif eax == WM_KEYDOWN
mov eax, wParam
; 按P键暂停游戏
.if eax == 'P'
.if isPaused
and isPaused, 0
invoke SetWindowText, hWnd, offset szCaptionMain
.else
or isPaused, 1
invoke SetWindowText, hWnd, offset szCaptionPause
.endif
; 按了上键
.elseif eax == 'W' || eax == VK_UP
.if isPaused || bTurnPending
jmp @F
.endif
mov eax, direction
.if eax == RIGHT || eax == LEFT
push UP
pop direction
invoke SetWindowText, hWnd, offset szUp
mov bTurnPending, TRUE
.endif
; 按了下键
.elseif eax == 'S' || eax == VK_DOWN
.if isPaused || bTurnPending
jmp @F
.endif
mov eax, direction
.if eax == RIGHT || eax == LEFT
push DOWN
pop direction
invoke SetWindowText, hWnd, offset szDown
mov bTurnPending, TRUE
.endif
; 按了左键
.elseif eax == 'A' || eax == VK_LEFT
.if isPaused || bTurnPending
jmp @F
.endif
mov eax, direction
.if eax == UP || eax == DOWN
push LEFT
pop direction
invoke SetWindowText, hWnd, offset szLeft
mov bTurnPending, TRUE
.endif
; 按了右键
.elseif eax == 'D' || eax == VK_RIGHT
.if isPaused || bTurnPending
jmp @F
.endif
mov eax, direction
.if eax == UP || eax == DOWN
push RIGHT
pop direction
invoke SetWindowText, hWnd, offset szRight
mov bTurnPending, TRUE
.endif
.elseif eax == 'C'
.if bRanColor
and bRanColor, 0
.else
or bRanColor, 1
.endif
; Q或者ESC退出游戏
.elseif eax == 'Q' || eax == VK_ESCAPE
invoke PostQuitMessage, 0
; 开始新游戏
.elseif eax == 'N'
invoke _NewGame
invoke SetWindowText, hWnd, offset szCaptionMain
.endif
.else
invoke DefWindowProc, hWnd, uMsg, wParam, lParam
ret
.endif
@@:
xor eax, eax
ret
_ProcWinMain endp
;***************************************************************************
; 入口函数
;***************************************************************************
_Main proc
local @stWndClass:WNDCLASSEX
local @stMsg:MSG
mov food, FALSE
invoke RtlZeroMemory, addr @stWndClass, sizeof @stWndClass
invoke GetModuleHandle, NULL
mov @stWndClass.hInstance, eax
invoke LoadCursor, NULL, IDC_ARROW
mov @stWndClass.hCursor, eax
invoke LoadIcon, NULL, IDI_INFORMATION
mov @stWndClass.hIcon, eax
mov @stWndClass.cbSize, sizeof WNDCLASSEX
mov @stWndClass.style, CS_HREDRAW or CS_VREDRAW
mov @stWndClass.lpfnWndProc, offset _ProcWinMain
mov @stWndClass.hbrBackground, COLOR_WINDOW
mov @stWndClass.lpszClassName, offset szClassName
invoke RegisterClassEx, addr @stWndClass
; 显示窗口
invoke CreateWindowEx, WS_EX_CLIENTEDGE, offset szClassName, offset szCaptionMain,\
WS_OVERLAPPEDWINDOW and not WS_MAXIMIZEBOX and not WS_THICKFRAME, 200, 100, \
500, 404, NULL, NULL, hInstance, NULL
mov hWinMain, eax
invoke ShowWindow, hWinMain, SW_SHOWNORMAL
invoke UpdateWindow, hWinMain
; 消息循环
.while TRUE
invoke GetMessage, addr @stMsg, NULL, 0, 0
.break .if eax == 0
invoke TranslateMessage, addr @stMsg
invoke DispatchMessage, addr @stMsg
.endw
ret
_Main endp
start:
call _Main
invoke ExitProcess, NULL
end start
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课