小游戲貪吃蛇的詳細(xì)設(shè)計(編輯修改稿)
2024-10-03 16:06 本頁面
【文章內(nèi)容簡介】 們小組的每位成員，謝謝。 16 程序清單 .386 .model flat,stdcall option casemap:none include \masm32\include\ include \masm32\include\ include \masm32\include\ include \masm32\include\ include 。 include \masm32\include\ 。for status bar include include include d:\masmplus\include\ 。for Random includelib \masm32\lib\ includelib \masm32\lib\ includelib \masm32\lib\ includelib \masm32\lib\ includelib d:\masmplus\lib\ WinMain proto :DWORD,:DWORD,:DWORD,:DWORD AboutProc proto, hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM WndProc proto hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM .data ClassName db DLGCLASS, 0。snakeDlg,0 helpMsg db Help: [Space]Pause or Start | [Esc]Exit | [Arrow]Direction, 0 scoreMsg db Length:%d, 0 gameover db GAME OVER!, 0 BkgndClr dd 0000dd00h 。0x00bbggrr statusWidth dd 280,350,1 gSnake SnakeSt .data? hInstance HINSTANCE ? CommandLine LPSTR ? hdc dd ? hSnkDC dd ? hFdDC1 dd ? hFdDC2 dd ? hSnkBmp dd ? hFdBmp1 dd ? hFdBmp2 dd ? hbrBackground dd ? 17 fPause dd ? isOver dd ? buffer db 100 dup (?) .code start: invoke InitCommonControls invoke GetModuleHandle, NULL mov hInstance,eax invoke GetCommandLine mov CommandLine,eax invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT invoke ExitProcess,eax Random proc _r0:DWORD mov eax, _r0 imul eax, 23 add eax, 123 and eax, 7FFFH ret Random endp 。將改變鏈表頭，沒有返回值 AddFromHead proc, ppNode:dword, pPos:dword pushad assume eax:ptr Node, edx: ptr PosSt mov edx, pPos push edx invoke LocalAlloc, LPTR, sizeof(Node)。會改變 edx 的值 pop edx mov ebx, [edx].x mov [eax]., ebx mov ebx, [edx].y mov [eax]., ebx mov ebx, ppNode mov ebx, [ebx] mov [eax].next, ebx push eax mov eax, ppNode pop DWORD ptr [eax] 18 assume eax:nothing, edx:nothing popad ret AddFromHead endp 。刪除鏈表最后一個元素，無返回值 DelFromTail proc, ppNode:dword pushad assume eax:ptr Node, ebx:ptr Node mov eax, ppNode mov eax, dword ptr [eax] cmp eax, 0 je LRET .if [eax].next == NULL 。只有一個元素，釋放內(nèi)在，將表頭置空 invoke LocalFree, eax mov eax, ppNode mov DWORD ptr [eax], 0 jmp LRET .endif mov ebx, [eax].next .while [ebx].next != NULL mov eax, [eax].next mov ebx, [ebx].next .endw mov [eax].next, NULL invoke LocalFree, ebx LRET: assume eax:nothing, ebx:nothing popad ret DelFromTail endp FreeAll proc, ppNode:dword push eax mov eax, ppNode mov eax, [eax] .while eax != 0 19 push (Node ptr [eax]).next invoke LocalFree, eax pop eax .endw mov eax, ppNode mov dword ptr [eax], 0 pop eax ret FreeAll endp IsExist proc, pNode:dword, pPos:dword push ebx push ecx push edx mov eax, pNode mov edx, pPos assume eax:ptr Node, edx:ptr PosSt .while eax != NULL mov ebx, [eax]. mov ecx, [eax]. .if ebx == [edx].x amp。amp。 ecx == [edx].y mov eax, TRUE .break .endif mov eax, [eax].next .endw assume eax:nothing, edx:nothing pop edx pop ecx pop ebx ret IsExist endp WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG LOCAL hDlg:HWND mov ,SIZEOF WNDCLASSEX
試題試卷相關(guān)推薦
鄂ICP備17016276號-1