Subversion Repositories Kolibri OS

; 10.06.2010 staper@inbox.ru

;�����᪨� ������ - �� ����� ⠪�� 楫�� �ᥫ, �� �� �㬬�

;� ��ப��, �⮫��� (०� � ����������) ࠢ��.

;�ਬ��:

; 16 3  2  13

; 5  10 11 8

; 9  6  7  12

; 4  15 14 1

use32

org	0x0

 db	'MENUET01'

 dd	0x1, START, I_END, (D_END+100) and not 3,  (D_END+100) and not 3, 0, 0

;����:

Bckgrd_clr	equ 0xffffff	;䮭

Brdr_line_clr	equ 0xb0b0b0	;����� �� �࠭�栬

Inter_line_clr	equ 0xb0b0b0	;����७��� �����

Square_clr	equ 0xdddddd	;梥� �����

Fix_nmb_clr	equ 0x83459	;���筮� ���祭��

Chg_nmb_clr	equ 0;x008d8d	;��६����� ���祭��

Text_clr	equ 0x000000	;⥪��

Message_clr	equ 0x0000ff	;ᮮ�饭��

max_dif equ 10

min_dif equ 2

len_kub equ 30	;����� ��஭� �����⨪�

beg_x	equ 40	;���न��� � ������ ���孥�� 㣫�

beg_y	equ 50	;���न��� Y ������ ���孥�� 㣫�

sym_x equ 20

sym_y equ 20

win_x equ 400	;�ਭ� ����

win_y equ 400	;���� ����

DEBUG equ 0

macro dbg_dec num

{pushad

newline

debug_print_dec num

popad

}

include '../../../macros.inc'

;include 'debug.inc'

include 'editbox_ex.mac'

include 'lang.inc'

START:

	;mcall	40,7

redraw_all:

	mcall	12,1

	mcall	48,4

	add	eax,100*65536+win_x

	mov	ecx,eax

	mcall	0,100*65536+win_y,,(0x34000000+Bckgrd_clr),,title

	movzx	eax,[Difficult]

	mov	ebx,len_kub

	xor	edx,edx

	mul	ebx

	add	eax,beg_x*65536+beg_x

	xchg	eax,ebx

	mcall	38,,beg_y*65536+beg_y,Brdr_line_clr

	mov	edx,Inter_line_clr

	movzx	esi,[Difficult]

	dec	esi

  @@:	add	ecx,len_kub*65536+len_kub

	mcall

	dec	esi

	jnz	@b

	add	ecx,len_kub*65536+len_kub

	mcall	,,,Brdr_line_clr

	movzx	eax,[Difficult]

	mov	ecx,len_kub

	xor	edx,edx

	mul	ecx

	add	eax,(beg_y+1)*65536+beg_y-1

	xchg	eax,ecx

	mov	ebx,beg_x*65536+beg_x

	mcall	38,,,Brdr_line_clr

	mov	edx,Inter_line_clr

	movzx	esi,[Difficult]

	dec	esi

  @@:	add	ebx,len_kub*65536+len_kub

	mcall

	dec	esi

	jnz	@b

	add	ebx,len_kub*65536+len_kub

	mcall	,,,Brdr_line_clr

	mcall	8,<4,78>,<4,13>,2,0xbbbbbb

	mcall	4,<8,7>,(0x80000000+Text_clr),txt.clear

	mcall	,<105,7>,,txt.dif

	call	show_level

	push	dword Map;esi;  mov     esi,Map

	mcall	12,2

draw_pole:

	if DEBUG

	call	SysMsgBoardNum	;show esp

	endf

	movzx	eax,[Y]

	dec	al

	movzx	ebx,[Difficult]

	mul	bl

	mov	bl,[X]

	add	al,bl

	pop	esi	;       mov     esi,Map

	push	eax	;�����稪

	movzx	eax,[Difficult]

	mov	ebx,eax

	mul	eax

	sub	eax,ebx

	mov	edi,eax

	pop	eax

	push	eax

;	mov	edi,81-9

	movzx	ebp,[Difficult]

	mov	ebx,beg_x*65536+beg_x+sym_x

	mov	ecx,beg_y*65536+beg_y+sym_y

	call	out_numbers

	pop	eax

	call	out_sum

still:

	mcall	10

	dec	al

	jz	redraw_all

	dec	al

	jz	key

	dec	al

	jnz	still

;button:

	mcall	17

	cmp	ah,1

	jne	@f

	mcall	-1

.clear:

@@:	mov	ecx,max_dif*max_dif

	mov	esi,Map

@@:	mov	byte [esi+ecx-1],0

	loop	@b

	jmp	redraw_all

key:

	mcall	2

.43:	cmp	ah,43		;+

	jne	.45

	cmp	[Difficult],max_dif

	je	still

	inc	[Difficult]

	jmp	redraw_all

	jmp	still

.45:				;-

	cmp	ah,45

	jne	.99

	cmp	[Difficult],min_dif

	je	still

	dec	[Difficult]

	movzx	eax, [Difficult]

	cmp	al, [X]

	jae	@f

	mov	[X], al

@@:

	cmp	al, [Y]

	jae	@f

	mov	[Y], al

@@:

	jmp	redraw_all

	jmp	still

.99:	cmp	ah,0x58

	je	@f

	cmp	ah,0x78

	jne	.39

@@:	jmp	still.clear

.39:	cmp	ah,0x39

	ja	.110

	cmp	ah,0x30

	jb	still

	sub	ah,0x30

	mov	cl,ah

	movzx	eax,[Y]

	dec	al

	mov	ebx,max_dif;[Difficult]

	mul	bl

	mov	bl,[X]

	dec	bl

	add	al,bl

	mov	esi,Map

	bt	[flags],9

	jnc	@f

	mov	bl,[esi+eax]

	push	eax

	mov	ax,10

	xor	dl,dl

	mul	bl

	add	cl,al

	pop	eax

	mov	[esi+eax],cl

	btr	[flags],9

	jmp	.onedraw

   @@:	mov	[esi+eax],cl

	bts	[flags],9

	jmp	.onedraw

.110:	cmp	ah,110		;n

	jne	.176

.new_game:

	jmp	redraw_all

.176:	cmp	ah,176 ;������

	jne	.177

	call	draw_one_symbol

	dec	[X]

	cmp	[X],1

	jge	@f

	push	eax

	movzx	eax,[Difficult]

	mov	[X],al

	pop	eax

@@:	btr	[flags],9

	jmp	.onedraw

.177:	cmp	ah,177

	jne	.178

	call	draw_one_symbol

	inc	[Y]

	push	eax

	movzx	eax,[Difficult]

	cmp	[Y],al

	jbe	@f

	mov	[Y],1

@@:	pop	eax

	btr	[flags],9

	jmp	.onedraw

.178:	cmp	ah,178

	jne	.179

	call	draw_one_symbol

	dec	[Y]

	cmp	[Y],1

	jge	@f

	push	eax

	movzx	eax,[Difficult]

	mov	[Y],al

	pop	eax

@@:	btr	[flags],9

	jmp	.onedraw

.179:	cmp	ah,179

	jne	still

	call	draw_one_symbol

	inc	[X]

	push	eax

	movzx	eax,[Difficult]

	cmp	[X],al

	jbe	@f

	mov	[X],1

@@:	btr	[flags],9

	pop	eax

.onedraw:

	bts	[flags],4

	call	draw_one_symbol

	call	out_one_sum

	jmp	still ;.todraw

show_level:

	movzx	ecx,[Difficult]

	mcall	47,0x80020000,,<205,5>,(0x50000000+Text_clr),Bckgrd_clr

ret

draw_one_symbol:

	movzx	eax,[X]

	mov	ebx,len_kub*65536+len_kub

	mul	ebx

	xchg	eax,ebx

	add	ebx,(beg_x*65536+beg_y-len_kub*65536+len_kub)

	movzx	eax,[Y]

	mov	ecx,len_kub*65536+len_kub

	mul	ecx

	xchg	eax,ecx

	add	ecx,(beg_y*65536+beg_y+sym_y-len_kub*65536+len_kub)

	movzx	eax,[Y]

	dec	al

	push	ebx

	movzx	ebx,[Difficult]

	mul	bl

	mov	bl,[X]

	add	al,bl

	dec	al

	pop	ebx

	mov	esi,Map

	add	esi,eax

	push	dword 0 ;�� �����

	bt	[flags],4

	jnc	@f

	mov	dword [esp],1 ;�����

	btr	[flags],4

@@:	mov	edi,0

	mov	ebp,1

	call	out_numbers

	pop	eax

ret

out_numbers:

	push	ebx ecx esi

	shr	ebx,16

	inc	bx

	shl	ebx,16

	add	ebx,len_kub-1

	shr	ecx,16

	inc	cx

	shl	ecx,16

	add	ecx,len_kub-1

	mov	edx,Bckgrd_clr

	push	ebp

	dec	dword [esp+4*5]

	jnz	@f

	mov	edx,Square_clr

@@:	mcall	13

	pop	ebp

	pop	esi

	push	ebx edx

	mov	eax,esi

	sub	eax,Map-1

	xor	edx,edx

	movzx	ebx,[Difficult]

	div	ebx

	push	edx

	xor	edx,edx

	mov	ebx,max_dif

	mul	ebx

	pop	edx

	test	edx,edx

	jnz	@f

	movzx	edx,[Difficult]

	sub	eax,max_dif

@@:	add	eax,edx

	mov	al,[eax+Map-1]

	pop	edx ebx

	test	al,al

;	cmp	byte [esi],0

	jnz	.changeable_number

	jmp	.null

.end:

	inc	esi

	dec	ebp

	jnz	out_numbers

	test	edi,edi

	jz	@f

	push	ebx edx

	movzx	eax,[Difficult]

	sub	edi,eax

	mov	ebp,eax

	mov	ebx,len_kub*65536

	xor	edx,edx

	mul	ebx

	push	eax

	movzx	eax,[Difficult]

	mov	ebx,len_kub

	mul	ebx

	pop	ebx

	add	eax,ebx

	pop	edx

	pop	ebx

	sub	ebx,eax

;	add	ebx,-9*24*65536-9*24

	add	ecx,len_kub*65536+len_kub

	jmp	out_numbers

  @@:

ret

.null:

	pop	ecx ebx

	add	ebx,len_kub*65536+len_kub

	jmp	.end

.changeable_number:

	push	esi

	shr	ebx,16

	shr	ecx,16

	mov	dx,bx

	shl	edx,16

	mov	dx,cx

	add	edx,8*65536+4

	push	ebx edx

	mov	eax,esi

	sub	eax,Map-1

	xor	edx,edx

	movzx	ebx,[Difficult]

	div	ebx

	push	edx

	xor	edx,edx

	mov	ebx,max_dif

	mul	ebx

	pop	edx

	test	edx,edx

	jnz	@f

	movzx	edx,[Difficult]

	sub	eax,max_dif

@@:	add	eax,edx

	pop	edx ebx

	movzx	ebx,byte [eax+Map-1];[esi]

	push	esi ebp edi edx

	sub	edx,2*65536-3

	push	edx

	xchg	eax,ebx

	mov	ebx,10

	xor	edx,edx

	div	ebx

	mov	ebx,edx

	pop	edx

	push	ebx

	test	eax,eax

	jz	.only_first_num

;	bt	[flags],9

;	jc	.only_first_num

	xchg	eax,ebx

	shl	bx,4

	add	ebx,FONT

	mov	ecx,8*65536+16

	mov	edi,Pltr.ch

	cmp	dword [esp+4*9],0

	jne	@f

	mov	edi,Pltr.chk

@@:	mov	esi,1

	mov	ebp,0

	mcall	65

.only_first_num:

	pop	ebx

	shl	bl,4

	add	ebx,FONT

	mov	ecx,8*65536+16

	add	edx,8*65536

	mov	edi,Pltr.ch

	cmp	dword [esp+4*8],0

	jne	@f

	mov	edi,Pltr.chk

@@:	mov	esi,1

	mov	ebp,0

	mcall	65

	pop	edx edi ebp esi

	pop	esi ecx ebx

	add	ebx,len_kub*65536+len_kub

	jmp	.end

out_sum:

	movzx	eax,[Difficult]

	push	eax

	mov	esi,Map

	mov	edi,out_sum_buf

.1:	xor	ebx,ebx

	xor	ecx,ecx

	xor	edx,edx

.2:	mov	dl,[ebx+esi]

	add	ecx,edx

	inc	ebx

	cmp	ebx,[esp]

	jne	.2

	mov	word [edi],cx

	add	edi,2

	add	esi,max_dif

	dec	eax

	jnz	.1

	push	out_sum_buf

	movzx	eax,[Difficult]

	mov	ebx,len_kub*65536

	xor	edx,edx

	mul	ebx

	add	eax,40*65536

	push	eax

	mov	edx,(beg_x-30)*65536+beg_y+10

	mov	ebx,0x30000

	mov	esi,0x50000000+Fix_nmb_clr

	mov	edi,Bckgrd_clr

.3:	mov	ecx,[esp+4]

	mov	cx,[ecx]

	shl	ecx,16

	shr	ecx,16

	mcall	47

	push	edx

	add	edx,[esp+4]

	mcall

	pop	edx

	add	edx,len_kub

	add	dword [esp+4],2

	dec	dword [esp+8]

	jnz	.3

	pop	eax

	pop	eax

	pop	eax

	movzx	eax,[Difficult]

	push	eax

	mov	esi,Map

	mov	edi,out_sum_buf

	xor	ebx,ebx

.4:	xor	ecx,ecx

	xor	edx,edx

	mov	ebx,[esp]

.5:	mov	dl,[esi]

	add	ecx,edx

	add	esi,max_dif

	dec	ebx

	jnz	.5

	mov	word [edi],cx

	add	edi,2

	push	eax

	mov	eax,max_dif

	xor	edx,edx

	mul	dword [esp+4]

	dec	eax

	sub	esi,eax

	pop	eax

	dec	eax

	jnz	.4

	push	out_sum_buf

	movzx	eax,[Difficult]

	mov	ebx,len_kub

	xor	edx,edx

	mul	ebx

	add	eax,35

	push	eax

	mov	edx,(beg_x+5)*65536+beg_y-20

	mov	ebx,0x30000

	mov	esi,0x50000000+Fix_nmb_clr

	mov	edi,Bckgrd_clr

.6:	mov	ecx,[esp+4]

	mov	ecx,[ecx]

	shl	ecx,16

	shr	ecx,16

	mcall	47

	push	edx

	add	edx,[esp+4]

	mcall

	pop	edx

	add	edx,len_kub*65536;[esp]

	add	dword [esp+4],2

	dec	dword [esp+8]

	jnz	.6

	pop	eax

	pop	eax

	pop	eax

ret

out_one_sum:

	movzx	ecx,[Difficult]

	mov	esi,Map

	xor	edx,edx

	movzx	eax,[Y]

	dec	al

	mov	ebx,max_dif

	mul	bl

	add	esi,eax

@@:	mov	al,[esi]

	inc	esi

	add	edx,eax

	loop	@b

	mov	ecx,edx

	movzx	eax,[Difficult]

	mov	ebx,len_kub*65536

	xor	edx,edx

	mul	ebx

	add	eax,40*65536

	push	eax

	movzx	eax,[Y]

	dec	eax

	mov	ebx,len_kub

	xor	edx,edx

	mul	ebx

	mov	edx,(beg_x-30)*65536+beg_y+10

	add	edx,eax

	mov	ebx,0x30000

	mov	esi,0x50000000+Fix_nmb_clr

	mov	edi,Bckgrd_clr

	mcall	47

	add	edx,[esp]

	mcall

	pop	eax

	movzx	ecx,[Difficult]

	mov	esi,Map

	xor	edx,edx

	movzx	eax,[X]

	dec	al

	add	esi,eax

@@:	mov	al,[esi]

	add	esi,max_dif

	add	edx,eax

	loop	@b

	mov	ecx,edx

	movzx	eax,[Difficult]

	mov	ebx,len_kub

	xor	edx,edx

	mul	ebx

	add	eax,35

	push	eax

	movzx	eax,[X]

	dec	eax

	mov	ebx,len_kub*65536

	xor	edx,edx

	mul	ebx

	mov	edx,eax

	add	edx,(beg_x+5)*65536+beg_y-20

	mov	ebx,0x30000

	mov	esi,0x50000000+Fix_nmb_clr

	mov	edi,Bckgrd_clr

	mcall	47

	add	edx,[esp]

	mcall

	pop	edx

ret

if DEBUG

SysMsgBoardNum: ;warning: destroys eax,ebx,ecx,esi

	mov	ebx,esp

	mov	ecx,8

	mov	esi,(number_to_out+1)

.1:

	mov	eax,ebx

	and	eax,0xF

	add	al,'0'

	cmp	al,(10+'0')

	jb	@f

	add	al,('A'-'0'-10)

@@:

	mov	[esi+ecx],al

	shr	ebx,4

	loop	.1

	dec	esi

	mcall	71,1,number_to_out

ret

number_to_out	db '0x00000000',13,10,0

endf

if lang eq ru

title db '�����᪨� ������',0

txt:

.dif db "��������� (+/-):",0

.clear db '������ (x)',0

else

title db 'Magical square',0

txt:

.dif db "Difficult (+/-)",0

.clear db 'Clear (x)',0

endf

align 4

;�������:

Pltr:

.ch dd Bckgrd_clr,Chg_nmb_clr

.chk dd Square_clr,Chg_nmb_clr

.fx dd Bckgrd_clr,Fix_nmb_clr

.fxk dd Square_clr,Fix_nmb_clr

FONT file "MSquare.fnt"

X db 1

Y db 1

Difficult db 3

I_END:

align 16

Map	rb max_dif*max_dif

out_sum_buf rw max_dif

flags rw 1

D_END:

;��� 0: �. ��। draw_pole

;2: � draw_pole � key

;4: in draw_one_symbol

;9: ����� ��ࢠ� ��� �᫠