keXa/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

lines: bugfix

Browse Source 
git-svn-id: svn://kolibrios.org@1020 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Evgeny Grechnikov (Diamond) 2009-02-01 12:55:05 +00:00
parent e1573dd58e
commit 487ac2b292
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
programs/games/lines/lines.asm
View File

@ -8,7 +8,7 @@ use32
dd 0x4000
dd 0x0,0x0
include '..\..\macros.inc'
include 'macros.inc'
include 'lang.inc'
include 'draw_window.inc'
include 'ball_operations.inc'
@ -31,15 +31,14 @@ new_game:
mov [score], 0
mov [countAllBall], 0
mov [current], 0
mov ecx, 5
@@:
push ecx
mov ebx, 7
call random
inc dl
call add_new_ball
pop ecx
loop @B
call test_new_ball
cmp [countAllBall], 5
jb @b
call generate_new___new_color
START:
@ -199,11 +198,12 @@ add_new_ball: ;
mov edx, ebp
or byte [eax], dl
inc [countAllBall]
;¯®«ã稬 ID ª­®¯ª¨
sub eax, lineBall-2
mov [dest], eax
ret
test_new_ball:
;¯®«ã稬 ID ª­®¯ª¨
sub eax, lineBall-2
call paint_ball
call find_line
@ -221,12 +221,12 @@ test_new_ball:
ret
if lang eq ru
szTitle db '–¢¥â­ë¥ «¨­¨¨ v 0.2',0
szTitle db '–¢¥â­ë¥ «¨­¨¨ v 0.3',0
szNewGame db 'F2 - ­®¢ ï ¨£à ',0
szRecord db '<27>¥ª®à¤',0
szScore db 'Žçª¨',0
else
szTitle db 'Color lines v 0.2',0
szTitle db 'Color lines v 0.3',0
szNewGame db 'F2 - new game',0
szRecord db 'Record',0
szScore db 'Score',0