Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 6165 → Rev 6166

/programs/games/tetris/trunk/tetris.asm
26,7 → 26,6
; 31.10.2001 - rdtsc replaced - quickcode <quickcode@mail.ru>
; 28.06.2001 - fasm port & framed blocks - Ville Turjanmaa
;
;
 
LEN_X equ 19 ;width of table
LEN_Y equ 29 ; height of table
254,43 → 253,23
; *********************************************
draw_window:
 
 
mov eax,48
mov ebx,3
mov ecx,sc
mov edx,sizeof.system_colors
int 0x40
 
mov eax,12 ; function 12:tell os about windowdraw
mov ebx,1 ; 1, start of draw
int 0x40
 
mcall 48,3,sc,sizeof.system_colors
mcall 12,1
; DRAW WINDOW
xor eax,eax ; function 0 : define and draw window
mov ebx,320*65536+(LEN_X-BORDER_LEFT-BORDER_RIGHT)*ADOBE_SIZE+X_LOCATION*2
mov ecx,25*65536+ (LEN_Y-BORDER_TOP-BORDER_BOTTOM)*ADOBE_SIZE+Y_LOCATION+30
mov ecx,25*65536+ (LEN_Y-BORDER_TOP-BORDER_BOTTOM)*ADOBE_SIZE+Y_LOCATION+36
mov edx,[sc.work] ; color of work area RRGGBB
or edx,0x13000000
mov edi,title ; WINDOW LABEL
int 0x40
 
mcall 8, 30*65536+100,378*65536+22,2,[sc.work_button] ;new game
mcall ,132*65536+102, ,3 ;Wildwest's 'Pause' button
;///////////////////////////////////////////////
mov eax,8
mov ebx,30*65536+100
mov ecx,378*65536+18
mov edx,2
mov esi,[sc.work_button]
int 0x40
;/////////////////////////////////////////////// Wildwest's 'Pause' button
;mov eax,8
mov ebx,132*65536+102
mov ecx,378*65536+18
mov edx,3
mov esi,[sc.work_button];
int 0x40
 
mov eax,4 ; function 4 : write text to window
mov ebx,164*65536+384 ; [x start] *65536 + [y start]
mov ebx,164*65536+383 ; [x start] *65536 + [y start]
mov ecx,[sc.work_button_text] ; color of text RRGGBB
or ecx,0x90000000
mov edx,labe ; pointer to text
297,7 → 276,7
int 0x40
;///////////////////////////////////////////////
;mov eax,4
mov ebx,49*65536+384
mov ebx,49*65536+383
mov edx,game_finished
int 0x40
call draw_table
306,7 → 285,7
call draw_block
 
cld
mov ebx,38*65536+35 ; draw info text with function 4
mov ebx,38*65536+32 ; draw info text with function 4
mov ecx,[sc.work_text] ; color
or ecx,0x90000000
mov edx,text
658,7 → 637,7
mov eax,[score]
call number_to_str
 
mov ebx,90*65536+35 ; draw info text with function 4
mov ebx,90*65536+32 ; draw info text with function 4
mov ecx,[sc.work_text] ; color
or ecx,0x50000000
mov edx,number_str
841,7 → 820,7
 
if lang eq ru
 
title db '’…’ˆ‘ 1.61 - ‘’…‹Šˆ ˆ Ž…‹',0
title db '’¥âà¨á 1.62',0
labe db '€“‡€',0
text db 'Žçª¨:',0
game_finished: db ' Ž‚€Ÿ',0
848,7 → 827,7
 
else if lang eq et
 
title db 'TETRIS 1.61 - NOOLED & TÜHIK',0
title db 'Tetris 1.62',0
labe db 'PAUS',0
text db 'Tulemus:',0
game_finished: db 'UUS MÄNG',0
855,7 → 834,7
 
else
 
title db 'TETRIS 1.61 - ARROWS & SPACE',0
title db 'Tetris 1.62',0
labe db 'PAUSE',0
text db 'Score:',0
game_finished: db 'NEW GAME',0