kolibrios/programs/games/lines/draw_window.inc
Kirill Lipatov (Leency) 36b358a358 Added games: donkey, invaders, piton, lines
git-svn-id: svn://kolibrios.org@950 a494cfbc-eb01-0410-851d-a64ba20cac60
2008-12-08 23:58:40 +00:00

71 lines
1.5 KiB
PHP
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;======================================================================
;=============== WINDOW DEFINITIONS AND DRAW ========================
;======================================================================
macro draw_window {
mcall 12, 1 ;­ ç¨­ ¥¬ ¯¥à¥à¨á®ªã ®ª­ 
mov ebx, 100*65536 + 347 ; [x start] *65536 + [x size]
mov ecx, 100*65536 + 465 ; [y start] *65536 + [y size]
mov edx, 0x33D0D6C9 ; color of work area RRGGBB,8->color gl
mov edi, szTitle ; § £®«®¢®ª
mcall 0 ; ­ à¨á®¢ âì ®ª­®
mov ebx, 12*65536 + 7 ;<EFBFBD>ˆ“…Œ Ž—Šˆ
mov ecx, 0x90000000
mov edx, szScore
mcall 4
call redraw_score
mov ebx, 234*65536 + 7 ;<EFBFBD>ˆ“…Œ <EFBFBD>…ŠŽ<EFBFBD>
mov ecx, 0x90000000
mov edx, szRecord
mcall 4
mov ebx, 230*65536 + 100
mov ecx, 20*65536 + 20
mov edx, 0x0
mcall 13
mov ebx, 0xB0000
mov ecx, [record]
mov edx, 237*65536 + 27
mov esi, 0x10ffffff
mcall 47
mov ebx, 115*65536 + 34 ;<EFBFBD>ˆ“…Œ Œ…‘’Ž <EFBFBD>Ž„ <EFBFBD>Ž –‚…’€
mov ecx, 7*65536 + 34
mov edx, 0x00B8C2D3
@@:
mcall 13
add ebx, 37*65536
cmp ebx, 189*65536 + 34
jbe @B
call paint_new_color
mov ebx, 20*65536 + 400 ;<EFBFBD>ˆ“…Œ <EFBFBD><EFBFBD>Ÿž™ˆ Š<EFBFBD>Ž<EFBFBD>Šˆ <EFBFBD>ˆ‡“
mov ecx, 0x90000000
mov edx, szNewGame
mcall 4
mov ecx,9 ;<EFBFBD>ˆ“…Œ Ž<EFBFBD>Ž<EFBFBD> Š<EFBFBD>Ž<EFBFBD>Šˆ
mov edx, 82
.drm1:
mov ebx,ecx
mov ecx,9
.drm2:
mov eax, edx
call redraw_cell
cmp eax, [current]
jne @F
call choice_ball
@@:
call paint_ball
dec edx
loop .drm2
mov ecx,ebx
loop .drm1
mcall 12,2
}