WebSVN – Kolibri OS – Diff – /programs/games/mblocks/trunk/mblocks.asm


use32
	db	'MENUET01'
	dd	1
	dd	start
	dd	i_end
	dd	mem
	dd	mem
	dd	0
	dd	0
 
; field size in items
FieldWidth = 10
FieldHeight = 6
 
; size of one picture in pixels
ImageWidth = 32
ImageHeight = 32
 
; size of one button in pixels
ButtonWidth = ImageWidth + 6
ButtonHeight = ImageHeight + 6
 
SpaceWidth = ButtonWidth + 4
SpaceHeight = ButtonHeight + 4
 
; size of window in pixels
WindowWidth = 434
WindowHeight = 291	; excluding skin height
 
if FieldWidth*FieldHeight mod 2
error field size must be an even number!
end if
 
draw_frame:
; in: ebx=[xstart]*65536+[xsize],ecx=[ystart]*65536+[ysize],edx=color
;	ystart is relative to SkinHeight
; out: nothing
; destroys: eax,ecx
	push	13
	pop	eax
	ror	ecx, 16
	add	ecx, [SkinHeight]
	push	ecx
	shl	ecx, 16
	inc	ecx
	int	0x40	; ebx=[xstart]*65536+[xsize], ecx=[ystart]*65536+1
	ror	ecx, 16
	add	cx, [esp+2]
	ror	ecx, 16
	int	0x40	; ebx=[xstart]*65536+[xsize], ecx=([ystart]+[ysize])*65536+1
	pop	ecx
	ror	ecx, 16
	push	ebx
	mov	bx, 1
	int	0x40	; ebx=[xstart]*65536+1, ecx=[ystart]*65536+[ysize]
	ror	ebx, 16
	add	bx, [esp]
	ror	ebx, 16
	inc	ecx
	int	0x40	; ebx=([xstart]+[xsize])*65536+1, ecx=[ystart]*65536+([ysize]+1)
	dec	ecx
	pop	ebx
	ret
 
draw_button:
; in: ebx=[xstart]*65536+[xsize],ecx=[ystart]*65536+[ysize],edx=button color,esi=id
;	ystart is relative to SkinHeight
; out: nothing
; destroys: eax
	push	edx
	mov	edx, 0x94AECE
	call	draw_frame
	mov	edx, 0xFFFFFF
	push	ebx
	add	ebx, 0xFFFF
	push	ecx
	add	ecx, 0x10000
	mov	cx, 1
	int	0x40	; ebx=([xstart]+1)*65536+([xsize]-1), ecx=([ystart]+1)*65536+1
	pop	ecx
	mov	edx, 0xC0C0C0
	dec	ebx
	push	ecx
	shr	ecx, 16
	add	ecx, [esp]
	dec	ecx
	shl	ecx, 16
	inc	ecx
	int	0x40	; ebx=([xstart]+1)*65536+([xsize]-2), ecx=([ystart]+[ysize]-1)*65536+1
	pop	ecx
	mov	edx, 0xFFFFFF
	push	ecx
	add	ecx, 0xFFFF
	push	ebx
	mov	bx, 1
	int	0x40	; ebx=([xstart]+1)*65536+1, ecx=([ystart]+1)*65536+([ysize]-1)
	pop	ebx
	push	ebx
	shr	ebx, 16
	add	ebx, [esp]
	shl	ebx, 16
	inc	ebx
	mov	edx, 0xC0C0C0
	add	ecx, 0xFFFF
	int	0x40	; ebx=([xstart]+[xsize]-1)*65536+1, ecx=([ystart]+2)*65536+([ysize]-2)
	pop	ebx
	pop	ecx
	pop	ebx
	pop	edx
	push	ebx ecx
	add	ebx, 20000h - 3
	add	ecx, 20000h - 3
	int	0x40
	pop	ecx ebx
	push	edx
	mov	edx, esi
	or	edx, 0x80000000
	mov	al, 8
	int	0x40
	mov	edx, esi
	or	edx, 0x40000000
	int	0x40
	pop	edx
	ret
 
;digits_ptr	dd	0
;digits_str	rb	11
 
;images:
;	file	'mblocks.raw'
images:
	file	'mblocksi.raw'
palette:
	file	'mblocksp.raw'
 
aNewGame_ru	db	'®¢ ï ¨£à (F2)',0
aCount_ru	db	' ç¥â:',0
aRu		db	'RU',0
aNewGame_en	db	'New  game (F2)',0
aCount_en	db	'Count:',0
aEn		db	'EN',0
 
CurLanguage	db	0	; 0=russian, 1=english
 
field_status	rb	60	; status of field elements: 0=closed, 1=temporarily opened, 2=permanently opened
field_items	rb	60	; items in field
 
count		dd	0
 
start:
	push	26
	pop	eax
	push	5
	pop	ebx
	int	0x40
	cmp	eax, 4
	setnz	[CurLanguage]
	call	generate
; get skin height
	push	48
	pop	eax
	push	4
	pop	ebx
	int	0x40
	mov	[SkinHeight], eax
; no previous click
	mov	eax, 0xBAD
	mov	[FirstClick], eax
	mov	[SecondClick], eax
; draw window
redraw:
	call	draw_window
; events loop
evloop:
	push	10
	pop	eax
	int	0x40
	dec	eax
	jz	redraw
	dec	eax
	jz	key
	mov	al, 17
	int	0x40
	shr	eax, 8
;	cmp	eax, 6
;	jz	set_lang
	cmp	eax, 5
	jz	new_game
	cmp	eax, 1
	jnz	field_pressed
	push	-1
	pop	eax
	int	0x40
key:
	mov	al, 2
	int	0x40
	cmp	ah, '3'		; F2?
	jnz	evloop
new_game:
	mov	edi, field_status
	mov	ecx, FieldWidth*FieldHeight/2
	xor	eax, eax
	rep	stosd
	mov	[count], eax
	mov	eax, 0xBAD
	mov	[FirstClick], eax
	mov	[SecondClick], eax
	call	generate
	call	draw_field
@@:
	call	draw_aux
	jmp	evloop
;set_lang:
;	xor	[CurLanguage], 1
;	jmp	@b
field_pressed:
	sub	eax, 100
	cmp	[field_status+eax], 0
	jnz	cont
	mov	ebx, [FirstClick]
	mov	ecx, [SecondClick]
	cmp	ebx, 0xBAD
	jz	first_click
	cmp	ecx, 0xBAD
	jz	second_click
	mov	dl, [field_items+ecx]
	cmp	[field_items+ebx], dl
	jnz	dont_match
	mov	[field_status+ebx], 2
	mov	[field_status+ecx], 2
	jmp	@f
dont_match:
	mov	[field_status+ebx], 0
	mov	[field_status+ecx], 0
@@:
	push	eax ecx
	mov	eax, ebx
	call	draw_field_item
	pop	eax
	call	draw_field_item
	mov	[SecondClick], 0xBAD
	pop	eax
	mov	[FirstClick], eax
	jmp	@f
second_click:
	cmp	[FirstClick], eax
	jz	cont
	mov	[SecondClick], eax
@@:
	mov	[field_status+eax], 1
	call	draw_field_item
	inc	[count]
cont:
	call	draw_count
	jmp	evloop
first_click:
	mov	[FirstClick], eax
	jmp	@b
 
draw_window:
 
	mov eax, 48
 
	mov ebx, 3
	mov ecx, color_table
 
	mov edx, 40
	int	0x40 	; get color table
 
	mov eax, 12
 
	mov ebx, 1
	int	0x40	; start redraw
	
	xor	eax, eax
	mov	ebx, 100*65536 + WindowWidth
	mov	ecx, 100*65536 + WindowHeight
	add	ecx, [SkinHeight]
	mov	edx, 0x14C0C0C0
 
 
 
	mov	edi, caption
	int	0x40
	
	call	draw_aux
	call	draw_field
	
	mov eax, 12
 
	mov ebx, 2
	int	0x40	; end redraw
	
	ret
 
caption	db	'Memory Blocks L&V Edition',0
 
generate:
; generate random field
	xor	edi, edi
.loop:
	call	random
	cmp	[field_items+edx], 0
	jnz	.loop
	mov	eax, edi
	shr	eax, 1
	inc	eax
	mov	[field_items+edx], al
	inc	edi
	cmp	edi, FieldWidth*FieldHeight
	jb	.loop
	ret
 
draw_field_item:
; in: eax=field item
; out: nothing
; destroys: eax,ebx,ecx,edx,esi
	mov	esi, eax
	lea	edx, [eax+0x80000000+100]
	push	8
	pop	eax
	int	0x40	; delete old button
	mov	ebx, [xstart+esi*4]
	shl	ebx, 16
	mov	bl, ButtonWidth
	mov	ecx, [ystart+esi*4]
	add	ecx, [SkinHeight]
	shl	ecx, 16
	mov	cl, ButtonHeight
	lea	edx, [esi+0x40000000+100]
	int	0x40	; define new button
	ror	ecx, 16
	sub	ecx, [SkinHeight]
	ror	ecx, 16
	mov	al, [field_status+esi]
	dec	eax
	js	draw_closed_item
	jz	draw_current_item
draw_opened_item:
	mov	edx, 0x94AECE
	call	draw_frame
	mov	edx, 0xEFEBEF
	add	ebx, 0xFFFF
	add	ecx, 0xFFFF
	mov	al, 13
	int	0x40
	jmp	draw_item_image
draw_current_item:
	push	ebx ecx
	mov	edx, 0x94AECE
	call	draw_frame
	pop	ecx ebx
	add	ebx, 10000h
	add	ecx, 10000h
	push	ebx ecx
	mov	bl, ButtonWidth-2
	mov	cl, ButtonHeight-2
	mov	edx, 0x94DB00
	call	draw_frame
	pop	ecx ebx
	add	ebx, 10000h
	add	ecx, 10000h
	mov	bl, ButtonWidth-4
	mov	cl, ButtonHeight-4
	mov	edx, 0x94DB00
	call	draw_frame
	add	ebx, 10000h
	add	ecx, 10000h
	mov	bl, ButtonWidth-5
	mov	cl, ButtonHeight-5
	mov	edx, 0xEFEBEF
	int	0x40
draw_item_image:
;	push	7
;	pop	eax
;	movzx	ebx, [field_items+esi]
;	dec	ebx
;	imul	ebx, ImageWidth*ImageHeight*3
;	add	ebx, images
;	mov	ecx, ImageWidth*10000h+ImageHeight
;	mov	edx, [xstart+esi*4]
;	shl	edx, 16
;	add	edx, [ystart+esi*4]
;	add	edx, 3*10001h
;	add	edx, [SkinHeight]
;	int	0x40
	push	65
	pop	eax
	movzx	ebx, [field_items+esi]
	dec	ebx
	imul	ebx, ImageWidth*ImageHeight
	add	ebx, images
	mov	ecx, ImageWidth*10000h+ImageHeight
	mov	edx, [xstart+esi*4]
	shl	edx, 16
	add	edx, [ystart+esi*4]
	add	edx, 3*10001h
	add	edx, [SkinHeight]
	push	8
	pop	esi
	mov	edi, palette
	xor	ebp, ebp
	int	0x40
	ret
draw_closed_item:
	mov	edx, 0x94AECE
	call	draw_frame
	push	38
	pop	eax
	shr	ebx, 16
	inc	ebx
	imul	ebx, 0x10001
	push	ebx
	add	ebx, ButtonWidth-2
	shr	ecx, 16
	inc	ecx
	imul	ecx, 0x10001
	mov	edx, 0xFFFFFF
	int	0x40
	pop	ebx
	push	ecx
	add	ecx, ButtonHeight-3
	int	0x40
	pop	ecx
	push	ebx ecx
	add	ebx, ButtonWidth-2
	shr	ecx, 16
	add	ecx, ButtonHeight-2
	imul	ecx, 0x10001
	mov	edx, 0xDEDEDE
	int	0x40
	pop	ecx
	push	ecx
	movzx	ebx, bx
	imul	ebx, 0x10001
	add	ecx, 10000h+ButtonHeight-3
	int	0x40
	pop	ecx ebx
	add	ebx, 10000h
	mov	bx, ButtonWidth-3
	add	ecx, 10000h
	mov	cx, ButtonHeight-3
	mov	al, 13
	mov	edx, 0xBDC7D6
	int	0x40
	ret
 
draw_field:
	xor	ebx, ebx
	xor	ecx, ecx
	mov	edi, xstart
.loop:
	mov	eax, ebx
	imul	eax, SpaceWidth
	add	eax, 9
	stosd
	mov	eax, ecx
	imul	eax, SpaceHeight
	add	eax, 4
	mov	[edi+ystart-xstart-4], eax
	lea	eax, [edi-xstart-4]
	shr	eax, 2
	push	ebx ecx edi
	call	draw_field_item
	pop	edi ecx ebx
	inc	ecx
	cmp	ecx, FieldHeight
	jb	.loop
	xor	ecx, ecx
	inc	ebx
	cmp	ebx, FieldWidth
	jb	.loop
	ret
 
draw_aux:
	push	13
	pop	eax
	mov	ebx, 5*65536 + 425
	mov	ecx, [SkinHeight]
	shl	ecx, 16
	add	ecx, 256*65536 + 1
	mov	edx, 0xFFFFFF
	int	0x40
	add	ecx, 1*65536 + 29
	mov	edx, [color_table+5*4]
	int	0x40
	push	8
	pop	eax
	mov	ebx, 14*65536 + 107
	add	ecx, 3*65536 - 7
	push	5
	pop	edx
	mov	esi, [color_table+6*4]
	int	0x40
	push	4
	pop	eax
	mov	ebx, 27*65536 + 268
	add	ebx, [SkinHeight]
	mov	ecx, [color_table+7*4]
	or	ecx, 0x80000000
	mov	edx, aNewGame_ru
	cmp	[CurLanguage], 0
	jz	@f
	mov	edx, aNewGame_en
@@:
	int	0x40
	mov	ebx, 155*65536 + 268
	add	ebx, [SkinHeight]
	mov	ecx, [color_table+8*4]
	or	ecx, 0x80000000
	mov	edx, aCount_ru
	cmp	[CurLanguage], 0
	jz	@f
	mov	edx, aCount_en
@@:
	int	0x40
	call	draw_count
	mov	al, 13
	mov	ecx, [SkinHeight]
	shl	ecx, 16
	mov	ebx, 405*65536 + 2
	add	ecx, 265*65536 + 2
	mov	edx, 0xBDCBDE
	int	0x40
	mov	ebx, 403*65536 + 6
	add	ecx, (270*65536 + 6) - (265*65536 + 2)
	int	0x40
	mov	ebx, 411*65536 + 6
	add	ecx, (275*65536 + 6) - (270*65536 + 6)
	int	0x40
	mov	ebx, 412*65536 + 9
	add	ecx, (262*65536 + 8) - (275*65536 + 6)
	mov	edx, 0xD6D7CE
	int	0x40
	ret
 
draw_count:
	mov	edi, string_for_number+15
	mov	eax, [count]
	push	10
	pop	ecx
@@:
	xor	edx, edx
	div	ecx
	dec	edi
	add	dl, '0'
	mov	[edi], dl
	test	eax, eax
	jnz	@b
	mov	al, 4
	mov	ebx, [SkinHeight]
	add	ebx, 195*65536 + 268
	mov	ecx, [color_table+8*4]
	or	ecx, 0xC0000000
	mov	edx, edi
	mov	edi, [color_table+5*4]
	int	0x40
	ret
 
random:
; in: nothing
; out: edx = random value in [0..FieldWidth*FieldHeight-1]
; destroys: eax,ecx,edx
	rdtsc
	xor	edx, eax
	not	edx
	mov	eax, [RandSeed]
	ror	eax, 3
	xor	eax, 0DEADBEEFh
	add	eax, edx
	mov	[RandSeed], eax
	add	eax, edx
	xor	edx, edx
	push	FieldWidth*FieldHeight
	pop	ecx
	div	ecx
	ret
 
i_end:
 
SkinHeight	dd	?
color_table	rd	10
RandSeed	dd	?
FirstClick	dd	?
SecondClick	dd	?
string_for_number	rb	16
xstart		rd	60
ystart		rd	60
 
align 1000h
stk	rb	1000h
mem:

Rev 1446	Rev 2285
1	use32	1	use32
2	db 'MENUET01'	2	db 'MENUET01'
3	dd 1	3	dd 1
4	dd start	4	dd start
5	dd i_end	5	dd i_end
6	dd mem	6	dd mem
7	dd mem	7	dd mem
8	dd 0	8	dd 0
9	dd 0	9	dd 0
10		10
11	; field size in items	11	; field size in items
12	FieldWidth = 10	12	FieldWidth = 10
13	FieldHeight = 6	13	FieldHeight = 6
14		14
15	; size of one picture in pixels	15	; size of one picture in pixels
16	ImageWidth = 32	16	ImageWidth = 32
17	ImageHeight = 32	17	ImageHeight = 32
18		18
19	; size of one button in pixels	19	; size of one button in pixels
20	ButtonWidth = ImageWidth + 6	20	ButtonWidth = ImageWidth + 6
21	ButtonHeight = ImageHeight + 6	21	ButtonHeight = ImageHeight + 6
22		22
23	SpaceWidth = ButtonWidth + 4	23	SpaceWidth = ButtonWidth + 4
24	SpaceHeight = ButtonHeight + 4	24	SpaceHeight = ButtonHeight + 4
25		25
26	; size of window in pixels	26	; size of window in pixels
27	WindowWidth = 434	27	WindowWidth = 434
28	WindowHeight = 291 ; excluding skin height	28	WindowHeight = 291 ; excluding skin height
29		29
30	if FieldWidth*FieldHeight mod 2	30	if FieldWidth*FieldHeight mod 2
31	error field size must be an even number!	31	error field size must be an even number!
32	end if	32	end if
33		33
34	draw_frame:	34	draw_frame:
35	; in: ebx=[xstart]65536+[xsize],ecx=[ystart]65536+[ysize],edx=color	35	; in: ebx=[xstart]65536+[xsize],ecx=[ystart]65536+[ysize],edx=color
36	; ystart is relative to SkinHeight	36	; ystart is relative to SkinHeight
37	; out: nothing	37	; out: nothing
38	; destroys: eax,ecx	38	; destroys: eax,ecx
39	push 13	39	push 13
40	pop eax	40	pop eax
41	ror ecx, 16	41	ror ecx, 16
42	add ecx, [SkinHeight]	42	add ecx, [SkinHeight]
43	push ecx	43	push ecx
44	shl ecx, 16	44	shl ecx, 16
45	inc ecx	45	inc ecx
46	int 0x40 ; ebx=[xstart]65536+[xsize], ecx=[ystart]65536+1	46	int 0x40 ; ebx=[xstart]65536+[xsize], ecx=[ystart]65536+1
47	ror ecx, 16	47	ror ecx, 16
48	add cx, [esp+2]	48	add cx, [esp+2]
49	ror ecx, 16	49	ror ecx, 16
50	int 0x40 ; ebx=[xstart]65536+[xsize], ecx=([ystart]+[ysize])65536+1	50	int 0x40 ; ebx=[xstart]65536+[xsize], ecx=([ystart]+[ysize])65536+1
51	pop ecx	51	pop ecx
52	ror ecx, 16	52	ror ecx, 16
53	push ebx	53	push ebx
54	mov bx, 1	54	mov bx, 1
55	int 0x40 ; ebx=[xstart]65536+1, ecx=[ystart]65536+[ysize]	55	int 0x40 ; ebx=[xstart]65536+1, ecx=[ystart]65536+[ysize]
56	ror ebx, 16	56	ror ebx, 16
57	add bx, [esp]	57	add bx, [esp]
58	ror ebx, 16	58	ror ebx, 16
59	inc ecx	59	inc ecx
60	int 0x40 ; ebx=([xstart]+[xsize])65536+1, ecx=[ystart]65536+([ysize]+1)	60	int 0x40 ; ebx=([xstart]+[xsize])65536+1, ecx=[ystart]65536+([ysize]+1)
61	dec ecx	61	dec ecx
62	pop ebx	62	pop ebx
63	ret	63	ret
64		64
65	draw_button:	65	draw_button:
66	; in: ebx=[xstart]65536+[xsize],ecx=[ystart]65536+[ysize],edx=button color,esi=id	66	; in: ebx=[xstart]65536+[xsize],ecx=[ystart]65536+[ysize],edx=button color,esi=id
67	; ystart is relative to SkinHeight	67	; ystart is relative to SkinHeight
68	; out: nothing	68	; out: nothing
69	; destroys: eax	69	; destroys: eax
70	push edx	70	push edx
71	mov edx, 0x94AECE	71	mov edx, 0x94AECE
72	call draw_frame	72	call draw_frame
73	mov edx, 0xFFFFFF	73	mov edx, 0xFFFFFF
74	push ebx	74	push ebx
75	add ebx, 0xFFFF	75	add ebx, 0xFFFF
76	push ecx	76	push ecx
77	add ecx, 0x10000	77	add ecx, 0x10000
78	mov cx, 1	78	mov cx, 1
79	int 0x40 ; ebx=([xstart]+1)65536+([xsize]-1), ecx=([ystart]+1)65536+1	79	int 0x40 ; ebx=([xstart]+1)65536+([xsize]-1), ecx=([ystart]+1)65536+1
80	pop ecx	80	pop ecx
81	mov edx, 0xC0C0C0	81	mov edx, 0xC0C0C0
82	dec ebx	82	dec ebx
83	push ecx	83	push ecx
84	shr ecx, 16	84	shr ecx, 16
85	add ecx, [esp]	85	add ecx, [esp]
86	dec ecx	86	dec ecx
87	shl ecx, 16	87	shl ecx, 16
88	inc ecx	88	inc ecx
89	int 0x40 ; ebx=([xstart]+1)65536+([xsize]-2), ecx=([ystart]+[ysize]-1)65536+1	89	int 0x40 ; ebx=([xstart]+1)65536+([xsize]-2), ecx=([ystart]+[ysize]-1)65536+1
90	pop ecx	90	pop ecx
91	mov edx, 0xFFFFFF	91	mov edx, 0xFFFFFF
92	push ecx	92	push ecx
93	add ecx, 0xFFFF	93	add ecx, 0xFFFF
94	push ebx	94	push ebx
95	mov bx, 1	95	mov bx, 1
96	int 0x40 ; ebx=([xstart]+1)65536+1, ecx=([ystart]+1)65536+([ysize]-1)	96	int 0x40 ; ebx=([xstart]+1)65536+1, ecx=([ystart]+1)65536+([ysize]-1)
97	pop ebx	97	pop ebx
98	push ebx	98	push ebx
99	shr ebx, 16	99	shr ebx, 16
100	add ebx, [esp]	100	add ebx, [esp]
101	shl ebx, 16	101	shl ebx, 16
102	inc ebx	102	inc ebx
103	mov edx, 0xC0C0C0	103	mov edx, 0xC0C0C0
104	add ecx, 0xFFFF	104	add ecx, 0xFFFF
105	int 0x40 ; ebx=([xstart]+[xsize]-1)65536+1, ecx=([ystart]+2)65536+([ysize]-2)	105	int 0x40 ; ebx=([xstart]+[xsize]-1)65536+1, ecx=([ystart]+2)65536+([ysize]-2)
106	pop ebx	106	pop ebx
107	pop ecx	107	pop ecx
108	pop ebx	108	pop ebx
109	pop edx	109	pop edx
110	push ebx ecx	110	push ebx ecx
111	add ebx, 20000h - 3	111	add ebx, 20000h - 3
112	add ecx, 20000h - 3	112	add ecx, 20000h - 3
113	int 0x40	113	int 0x40
114	pop ecx ebx	114	pop ecx ebx
115	push edx	115	push edx
116	mov edx, esi	116	mov edx, esi
117	or edx, 0x80000000	117	or edx, 0x80000000
118	mov al, 8	118	mov al, 8
119	int 0x40	119	int 0x40
120	mov edx, esi	120	mov edx, esi
121	or edx, 0x40000000	121	or edx, 0x40000000
122	int 0x40	122	int 0x40
123	pop edx	123	pop edx
124	ret	124	ret
125		125
126	;digits_ptr dd 0	126	;digits_ptr dd 0
127	;digits_str rb 11	127	;digits_str rb 11
128		128
129	;images:	129	;images:
130	; file 'mblocks.raw'	130	; file 'mblocks.raw'
131	images:	131	images:
132	file 'mblocksi.raw'	132	file 'mblocksi.raw'
133	palette:	133	palette:
134	file 'mblocksp.raw'	134	file 'mblocksp.raw'
135		135
136	aNewGame_ru db '®¢ ï ¨£à (F2)',0	136	aNewGame_ru db '®¢ ï ¨£à (F2)',0
137	aCount_ru db ' ç¥â:',0	137	aCount_ru db ' ç¥â:',0
138	aRu db 'RU',0	138	aRu db 'RU',0
139	aNewGame_en db 'New game (F2)',0	139	aNewGame_en db 'New game (F2)',0
140	aCount_en db 'Count:',0	140	aCount_en db 'Count:',0
141	aEn db 'EN',0	141	aEn db 'EN',0
142		142
143	CurLanguage db 0 ; 0=russian, 1=english	143	CurLanguage db 0 ; 0=russian, 1=english
144		144
145	field_status rb 60 ; status of field elements: 0=closed, 1=temporarily opened, 2=permanently opened	145	field_status rb 60 ; status of field elements: 0=closed, 1=temporarily opened, 2=permanently opened
146	field_items rb 60 ; items in field	146	field_items rb 60 ; items in field
147		147
148	count dd 0	148	count dd 0
149		149
150	start:	150	start:
151	push 26	151	push 26
152	pop eax	152	pop eax
153	push 5	153	push 5
154	pop ebx	154	pop ebx
155	int 0x40	155	int 0x40
156	cmp eax, 4	156	cmp eax, 4
157	setnz [CurLanguage]	157	setnz [CurLanguage]
158	call generate	158	call generate
159	; get skin height	159	; get skin height
160	push 48	160	push 48
161	pop eax	161	pop eax
162	push 4	162	push 4
163	pop ebx	163	pop ebx
164	int 0x40	164	int 0x40
165	mov [SkinHeight], eax	165	mov [SkinHeight], eax
166	; no previous click	166	; no previous click
167	mov eax, 0xBAD	167	mov eax, 0xBAD
168	mov [FirstClick], eax	168	mov [FirstClick], eax
169	mov [SecondClick], eax	169	mov [SecondClick], eax
170	; draw window	170	; draw window
171	redraw:	171	redraw:
172	call draw_window	172	call draw_window
173	; events loop	173	; events loop
174	evloop:	174	evloop:
175	push 10	175	push 10
176	pop eax	176	pop eax
177	int 0x40	177	int 0x40
178	dec eax	178	dec eax
179	jz redraw	179	jz redraw
180	dec eax	180	dec eax
181	jz key	181	jz key
182	mov al, 17	182	mov al, 17
183	int 0x40	183	int 0x40
184	shr eax, 8	184	shr eax, 8
185	; cmp eax, 6	185	; cmp eax, 6
186	; jz set_lang	186	; jz set_lang
187	cmp eax, 5	187	cmp eax, 5
188	jz new_game	188	jz new_game
189	cmp eax, 1	189	cmp eax, 1
190	jnz field_pressed	190	jnz field_pressed
191	push -1	191	push -1
192	pop eax	192	pop eax
193	int 0x40	193	int 0x40
194	key:	194	key:
195	mov al, 2	195	mov al, 2
196	int 0x40	196	int 0x40
197	cmp ah, '3' ; F2?	197	cmp ah, '3' ; F2?
198	jnz evloop	198	jnz evloop
199	new_game:	199	new_game:
200	mov edi, field_status	200	mov edi, field_status
201	mov ecx, FieldWidth*FieldHeight/2	201	mov ecx, FieldWidth*FieldHeight/2
202	xor eax, eax	202	xor eax, eax
203	rep stosd	203	rep stosd
204	mov [count], eax	204	mov [count], eax
205	mov eax, 0xBAD	205	mov eax, 0xBAD
206	mov [FirstClick], eax	206	mov [FirstClick], eax
207	mov [SecondClick], eax	207	mov [SecondClick], eax
208	call generate	208	call generate
209	call draw_field	209	call draw_field
210	@@:	210	@@:
211	call draw_aux	211	call draw_aux
212	jmp evloop	212	jmp evloop
213	;set_lang:	213	;set_lang:
214	; xor [CurLanguage], 1	214	; xor [CurLanguage], 1
215	; jmp @b	215	; jmp @b
216	field_pressed:	216	field_pressed:
217	sub eax, 100	217	sub eax, 100
218	cmp [field_status+eax], 0	218	cmp [field_status+eax], 0
219	jnz cont	219	jnz cont
220	mov ebx, [FirstClick]	220	mov ebx, [FirstClick]
221	mov ecx, [SecondClick]	221	mov ecx, [SecondClick]
222	cmp ebx, 0xBAD	222	cmp ebx, 0xBAD
223	jz first_click	223	jz first_click
224	cmp ecx, 0xBAD	224	cmp ecx, 0xBAD
225	jz second_click	225	jz second_click
226	mov dl, [field_items+ecx]	226	mov dl, [field_items+ecx]
227	cmp [field_items+ebx], dl	227	cmp [field_items+ebx], dl
228	jnz dont_match	228	jnz dont_match
229	mov [field_status+ebx], 2	229	mov [field_status+ebx], 2
230	mov [field_status+ecx], 2	230	mov [field_status+ecx], 2
231	jmp @f	231	jmp @f
232	dont_match:	232	dont_match:
233	mov [field_status+ebx], 0	233	mov [field_status+ebx], 0
234	mov [field_status+ecx], 0	234	mov [field_status+ecx], 0
235	@@:	235	@@:
236	push eax ecx	236	push eax ecx
237	mov eax, ebx	237	mov eax, ebx
238	call draw_field_item	238	call draw_field_item
239	pop eax	239	pop eax
240	call draw_field_item	240	call draw_field_item
241	mov [SecondClick], 0xBAD	241	mov [SecondClick], 0xBAD
242	pop eax	242	pop eax
243	mov [FirstClick], eax	243	mov [FirstClick], eax
244	jmp @f	244	jmp @f
245	second_click:	245	second_click:
246	cmp [FirstClick], eax	246	cmp [FirstClick], eax
247	jz cont	247	jz cont
248	mov [SecondClick], eax	248	mov [SecondClick], eax
249	@@:	249	@@:
250	mov [field_status+eax], 1	250	mov [field_status+eax], 1
251	call draw_field_item	251	call draw_field_item
252	inc [count]	252	inc [count]
253	cont:	253	cont:
254	call draw_count	254	call draw_count
255	jmp evloop	255	jmp evloop
256	first_click:	256	first_click:
257	mov [FirstClick], eax	257	mov [FirstClick], eax
258	jmp @b	258	jmp @b
259		259
260	draw_window:	260	draw_window:
261	push 48	-
262	pop eax	261	mov eax, 48
263	push 3	-
264	pop ebx	262	mov ebx, 3
265	mov ecx, color_table	263	mov ecx, color_table
266	push 4*10	-
267	pop edx	264	mov edx, 40
268	int 0x40 ; get color table	265	int 0x40 ; get color table
269	push 12	266
270	pop eax	267	mov eax, 12
271	push 1	-
272	pop ebx	268	mov ebx, 1
273	int 0x40 ; start redraw	269	int 0x40 ; start redraw
274	push ebx	270
275	xor eax, eax	271	xor eax, eax
276	mov ebx, 100*65536 + WindowWidth	272	mov ebx, 100*65536 + WindowWidth
277	mov ecx, 100*65536 + WindowHeight	273	mov ecx, 100*65536 + WindowHeight
278	add ecx, [SkinHeight]	274	add ecx, [SkinHeight]
279	mov edx, 4C0C0C0h	275	mov edx, 0x14C0C0C0
280	int 0x40 ; define window	-
281	mov al, 71	-
282	pop ebx	-
283	mov ecx, caption	276	mov edi, caption
284	int 0x40 ; set caption	277	int 0x40
-		278
285	call draw_aux	279	call draw_aux
286	call draw_field	280	call draw_field
287	push 12	281
288	pop eax	282	mov eax, 12
289	push 2	-
290	pop ebx	283	mov ebx, 2
291	int 0x40	284	int 0x40 ; end redraw
-		285
292	ret	286	ret
293		287
294	caption db 'Memory Blocks L&V Edition',0	288	caption db 'Memory Blocks L&V Edition',0
295		289
296	generate:	290	generate:
297	; generate random field	291	; generate random field
298	xor edi, edi	292	xor edi, edi
299	.loop:	293	.loop:
300	call random	294	call random
301	cmp [field_items+edx], 0	295	cmp [field_items+edx], 0
302	jnz .loop	296	jnz .loop
303	mov eax, edi	297	mov eax, edi
304	shr eax, 1	298	shr eax, 1
305	inc eax	299	inc eax
306	mov [field_items+edx], al	300	mov [field_items+edx], al
307	inc edi	301	inc edi
308	cmp edi, FieldWidth*FieldHeight	302	cmp edi, FieldWidth*FieldHeight
309	jb .loop	303	jb .loop
310	ret	304	ret
311		305
312	draw_field_item:	306	draw_field_item:
313	; in: eax=field item	307	; in: eax=field item
314	; out: nothing	308	; out: nothing
315	; destroys: eax,ebx,ecx,edx,esi	309	; destroys: eax,ebx,ecx,edx,esi
316	mov esi, eax	310	mov esi, eax
317	lea edx, [eax+0x80000000+100]	311	lea edx, [eax+0x80000000+100]
318	push 8	312	push 8
319	pop eax	313	pop eax
320	int 0x40 ; delete old button	314	int 0x40 ; delete old button
321	mov ebx, [xstart+esi*4]	315	mov ebx, [xstart+esi*4]
322	shl ebx, 16	316	shl ebx, 16
323	mov bl, ButtonWidth	317	mov bl, ButtonWidth
324	mov ecx, [ystart+esi*4]	318	mov ecx, [ystart+esi*4]
325	add ecx, [SkinHeight]	319	add ecx, [SkinHeight]
326	shl ecx, 16	320	shl ecx, 16
327	mov cl, ButtonHeight	321	mov cl, ButtonHeight
328	lea edx, [esi+0x40000000+100]	322	lea edx, [esi+0x40000000+100]
329	int 0x40 ; define new button	323	int 0x40 ; define new button
330	ror ecx, 16	324	ror ecx, 16
331	sub ecx, [SkinHeight]	325	sub ecx, [SkinHeight]
332	ror ecx, 16	326	ror ecx, 16
333	mov al, [field_status+esi]	327	mov al, [field_status+esi]
334	dec eax	328	dec eax
335	js draw_closed_item	329	js draw_closed_item
336	jz draw_current_item	330	jz draw_current_item
337	draw_opened_item:	331	draw_opened_item:
338	mov edx, 0x94AECE	332	mov edx, 0x94AECE
339	call draw_frame	333	call draw_frame
340	mov edx, 0xEFEBEF	334	mov edx, 0xEFEBEF
341	add ebx, 0xFFFF	335	add ebx, 0xFFFF
342	add ecx, 0xFFFF	336	add ecx, 0xFFFF
343	mov al, 13	337	mov al, 13
344	int 0x40	338	int 0x40
345	jmp draw_item_image	339	jmp draw_item_image
346	draw_current_item:	340	draw_current_item:
347	push ebx ecx	341	push ebx ecx
348	mov edx, 0x94AECE	342	mov edx, 0x94AECE
349	call draw_frame	343	call draw_frame
350	pop ecx ebx	344	pop ecx ebx
351	add ebx, 10000h	345	add ebx, 10000h
352	add ecx, 10000h	346	add ecx, 10000h
353	push ebx ecx	347	push ebx ecx
354	mov bl, ButtonWidth-2	348	mov bl, ButtonWidth-2
355	mov cl, ButtonHeight-2	349	mov cl, ButtonHeight-2
356	mov edx, 0x94DB00	350	mov edx, 0x94DB00
357	call draw_frame	351	call draw_frame
358	pop ecx ebx	352	pop ecx ebx
359	add ebx, 10000h	353	add ebx, 10000h
360	add ecx, 10000h	354	add ecx, 10000h
361	mov bl, ButtonWidth-4	355	mov bl, ButtonWidth-4
362	mov cl, ButtonHeight-4	356	mov cl, ButtonHeight-4
363	mov edx, 0x94DB00	357	mov edx, 0x94DB00
364	call draw_frame	358	call draw_frame
365	add ebx, 10000h	359	add ebx, 10000h
366	add ecx, 10000h	360	add ecx, 10000h
367	mov bl, ButtonWidth-5	361	mov bl, ButtonWidth-5
368	mov cl, ButtonHeight-5	362	mov cl, ButtonHeight-5
369	mov edx, 0xEFEBEF	363	mov edx, 0xEFEBEF
370	int 0x40	364	int 0x40
371	draw_item_image:	365	draw_item_image:
372	; push 7	366	; push 7
373	; pop eax	367	; pop eax
374	; movzx ebx, [field_items+esi]	368	; movzx ebx, [field_items+esi]
375	; dec ebx	369	; dec ebx
376	; imul ebx, ImageWidthImageHeight3	370	; imul ebx, ImageWidthImageHeight3
377	; add ebx, images	371	; add ebx, images
378	; mov ecx, ImageWidth*10000h+ImageHeight	372	; mov ecx, ImageWidth*10000h+ImageHeight
379	; mov edx, [xstart+esi*4]	373	; mov edx, [xstart+esi*4]
380	; shl edx, 16	374	; shl edx, 16
381	; add edx, [ystart+esi*4]	375	; add edx, [ystart+esi*4]
382	; add edx, 3*10001h	376	; add edx, 3*10001h
383	; add edx, [SkinHeight]	377	; add edx, [SkinHeight]
384	; int 0x40	378	; int 0x40
385	push 65	379	push 65
386	pop eax	380	pop eax
387	movzx ebx, [field_items+esi]	381	movzx ebx, [field_items+esi]
388	dec ebx	382	dec ebx
389	imul ebx, ImageWidth*ImageHeight	383	imul ebx, ImageWidth*ImageHeight
390	add ebx, images	384	add ebx, images
391	mov ecx, ImageWidth*10000h+ImageHeight	385	mov ecx, ImageWidth*10000h+ImageHeight
392	mov edx, [xstart+esi*4]	386	mov edx, [xstart+esi*4]
393	shl edx, 16	387	shl edx, 16
394	add edx, [ystart+esi*4]	388	add edx, [ystart+esi*4]
395	add edx, 3*10001h	389	add edx, 3*10001h
396	add edx, [SkinHeight]	390	add edx, [SkinHeight]
397	push 8	391	push 8
398	pop esi	392	pop esi
399	mov edi, palette	393	mov edi, palette
400	xor ebp, ebp	394	xor ebp, ebp
401	int 0x40	395	int 0x40
402	ret	396	ret
403	draw_closed_item:	397	draw_closed_item:
404	mov edx, 0x94AECE	398	mov edx, 0x94AECE
405	call draw_frame	399	call draw_frame
406	push 38	400	push 38
407	pop eax	401	pop eax
408	shr ebx, 16	402	shr ebx, 16
409	inc ebx	403	inc ebx
410	imul ebx, 0x10001	404	imul ebx, 0x10001
411	push ebx	405	push ebx
412	add ebx, ButtonWidth-2	406	add ebx, ButtonWidth-2
413	shr ecx, 16	407	shr ecx, 16
414	inc ecx	408	inc ecx
415	imul ecx, 0x10001	409	imul ecx, 0x10001
416	mov edx, 0xFFFFFF	410	mov edx, 0xFFFFFF
417	int 0x40	411	int 0x40
418	pop ebx	412	pop ebx
419	push ecx	413	push ecx
420	add ecx, ButtonHeight-3	414	add ecx, ButtonHeight-3
421	int 0x40	415	int 0x40
422	pop ecx	416	pop ecx
423	push ebx ecx	417	push ebx ecx
424	add ebx, ButtonWidth-2	418	add ebx, ButtonWidth-2
425	shr ecx, 16	419	shr ecx, 16
426	add ecx, ButtonHeight-2	420	add ecx, ButtonHeight-2
427	imul ecx, 0x10001	421	imul ecx, 0x10001
428	mov edx, 0xDEDEDE	422	mov edx, 0xDEDEDE
429	int 0x40	423	int 0x40
430	pop ecx	424	pop ecx
431	push ecx	425	push ecx
432	movzx ebx, bx	426	movzx ebx, bx
433	imul ebx, 0x10001	427	imul ebx, 0x10001
434	add ecx, 10000h+ButtonHeight-3	428	add ecx, 10000h+ButtonHeight-3
435	int 0x40	429	int 0x40
436	pop ecx ebx	430	pop ecx ebx
437	add ebx, 10000h	431	add ebx, 10000h
438	mov bx, ButtonWidth-3	432	mov bx, ButtonWidth-3
439	add ecx, 10000h	433	add ecx, 10000h
440	mov cx, ButtonHeight-3	434	mov cx, ButtonHeight-3
441	mov al, 13	435	mov al, 13
442	mov edx, 0xBDC7D6	436	mov edx, 0xBDC7D6
443	int 0x40	437	int 0x40
444	ret	438	ret
445		439
446	draw_field:	440	draw_field:
447	xor ebx, ebx	441	xor ebx, ebx
448	xor ecx, ecx	442	xor ecx, ecx
449	mov edi, xstart	443	mov edi, xstart
450	.loop:	444	.loop:
451	mov eax, ebx	445	mov eax, ebx
452	imul eax, SpaceWidth	446	imul eax, SpaceWidth
453	add eax, 9	447	add eax, 9
454	stosd	448	stosd
455	mov eax, ecx	449	mov eax, ecx
456	imul eax, SpaceHeight	450	imul eax, SpaceHeight
457	add eax, 4	451	add eax, 4
458	mov [edi+ystart-xstart-4], eax	452	mov [edi+ystart-xstart-4], eax
459	lea eax, [edi-xstart-4]	453	lea eax, [edi-xstart-4]
460	shr eax, 2	454	shr eax, 2
461	push ebx ecx edi	455	push ebx ecx edi
462	call draw_field_item	456	call draw_field_item
463	pop edi ecx ebx	457	pop edi ecx ebx
464	inc ecx	458	inc ecx
465	cmp ecx, FieldHeight	459	cmp ecx, FieldHeight
466	jb .loop	460	jb .loop
467	xor ecx, ecx	461	xor ecx, ecx
468	inc ebx	462	inc ebx
469	cmp ebx, FieldWidth	463	cmp ebx, FieldWidth
470	jb .loop	464	jb .loop
471	ret	465	ret
472		466
473	draw_aux:	467	draw_aux:
474	push 13	468	push 13
475	pop eax	469	pop eax
476	mov ebx, 5*65536 + 425	470	mov ebx, 5*65536 + 425
477	mov ecx, [SkinHeight]	471	mov ecx, [SkinHeight]
478	shl ecx, 16	472	shl ecx, 16
479	add ecx, 256*65536 + 1	473	add ecx, 256*65536 + 1
480	mov edx, 0xFFFFFF	474	mov edx, 0xFFFFFF
481	int 0x40	475	int 0x40
482	add ecx, 1*65536 + 29	476	add ecx, 1*65536 + 29
483	mov edx, [color_table+5*4]	477	mov edx, [color_table+5*4]
484	int 0x40	478	int 0x40
485	push 8	479	push 8
486	pop eax	480	pop eax
487	mov ebx, 14*65536 + 107	481	mov ebx, 14*65536 + 107
488	add ecx, 3*65536 - 7	482	add ecx, 3*65536 - 7
489	push 5	483	push 5
490	pop edx	484	pop edx
491	mov esi, [color_table+6*4]	485	mov esi, [color_table+6*4]
492	int 0x40	486	int 0x40
493	push 4	487	push 4
494	pop eax	488	pop eax
495	mov ebx, 27*65536 + 268	489	mov ebx, 27*65536 + 268
496	add ebx, [SkinHeight]	490	add ebx, [SkinHeight]
497	mov ecx, [color_table+7*4]	491	mov ecx, [color_table+7*4]
498	or ecx, 0x80000000	492	or ecx, 0x80000000

Subversion Repositories Kolibri OS

(root)/programs/games/mblocks/trunk/mblocks.asm – Rev 1446 → 2285