WebSVN – Kolibri OS – Diff – /programs/games/15/trunk/15.ASM


;
;   The famous game 15
;   Author: Lloyd, coded by Ivushkin Andrey
;   Compile with FASM
;
include 'lang.inc'
include '..\..\..\macros.inc' ; decreases program size (not required)
 
StatusColor equ 0x02ffffff
StatusColor2 equ 0x02dc1e14
BgdColor equ 0x04aabbcc
 
; Main window dimensions
XXwindow equ 200 shl 16+276
YYwindow equ 200 shl 16+300
; Status bar
XYstatus equ 35 shl 16+283
XXbar equ 35 shl 16+136
YYbar equ 280 shl 16+15
; Buttons
BtnTop equ 28
BtnLeft equ 13
BtnSize equ 60
BtnColor equ 0xafbb55
BtnColor2 equ 0x0228c314
 
NumColor equ 0x10000000
; Number shifting for nice look
NumShift equ 24 shl 16+27
NumShift2 equ 4 shl 16
; Shuffle button
XXSh equ 202 shl 16+60
YYSh equ 280 shl 16+12
XYShText equ 212 shl 16+283
 
; Conf button
XXCnf equ 13 shl 16+13
YYCnf equ 280 shl 16+12
XYCnfText equ 18 shl 16+283
 
; Position of the 'hole'
null equ (curconf+16)
; Amount of moves to perform shuffle
SH_CYCLES equ 400
; (Amount of tasks)-1
CONF_COUNT equ 2
 
use32
 
  org    0x0
 
  db     'MENUET01'
  dd     0x01
  dd     START
  dd     I_END
  dd     0x2000  ; 8 Kb
  dd     0x2000
  dd     0x0
  dd     0x0
 
 
START:
    mov  [cptr],CONF_COUNT  ; number of task
    mov  eax,3
    mcall
    mov  cl,16
    ror  eax,cl
    mov  [generator],eax    ; random generator from Tetris
  init:
    mov  ecx,17
    movzx  eax,[cptr]
    inc  eax
    cmp  eax,CONF_COUNT
    jna  init_ok
    xor  eax,eax            ; cycling 0..CONF_COUNT
  init_ok:
    mov  [cptr],al
    mov  esi,eax
    shl  esi,4
    add  esi,conf
    add  esi,eax
    add  al,0x31
    mov  [lenTitle-1],al     ;task number to program title
    mov  [task],esi
    mov  edi,curconf
    rep  movsb          ; initial configuration
 
    mov  [sts],4
    jmp  red
SHUF:
    call shuffle        ; immediate shuffle
red:                    ; window redraw
 
    call draw_window
 
still:                  ; MAIN PROGRAM CYCLE
 
    mov  eax,10         ; wait for event
    mcall
 
    cmp  eax,1          ; redraw? -
    je   red            ; goto red
    cmp  eax,2          ; key pressed? -
    je   key            ; goto key
    cmp  eax,3          ; button pressed? -
    je   button         ; goto button
 
    jmp  still          ; no more events to process
 
  key:                  ; Key pressed
    mov  eax,2
    mcall
    shr  eax,8
    cmp  eax,32         ;  = Shuffle
    je   SHUF
    cmp  eax,13         ;  = Choose task
    je   init
    cmp  eax,176
    jl   still
    sub  eax,176
    cmp  eax,3
    ja   still
    movzx eax,byte [eax+correct] ; 'delta' value from correct[]
    jmp  m_check
 
  button:              ; Button pressed
    mov  eax,17
    mcall
    shr  eax,8
    sub  eax,2
 
    cmp  eax,-1        ; id == 1 (closeme)?
    jne  noclose
    mcall
 
  noclose:
    jl   SHUF          ; Shuffle (id=0) pressed
    cmp  eax,18
    je   init          ; Conf button pressed
    sub  al,byte [null]
    mov  edi,correct
    mov  ecx,4
    repne scasb        ; checking for valid move-part 1
    jne  fail
  m_check:
    cmp  byte[sts],4 ; puzzle completed, blocking buttons
    ja   still
    call move_check    ; checking for valid move-part 2
    jnc  fail
    inc  [move_count]
    call draw_moves
fail:
    jmp  still          ; ¢®§¢à é ¥¬áï
 
;   *******************************
;   *******  WINDOW DRAWING *******
;   *******************************
 
draw_window:
    mov  eax,12
    mov  ebx,1                     ; begin draw
    mcall
 
                                   ; CREATING WINDOW
    mov  eax,0
    mov  ebx,XXwindow
    mov  ecx,YYwindow
    mov  edx,BgdColor
    mov  esi,0x805080d0
    mov  edi,0x005080d0
    mcall
 
                                   ; PROGRAM TITLE
    mov  eax,4
    mov  ebx,8*65536+8
    mov  ecx,0x10000000
    mov  edx,txtTitle
    mov  esi,lenTitle-txtTitle
    mcall
 
    mov  eax,8                     ; SHUFFLE BUTTON
    mov  ebx,XXSh
    mov  ecx,YYSh
    xor  edx,edx
    mov  esi,BtnColor
    mcall
 
    mov  ebx,XXCnf                  ; CONF BUTTON
    mov  ecx,YYCnf
    mov  edx,20
    mov  esi,BtnColor
    mcall
 
    mov  ebx, XYShText             ; SHUFFLE TEXT
    mov  ecx, StatusColor
    mov  edx,txtSh
    mov  esi,lenSh-txtSh
    mov  eax,4
    mcall
 
    mov  ebx, XYCnfText             ; CONF TEXT
    mov  edx,lenVictory-1
    mov  esi,1
    mcall
 
    mov  ecx, 16                   ; FIELD BUTTONS
  dbut:
    call draw_button
    loop dbut
 
    call draw_moves
 
    mov  eax,12
    mov  ebx,2                     ; end of drawing
    mcall
    ret
 
 
;   *********************************************
;   ******* DRAWING A FIELD BUTTON **************
;   *********************************************
;   ECX - button number
 
draw_button:
    pusha
    dec  ecx
  ; calculating button dimensions
    mov  edi, ecx
    lea  edx,[ecx+2]
    mov  ebx,ecx
    and  ebx,11b
    shr  ecx,2
 
    imul ebx,BtnSize+3
    add  ebx,BtnLeft
    shl  ebx,16
    add  ebx,BtnSize
 
    imul ecx,BtnSize+3
    add  ecx,BtnTop
    shl  ecx,16
    add  ecx,BtnSize
    movzx eax,byte [null]
    cmp  eax,edi
    jne   no_hole
 
    pusha
    inc  ebx
    inc  ecx
    mov  edx,BgdColor
    mov  eax,13         ; clearing - 'hole'
    mcall
    popa
 
    or   edx,0x80000000 ; and removing button under it
no_hole:
    mov  al,byte[edi+curconf]
    mov  esi,[task]
    cmp  al,byte[edi+esi]
    je   highlight
    mov  esi,BtnColor
    jmp  s_rbutton
highlight:
    mov  esi,BtnColor2
s_rbutton:
    mov  eax,8          ; set/remove button
    mcall
    movzx eax,byte [null]
    cmp  eax,edi
    je   no_text        ; no digits - that's hole
    mov  edx,ebx
    shr  ecx,16
    mov  dx,cx
    add  edx,NumShift
    mov  ebx,0x20000
    movzx  ecx,byte [edi+curconf]
    cmp  ecx,9
    ja   two_num
    add  edx,NumShift2    ; shift to center digits
    sub  ebx,0x10000
two_num:
    mov  esi,NumColor
    mov  eax,47
    mcall
no_text:
    popa
    ret
 
 
;   *********************************************
;   ******* DRAWING STATUS LINE *****************
;   *********************************************
 
draw_moves:
    mov  eax, 13          ; clear area
    mov  ebx, XXbar
    mov  ecx, YYbar
    mov  edx, BgdColor
    mcall
 
    mov  eax, 4
    mov  ebx, XYstatus
    mov  ecx, StatusColor
    cmp  ax, [sts]
    jl   report_victory
    jne  report_moves
    mov  edx,txtCnf  ; prompt to choose configuration
    mov  esi,lenCnf-txtCnf
    jmp  e_dm
  report_moves:
    mov  edx,txtMoves  ; how many moves done
    mov  esi,lenMoves-txtMoves
    mov  eax,4
    mcall
    mov  esi,ecx
    mov  edx,ebx
    add  edx, 40 shl 16
    mov  ebx,0x030000
    movzx  ecx, byte[move_count]
    mov  eax,47
    jmp  e_dm
  report_victory:               ; puzzle completed
    mov  ecx,StatusColor2
    mov  edx,txtVictory
    mov  esi,lenVictory-txtVictory
  e_dm:
    mcall
    ret
 
 
;   *********************************************
;   ********* SHUFFLE ***************************
;   *********************************************
 
shuffle:
    xor  eax,eax
    mov  [sts],ax
    mov  [move_count],ax   ; reset moves to 0
    mov  [sh_off],al
    mov  eax, [generator]
 
    mov  ecx,SH_CYCLES
 sh_cycle:
    sub  eax,0x43ab45b5    ; next random number
    ror  eax,1
    xor  eax,0x32c4324f
    ror  eax,1
    mov  [generator],eax
 
    push eax
    and  eax,11b           ; direction 0..3
    movzx eax,byte [eax+correct]
    call move_check
    pop  eax
    jnc  sh_cycle          ; if fails then retry
    loop sh_cycle
    inc  byte[sh_off]          ; shuffling complete
    ret
 
 
;   *********************************************
;   ********* MOVE VALIDITY CHECK ***************
;   *********************************************
;   AL - 'DELTA' DIRECTION
 
move_check:
    pusha
    mov  ah,byte [null]
    mov  bx,ax
    cmp  bh,3
    ja   no_top
    cmp  al,-4       ; top of field
    je   no_move
no_top:
    cmp  bh,12
    jb   no_bottom
    cmp  al,4        ; bottom of field
    je   no_move
no_bottom:
    and  bh,11b
    cmp  bh,0
    jnz  no_left
    cmp  al,-1       ; left of field
    je  no_move
no_left:
    cmp  bh,11b
    jnz  ok
    cmp  al,1        ; right of field
    je  no_move
ok:
    mov bx,ax
    add bh,bl        ; bh-new hole
    mov byte [null],bh
    movzx ecx,ah
    mov al,byte[ecx+curconf]
    movzx edx,bh
    mov bl,byte[edx+curconf] ; swapping button & hole
    mov byte[ecx+curconf],bl
    mov byte[edx+curconf],al
 
    cmp  byte[sh_off],0  ; if shuffle in progress,
    jz   no_win      ; then no redraw
 
  ; drawing button & hole
    inc  ecx
    call draw_button
    movzx ecx,bh
    inc  ecx
    call draw_button
  ; testing if task completed
    mov  esi,[task]
    mov  edi,curconf
    mov  ecx,16
    repe cmpsb
    cmp  ecx,0
    jne  no_win
    mov  word[sts],6  ; puzzle done. Victory!
no_win:
    popa
    stc
    ret
no_move:
    popa
    clc
    ret
; this is deprecated debug routine
;ud:
;    ud2
 
; These are data used by program
 
correct db 1,-4,4,-1
 
conf db 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0,15
     db 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0
     db 1,2,3,4,12,13,14,5,11,0,15,6,10,9,8,7,9
 
txtMoves:
if lang eq ru
     db '®¤®¢:'
else
     db 'Moves:'
end if
lenMoves:
 
txtSh:
if lang eq ru
     db ' á®¢ª '
else
     db 'Shuffle'
end if
lenSh:
 
txtCnf:
if lang eq ru
     db 'ë¡¥à¨â¥ § ¤ çã ¨ ­ ¦¬¨â¥->'
else
     db 'Select task,  then press ->'
end if
lenCnf:
 
txtTitle:               ; áâà®ª  § £®«®¢ª 
if lang eq ru
     db   '£à  15 - § ¤ ç  X'
else
     db   'Game 15 - puzzle X'
end if
lenTitle:                ; ¨ ¥ñ ª®­¥æ
 
txtVictory:
if lang eq ru
     db 'ë à¥è¨«¨ § ¤ çã!  ¦¬¨â¥->'
else
     db 'Puzzle completed!   Press->'
end if
lenVictory:
 
arrow equ lenVictory-2
 
I_END:  ; ª®­¥æ ¯à®£à ¬¬ë
;null db ?
move_count dw ?
cptr db ?
sts dw ?
sh_off db ?
task dd ?
generator dd ?
curconf:

Rev 485	Rev 551
1	;	1	;
2	; The famous game 15	2	; The famous game 15
3	; Author: Lloyd, coded by Ivushkin Andrey	3	; Author: Lloyd, coded by Ivushkin Andrey
4	; Compile with FASM	4	; Compile with FASM
5	;	5	;
6	include 'lang.inc'	6	include 'lang.inc'
7	include '..\..\..\macros.inc' ; decreases program size (not required)	7	include '..\..\..\macros.inc' ; decreases program size (not required)
8		8
9	StatusColor equ 0x02ffffff	9	StatusColor equ 0x02ffffff
10	StatusColor2 equ 0x02dc1e14	10	StatusColor2 equ 0x02dc1e14
11	BgdColor equ 0x03aabbcc	11	BgdColor equ 0x04aabbcc
12		12
13	; Main window dimensions	13	; Main window dimensions
14	XXwindow equ 200 shl 16+276	14	XXwindow equ 200 shl 16+276
15	YYwindow equ 200 shl 16+300	15	YYwindow equ 200 shl 16+300
16	; Status bar	16	; Status bar
17	XYstatus equ 35 shl 16+283	17	XYstatus equ 35 shl 16+283
18	XXbar equ 35 shl 16+136	18	XXbar equ 35 shl 16+136
19	YYbar equ 280 shl 16+15	19	YYbar equ 280 shl 16+15
20	; Buttons	20	; Buttons
21	BtnTop equ 28	21	BtnTop equ 28
22	BtnLeft equ 13	22	BtnLeft equ 13
23	BtnSize equ 60	23	BtnSize equ 60
24	BtnColor equ 0xafbb55	24	BtnColor equ 0xafbb55
25	BtnColor2 equ 0x0228c314	25	BtnColor2 equ 0x0228c314
26		26
27	NumColor equ 0x10000000	27	NumColor equ 0x10000000
28	; Number shifting for nice look	28	; Number shifting for nice look
29	NumShift equ 24 shl 16+27	29	NumShift equ 24 shl 16+27
30	NumShift2 equ 4 shl 16	30	NumShift2 equ 4 shl 16
31	; Shuffle button	31	; Shuffle button
32	XXSh equ 202 shl 16+60	32	XXSh equ 202 shl 16+60
33	YYSh equ 280 shl 16+12	33	YYSh equ 280 shl 16+12
34	XYShText equ 212 shl 16+283	34	XYShText equ 212 shl 16+283
35		35
36	; Conf button	36	; Conf button
37	XXCnf equ 13 shl 16+13	37	XXCnf equ 13 shl 16+13
38	YYCnf equ 280 shl 16+12	38	YYCnf equ 280 shl 16+12
39	XYCnfText equ 18 shl 16+283	39	XYCnfText equ 18 shl 16+283
40		40
41	; Position of the 'hole'	41	; Position of the 'hole'
42	null equ (curconf+16)	42	null equ (curconf+16)
43	; Amount of moves to perform shuffle	43	; Amount of moves to perform shuffle
44	SH_CYCLES equ 400	44	SH_CYCLES equ 400
45	; (Amount of tasks)-1	45	; (Amount of tasks)-1
46	CONF_COUNT equ 2	46	CONF_COUNT equ 2
47		47
48	use32	48	use32
49		49
50	org 0x0	50	org 0x0
51		51
52	db 'MENUET01'	52	db 'MENUET01'
53	dd 0x01	53	dd 0x01
54	dd START	54	dd START
55	dd I_END	55	dd I_END
56	dd 0x2000 ; 8 Kb	56	dd 0x2000 ; 8 Kb
57	dd 0x2000	57	dd 0x2000
58	dd 0x0	58	dd 0x0
59	dd 0x0	59	dd 0x0
60		60
61		61
62	START:	62	START:
63	mov [cptr],CONF_COUNT ; number of task	63	mov [cptr],CONF_COUNT ; number of task
64	mov eax,3	64	mov eax,3
65	mcall	65	mcall
66	mov cl,16	66	mov cl,16
67	ror eax,cl	67	ror eax,cl
68	mov [generator],eax ; random generator from Tetris	68	mov [generator],eax ; random generator from Tetris
69	init:	69	init:
70	mov ecx,17	70	mov ecx,17
71	movzx eax,[cptr]	71	movzx eax,[cptr]
72	inc eax	72	inc eax
73	cmp eax,CONF_COUNT	73	cmp eax,CONF_COUNT
74	jna init_ok	74	jna init_ok
75	xor eax,eax ; cycling 0..CONF_COUNT	75	xor eax,eax ; cycling 0..CONF_COUNT
76	init_ok:	76	init_ok:
77	mov [cptr],al	77	mov [cptr],al
78	mov esi,eax	78	mov esi,eax
79	shl esi,4	79	shl esi,4
80	add esi,conf	80	add esi,conf
81	add esi,eax	81	add esi,eax
82	add al,0x31	82	add al,0x31
83	mov [lenTitle-1],al ;task number to program title	83	mov [lenTitle-1],al ;task number to program title
84	mov [task],esi	84	mov [task],esi
85	mov edi,curconf	85	mov edi,curconf
86	rep movsb ; initial configuration	86	rep movsb ; initial configuration
87		87
88	mov [sts],4	88	mov [sts],4
89	jmp red	89	jmp red
90	SHUF:	90	SHUF:
91	call shuffle ; immediate shuffle	91	call shuffle ; immediate shuffle
92	red: ; window redraw	92	red: ; window redraw
93		93
94	call draw_window	94	call draw_window
95		95
96	still: ; MAIN PROGRAM CYCLE	96	still: ; MAIN PROGRAM CYCLE
97		97
98	mov eax,10 ; wait for event	98	mov eax,10 ; wait for event
99	mcall	99	mcall
100		100
101	cmp eax,1 ; redraw? -	101	cmp eax,1 ; redraw? -
102	je red ; goto red	102	je red ; goto red
103	cmp eax,2 ; key pressed? -	103	cmp eax,2 ; key pressed? -
104	je key ; goto key	104	je key ; goto key
105	cmp eax,3 ; button pressed? -	105	cmp eax,3 ; button pressed? -
106	je button ; goto button	106	je button ; goto button
107		107
108	jmp still ; no more events to process	108	jmp still ; no more events to process
109		109
110	key: ; Key pressed	110	key: ; Key pressed
111	mov eax,2	111	mov eax,2
112	mcall	112	mcall
113	shr eax,8	113	shr eax,8
114	cmp eax,32 ; = Shuffle	114	cmp eax,32 ; = Shuffle
115	je SHUF	115	je SHUF
116	cmp eax,13 ; = Choose task	116	cmp eax,13 ; = Choose task
117	je init	117	je init
118	cmp eax,176	118	cmp eax,176
119	jl still	119	jl still
120	sub eax,176	120	sub eax,176
121	cmp eax,3	121	cmp eax,3
122	ja still	122	ja still
123	movzx eax,byte [eax+correct] ; 'delta' value from correct[]	123	movzx eax,byte [eax+correct] ; 'delta' value from correct[]
124	jmp m_check	124	jmp m_check
125		125
126	button: ; Button pressed	126	button: ; Button pressed
127	mov eax,17	127	mov eax,17
128	mcall	128	mcall
129	shr eax,8	129	shr eax,8
130	sub eax,2	130	sub eax,2
131		131
132	cmp eax,-1 ; id == 1 (closeme)?	132	cmp eax,-1 ; id == 1 (closeme)?
133	jne noclose	133	jne noclose
134	mcall	134	mcall
135		135
136	noclose:	136	noclose:
137	jl SHUF ; Shuffle (id=0) pressed	137	jl SHUF ; Shuffle (id=0) pressed
138	cmp eax,18	138	cmp eax,18
139	je init ; Conf button pressed	139	je init ; Conf button pressed
140	sub al,byte [null]	140	sub al,byte [null]
141	mov edi,correct	141	mov edi,correct
142	mov ecx,4	142	mov ecx,4
143	repne scasb ; checking for valid move-part 1	143	repne scasb ; checking for valid move-part 1
144	jne fail	144	jne fail
145	m_check:	145	m_check:
146	cmp byte[sts],4 ; puzzle completed, blocking buttons	146	cmp byte[sts],4 ; puzzle completed, blocking buttons
147	ja still	147	ja still
148	call move_check ; checking for valid move-part 2	148	call move_check ; checking for valid move-part 2
149	jnc fail	149	jnc fail
150	inc [move_count]	150	inc [move_count]
151	call draw_moves	151	call draw_moves
152	fail:	152	fail:
153	jmp still ; ¢®§¢à é ¥¬áï	153	jmp still ; ¢®§¢à é ¥¬áï
154		154
155	; *******************************	155	; *******************************
156	; ***** WINDOW DRAWING *****	156	; ***** WINDOW DRAWING *****
157	; *******************************	157	; *******************************
158		158
159	draw_window:	159	draw_window:
160	mov eax,12	160	mov eax,12
161	mov ebx,1 ; begin draw	161	mov ebx,1 ; begin draw
162	mcall	162	mcall
163		163
164	; CREATING WINDOW	164	; CREATING WINDOW
165	mov eax,0	165	mov eax,0
166	mov ebx,XXwindow	166	mov ebx,XXwindow
167	mov ecx,YYwindow	167	mov ecx,YYwindow
168	mov edx,BgdColor	168	mov edx,BgdColor
169	mov esi,0x805080d0	169	mov esi,0x805080d0
170	mov edi,0x005080d0	170	mov edi,0x005080d0
171	mcall	171	mcall
172		172
173	; PROGRAM TITLE	173	; PROGRAM TITLE
174	mov eax,4	174	mov eax,4
175	mov ebx,8*65536+8	175	mov ebx,8*65536+8
176	mov ecx,0x10000000	176	mov ecx,0x10000000
177	mov edx,txtTitle	177	mov edx,txtTitle
178	mov esi,lenTitle-txtTitle	178	mov esi,lenTitle-txtTitle
179	mcall	179	mcall
180		180
181	mov eax,8 ; SHUFFLE BUTTON	181	mov eax,8 ; SHUFFLE BUTTON
182	mov ebx,XXSh	182	mov ebx,XXSh
183	mov ecx,YYSh	183	mov ecx,YYSh
184	xor edx,edx	184	xor edx,edx
185	mov esi,BtnColor	185	mov esi,BtnColor
186	mcall	186	mcall
187		187
188	mov ebx,XXCnf ; CONF BUTTON	188	mov ebx,XXCnf ; CONF BUTTON
189	mov ecx,YYCnf	189	mov ecx,YYCnf
190	mov edx,20	190	mov edx,20
191	mov esi,BtnColor	191	mov esi,BtnColor
192	mcall	192	mcall
193		193
194	mov ebx, XYShText ; SHUFFLE TEXT	194	mov ebx, XYShText ; SHUFFLE TEXT
195	mov ecx, StatusColor	195	mov ecx, StatusColor
196	mov edx,txtSh	196	mov edx,txtSh
197	mov esi,lenSh-txtSh	197	mov esi,lenSh-txtSh
198	mov eax,4	198	mov eax,4
199	mcall	199	mcall
200		200
201	mov ebx, XYCnfText ; CONF TEXT	201	mov ebx, XYCnfText ; CONF TEXT
202	mov edx,lenVictory-1	202	mov edx,lenVictory-1
203	mov esi,1	203	mov esi,1
204	mcall	204	mcall
205		205
206	mov ecx, 16 ; FIELD BUTTONS	206	mov ecx, 16 ; FIELD BUTTONS
207	dbut:	207	dbut:
208	call draw_button	208	call draw_button
209	loop dbut	209	loop dbut
210		210
211	call draw_moves	211	call draw_moves
212		212
213	mov eax,12	213	mov eax,12
214	mov ebx,2 ; end of drawing	214	mov ebx,2 ; end of drawing
215	mcall	215	mcall
216	ret	216	ret
217		217
218		218
219	; *********************************************	219	; *********************************************
220	; ***** DRAWING A FIELD BUTTON ************	220	; ***** DRAWING A FIELD BUTTON ************
221	; *********************************************	221	; *********************************************
222	; ECX - button number	222	; ECX - button number
223		223
224	draw_button:	224	draw_button:
225	pusha	225	pusha
226	dec ecx	226	dec ecx
227	; calculating button dimensions	227	; calculating button dimensions
228	mov edi, ecx	228	mov edi, ecx
229	lea edx,[ecx+2]	229	lea edx,[ecx+2]
230	mov ebx,ecx	230	mov ebx,ecx
231	and ebx,11b	231	and ebx,11b
232	shr ecx,2	232	shr ecx,2
233		233
234	imul ebx,BtnSize+3	234	imul ebx,BtnSize+3
235	add ebx,BtnLeft	235	add ebx,BtnLeft
236	shl ebx,16	236	shl ebx,16
237	add ebx,BtnSize	237	add ebx,BtnSize
238		238
239	imul ecx,BtnSize+3	239	imul ecx,BtnSize+3
240	add ecx,BtnTop	240	add ecx,BtnTop
241	shl ecx,16	241	shl ecx,16
242	add ecx,BtnSize	242	add ecx,BtnSize
243	movzx eax,byte [null]	243	movzx eax,byte [null]
244	cmp eax,edi	244	cmp eax,edi
245	jne no_hole	245	jne no_hole
246		246
247	pusha	247	pusha
248	inc ebx	248	inc ebx
249	inc ecx	249	inc ecx
250	mov edx,BgdColor	250	mov edx,BgdColor
251	mov eax,13 ; clearing - 'hole'	251	mov eax,13 ; clearing - 'hole'
252	mcall	252	mcall
253	popa	253	popa
254		254
255	or edx,0x80000000 ; and removing button under it	255	or edx,0x80000000 ; and removing button under it
256	no_hole:	256	no_hole:
257	mov al,byte[edi+curconf]	257	mov al,byte[edi+curconf]
258	mov esi,[task]	258	mov esi,[task]
259	cmp al,byte[edi+esi]	259	cmp al,byte[edi+esi]
260	je highlight	260	je highlight
261	mov esi,BtnColor	261	mov esi,BtnColor
262	jmp s_rbutton	262	jmp s_rbutton
263	highlight:	263	highlight:
264	mov esi,BtnColor2	264	mov esi,BtnColor2
265	s_rbutton:	265	s_rbutton:
266	mov eax,8 ; set/remove button	266	mov eax,8 ; set/remove button
267	mcall	267	mcall
268	movzx eax,byte [null]	268	movzx eax,byte [null]
269	cmp eax,edi	269	cmp eax,edi
270	je no_text ; no digits - that's hole	270	je no_text ; no digits - that's hole
271	mov edx,ebx	271	mov edx,ebx
272	shr ecx,16	272	shr ecx,16
273	mov dx,cx	273	mov dx,cx
274	add edx,NumShift	274	add edx,NumShift
275	mov ebx,0x20000	275	mov ebx,0x20000
276	movzx ecx,byte [edi+curconf]	276	movzx ecx,byte [edi+curconf]
277	cmp ecx,9	277	cmp ecx,9
278	ja two_num	278	ja two_num
279	add edx,NumShift2 ; shift to center digits	279	add edx,NumShift2 ; shift to center digits
280	sub ebx,0x10000	280	sub ebx,0x10000
281	two_num:	281	two_num:
282	mov esi,NumColor	282	mov esi,NumColor
283	mov eax,47	283	mov eax,47
284	mcall	284	mcall
285	no_text:	285	no_text:
286	popa	286	popa
287	ret	287	ret
288		288
289		289
290	; *********************************************	290	; *********************************************
291	; ***** DRAWING STATUS LINE ***************	291	; ***** DRAWING STATUS LINE ***************
292	; *********************************************	292	; *********************************************
293		293
294	draw_moves:	294	draw_moves:
295	mov eax, 13 ; clear area	295	mov eax, 13 ; clear area
296	mov ebx, XXbar	296	mov ebx, XXbar
297	mov ecx, YYbar	297	mov ecx, YYbar
298	mov edx, BgdColor	298	mov edx, BgdColor
299	mcall	299	mcall
300		300
301	mov eax, 4	301	mov eax, 4
302	mov ebx, XYstatus	302	mov ebx, XYstatus
303	mov ecx, StatusColor	303	mov ecx, StatusColor
304	cmp ax, [sts]	304	cmp ax, [sts]
305	jl report_victory	305	jl report_victory
306	jne report_moves	306	jne report_moves
307	mov edx,txtCnf ; prompt to choose configuration	307	mov edx,txtCnf ; prompt to choose configuration
308	mov esi,lenCnf-txtCnf	308	mov esi,lenCnf-txtCnf
309	jmp e_dm	309	jmp e_dm
310	report_moves:	310	report_moves:
311	mov edx,txtMoves ; how many moves done	311	mov edx,txtMoves ; how many moves done
312	mov esi,lenMoves-txtMoves	312	mov esi,lenMoves-txtMoves
313	mov eax,4	313	mov eax,4
314	mcall	314	mcall
315	mov esi,ecx	315	mov esi,ecx
316	mov edx,ebx	316	mov edx,ebx
317	add edx, 40 shl 16	317	add edx, 40 shl 16
318	mov ebx,0x030000	318	mov ebx,0x030000
319	movzx ecx, byte[move_count]	319	movzx ecx, byte[move_count]
320	mov eax,47	320	mov eax,47
321	jmp e_dm	321	jmp e_dm
322	report_victory: ; puzzle completed	322	report_victory: ; puzzle completed
323	mov ecx,StatusColor2	323	mov ecx,StatusColor2
324	mov edx,txtVictory	324	mov edx,txtVictory
325	mov esi,lenVictory-txtVictory	325	mov esi,lenVictory-txtVictory
326	e_dm:	326	e_dm:
327	mcall	327	mcall
328	ret	328	ret
329		329
330		330
331	; *********************************************	331	; *********************************************
332	; ******* SHUFFLE *************************	332	; ******* SHUFFLE *************************
333	; *********************************************	333	; *********************************************
334		334
335	shuffle:	335	shuffle:
336	xor eax,eax	336	xor eax,eax
337	mov [sts],ax	337	mov [sts],ax
338	mov [move_count],ax ; reset moves to 0	338	mov [move_count],ax ; reset moves to 0
339	mov [sh_off],al	339	mov [sh_off],al
340	mov eax, [generator]	340	mov eax, [generator]
341		341
342	mov ecx,SH_CYCLES	342	mov ecx,SH_CYCLES
343	sh_cycle:	343	sh_cycle:
344	sub eax,0x43ab45b5 ; next random number	344	sub eax,0x43ab45b5 ; next random number
345	ror eax,1	345	ror eax,1
346	xor eax,0x32c4324f	346	xor eax,0x32c4324f
347	ror eax,1	347	ror eax,1
348	mov [generator],eax	348	mov [generator],eax
349		349
350	push eax	350	push eax
351	and eax,11b ; direction 0..3	351	and eax,11b ; direction 0..3
352	movzx eax,byte [eax+correct]	352	movzx eax,byte [eax+correct]
353	call move_check	353	call move_check
354	pop eax	354	pop eax
355	jnc sh_cycle ; if fails then retry	355	jnc sh_cycle ; if fails then retry
356	loop sh_cycle	356	loop sh_cycle
357	inc byte[sh_off] ; shuffling complete	357	inc byte[sh_off] ; shuffling complete
358	ret	358	ret
359		359
360		360
361	; *********************************************	361	; *********************************************
362	; ******* MOVE VALIDITY CHECK *************	362	; ******* MOVE VALIDITY CHECK *************
363	; *********************************************	363	; *********************************************
364	; AL - 'DELTA' DIRECTION	364	; AL - 'DELTA' DIRECTION
365		365
366	move_check:	366	move_check:
367	pusha	367	pusha
368	mov ah,byte [null]	368	mov ah,byte [null]
369	mov bx,ax	369	mov bx,ax
370	cmp bh,3	370	cmp bh,3
371	ja no_top	371	ja no_top
372	cmp al,-4 ; top of field	372	cmp al,-4 ; top of field
373	je no_move	373	je no_move
374	no_top:	374	no_top:
375	cmp bh,12	375	cmp bh,12
376	jb no_bottom	376	jb no_bottom
377	cmp al,4 ; bottom of field	377	cmp al,4 ; bottom of field
378	je no_move	378	je no_move
379	no_bottom:	379	no_bottom:
380	and bh,11b	380	and bh,11b
381	cmp bh,0	381	cmp bh,0
382	jnz no_left	382	jnz no_left
383	cmp al,-1 ; left of field	383	cmp al,-1 ; left of field
384	je no_move	384	je no_move
385	no_left:	385	no_left:
386	cmp bh,11b	386	cmp bh,11b
387	jnz ok	387	jnz ok
388	cmp al,1 ; right of field	388	cmp al,1 ; right of field
389	je no_move	389	je no_move
390	ok:	390	ok:
391	mov bx,ax	391	mov bx,ax
392	add bh,bl ; bh-new hole	392	add bh,bl ; bh-new hole
393	mov byte [null],bh	393	mov byte [null],bh
394	movzx ecx,ah	394	movzx ecx,ah
395	mov al,byte[ecx+curconf]	395	mov al,byte[ecx+curconf]
396	movzx edx,bh	396	movzx edx,bh
397	mov bl,byte[edx+curconf] ; swapping button & hole	397	mov bl,byte[edx+curconf] ; swapping button & hole
398	mov byte[ecx+curconf],bl	398	mov byte[ecx+curconf],bl
399	mov byte[edx+curconf],al	399	mov byte[edx+curconf],al
400		400
401	cmp byte[sh_off],0 ; if shuffle in progress,	401	cmp byte[sh_off],0 ; if shuffle in progress,
402	jz no_win ; then no redraw	402	jz no_win ; then no redraw
403		403
404	; drawing button & hole	404	; drawing button & hole
405	inc ecx	405	inc ecx
406	call draw_button	406	call draw_button
407	movzx ecx,bh	407	movzx ecx,bh
408	inc ecx	408	inc ecx
409	call draw_button	409	call draw_button
410	; testing if task completed	410	; testing if task completed
411	mov esi,[task]	411	mov esi,[task]
412	mov edi,curconf	412	mov edi,curconf
413	mov ecx,16	413	mov ecx,16
414	repe cmpsb	414	repe cmpsb
415	cmp ecx,0	415	cmp ecx,0
416	jne no_win	416	jne no_win
417	mov word[sts],6 ; puzzle done. Victory!	417	mov word[sts],6 ; puzzle done. Victory!
418	no_win:	418	no_win:
419	popa	419	popa
420	stc	420	stc
421	ret	421	ret
422	no_move:	422	no_move:
423	popa	423	popa
424	clc	424	clc
425	ret	425	ret
426	; this is deprecated debug routine	426	; this is deprecated debug routine
427	;ud:	427	;ud:
428	; ud2	428	; ud2
429		429
430	; These are data used by program	430	; These are data used by program
431		431
432	correct db 1,-4,4,-1	432	correct db 1,-4,4,-1
433		433
434	conf db 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0,15	434	conf db 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0,15
435	db 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0	435	db 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0
436	db 1,2,3,4,12,13,14,5,11,0,15,6,10,9,8,7,9	436	db 1,2,3,4,12,13,14,5,11,0,15,6,10,9,8,7,9
437		437
438	txtMoves:	438	txtMoves:
439	if lang eq ru	439	if lang eq ru
440	db '®¤®¢:'	440	db '®¤®¢:'
441	else	441	else
442	db 'Moves:'	442	db 'Moves:'
443	end if	443	end if
444	lenMoves:	444	lenMoves:
445		445
446	txtSh:	446	txtSh:
447	if lang eq ru	447	if lang eq ru
448	db ' á®¢ª '	448	db ' á®¢ª '
449	else	449	else
450	db 'Shuffle'	450	db 'Shuffle'
451	end if	451	end if
452	lenSh:	452	lenSh:
453		453
454	txtCnf:	454	txtCnf:
455	if lang eq ru	455	if lang eq ru
456	db 'ë¡¥à¨â¥ § ¤ çã ¨ ¦¬¨â¥->'	456	db 'ë¡¥à¨â¥ § ¤ çã ¨ ¦¬¨â¥->'
457	else	457	else
458	db 'Select task, then press ->'	458	db 'Select task, then press ->'
459	end if	459	end if
460	lenCnf:	460	lenCnf:
461		461
462	txtTitle: ; áâà®ª § £®«®¢ª	462	txtTitle: ; áâà®ª § £®«®¢ª
463	if lang eq ru	463	if lang eq ru
464	db '£à 15 - § ¤ ç X'	464	db '£à 15 - § ¤ ç X'
465	else	465	else
466	db 'Game 15 - puzzle X'	466	db 'Game 15 - puzzle X'
467	end if	467	end if
468	lenTitle: ; ¨ ¥ñ ª®¥æ	468	lenTitle: ; ¨ ¥ñ ª®¥æ
469		469
470	txtVictory:	470	txtVictory:
471	if lang eq ru	471	if lang eq ru
472	db 'ë à¥è¨«¨ § ¤ çã! ¦¬¨â¥->'	472	db 'ë à¥è¨«¨ § ¤ çã! ¦¬¨â¥->'
473	else	473	else
474	db 'Puzzle completed! Press->'	474	db 'Puzzle completed! Press->'
475	end if	475	end if
476	lenVictory:	476	lenVictory:
477		477
478	arrow equ lenVictory-2	478	arrow equ lenVictory-2
479		479
480	I_END: ; ª®¥æ ¯à®£à ¬¬ë	480	I_END: ; ª®¥æ ¯à®£à ¬¬ë
481	;null db ?	481	;null db ?
482	move_count dw ?	482	move_count dw ?
483	cptr db ?	483	cptr db ?
484	sts dw ?	484	sts dw ?
485	sh_off db ?	485	sh_off db ?
486	task dd ?	486	task dd ?
487	generator dd ?	487	generator dd ?
488	curconf:	488	curconf:

Subversion Repositories Kolibri OS

(root)/programs/games/15/trunk/15.ASM – Rev 485 → 551