AsmFlappyBird.Inc

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

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

WinMain				PROTO :DWORD,:DWORD,:DWORD,:DWORD
WndProc				PROTO :DWORD,:DWORD,:DWORD,:DWORD

IDB_BG              equ 100
IDB_TUBE            equ 101
IDB_BIRD			equ 102
IDB_BAR             equ 103

IDD_DIALOG			equ 1000
IDC_BOARD           equ 1001

IDM_MENU			equ 10000
IDM_FILE_EXIT		equ 10001
IDM_OPEN            equ 10002
IDM_SAVE            equ 10003
IDM_MODE            equ 10004

MTIMER				equ 25

OBJECT	struct
	x		dd ?
	y		dd ?
OBJECT ends

.const

ClassName			db 'DLGCLASS',0
AppName				db 'Flappy Bird',0
AboutMsg			db 'Flppy Bird',13,10,'Copyright © YueDayu 2016',0
ExitAsk             db 'Are you sure ?',0
startStr            db 'HIT SPACE TO START', 0
fmtStr				db '%lu',0
lastFmtStr          db 'Last: %lu', 0
maxFmtStr           db 'Max: %lu', 0
alpha_QL            REAL8 0.7
MapSize             dd 60*30*2*(sizeof REAL8)
szFile		        db	'fbai.model', 0

.data?

hInstance			dd ?
CommandLine			dd ?
hWnd				dd ?

hBoard				dd ?
OldBoardProc		dd ?

bgIml				dd ?
birdIml             dd ?
tubeIml             dd ?
barIml              dd ?

gStatus             dd 0 ; 0-die 1-flying
speed               dd 3
cPoint              dd 0 ; current point
lPoint              dd 0 ; last point
maxPoint            dd 0 ; max point

rseed				dd ?

; Tube:
; switch when the first disappear
upTube              OBJECT 2 dup(<>)
downTube            OBJECT 2 dup(<>)

; Bottom (Ground)
bottomY             dd 384
bottomX             dd 0

; Bird: 
; in every loop, birdAc = min(birdAc + gravityAc, birdMaxAc);
; birdY = min(max(birdAC + birdAC, 0), birdBottom)
; If hit the buttom, birdAc = jumpAc
birdX               dd ?
birdY               dd ?
birdAc              dd 0
birdMaxAc           dd 8
birdBottom          dd 361
gravityAc           dd 1
jumpAc              dd -7
cflap               dd 1
cflapDir            dd 0

addedFlag           dd 0

vDistRangeL         dd ?
vDistRangeR         dd ?
hDistRangeL         dd ?
hDistRangeR         dd ?

stateDashV          dd ? ; range [0, 529], real distance + 174; 53
stateDashH          dd ? ; range [0, 180]; 19
stateV              dd ?
stateH              dd ?

reward              dd 0
actionToPerform     dd 0

isAuto              dd 0 ; open auto mode?

QMap                REAL8 60*30*2 dup(<>) ; 53 in V, 18 in H, 2 in action; 0 = do_nothing, 1 = jump

debug               dd 0

stOpenFileName      OPENFILENAME <?>