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

Subversion Repositories Kolibri OS

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