Subversion Repositories Kolibri OS

Rev

Rev 950 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 950 Rev 1020
Line 6... Line 6...
6 
    dd	I_END
 6 
    dd	I_END
7 
    dd	0x4000
 7 
    dd	0x4000
8 
    dd	0x4000
 8 
    dd	0x4000
9 
    dd	0x0,0x0
 9 
    dd	0x0,0x0
Line 10... Line 10...
10 
 
 10 
 
11 
include '..\..\macros.inc'
 11 
include 'macros.inc'
12 
include 'lang.inc'
 12 
include 'lang.inc'
13 
include 'draw_window.inc'
 13 
include 'draw_window.inc'
14 
include 'ball_operations.inc'
 14 
include 'ball_operations.inc'
Line 29... Line 29...
29 
	stosb
 29 
	stosb
Line 30... Line 30...
30 
 
 30 
 
31 
	mov	[score], 0
 31 
	mov	[score], 0
32 
	mov	[countAllBall], 0
 32 
	mov	[countAllBall], 0
33 
	mov	[current], 0
 - 
 
34 
	mov	ecx, 5
 33 
	mov	[current], 0
35 
	@@:
 - 
 
36 
	   push	ecx
 34 
	@@:
37 
	   mov	ebx, 7
 35 
	   mov	ebx, 7
38 
	   call	random
 36 
	   call	random
39 
	   inc	dl
 37 
	   inc	dl
40 
	   call	add_new_ball
 38 
	   call	add_new_ball
- 
 
 39 
	   call test_new_ball
41 
	   pop	ecx
 40 
	   cmp  [countAllBall], 5
42 
	   loop @B
 41 
	   jb   @b
Line 43... Line 42...
43 
	call generate_new___new_color
 42 
	call generate_new___new_color
44 
 
 43 
 
45 
START:
 44 
START:
Line 197... Line 196...
197 
 
 196 
 
198 
	;⥯¥àì ã ­ á ¢ eax -  ¤à¥á ­ è¥£® è à¨ª 
 197 
	;⥯¥àì ã ­ á ¢ eax -  ¤à¥á ­ è¥£® è à¨ª 
199 
	mov	edx, ebp
 198 
	mov	edx, ebp
200 
	or	byte [eax], dl
 199 
	or	byte [eax], dl
- 
 
 200 
	inc	[countAllBall]
- 
 
 201 
	;¯®«ã稬 ID ª­®¯ª¨
- 
 
 202 
	sub	eax, lineBall-2
201 
	inc	[countAllBall]
 203 
	mov	[dest], eax
Line 202... Line 204...
202 
	ret
 204 
	ret
203 
 
 - 
 
204 
test_new_ball:
 - 
 
205 
	;¯®«ã稬 ID ª­®¯ª¨
 205 
 
Line 206... Line 206...
206 
	sub	eax, lineBall-2
 206 
test_new_ball:
207 
	call	paint_ball
 207 
	call	paint_ball
208 
 
 208 
 
Line 219... Line 219...
219 
	call	redraw_score
 219 
	call	redraw_score
220 
	@@:
 220 
	@@:
221 
	ret
 221 
	ret
Line 222... Line 222...
222 
 
 222 
 
223 
if lang eq ru
 223 
if lang eq ru
224 
	szTitle  db '–¢¥â­ë¥ «¨­¨¨ v 0.2',0
 224 
	szTitle  db '–¢¥â­ë¥ «¨­¨¨ v 0.3',0
225 
	szNewGame db 'F2 - ­®¢ ï ¨£à ',0
 225 
	szNewGame db 'F2 - ­®¢ ï ¨£à ',0
226 
	szRecord db '¥ª®à¤',0
 226 
	szRecord db '¥ª®à¤',0
227 
	szScore  db 'Žçª¨',0
 227 
	szScore  db 'Žçª¨',0
228 
else
 228 
else
229 
	szTitle  db 'Color lines v 0.2',0
 229 
	szTitle  db 'Color lines v 0.3',0
230 
	szNewGame db 'F2 - new game',0
 230 
	szNewGame db 'F2 - new game',0
231 
	szRecord db 'Record',0
 231 
	szRecord db 'Record',0
232 
	szScore  db 'Score',0
 232 
	szScore  db 'Score',0