俄罗斯方块雏形[完成了移动、反转、叠加]

最新推荐文章于 2023-12-15 07:00:00 发布

aiyun1234

最新推荐文章于 2023-12-15 07:00:00 发布

阅读量118

点赞数

原文链接：http://www.cnblogs.com/osoft1983/archive/2008/11/11/1331355.html

版权


>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 俄罗斯方块 by Originality
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.386
.model flat, stdcall
option casemap : none
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Include 文件定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include rgame.inc
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 代码段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    .code
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 定时器测试
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
DwonTest proc _hWnd, _uMsg, _idEvent, _dwTime

pushad

mov    eax, curState
    .if    eax        ;下落结束
       
mov    curState, 0
        invoke    InitControl1

    .else

        invoke    Control1Down

    .endif

popad
ret

DwonTest endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 窗口过程
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_ProcWinMain proc uses ebx edi esi hWnd, uMsg, wParam, lParam
    local    @stPs : PAINTSTRUCT
    local    @stRect : RECT
    local    @hDc

mov    eax, uMsg
;********************************************************************
    .if    eax == WM_PAINT   

        invoke    BeginPaint, hWnd, addr @stPs
        invoke    InitContainer
        invoke    ShowControl, 1
        invoke    Control1Down
        invoke     EndPaint, hWnd, addr @stPs       

    .elseif    eax == WM_CREATE

        invoke    GetDC, hWnd
mov    hGame, eax
;【此处定时器为测试所用】
        invoke    SetTimer, NULL, NULL, 1000, offset DwonTest

    .elseif    eax == WM_CLOSE

        invoke    ReleaseDC, hWnd, hGame
        invoke     DestroyWindow, hWinMain
        invoke     PostQuitMessage, NULL

    .elseif    eax == WM_SIZE

        invoke    ValidateRect, hWnd, offset gameArea

    .else

        invoke     DefWindowProc, hWnd, uMsg, wParam, lParam
ret

    .endif
;********************************************************************
        xor    eax, eax
ret

_ProcWinMain endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_WinMain proc
    local    @stWndClass : WNDCLASSEX
    local    @stMsg : MSG

    invoke     GetModuleHandle, NULL            ;获得应用程序实例
    mov    hInstance, eax                ;实例保存在全局变量中
    invoke     RtlZeroMemory, addr @stWndClass, sizeof @stWndClass    ;以0填充WNDCLASSEX结构体

Code
********************************************************************
; 注册窗口类
;********************************************************************
    invoke     LoadCursor, 0, IDC_ARROW            ;获取光标句柄
    mov    @stWndClass.hCursor, eax            ;设置光标   
    push    hInstance               
pop    @stWndClass.hInstance            ;保存应用程序实例
    mov    @stWndClass.cbSize, sizeof WNDCLASSEX    ;保存结构体大小
    mov    @stWndClass.style, CS_HREDRAW or CS_VREDRAW    ;设置窗体样式
    mov    @stWndClass.lpfnWndProc, offset _ProcWinMain    ;保存回调函数
    mov    @stWndClass.hbrBackground, COLOR_WINDOW + 3    ;设置窗体背景色
    mov    @stWndClass.lpszClassName, offset szClassName    ;保存窗体类名
    invoke     RegisterClassEx, addr @stWndClass        ;注册窗口类
;********************************************************************
; 建立并显示窗口
;********************************************************************
    invoke     CreateWindowEx, WS_EX_TOOLWINDOW, offset szClassName, offset szCaptionMain,\
                   WS_OVERLAPPEDWINDOW,\
100, 100, 400, 456,\
                   NULL, NULL, hInstance, NULL            ;建立窗口
    mov    hWinMain, eax                    ;保存窗口句柄   
    invoke     ShowWindow, hWinMain, SW_SHOWNORMAL        ;显示窗口
    invoke     UpdateWindow, hWinMain                ;更新窗口
;********************************************************************
; 消息循环
;********************************************************************
    .while    TRUE                        ;消息循环
           
        invoke     GetMessage, addr @stMsg, NULL, 0, 0        ;获取消息并填充MSG结构体
       
            .break .if    eax == 0                ;判断是否退出
            invoke     TranslateMessage, addr @stMsg        ;消息装换
            invoke     DispatchMessage, addr @stMsg        ;分发消息
           
        .endw
ret

_WinMain endp

;********************************************************************
; 初始化游戏容器
;********************************************************************
InitContainer proc
    local @lpRect : RECT

pushad

;建立游戏容器边框
    invoke    CreatePen, PS_SOLID, 5, 8000FFh
push    eax
    invoke    SelectObject, hGame, eax
    invoke    DeleteObject, eax
pop    eax
    invoke    FrameRect, hGame, offset gameArea,  eax

popad
ret

InitContainer endp

;********************************************************************
; 显示方块控件
; type：控件类型1为4格横条，2为田字形，3..4..
;********************************************************************
ShowControl proc cType : DWORD

pushad

    .if    cType == 1    ;4格横条■■■■
       
        invoke    InitControl1

    .endif

popad
ret

ShowControl endp

;********************************************************************
; 初始化■■■■图形
;********************************************************************
InitControl1 proc

pushad

;设置方块颜色
    invoke    SetColor, 0FF80FFh, 400040h
;创建方块并排列方块
    mov    ecx, 60        ;左上角起始位置
    mov    edx, 90        ;右下角起始位置
    xor    esi, esi
lea    ebx, curControl
@@:
cmp    ecx, 180
jz    @F        ;4个方块都初始化完毕
    push    ebx
push    ecx
push    edx
    invoke    Rectangle, hGame, ecx, 5, edx, 30
pop    edx
pop    ecx
pop    ebx
mov    [ebx + esi], ecx
push    topSpace
pop    DWORD ptr [ebx + esi + 4]
add    esi, 8
add    ecx, 30
add    edx, 30
jmp    @B

@@:

popad
ret

InitControl1 endp

;********************************************************************
; 设置方块颜色
;********************************************************************
SetColor proc color : DWORD, pColor : DWORD

pushad

    invoke    CreatePen, PS_SOLID, 1, pColor
    invoke    SelectObject, hGame, eax
    invoke    DeleteObject, eax
    invoke    CreateSolidBrush, color
    invoke    SelectObject, hGame, eax
    invoke    DeleteObject, eax

popad
ret

SetColor endp

;********************************************************************
; ■■■■图形向下走动
;********************************************************************
Control1Down proc

pushad

    invoke    IsDownEnd
    .if     eax == 1    ;下面有障碍，改变状态为创建新的方块并保存当前方块在容器中的位置
       
mov    curState, 1
        invoke    ChangeAreaState
        invoke    RtlZeroMemory, offset curControl, sizeof curControl
popad
ret

    .endif   

;如果下面不是障碍，则■■■■向下走动
    lea    edx, curControl
xor    ecx, ecx
@@:
cmp    ecx, 4
jz    @F
;覆盖原有的方块
    push    ecx
    invoke    SetColor, 0h, 0h
mov    eax, [edx + ecx * 8 + 4]
mov    ebx, 30
add    ebx, eax    ;ebx右下角y坐标
    mov    eax, [edx + ecx * 8]
add    eax, 30        ;eax为右下角x坐标
    push    eax        ;保存右下角坐标
    push    ebx
push    edx
    invoke    Rectangle, hGame, [edx + ecx * 8], [edx + ecx * 8 + 4], eax, ebx
pop    edx

;生成新的方块
    invoke    SetColor, 0FF80FFh, 400040h
pop    ebx
pop    eax
pop    ecx   
add     DWORD ptr [edx + ecx * 8 + 4], 30
add    ebx, 30
push    ecx
push    edx
    invoke    Rectangle, hGame, [edx + ecx * 8], [edx + ecx * 8 + 4], eax, ebx
pop    edx
pop    ecx
inc    ecx
jmp    @B
@@:

popad
ret

Control1Down endp

;********************************************************************
; 保存当前方块在容器中的状态
;********************************************************************
ChangeAreaState proc

pushad

;计算区域单元坐标
    lea    ebx, curControl
xor    ecx, ecx
@@:
cmp    ecx, 4
jz    @F

;计算二维x坐标
    invoke    CalculatePos, [ebx + ecx * 8 ], [ebx + ecx * 8 + 4], 1
mov    esi, eax

;计算二维y坐标
    invoke    CalculatePos, [ebx + ecx * 8 ], [ebx + ecx * 8 + 4], 2
mov    edi, eax

;设置区域更新，更新的坐标位置（eax + esi * 4 * 8 + edi * 4）
    lea    eax, area
push    eax
xchg    edi, eax
mov    edi, 8
mul    edi
add    esi, eax
pop    eax
mov    DWORD ptr [eax + esi * 4], 1    ;设置当前位置已经被填充
    inc    ecx
jmp    @B
@@:   

popad
ret

ChangeAreaState endp


;********************************************************************
; 根据顶角计算二维坐标
; left, top：顶角像素
; posType：1表示计算x坐标，2表示计算y坐标
; eax返回二维坐标
;********************************************************************
CalculatePos proc left : DWORD, top :DWORD, posType : DWORD
    local @ret : DWORD
pushad

mov    edx, left   
add    edx, rectArea ;右下角x坐标
   
mov    ecx, top
add    ecx, rectArea ;右下角y坐标
   
    .if    posType == 1

mov    eax, edx
mov    ebx, 30
xor    edx, edx
div    ebx

    .elseif

mov    eax, ecx
sub    eax, topSpace
mov    ecx, 30
xor    edx, edx
div    ecx

    .endif
mov    @ret, eax
popad
mov    eax, @ret
dec    eax
ret

CalculatePos endp

;********************************************************************
; 判断下面是否有障碍
; 返回值:：eax为1表示下落完毕，为0表示未完毕
;********************************************************************
IsDownEnd proc

pushad

lea    ebx, curControl
xor    ecx, ecx
@@:
cmp    ecx, 4
jz    @F

;计算二维x坐标
    invoke    CalculatePos, [ebx + ecx * 8 ], [ebx + ecx * 8 + 4], 1
mov    esi, eax

;计算二维y坐标
    invoke    CalculatePos, [ebx + ecx * 8 ], [ebx + ecx * 8 + 4], 2
mov    edi, eax
inc    edi

;设置区域更新，更新的坐标位置（eax + esi * 4 * 8 + edi * 4）
    lea    eax, area
push    eax
xchg    edi, eax
mov    edi, 8
mul    edi
add    esi, eax
pop    eax
mov    edx, [eax + esi * 4]
    .if    edx == 1

popad
mov    eax, 1
ret

    .endif
inc    ecx
jmp    @B
@@:   

popad
xor    eax, eax
ret

IsDownEnd endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
start:
call    _WinMain
    invoke     ExitProcess, NULL
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
end start