forked from KolibriOS/kolibrios
2108 lines
47 KiB
NASM
2108 lines
47 KiB
NASM
; <--- description --->
|
||
; compiler: FASM 1.50
|
||
; name: FreeCell for MeOS
|
||
; version: 1.00
|
||
; last update: 21/07/2004
|
||
; written by: Alexandr Gorbovets
|
||
; e-mail: gorsash@mail.ru
|
||
|
||
|
||
include "macros.inc"
|
||
include "lang.inc"
|
||
meos_app_start
|
||
|
||
code
|
||
call randomize
|
||
call draw_window
|
||
|
||
wait_event:
|
||
mov eax, 10
|
||
mcall
|
||
|
||
cmp eax, 1 ; if event == 1
|
||
je redraw ; jump to redraw handler
|
||
cmp eax, 2 ; else if event == 2
|
||
je key ; jump to key handler
|
||
cmp eax, 3 ; else if event == 3
|
||
je button ; jump to button handler
|
||
|
||
|
||
jmp wait_event ;else return to the start of main cycle
|
||
|
||
|
||
redraw: ; redraw event handler
|
||
call draw_window
|
||
jmp wait_event
|
||
|
||
|
||
key: ; key event handler
|
||
mov eax, 2 ; get key code
|
||
mcall
|
||
|
||
jmp wait_event
|
||
|
||
button: ; button event handler
|
||
mov eax, 17 ; get button identifier
|
||
mcall
|
||
|
||
cmp ah, 1
|
||
je exit_app ; return if button id != 1
|
||
|
||
cmp ah, 1 + 8
|
||
jbe common_card ; if 1 < ah <= 9
|
||
|
||
cmp ah, 1 + 8 + 4 ; if 9 < ah <= 13
|
||
jbe temp_cell
|
||
|
||
cmp ah, 1 + 8 + 8
|
||
jbe home_cell
|
||
|
||
cmp ah, 1 + 8 + 4 + 4 + 1
|
||
je new_game_button
|
||
|
||
cmp ah, 1 + 8 + 4 + 4 + 2
|
||
je exit_app
|
||
|
||
|
||
jmp wait_event
|
||
|
||
|
||
exit_app:
|
||
mov eax, -1 ; exit application
|
||
mcall
|
||
|
||
common_card:
|
||
sub ah, 2 ;going from number of card to number of column
|
||
mov [columnclicked], 0
|
||
mov byte [columnclicked], ah
|
||
call common_card_click
|
||
jmp wait_event
|
||
|
||
temp_cell:
|
||
sub ah, 2 + 8
|
||
mov [columnclicked], 0
|
||
mov byte [columnclicked], ah
|
||
call temp_cell_click
|
||
jmp wait_event
|
||
|
||
|
||
home_cell:
|
||
sub ah, 2 + 8 + 4
|
||
mov [columnclicked], 0
|
||
mov byte [columnclicked], ah
|
||
call home_cell_click
|
||
jmp wait_event
|
||
|
||
new_game_button:
|
||
call new_game_click
|
||
jmp wait_event
|
||
|
||
|
||
;******************************************************************************
|
||
; common_card_click(columnclicked)
|
||
common_card_click:
|
||
|
||
; counting code of card, that has been clicked
|
||
mov eax, [columnclicked]
|
||
mov [ncolumn], eax
|
||
call get_row_of_top_card_in_column
|
||
mov eax, [topcardrow] ; eax = topcardrow * 8 + columnofselcard
|
||
mov bl, 8
|
||
mul bl
|
||
add eax, [columnclicked]
|
||
add eax, cards
|
||
|
||
mov ebx, 0
|
||
mov bl, byte [eax]
|
||
mov [cardclicked], ebx
|
||
|
||
|
||
call get_sel_card_code_and_addr
|
||
|
||
cmp [selcardcode], 52
|
||
jb .something_selected
|
||
|
||
|
||
cmp [cardclicked], 52
|
||
je .end
|
||
|
||
mov [whereisselcard], scCommonCells
|
||
mov eax, [columnclicked]
|
||
mov [columnofselcard], eax
|
||
call draw_window
|
||
jmp .end
|
||
|
||
|
||
.something_selected:
|
||
|
||
|
||
; checking if selected and clicked cards are equivalent
|
||
mov eax, [selcardcode]
|
||
cmp [cardclicked], eax
|
||
jne .not_same_card
|
||
|
||
mov [whereisselcard], scNotSelected
|
||
call draw_window
|
||
jmp .end
|
||
|
||
.not_same_card:
|
||
|
||
cmp [cardclicked], 52
|
||
jae .put_in_blank_cell
|
||
|
||
|
||
mov eax, [selcardcode]
|
||
mov bl, 4
|
||
div bl
|
||
|
||
mov ebx, 0
|
||
mov bl, ah
|
||
mov [cardfamily], ebx
|
||
|
||
mov ecx, 0
|
||
mov cl, al
|
||
mov [cardrange], ecx
|
||
|
||
|
||
mov eax, [cardclicked]
|
||
mov bl, 4
|
||
div bl ; reminder in ah, quotient in al
|
||
|
||
mov ebx, 0
|
||
mov bl, ah
|
||
mov [clickedcardfamily], ebx
|
||
|
||
mov ecx, 0
|
||
mov cl, al
|
||
mov [clickedcardrange], ecx
|
||
|
||
; clickedcardrange must be = cardrange + 1
|
||
mov eax, [cardrange]
|
||
inc eax
|
||
|
||
cmp [clickedcardrange], eax ; eax is such as needed
|
||
jne .end
|
||
|
||
|
||
cmp [cardfamily], 1
|
||
ja .black_card
|
||
|
||
; if selected red card
|
||
cmp [clickedcardfamily], 1
|
||
jbe .end ; if clicked red card (range <= 1) then exit
|
||
|
||
jmp .valid_cards
|
||
|
||
.black_card:
|
||
; if selected black card
|
||
cmp [clickedcardfamily], 1
|
||
ja .end ; if clicked black card then exit
|
||
|
||
jmp .valid_cards
|
||
|
||
.valid_cards:
|
||
; moving card from its place on clicked card
|
||
|
||
mov eax, [columnclicked]
|
||
mov [ncolumn], eax
|
||
call get_row_of_top_card_in_column
|
||
mov eax, [topcardrow]
|
||
inc eax
|
||
|
||
mov bl, 8
|
||
mul bl
|
||
|
||
and eax, $0000FFFF
|
||
add eax, [columnclicked]
|
||
add eax, cards
|
||
|
||
mov bl, byte [selcardcode]
|
||
mov byte [eax], bl
|
||
|
||
mov eax, [selcardaddr]
|
||
mov byte [eax], 52
|
||
|
||
mov [whereisselcard], scNotSelected
|
||
|
||
call draw_window
|
||
|
||
jmp .end
|
||
|
||
.put_in_blank_cell:
|
||
|
||
mov eax, cards
|
||
add eax, [columnclicked]
|
||
mov bl, byte [selcardcode]
|
||
mov byte [eax], bl
|
||
|
||
mov eax, [selcardaddr]
|
||
mov byte [eax], 52
|
||
|
||
mov [whereisselcard], scNotSelected
|
||
|
||
call draw_window
|
||
|
||
.end:
|
||
|
||
ret
|
||
|
||
|
||
;******************************************************************************
|
||
; temp_cell_click(columnclicked)
|
||
temp_cell_click:
|
||
call get_sel_card_code_and_addr
|
||
cmp [selcardcode], 52
|
||
jb .something_selected
|
||
|
||
|
||
mov [whereisselcard], scTempCells
|
||
mov eax, [columnclicked]
|
||
mov [columnofselcard], eax
|
||
call draw_window
|
||
jmp .end
|
||
|
||
.something_selected:
|
||
; checking if selected and clicked cards equivalent
|
||
mov eax, [columnclicked]
|
||
add eax, tempcells
|
||
|
||
mov ebx, 0
|
||
mov bl, byte [eax]
|
||
mov [cardclicked], ebx
|
||
|
||
mov eax, [selcardcode]
|
||
cmp [cardclicked], eax
|
||
jne .not_same_card
|
||
|
||
mov [whereisselcard], scNotSelected
|
||
call draw_window
|
||
|
||
.not_same_card:
|
||
|
||
;putting cards in temp cells
|
||
|
||
mov eax, [columnclicked]
|
||
add eax, tempcells
|
||
|
||
mov ebx, 0
|
||
mov bl, byte [eax]
|
||
mov [cardclicked], ebx
|
||
|
||
|
||
cmp [cardclicked], 52
|
||
jb .end
|
||
; if nothing lay in this cell
|
||
; move selected card to temp cell
|
||
mov eax, [columnclicked]
|
||
add eax, tempcells
|
||
mov bl, byte [selcardcode]
|
||
mov byte [eax], bl
|
||
|
||
mov eax, [selcardaddr]
|
||
mov byte [eax], 52
|
||
|
||
mov [whereisselcard], scNotSelected
|
||
|
||
call draw_window
|
||
|
||
|
||
jmp .end
|
||
|
||
|
||
.end:
|
||
|
||
ret
|
||
|
||
;******************************************************************************
|
||
; home_cell_click(column_clicked)
|
||
home_cell_click:
|
||
call get_sel_card_code_and_addr
|
||
|
||
mov eax, [columnclicked]
|
||
add eax, homecells
|
||
|
||
|
||
mov ebx, 0
|
||
mov bl, byte [eax]
|
||
mov [cardclicked], ebx
|
||
|
||
mov eax, [selcardcode]
|
||
mov bl, 4
|
||
div bl ; reminder in ah, quotient in al
|
||
|
||
mov ebx, 0
|
||
mov bl, ah
|
||
mov [cardfamily], ebx
|
||
|
||
mov ecx, 0
|
||
mov cl, al
|
||
mov [cardrange], ecx
|
||
|
||
|
||
cmp [cardclicked], 52
|
||
jb .not_blank
|
||
; if nothing lay in this cell
|
||
cmp [cardrange], 0
|
||
jne .end
|
||
; move ace to home
|
||
mov eax, [columnclicked]
|
||
add eax, homecells
|
||
mov bl, byte [selcardcode]
|
||
mov byte [eax], bl
|
||
|
||
mov eax, [selcardaddr]
|
||
mov byte [eax], 52
|
||
|
||
mov [whereisselcard], scNotSelected
|
||
|
||
call draw_window
|
||
|
||
|
||
jmp .end
|
||
|
||
.not_blank:
|
||
|
||
mov eax, [cardclicked]
|
||
mov bl, 4
|
||
div bl ; reminder in ah, quotient in al
|
||
|
||
mov ebx, 0
|
||
mov bl, ah
|
||
mov [clickedcardfamily], ebx
|
||
|
||
mov ecx, 0
|
||
mov cl, al
|
||
mov [clickedcardrange], ecx
|
||
|
||
cmp [cardfamily], ebx
|
||
jne .end
|
||
|
||
inc ecx
|
||
cmp [cardrange], ecx
|
||
jne .end
|
||
|
||
; moving card from its place to home with replacing
|
||
; of old card in home
|
||
mov eax, [columnclicked]
|
||
add eax, homecells
|
||
mov bl, byte [selcardcode]
|
||
mov byte [eax], bl
|
||
|
||
mov eax, [selcardaddr]
|
||
mov byte [eax], 52
|
||
|
||
mov [whereisselcard], scNotSelected
|
||
|
||
call draw_window
|
||
|
||
|
||
|
||
.end:
|
||
|
||
ret
|
||
|
||
|
||
;******************************************************************************
|
||
new_game_click:
|
||
|
||
mov [i], 0
|
||
.deleting_cards_from_common_cells:
|
||
mov eax, cards
|
||
add eax, [i]
|
||
mov byte [eax], 52
|
||
|
||
|
||
inc [i]
|
||
cmp [i], 19*8
|
||
jb .deleting_cards_from_common_cells
|
||
|
||
|
||
mov [i], 0
|
||
.filling_pack:
|
||
mov eax, pack
|
||
add eax, [i]
|
||
mov bl, byte [i]
|
||
mov byte [eax], bl
|
||
|
||
inc [i]
|
||
cmp [i], 52
|
||
jb .filling_pack
|
||
|
||
mov [i], 0
|
||
|
||
.putting_cards:
|
||
|
||
mov [range], 52
|
||
call random
|
||
mov eax, [random_value]
|
||
add eax, pack
|
||
|
||
mov ebx, 0
|
||
mov bl, byte [eax]
|
||
mov [randomcard], ebx
|
||
|
||
mov eax, [random_value]
|
||
mov [j], eax
|
||
|
||
cmp [randomcard], 52
|
||
jb .found_card
|
||
|
||
|
||
mov [range], 52
|
||
call random
|
||
cmp [random_value], 26
|
||
jae .decreasing_j
|
||
|
||
.increasing_j:
|
||
inc [j]
|
||
; j mod 52
|
||
mov eax, [j]
|
||
mov edx, 0
|
||
mov ebx, 52
|
||
div ebx
|
||
mov [j], edx
|
||
|
||
|
||
mov eax, [j]
|
||
add eax, pack
|
||
mov ebx, 0
|
||
mov bl, byte [eax]
|
||
mov [randomcard], ebx
|
||
cmp [randomcard], 52
|
||
jb .found_card
|
||
|
||
jmp .increasing_j
|
||
|
||
|
||
.decreasing_j:
|
||
dec [j]
|
||
; i mod 32
|
||
mov eax, [j]
|
||
mov edx, 0
|
||
mov ebx, 52
|
||
div ebx
|
||
mov [j], edx
|
||
|
||
mov eax, [j]
|
||
add eax, pack
|
||
mov ebx, 0
|
||
mov bl, byte [eax]
|
||
mov [randomcard], ebx
|
||
cmp [randomcard], 52
|
||
jb .found_card
|
||
|
||
jmp .decreasing_j
|
||
|
||
.found_card:
|
||
; putting card from pack
|
||
mov eax, cards
|
||
add eax, [i]
|
||
mov bl, byte [randomcard]
|
||
mov byte [eax], bl
|
||
; deleting card from pack
|
||
mov eax, pack
|
||
add eax, [j]
|
||
mov byte [eax], 52
|
||
|
||
|
||
inc [i]
|
||
cmp [i], 52
|
||
jb .putting_cards
|
||
|
||
|
||
|
||
|
||
mov [i], 0
|
||
.deleting_cards_from_temp_cells:
|
||
mov eax, tempcells
|
||
add eax, [i]
|
||
mov byte [eax], 52
|
||
|
||
|
||
inc [i]
|
||
cmp [i], 4
|
||
jb .deleting_cards_from_temp_cells
|
||
|
||
mov [i], 0
|
||
.deleting_cards_from_home_cells:
|
||
mov eax, homecells
|
||
add eax, [i]
|
||
mov byte [eax], 52
|
||
|
||
|
||
inc [i]
|
||
cmp [i], 4
|
||
jb .deleting_cards_from_home_cells
|
||
|
||
|
||
mov [whereisselcard], scNotSelected
|
||
call draw_window
|
||
|
||
|
||
ret
|
||
|
||
|
||
;******************************************************************************
|
||
; get_sel_card_code_and_addr(): selcardcode, selcardaddr
|
||
; if nothing selected, then selcardcode is 52
|
||
get_sel_card_code_and_addr:
|
||
cmp [whereisselcard], scNotSelected
|
||
jne .something_selected
|
||
|
||
mov [selcardcode], 52
|
||
jmp .end
|
||
|
||
.something_selected:
|
||
cmp [whereisselcard], scTempCells
|
||
je .temp_cells_selected
|
||
|
||
; common cells selected
|
||
mov eax, [columnofselcard]
|
||
mov [ncolumn], eax
|
||
call get_row_of_top_card_in_column
|
||
|
||
|
||
mov eax, [topcardrow]; eax = topcardrow * 8 + columnofselcard
|
||
mov bl, 8
|
||
mul bl ; result of multiplication in ax
|
||
add eax, [columnofselcard]
|
||
add eax, cards
|
||
|
||
|
||
mov [selcardaddr], eax
|
||
xor ebx, ebx
|
||
mov bl, byte [eax]
|
||
mov [selcardcode], ebx
|
||
|
||
jmp .end
|
||
|
||
.temp_cells_selected:
|
||
|
||
mov eax, tempcells
|
||
add eax, [columnofselcard]
|
||
mov [selcardaddr], eax
|
||
mov ebx, 0
|
||
mov bl, byte [eax]
|
||
mov [selcardcode], ebx
|
||
|
||
.end:
|
||
|
||
ret
|
||
|
||
;******************************************************************************
|
||
; draw_window()
|
||
|
||
draw_window:
|
||
mov eax,48 ; get system colors
|
||
mov ebx,3
|
||
mov ecx,syscolors
|
||
mov edx,sizeof.system_colors
|
||
mcall
|
||
|
||
|
||
mov eax, 12 ; start drawing
|
||
mov ebx, 1
|
||
mcall
|
||
|
||
mov eax, 0 ; create and draw the window
|
||
mov ebx, 100 * 65536 + 8 * cardwidth + 10 + 7 * columnspace
|
||
mov ecx, 100 * 65536 + 500
|
||
mov edx, 0x13008000
|
||
mov edi, title
|
||
mcall
|
||
|
||
mov eax, 9 ; getting window info
|
||
mov ebx, process_info
|
||
mov ecx, -1 ; we want to know info of our window
|
||
mcall
|
||
|
||
|
||
mov eax, [process_info.box.height]
|
||
mov [WindowHeight], ax
|
||
|
||
mov eax, [process_info.box.width]
|
||
mov [WindowWidth], ax
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; draw top panel
|
||
|
||
mov eax, 13
|
||
mov ebx, 5
|
||
shl ebx, 16
|
||
add bx, word [process_info.box.width]
|
||
sub bx, 9
|
||
mov ecx, 22 shl 16 + topbuttonsbarheight - 1
|
||
mov edx, [syscolors.work_graph]
|
||
mcall
|
||
|
||
; draw button "new game"
|
||
|
||
mov eax, 8
|
||
mov ebx, 5 shl 16 + 80
|
||
mov ecx, 22 shl 16 + topbuttonsbarheight - 2
|
||
mov edx, 1 + 8 + 4 + 4 + 1 ;button id
|
||
mov esi, [syscolors.work_button]
|
||
mcall
|
||
|
||
mov eax, 4
|
||
mov ebx, 20 shl 16 + 22 + topbuttonsbarheight/2 - 4
|
||
mov ecx, [syscolors.work_button_text]
|
||
mov edx, new_game
|
||
mov esi, new_game_len
|
||
mcall
|
||
|
||
|
||
; draw button "exit"
|
||
mov eax, 8
|
||
mov ebx, (5 + 85) shl 16 + 80 + 5
|
||
mov ecx, 22 shl 16 + topbuttonsbarheight - 2
|
||
mov edx, 1 + 8 + 4 + 4 + 2 ;button id
|
||
mov esi, [syscolors.work_button]
|
||
mcall
|
||
|
||
mov eax, 4
|
||
mov ebx, (40 + 80) shl 16 + 22 + topbuttonsbarheight/2 - 4
|
||
mov ecx, [syscolors.work_button_text]
|
||
mov edx, exit
|
||
mov esi, exit_len
|
||
mcall
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; draw separators between home, temp and common cells
|
||
mov eax, 13
|
||
; horizontal line
|
||
mov ebx, 5
|
||
shl ebx, 16
|
||
add bx, word [process_info.box.width]
|
||
sub bx, 9
|
||
mov ecx, (21 + topbuttonsbarheight + cardheight + columnspace) shl 16+1
|
||
|
||
mov edx, [syscolors.work_graph]
|
||
mcall
|
||
; verical line
|
||
mov eax, [process_info.box.width]
|
||
mov edx, 0
|
||
mov ecx, 2
|
||
div ecx
|
||
|
||
mov ebx, eax
|
||
|
||
;
|
||
shl ebx, 16
|
||
add bx, 1
|
||
mov ecx, (21 + topbuttonsbarheight) shl 16 + cardheight + columnspace
|
||
mov edx, [syscolors.work_graph]
|
||
mov eax, 13
|
||
mcall
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; draw temp buttons
|
||
|
||
mov [j], 0 ;counter that loops from 0 to 51
|
||
|
||
draw_a_temp_card:
|
||
|
||
; code of card must be in ecx
|
||
mov eax, tempcells
|
||
add eax, [j]
|
||
xor ecx, ecx
|
||
mov cl, byte [eax] ; placing in cl value from memory
|
||
; with address [tempcells + j] or
|
||
; j-th element of array "tempcells"
|
||
|
||
mov [cardcode], ecx
|
||
|
||
mov eax, [j]
|
||
xor edx, edx
|
||
mov ebx, 8
|
||
div ebx ; divsion by 8 (8 columns),
|
||
; so in eax quotient - number of row
|
||
; and in edx remainder -
|
||
; number of column where lay card
|
||
|
||
mov [row], eax
|
||
mov [column], edx
|
||
|
||
mov eax, [process_info.box.width] ; width of window
|
||
sub eax, 10
|
||
sub eax, cardwidth
|
||
mov ebx, 7
|
||
mov edx, 0
|
||
div ebx
|
||
mov ebx, [column]
|
||
mul ebx
|
||
add eax, 5
|
||
|
||
mov [xpos], eax
|
||
|
||
|
||
mov eax, [row]
|
||
mov bl, rowsize
|
||
mul bl
|
||
add eax, 24 + topbuttonsbarheight
|
||
mov [ypos], eax
|
||
|
||
; checking, if this card selected
|
||
|
||
mov [negativedraw], 0
|
||
|
||
cmp [whereisselcard], scTempCells
|
||
jne .this_temp_cell_isnt_selected
|
||
|
||
mov eax, [column]
|
||
cmp [columnofselcard], eax
|
||
jne .this_temp_cell_isnt_selected
|
||
|
||
mov [negativedraw], 1
|
||
|
||
.this_temp_cell_isnt_selected:
|
||
|
||
call draw_card
|
||
|
||
; define button on place of card
|
||
mov eax, 8
|
||
mov ebx, [xpos]
|
||
shl ebx, 16
|
||
add bx, cardwidth - 1
|
||
mov ecx, [ypos]
|
||
shl ecx, 16
|
||
add cx, cardheight - 1
|
||
mov edx, [column]
|
||
add edx, 01000000000000000000000000000000b + 2 + 8; button id = column
|
||
; id = 1 reserved as close button
|
||
mcall
|
||
|
||
|
||
inc [j]
|
||
cmp [j], 4
|
||
jb draw_a_temp_card
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; draw home buttons
|
||
mov [j], 0 ;counter that loops from 0 to 51
|
||
|
||
draw_a_home_card:
|
||
|
||
|
||
; code of card must be in ecx
|
||
mov eax, homecells
|
||
add eax, [j]
|
||
xor ecx, ecx
|
||
mov cl, byte [eax] ; placing in cl value from memory
|
||
; with address [tempcells + j] or
|
||
; j-th element of array "tempcells"
|
||
|
||
mov [cardcode], ecx
|
||
|
||
mov eax, [j]
|
||
xor edx, edx
|
||
mov ebx, 8
|
||
div ebx ; divsion by 8 (8 columns),
|
||
; so in eax quotient - number of row
|
||
; and in edx remainder -
|
||
; number of column where lay card
|
||
|
||
mov [row], eax
|
||
mov [column], edx
|
||
|
||
mov eax, [process_info.box.width] ; width of window
|
||
sub eax, 10
|
||
sub eax, cardwidth
|
||
mov ebx, 7
|
||
mov edx, 0
|
||
div ebx
|
||
mov ebx, [column]
|
||
add ebx, 4
|
||
mul ebx
|
||
add eax, 5
|
||
|
||
mov [xpos], eax
|
||
|
||
mov eax, [row]
|
||
mov bl, rowsize
|
||
mul bl
|
||
add eax, 24 + topbuttonsbarheight
|
||
mov [ypos], eax
|
||
|
||
mov [negativedraw], 0
|
||
|
||
call draw_card
|
||
|
||
; define button on place of card
|
||
|
||
mov eax, 8
|
||
mov ebx, [xpos]
|
||
shl ebx, 16
|
||
add bx, cardwidth - 1
|
||
mov ecx, [ypos]
|
||
shl ecx, 16
|
||
add cx, cardheight - 1
|
||
mov edx, [column]
|
||
add edx, 01000000000000000000000000000000b + 2 + 8 + 4 ; button id
|
||
|
||
; id = 1 reserved as close button
|
||
mcall
|
||
|
||
|
||
inc [j]
|
||
cmp [j], 4
|
||
jb draw_a_home_card
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; draw common cards
|
||
|
||
mov [j], 0 ;counter that loops from 0 to 8 * 19
|
||
|
||
draw_a_card:
|
||
|
||
|
||
; code of card must be in ecx
|
||
mov eax, cards
|
||
add eax, [j]
|
||
xor ecx, ecx
|
||
mov cl, byte [eax] ; placing in cl value from memory
|
||
; with address [cards + j] or
|
||
; j-th element of array "cards"
|
||
; cmp ecx, 52 ; if code of card >= 52 then there is no card
|
||
; jae no_draw
|
||
;
|
||
; cmp ecx, 0 ; if code of card < 0 then there is no card
|
||
; jb no_draw
|
||
|
||
mov [cardcode], ecx
|
||
|
||
|
||
|
||
mov eax, [j]
|
||
xor edx, edx
|
||
mov ebx, 8
|
||
div ebx ; divsion by 8 (8 columns),
|
||
; so in eax quotient - number of row
|
||
; and in edx remainder -
|
||
; number of column where lay card
|
||
|
||
mov [row], eax
|
||
mov [column], edx
|
||
|
||
mov eax, [process_info.box.width] ; width of window
|
||
sub eax, 10
|
||
sub eax, cardwidth
|
||
mov ebx, 7
|
||
mov edx, 0
|
||
div ebx
|
||
mov ebx, [column]
|
||
mul ebx
|
||
add eax, 5
|
||
|
||
mov [xpos], eax
|
||
|
||
mov eax, [row]
|
||
mov bl, rowsize
|
||
mul bl
|
||
add eax, cardheight + 24 + topbuttonsbarheight + columnspace
|
||
mov [ypos], eax
|
||
|
||
|
||
mov [negativedraw], 0 ;checking, if this is selected card
|
||
|
||
cmp [whereisselcard], scCommonCells
|
||
jne .this_card_isnt_selected
|
||
|
||
mov eax, [column]
|
||
cmp [columnofselcard], eax
|
||
jne .this_card_isnt_selected
|
||
|
||
|
||
mov eax, [column]
|
||
mov [ncolumn], eax
|
||
call get_row_of_top_card_in_column
|
||
mov eax, [row]
|
||
cmp [topcardrow], eax
|
||
jne .this_card_isnt_selected
|
||
|
||
mov [negativedraw], 1
|
||
|
||
.this_card_isnt_selected:
|
||
|
||
call draw_card
|
||
|
||
|
||
|
||
; now checking if it is top card in its column
|
||
; if it does, we'll define button on its place
|
||
mov eax, [column]
|
||
mov [ncolumn], eax
|
||
call get_row_of_top_card_in_column
|
||
mov eax, [row]
|
||
cmp [topcardrow], eax
|
||
je .define_button
|
||
|
||
cmp [topcardrow], 0
|
||
jne .no_define_button
|
||
|
||
cmp [row], 0
|
||
jne .no_define_button
|
||
|
||
|
||
.define_button:
|
||
mov eax, 8
|
||
mov ebx, [xpos]
|
||
shl ebx, 16
|
||
add bx, cardwidth - 1
|
||
mov ecx, [ypos]
|
||
shl ecx, 16
|
||
add cx, cardheight - 1
|
||
mov edx, [column]
|
||
add edx, 01000000000000000000000000000000b + 2; button id = column + 2,
|
||
; id = 1 reserved as close button
|
||
mcall
|
||
|
||
|
||
.no_define_button:
|
||
|
||
inc [j]
|
||
cmp [j], 8 * 19
|
||
jb draw_a_card
|
||
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
|
||
mov eax, 12 ; finish drawing
|
||
mov ebx, 2
|
||
mcall
|
||
|
||
ret
|
||
|
||
|
||
;******************************************************************************
|
||
; get_row_of_top_card_in_column(ncolumn): topcardrow
|
||
|
||
get_row_of_top_card_in_column:
|
||
; number of column in ncolumn
|
||
; returns in topcardrow
|
||
|
||
mov [i], 0 ; i loops from 0 to 1, ... while card i * 8 + ncolumn
|
||
; is valid card (0 <= its code < 52)
|
||
|
||
.cycle:
|
||
xor eax, eax
|
||
mov al, 8
|
||
mov ebx, [i]
|
||
mul bl
|
||
add eax, [ncolumn]
|
||
add eax, cards
|
||
xor ecx, ecx
|
||
mov cl, byte [eax]
|
||
|
||
cmp ecx, 52
|
||
jae .endcycle
|
||
|
||
|
||
cmp [i], 18
|
||
ja .endcycle
|
||
|
||
|
||
inc [i]
|
||
|
||
jmp .cycle
|
||
|
||
.endcycle:
|
||
|
||
cmp [i], 0
|
||
je .dont_dec
|
||
|
||
dec [i]
|
||
|
||
.dont_dec:
|
||
|
||
mov eax, [i]
|
||
mov [topcardrow], eax
|
||
ret
|
||
|
||
|
||
;******************************************************************************
|
||
; invert_image_colors(imagetoinvert, sizeofimagetoinvert)
|
||
invert_image_colors:
|
||
mov [i], 0
|
||
|
||
.inverting:
|
||
mov eax, [imagetoinvert]
|
||
add eax, [i]
|
||
|
||
mov bl, byte [eax]
|
||
;xor ebx, ebx
|
||
;add ebx, 10
|
||
not ebx
|
||
|
||
mov byte [eax], bl
|
||
|
||
|
||
inc [i]
|
||
|
||
mov ecx, [sizeofimagetoinvert]
|
||
cmp [i], ecx
|
||
jb .inverting
|
||
|
||
jmp .later
|
||
|
||
|
||
.exit:
|
||
mov eax, -1
|
||
mcall
|
||
|
||
.later:
|
||
|
||
|
||
ret
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
; draw_card(xpos, ypos, cardcode, negativedraw)
|
||
; if negativedraw = 1 then card drawn in inverted colors
|
||
|
||
draw_card: ; draws card with left top corner
|
||
; in point ([xpos],[ypos]),
|
||
; type of card in [cardcode]
|
||
|
||
cmp [cardcode], 52 ; if code of card >= 52 then there is no card
|
||
jae .no_draw_card
|
||
|
||
|
||
cmp [negativedraw], 1
|
||
jne .no_invert1
|
||
;doing if negativedraw
|
||
mov [bgcolor], $00000000
|
||
mov [blackcolor], $00FFFFFF
|
||
mov [redcolor], $0000FFFF
|
||
|
||
;inverting all images
|
||
call invert_all_images
|
||
|
||
jmp .colors_selection_done
|
||
|
||
.no_invert1:
|
||
;doing if not negativedraw
|
||
mov [bgcolor], $00FFFFFF
|
||
mov [blackcolor], $00000000
|
||
mov [redcolor], $00FF0000
|
||
|
||
|
||
.colors_selection_done:
|
||
|
||
mov eax, 13
|
||
|
||
mov ebx, [xpos] ; filling card with bgcolor
|
||
; (big background rectangle)
|
||
mov edx, [bgcolor]
|
||
add ebx, 2
|
||
shl ebx, 16
|
||
mov bx, cardwidth - 4
|
||
|
||
mov ecx, [ypos]
|
||
add ecx, 2
|
||
shl ecx, 16
|
||
mov cx, cardheight - 4
|
||
mcall
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
mov ebx, [xpos] ; left black line
|
||
shl ebx, 16
|
||
mov bx, 1
|
||
|
||
mov ecx, [ypos]
|
||
add ecx, 5
|
||
shl ecx, 16
|
||
xor cx, cx
|
||
mov cx, cardheight - 2 * radius - 2
|
||
mov edx, [blackcolor]
|
||
mcall
|
||
|
||
mov ebx, [xpos] ; left white line
|
||
inc ebx
|
||
shl ebx, 16
|
||
mov bx, 1
|
||
mov edx, [bgcolor]
|
||
mcall
|
||
|
||
mov ebx, [xpos] ; right black line
|
||
add ebx, cardwidth - 1
|
||
shl ebx, 16
|
||
mov bx, 1
|
||
mov edx, [blackcolor]
|
||
mcall
|
||
|
||
mov ebx, [xpos] ; right white line
|
||
add ebx, cardwidth - 2
|
||
shl ebx, 16
|
||
mov bx, 1
|
||
mov edx, [bgcolor]
|
||
mcall
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
mov ecx, [ypos] ; top black line
|
||
shl ecx, 16
|
||
mov cx, 1
|
||
|
||
mov ebx, [xpos]
|
||
add ebx, 5
|
||
shl ebx, 16
|
||
mov bx, cardwidth - 2 * radius - 2
|
||
mov edx, [blackcolor]
|
||
mcall
|
||
|
||
mov ecx, [ypos] ; top white line
|
||
inc ecx
|
||
shl ecx, 16
|
||
mov cx, 1
|
||
mov edx, [bgcolor]
|
||
mcall
|
||
|
||
mov ecx, [ypos] ; bottom black line
|
||
add ecx, cardheight - 1
|
||
shl ecx, 16
|
||
mov cx, 1
|
||
mov edx, [blackcolor]
|
||
mcall
|
||
|
||
mov ecx, [ypos] ; bottom white line
|
||
add ecx, cardheight - 2
|
||
shl ecx, 16
|
||
mov cx, 1
|
||
mov edx, [bgcolor]
|
||
mcall
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
mov eax, 1 ; drawing points
|
||
mov edx, [blackcolor] ; black color for all pixels
|
||
|
||
mov ebx, [xpos] ; draw top left corner
|
||
mov ecx, [ypos]
|
||
inc ebx
|
||
add ecx, 4
|
||
mcall
|
||
|
||
dec ecx
|
||
mcall
|
||
|
||
dec ecx
|
||
inc ebx
|
||
mcall
|
||
|
||
dec ecx
|
||
inc ebx
|
||
mcall
|
||
|
||
inc ebx
|
||
mcall
|
||
|
||
mov ebx, [xpos] ;drawing top right corner
|
||
mov ecx, [ypos]
|
||
add ebx, cardwidth - 2
|
||
add ecx, 4
|
||
mcall
|
||
|
||
dec ecx
|
||
mcall
|
||
|
||
dec ebx
|
||
dec ecx
|
||
mcall
|
||
|
||
dec ebx
|
||
dec ecx
|
||
mcall
|
||
|
||
dec ebx
|
||
mcall
|
||
;drawing bottom left corner
|
||
mov ebx, [xpos]
|
||
mov ecx, [ypos]
|
||
inc ebx
|
||
add ecx, cardheight - 5
|
||
mcall
|
||
|
||
inc ecx
|
||
mcall
|
||
|
||
inc ebx
|
||
inc ecx
|
||
mcall
|
||
|
||
inc ebx
|
||
inc ecx
|
||
mcall
|
||
|
||
inc ebx
|
||
mcall
|
||
;drawing bottom right corner
|
||
mov ebx, [xpos]
|
||
mov ecx, [ypos]
|
||
add ebx, cardwidth - 2
|
||
add ecx, cardheight - 5
|
||
mcall
|
||
|
||
inc ecx
|
||
mcall
|
||
|
||
dec ebx
|
||
inc ecx
|
||
mcall
|
||
|
||
dec ebx
|
||
inc ecx
|
||
mcall
|
||
|
||
dec ebx
|
||
mcall
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; drawing text and images
|
||
|
||
mov eax, [cardcode]
|
||
mov edx, 0
|
||
mov ebx, 4
|
||
div ebx
|
||
|
||
mov [cardfamily], edx
|
||
mov [cardrange], eax
|
||
|
||
; counting position of small card image
|
||
mov eax, 7
|
||
mov ecx, 8*65536+8
|
||
mov edx, [xpos]
|
||
add edx, radius
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, radius + 8
|
||
|
||
|
||
|
||
cmp [cardfamily], 0
|
||
je .heart
|
||
|
||
cmp [cardfamily], 1
|
||
je .diamond
|
||
|
||
cmp [cardfamily], 2
|
||
je .club
|
||
|
||
cmp [cardfamily], 3
|
||
je .spade
|
||
|
||
.heart:
|
||
mov esi, [redcolor]
|
||
mov [color], esi
|
||
mov [imageaddr], heart
|
||
mov [imageflipaddr], heart_updown
|
||
|
||
mov ebx, heart_small
|
||
mcall
|
||
|
||
jmp .selnumber
|
||
|
||
.diamond:
|
||
mov esi, [redcolor]
|
||
mov [color], esi
|
||
mov [imageaddr], diamond
|
||
mov [imageflipaddr], diamond_updown
|
||
|
||
mov ebx, diamond_small
|
||
mcall
|
||
|
||
jmp .selnumber
|
||
|
||
.club:
|
||
mov esi, [blackcolor]
|
||
mov [color], esi
|
||
mov [imageaddr], club
|
||
mov [imageflipaddr], club_updown
|
||
|
||
mov ebx, club_small
|
||
mcall
|
||
|
||
jmp .selnumber
|
||
|
||
.spade:
|
||
mov esi, [blackcolor]
|
||
mov [color], esi
|
||
mov [imageaddr], spade
|
||
mov [imageflipaddr], spade_updown
|
||
|
||
mov ebx, spade_small
|
||
mcall
|
||
|
||
|
||
|
||
.selnumber:
|
||
|
||
mov ebx, [xpos] ; counting position of text
|
||
; in ebx, same for all cards
|
||
add ebx, radius
|
||
shl ebx, 16
|
||
mov bx, word [ypos]
|
||
add bx, radius
|
||
|
||
|
||
mov ecx, [color]
|
||
|
||
|
||
cmp [cardrange], 0
|
||
je .ace
|
||
|
||
cmp [cardrange], 1
|
||
je .two
|
||
|
||
cmp [cardrange], 2
|
||
je .three
|
||
|
||
cmp [cardrange], 3
|
||
je .four
|
||
|
||
cmp [cardrange], 4
|
||
je .five
|
||
|
||
cmp [cardrange], 5
|
||
je .six
|
||
|
||
cmp [cardrange], 6
|
||
je .seven
|
||
|
||
cmp [cardrange], 7
|
||
je .eight
|
||
|
||
cmp [cardrange], 8
|
||
je .nine
|
||
|
||
cmp [cardrange], 9
|
||
je .ten
|
||
|
||
cmp [cardrange], 10
|
||
je .jack
|
||
|
||
cmp [cardrange], 11
|
||
je .queen
|
||
|
||
cmp [cardrange], 12
|
||
je .king
|
||
|
||
; +-------+-------+-------+
|
||
; | 3 | 2 | 3 | ace = 1
|
||
; +-------+-------+-------+ two = 2
|
||
; | | | | three = 2 + 1
|
||
; +-------+-------+-------+ four = 3
|
||
; | | 6 | | five = 3 + 1
|
||
; +-------+-------+-------+ six = 3 + 4
|
||
; | 5 | | 5 | seven = 3 + 4 + 6
|
||
; +-------+-------+-------+ eight = 3 + 5
|
||
; | 4 | 1 | 4 | nine = 3 + 5
|
||
; +-------+-------+-------+ ten = 3 + 5 + 6 + 7
|
||
; | 5 | | 5 |
|
||
; +-------+-------+-------+
|
||
; | | 7 | | 1 means draw_1
|
||
; +-------+-------+-------+
|
||
; | | | |
|
||
; +-------+-------+-------+
|
||
; | 3 | 2 | 3 |
|
||
; +-------+-------+-------+
|
||
|
||
|
||
|
||
.ace:
|
||
mov eax, 4
|
||
mov [s], byte 'A'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
call draw_1
|
||
jmp .end
|
||
|
||
.two:
|
||
mov eax, 4
|
||
mov [s], byte '2'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
call draw_2
|
||
jmp .end
|
||
|
||
|
||
.three:
|
||
mov eax, 4
|
||
mov [s], byte '3'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
call draw_1
|
||
call draw_2
|
||
|
||
jmp .end
|
||
|
||
.four:
|
||
mov eax, 4
|
||
mov [s], byte '4'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
call draw_3
|
||
jmp .end
|
||
|
||
.five:
|
||
mov eax, 4
|
||
mov [s], byte '5'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
call draw_1
|
||
call draw_3
|
||
|
||
jmp .end
|
||
|
||
.six:
|
||
mov eax, 4
|
||
mov [s], byte '6'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
call draw_3
|
||
call draw_4
|
||
|
||
jmp .end
|
||
|
||
.seven:
|
||
mov eax, 4
|
||
mov [s], byte '7'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
call draw_3
|
||
call draw_4
|
||
call draw_6
|
||
|
||
jmp .end
|
||
|
||
.eight:
|
||
mov eax, 4
|
||
mov [s], byte '8'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
call draw_3
|
||
call draw_5
|
||
|
||
jmp .end
|
||
|
||
.nine:
|
||
mov eax, 4
|
||
mov [s], byte '9'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
call draw_3
|
||
call draw_5
|
||
call draw_1
|
||
|
||
jmp .end
|
||
|
||
.ten:
|
||
mov eax, 4
|
||
mov [s], word '10'
|
||
mov edx, s
|
||
mov esi, 2
|
||
mcall
|
||
|
||
call draw_3
|
||
call draw_5
|
||
call draw_6
|
||
call draw_7
|
||
|
||
jmp .end
|
||
|
||
.jack:
|
||
mov eax, 4
|
||
mov [s], byte 'J'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
jmp .end
|
||
|
||
.queen:
|
||
mov eax, 4
|
||
mov [s], byte 'Q'
|
||
mov edx, s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
jmp .end
|
||
|
||
.king:
|
||
mov eax, 4
|
||
mov [s], byte 'K'
|
||
mov edx,s
|
||
mov esi, 1
|
||
mcall
|
||
|
||
.end:
|
||
|
||
|
||
cmp [negativedraw], 1
|
||
jne .no_invert2
|
||
|
||
call invert_all_images
|
||
|
||
|
||
.no_invert2:
|
||
.no_draw_card:
|
||
|
||
ret
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; invert_all_images()
|
||
invert_all_images:
|
||
mov [sizeofimagetoinvert], 16 * 16 * 3
|
||
mov [imagetoinvert], heart
|
||
call invert_image_colors
|
||
|
||
mov [sizeofimagetoinvert], 16 * 16 * 3
|
||
mov [imagetoinvert], diamond
|
||
call invert_image_colors
|
||
|
||
mov [sizeofimagetoinvert], 16 * 16 * 3
|
||
mov [imagetoinvert], spade
|
||
call invert_image_colors
|
||
|
||
mov [sizeofimagetoinvert], 16 * 16 * 3
|
||
mov [imagetoinvert], club
|
||
call invert_image_colors
|
||
|
||
|
||
mov [sizeofimagetoinvert], 16 * 16 * 3
|
||
mov [imagetoinvert], heart_updown
|
||
call invert_image_colors
|
||
|
||
mov [sizeofimagetoinvert], 16 * 16 * 3
|
||
mov [imagetoinvert], diamond_updown
|
||
call invert_image_colors
|
||
|
||
mov [sizeofimagetoinvert], 16 * 16 * 3
|
||
mov [imagetoinvert], spade_updown
|
||
call invert_image_colors
|
||
|
||
mov [sizeofimagetoinvert], 16 * 16 * 3
|
||
mov [imagetoinvert], club_updown
|
||
call invert_image_colors
|
||
|
||
|
||
mov [sizeofimagetoinvert], 8 * 8 * 3
|
||
mov [imagetoinvert], heart_small
|
||
call invert_image_colors
|
||
|
||
mov [sizeofimagetoinvert], 8 * 8 * 3
|
||
mov [imagetoinvert], diamond_small
|
||
call invert_image_colors
|
||
|
||
mov [sizeofimagetoinvert], 8 * 8 * 3
|
||
mov [imagetoinvert], spade_small
|
||
call invert_image_colors
|
||
|
||
mov [sizeofimagetoinvert], 8 * 8 * 3
|
||
mov [imagetoinvert], club_small
|
||
call invert_image_colors
|
||
|
||
|
||
|
||
ret
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
draw_1:
|
||
;draw center image
|
||
mov ebx, [imageaddr]
|
||
mov ecx, 16 * 65536 + 16
|
||
mov edx, [xpos]
|
||
add edx, cardwidth/2 - 8
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight/2 - 8
|
||
mov eax, 7
|
||
mcall
|
||
ret
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
|
||
draw_2:
|
||
;draw top image
|
||
mov ebx, [imageaddr]
|
||
mov ecx, 16 * 65536 + 16
|
||
mov edx, [xpos]
|
||
add edx, 40 - 8
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, margin
|
||
mov eax, 7
|
||
mcall
|
||
;draw bottom image
|
||
mov ebx, [imageflipaddr]
|
||
mov edx, [xpos]
|
||
add edx, cardwidth/2 - 8
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight - 16 - margin
|
||
mov eax, 7
|
||
mcall
|
||
ret
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
draw_3:
|
||
;draw top left image
|
||
mov ebx, [imageaddr]
|
||
mov ecx, 16 * 65536 + 16
|
||
mov edx, [xpos]
|
||
add edx, margin
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, margin
|
||
mov eax, 7
|
||
mcall
|
||
;draw bottom left image
|
||
mov ebx, [imageflipaddr]
|
||
mov edx, [xpos]
|
||
add edx, margin
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight - margin - 16
|
||
mov eax, 7
|
||
mcall
|
||
;draw top right image
|
||
mov ebx, [imageaddr]
|
||
mov edx, [xpos]
|
||
add edx, cardwidth - margin - 16
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, margin
|
||
mov eax, 7
|
||
mcall
|
||
;draw bottom right image
|
||
mov ebx, [imageflipaddr]
|
||
mov edx, [xpos]
|
||
add edx, cardwidth - margin - 16
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight - margin - 16
|
||
mov eax, 7
|
||
mcall
|
||
ret
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
draw_4:
|
||
;draw center left image
|
||
mov ebx, [imageaddr]
|
||
mov ecx, 16 * 65536 + 16
|
||
mov edx, [xpos]
|
||
add edx, margin
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight/2 - 8
|
||
mov eax, 7
|
||
mcall
|
||
;draw center right image
|
||
mov edx, [xpos]
|
||
add edx, cardwidth - margin - 16
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight/2 - 8
|
||
mov eax, 7
|
||
mcall
|
||
ret
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
draw_5:
|
||
;draw top left image
|
||
mov ebx, [imageaddr]
|
||
mov ecx, 16 * 65536 + 16
|
||
mov edx, [xpos]
|
||
add edx, margin
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight * 3 / 9
|
||
mov eax, 7
|
||
mcall
|
||
;draw bottom left image
|
||
mov ebx, [imageflipaddr]
|
||
mov edx, [xpos]
|
||
add edx, 16
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight * 5 / 9
|
||
mov eax, 7
|
||
mcall
|
||
;draw top right image
|
||
mov ebx, [imageaddr]
|
||
mov edx, [xpos]
|
||
add edx, cardwidth - margin - 16
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight * 3 / 9
|
||
mov eax, 7
|
||
mcall
|
||
;draw bottom right image
|
||
mov ebx, [imageflipaddr]
|
||
mov edx, [xpos]
|
||
add edx, cardwidth - margin - 16
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight * 5 / 9
|
||
mov eax, 7
|
||
mcall
|
||
ret
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
draw_6:
|
||
mov ebx, [imageaddr]
|
||
mov ecx, 16 * 65536 + 16
|
||
mov edx, [xpos]
|
||
add edx, cardwidth/2 - 8
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight * 2 / 9
|
||
mov eax, 7
|
||
mcall
|
||
ret
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
draw_7:
|
||
mov ebx, [imageflipaddr]
|
||
mov ecx, 16 * 65536 + 16
|
||
mov edx, [xpos]
|
||
add edx, cardwidth/2 - 8
|
||
shl edx, 16
|
||
mov dx, word [ypos]
|
||
add dx, cardheight * 6 / 9
|
||
mov eax, 7
|
||
mcall
|
||
ret
|
||
|
||
|
||
;******************************************************************************
|
||
randomize:
|
||
push eax
|
||
|
||
mov eax, 3
|
||
mcall
|
||
|
||
mov ebx, $A59E3F1C
|
||
mul ebx
|
||
mov dword [randseed], eax
|
||
pop eax
|
||
ret
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
; function Random(Range): RandomValue
|
||
random:
|
||
push ebx
|
||
|
||
mov eax, [randseed]
|
||
mov edx, 0
|
||
mov ebx, 7
|
||
div ebx
|
||
|
||
cmp edx, 0
|
||
je _0
|
||
|
||
cmp edx, 1
|
||
je _1
|
||
|
||
cmp edx, 2
|
||
je _2
|
||
|
||
cmp edx, 3
|
||
je _3
|
||
|
||
cmp edx, 4
|
||
je _4
|
||
|
||
cmp edx, 5
|
||
je _5
|
||
|
||
cmp edx, 6
|
||
je _6
|
||
|
||
jmp _end
|
||
|
||
|
||
_0:
|
||
;base := base + 58 + a[8];
|
||
mov eax, [randseed]
|
||
add eax, 58
|
||
add eax, dword [a + 8 * 4]
|
||
mov [randseed], eax
|
||
jmp _end;
|
||
|
||
_1:
|
||
;base := base + 1 + a[9];
|
||
mov eax, [randseed]
|
||
add eax, 1
|
||
add eax, dword [a + 9 * 4]
|
||
mov [randseed], eax
|
||
jmp _end;
|
||
|
||
_2:
|
||
;base := base + 4 + a[88];
|
||
mov eax, [randseed]
|
||
add eax, 4
|
||
add eax, dword [a + 88 * 4]
|
||
mov [randseed], eax
|
||
jmp _end;
|
||
|
||
_3:
|
||
;randseed := randseed + 79 + a[43];
|
||
mov eax, [randseed]
|
||
add eax, 79
|
||
add eax, dword [a + 43 * 4]
|
||
mov [randseed], eax
|
||
jmp _end;
|
||
|
||
_4:
|
||
;randseed := randseed + 3 + a[12];
|
||
mov eax, [randseed]
|
||
add eax, 3
|
||
add eax, dword [a + 12 * 4]
|
||
mov [randseed], eax
|
||
jmp _end;
|
||
|
||
_5:
|
||
;randseed := randseed + 2 + a[63];
|
||
mov eax, [randseed]
|
||
add eax, 2
|
||
add eax, dword [a + 63 * 4]
|
||
mov [randseed], eax
|
||
jmp _end;
|
||
|
||
_6:
|
||
;randseed := randseed + 151 + a[24];
|
||
mov eax, [randseed]
|
||
add eax, 151
|
||
add eax, dword [a + 24 * 4]
|
||
mov [randseed], eax
|
||
|
||
_end:
|
||
|
||
mov eax, [randseed]
|
||
mov edx, eax
|
||
shl edx, 16
|
||
mov bx, 100
|
||
div bx ; dx = randseed mod 100
|
||
|
||
mov ax, dx ; ax = randseed mod 100
|
||
mov bx, 4
|
||
mul bx ; dx:ax = (randseed mod 100) * 4
|
||
and eax, $0000FFFF
|
||
shr edx, 16
|
||
and edx, $FFFF0000
|
||
or eax, edx
|
||
|
||
mov eax, dword [a + eax] ; eax = dword[a + (randseed mod 100) * 4]
|
||
; ~ a[randseed mod 100]
|
||
mov ebx, dword [a + 47 * 4]
|
||
mul ebx ; eax = low(a[randseed mod 100] * a[47])
|
||
|
||
add eax, [randseed]
|
||
add eax, $4AE783A
|
||
mov [randseed], eax
|
||
|
||
mov eax, dword [a + 6 * 4]
|
||
mov edx, 0
|
||
mov ebx, 100
|
||
div ebx
|
||
mov eax, edx
|
||
mov ebx, 4
|
||
mul ebx ; eax = (dword [a + 6 * 4] mod 100) * 4 ~ a[6] mod 100
|
||
|
||
|
||
mov eax, dword [a + eax] ; eax = dword [a + (dword [a + 6 * 4] mod 100) * 4
|
||
|
||
; ~ a[a[6] mod 100]
|
||
add eax, [randseed]
|
||
mov [random_value], eax
|
||
|
||
mov edx, 0
|
||
|
||
mov ebx, [range]
|
||
div ebx
|
||
mov [random_value], edx
|
||
|
||
mov al, [TimesCalled]
|
||
xor ah, ah
|
||
inc al
|
||
mov bl, 100
|
||
div bl
|
||
mov [TimesCalled], ah ; TimesCalled = (TimesCalled + 1 ) mod 100
|
||
|
||
mov al, ah
|
||
mov bl, 4
|
||
mul bl
|
||
and eax, $0000FFFF
|
||
|
||
mov ebx, [randseed]
|
||
mov dword [a + eax], ebx ; a[TimesCalled] = randseed
|
||
|
||
pop ebx
|
||
ret
|
||
|
||
;******************************************************************************
|
||
|
||
; <--- initialised data --->
|
||
if lang eq ru
|
||
title db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
|
||
|
||
new_game: db "<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||
new_game_len = $ - new_game
|
||
|
||
exit: db "<22><>室"
|
||
exit_len = $ - exit
|
||
|
||
s: db "10"
|
||
|
||
else
|
||
title db 'Freecell',0
|
||
|
||
new_game: db "New game"
|
||
new_game_len = $ - new_game
|
||
|
||
exit: db "Exit"
|
||
exit_len = $ - exit
|
||
|
||
s: db "10"
|
||
end if
|
||
|
||
negativedraw db 0 ; for procedure draw_card
|
||
|
||
|
||
spade file 'SPADE.BMP': 54
|
||
spade_updown file 'SPADEUD.BMP': 54
|
||
spade_small file 'SPADESML.BMP': 54
|
||
|
||
club file 'CLUB.BMP': 54
|
||
club_updown file 'CLUBUD.BMP': 54
|
||
club_small file 'CLUBSML.BMP': 54
|
||
|
||
diamond file 'DIAM.BMP': 54
|
||
diamond_updown file 'DIAMUD.BMP': 54
|
||
diamond_small file 'DIAMSML.BMP': 54
|
||
|
||
heart file 'HEART.BMP': 54
|
||
heart_updown file 'HEARTUD.BMP': 54
|
||
heart_small file 'HEARTSML.BMP': 54
|
||
|
||
|
||
scNotSelected = 0
|
||
scCommonCells = 1
|
||
scTempCells = 2
|
||
|
||
|
||
whereisselcard dd scNotSelected
|
||
columnofselcard dd 0 ; if WhereIsSelCard = scGeneralCells
|
||
; then this can be 0 .. 7,
|
||
; if scTempCells then - 0 .. 3
|
||
; if scNotSelected - no matter
|
||
|
||
tempcells: times 4 db 52;
|
||
homecells: times 4 db 52 ; maximal card code is 51
|
||
cards: times 8 * 19 db 52; - %
|
||
pack: times 52 db ?
|
||
|
||
|
||
|
||
udata
|
||
process_info process_information
|
||
syscolors system_colors
|
||
|
||
WindowHeight rw 1
|
||
WindowWidth rw 1
|
||
|
||
xpos rd 1
|
||
ypos rd 1
|
||
bgcolor rd 1
|
||
blackcolor rd 1
|
||
redcolor rd 1
|
||
|
||
|
||
lastparam rd 1 ;
|
||
|
||
randomcard rd 1 ; for new_game_click
|
||
|
||
columnclicked rd 1 ; used in common_card_click, temp_cell_click,
|
||
cardclicked rd 1 ; home_cell_click
|
||
clickedcardrange rd 1 ;
|
||
clickedcardfamily rd 1 ;
|
||
|
||
|
||
selcardcode rd 1 ; for procedure get_sel_card_code_and_addr
|
||
selcardaddr rd 1 ;
|
||
|
||
column rd 1 ; for procedure draw_window
|
||
row rd 1 ;
|
||
|
||
imagetoinvert rd 1 ; for procedure invert_image_colors
|
||
sizeofimagetoinvert rd 1 ;
|
||
|
||
ncolumn rd 1 ; for procedure get_row_of_top_card_in_column
|
||
topcardrow rd 1 ;
|
||
|
||
|
||
color rd 1 ; for procedue draw_card
|
||
imageaddr rd 1 ;
|
||
imageflipaddr rd 1 ;
|
||
|
||
cardcode rd 1 ; used in differrent procedures
|
||
cardrange rd 1 ; cardcode = cardrange * 4 + cardfamily
|
||
cardfamily rd 1 ;
|
||
|
||
a: times 100 rd 1 ; for function Random
|
||
range rd 1 ;
|
||
random_value rd 1 ;
|
||
randseed rd 1 ;
|
||
TimesCalled rb 1 ;
|
||
|
||
j rd 1 ; number of card (in array cards) drawn now
|
||
i rd 1 ; used in many procedures of 1-st level
|
||
k rd 1
|
||
|
||
cardwidth = 80
|
||
cardheight = 120
|
||
radius = 4 ; not recommended to change
|
||
rowsize = 30 ; distance between top poins
|
||
;of cards in neighboring rows
|
||
columnspace = 5 ; minimal space between cards
|
||
margin = 14 ; margin of every card
|
||
|
||
topbuttonsbarheight = 20
|
||
|
||
|
||
meos_app_end |