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

Subversion Repositories Kolibri OS

(root)/programs/games/15/trunk/15.ASM – Rev 2681 → 3484