mario.inc

超级马力``大家喜欢的游戏```有原代码

include windows.inc
include user32.inc
include kernel32.inc
include gdi32.inc
include shell32.inc
include comctl32.inc
include comdlg32.inc

includelib user32.lib
includelib kernel32.lib
includelib gdi32.lib
includelib shell32.lib
includelib comctl32.lib
includelib comdlg32.lib

;-- The Brick Smash
.const  
   STATE_OK     equ  1
   STATE_FAILED equ  2
   
CBrickSmash struct
   x        dd ?
   y        dd ?
   x_Detail dd ?    
   y_Detail dd ?
   State    dd ?  ; STATE 
CBrickSmash ends

;-- The Action Brick
.const  
   BRICK_NORMAL equ  1
   BRICK_SMASH  equ  2
   
CBrick struct
    x        dd ?
    y        dd ?
    x_Detail dd ?
    y_Detail dd ?
    State    dd ?  ; BRICK_STATE
    ; the Smashs or none used
    Smash1   CBrickSmash <?>
    Smash2   CBrickSmash <?>
    Smash3   CBrickSmash <?>
    Smash4   CBrickSmash <?>
CBrick ends

;-- Control the Actor
CSprite struct
    x              dd ?
    y              dd ?
    x_Detail       dd ?
    y_Detail       dd ?
    Big            dd ?
    Speed          dd ?
    State          dd ?
    Frame          dd ?
    JumpTimeLamp   dd ?
    JumpBaseY      dd ?
    FrameTimeLamp  dd ?
    bOnLine        dd ?
CSprite ends

;--- Gate information
CGateInfo struct
    BaseAddress dd ?  ; Gate data Base Address
    DataLen     dd ?  ; DataBuffer Length 
    dwWidth     dd ?  ; the Grids of width
    Num   dd ?        ; Number of Gates 
CGateInfo ends

;--- Key State
CKeyState struc
    bKeyWDown dd ?
    bKeySDown dd ?
    bKeyADown dd ?
    bKeyDDown dd ?
    bKeyJDown dd ?
    bKeyKDown dd ?
CKeyState ends

WinMain				PROTO :DWORD,:DWORD,:DWORD,:DWORD
WndProc				PROTO :DWORD,:DWORD,:DWORD,:DWORD
GameLoop            proto
KeyProc             proto
UpdateWnd           proto
Flip                proto
CalcFps             proto 
InitApp             proto
LoadRes             proto
FreeRes             proto
SelectGate          proto :DWORD
ReadMapXY           proto :DWORD ,:DWORD
CheckDrop           proto 
CheckGameOver       proto
SpriteMoveLeft      proto
SpriteMoveRight     proto
CanMoveLeft         proto
CanMoveRight        proto
CanFrameMovie       proto
JumpProc            proto

.const

IDM_FILE_EXIT		equ 10001
IDM_HELP_ABOUT		equ 10101
IDC_SBR1			equ 1001

BM_REDM1			equ 1001
BM_IMAGES			equ 1002
BM_IMAGES_MASK		equ 1003
BM_ACTOR			equ 1004
BM_ACTOR_MASK		equ 1005


.data

ClassName			db 'DLGCLASS',0
MenuName			db 'MyMenu',0
DlgName				db 'MyDialog',0
AppName				db 'Mario',0
AboutMsg			db 'Programmer : RedFox ',13,10,'E-Mail : [e-mail]',0

.data?

hInstance			dd ?
CommandLine			dd ?
hWnd				dd ?
hDc                 dd ? 
bActive             dd ?