Rev 677 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
205 | heavyiron | 1 | ; <--- description ---> |
2 | ; compiler: FASM 1.50 |
||
3 | ; name: FreeCell for MeOS |
||
4 | ; version: 1.00 |
||
5 | ; last update: 21/07/2004 |
||
6 | ; written by: Alexandr Gorbovets |
||
7 | ; e-mail: gorsash@mail.ru |
||
8 | |||
9 | |||
677 | ataualpa | 10 | include "macros.inc" |
11 | include "lang.inc" |
||
205 | heavyiron | 12 | meos_app_start |
13 | |||
14 | code |
||
15 | call randomize |
||
16 | call draw_window |
||
17 | |||
18 | wait_event: |
||
19 | mov eax, 10 |
||
485 | heavyiron | 20 | mcall |
205 | heavyiron | 21 | |
677 | ataualpa | 22 | cmp eax, 1 ; if event == 1 |
23 | je redraw ; jump to redraw handler |
||
24 | cmp eax, 2 ; else if event == 2 |
||
25 | je key ; jump to key handler |
||
26 | cmp eax, 3 ; else if event == 3 |
||
27 | je button ; jump to button handler |
||
205 | heavyiron | 28 | |
29 | |||
677 | ataualpa | 30 | jmp wait_event ;else return to the start of main cycle |
205 | heavyiron | 31 | |
32 | |||
677 | ataualpa | 33 | redraw: ; redraw event handler |
205 | heavyiron | 34 | call draw_window |
35 | jmp wait_event |
||
36 | |||
37 | |||
677 | ataualpa | 38 | key: ; key event handler |
39 | mov eax, 2 ; get key code |
||
485 | heavyiron | 40 | mcall |
205 | heavyiron | 41 | |
42 | jmp wait_event |
||
43 | |||
677 | ataualpa | 44 | button: ; button event handler |
45 | mov eax, 17 ; get button identifier |
||
485 | heavyiron | 46 | mcall |
205 | heavyiron | 47 | |
48 | cmp ah, 1 |
||
677 | ataualpa | 49 | je exit_app ; return if button id != 1 |
205 | heavyiron | 50 | |
51 | cmp ah, 1 + 8 |
||
52 | jbe common_card ; if 1 < ah <= 9 |
||
53 | |||
54 | cmp ah, 1 + 8 + 4 ; if 9 < ah <= 13 |
||
55 | jbe temp_cell |
||
56 | |||
57 | cmp ah, 1 + 8 + 8 |
||
58 | jbe home_cell |
||
59 | |||
60 | cmp ah, 1 + 8 + 4 + 4 + 1 |
||
677 | ataualpa | 61 | je new_game_button |
205 | heavyiron | 62 | |
63 | cmp ah, 1 + 8 + 4 + 4 + 2 |
||
677 | ataualpa | 64 | je exit_app |
205 | heavyiron | 65 | |
66 | |||
67 | jmp wait_event |
||
68 | |||
69 | |||
70 | exit_app: |
||
677 | ataualpa | 71 | mov eax, -1 ; exit application |
485 | heavyiron | 72 | mcall |
205 | heavyiron | 73 | |
74 | common_card: |
||
677 | ataualpa | 75 | sub ah, 2 ;going from number of card to number of column |
205 | heavyiron | 76 | mov [columnclicked], 0 |
77 | mov byte [columnclicked], ah |
||
78 | call common_card_click |
||
79 | jmp wait_event |
||
80 | |||
81 | temp_cell: |
||
82 | sub ah, 2 + 8 |
||
83 | mov [columnclicked], 0 |
||
84 | mov byte [columnclicked], ah |
||
85 | call temp_cell_click |
||
86 | jmp wait_event |
||
87 | |||
88 | |||
89 | home_cell: |
||
90 | sub ah, 2 + 8 + 4 |
||
91 | mov [columnclicked], 0 |
||
92 | mov byte [columnclicked], ah |
||
93 | call home_cell_click |
||
94 | jmp wait_event |
||
95 | |||
96 | new_game_button: |
||
97 | call new_game_click |
||
98 | jmp wait_event |
||
99 | |||
100 | |||
101 | ;****************************************************************************** |
||
102 | ; common_card_click(columnclicked) |
||
103 | common_card_click: |
||
104 | |||
677 | ataualpa | 105 | ; counting code of card, that has been clicked |
205 | heavyiron | 106 | mov eax, [columnclicked] |
107 | mov [ncolumn], eax |
||
108 | call get_row_of_top_card_in_column |
||
109 | mov eax, [topcardrow] ; eax = topcardrow * 8 + columnofselcard |
||
110 | mov bl, 8 |
||
111 | mul bl |
||
112 | add eax, [columnclicked] |
||
113 | add eax, cards |
||
114 | |||
115 | mov ebx, 0 |
||
116 | mov bl, byte [eax] |
||
117 | mov [cardclicked], ebx |
||
118 | |||
119 | |||
120 | call get_sel_card_code_and_addr |
||
121 | |||
122 | cmp [selcardcode], 52 |
||
677 | ataualpa | 123 | jb .something_selected |
205 | heavyiron | 124 | |
125 | |||
126 | cmp [cardclicked], 52 |
||
677 | ataualpa | 127 | je .end |
205 | heavyiron | 128 | |
129 | mov [whereisselcard], scCommonCells |
||
130 | mov eax, [columnclicked] |
||
131 | mov [columnofselcard], eax |
||
132 | call draw_window |
||
133 | jmp .end |
||
134 | |||
135 | |||
136 | .something_selected: |
||
137 | |||
138 | |||
677 | ataualpa | 139 | ; checking if selected and clicked cards are equivalent |
205 | heavyiron | 140 | mov eax, [selcardcode] |
141 | cmp [cardclicked], eax |
||
142 | jne .not_same_card |
||
143 | |||
144 | mov [whereisselcard], scNotSelected |
||
145 | call draw_window |
||
146 | jmp .end |
||
147 | |||
148 | .not_same_card: |
||
149 | |||
150 | cmp [cardclicked], 52 |
||
151 | jae .put_in_blank_cell |
||
152 | |||
153 | |||
154 | mov eax, [selcardcode] |
||
155 | mov bl, 4 |
||
156 | div bl |
||
157 | |||
158 | mov ebx, 0 |
||
159 | mov bl, ah |
||
160 | mov [cardfamily], ebx |
||
161 | |||
162 | mov ecx, 0 |
||
163 | mov cl, al |
||
164 | mov [cardrange], ecx |
||
165 | |||
166 | |||
167 | mov eax, [cardclicked] |
||
168 | mov bl, 4 |
||
677 | ataualpa | 169 | div bl ; reminder in ah, quotient in al |
205 | heavyiron | 170 | |
171 | mov ebx, 0 |
||
172 | mov bl, ah |
||
173 | mov [clickedcardfamily], ebx |
||
174 | |||
175 | mov ecx, 0 |
||
176 | mov cl, al |
||
177 | mov [clickedcardrange], ecx |
||
178 | |||
677 | ataualpa | 179 | ; clickedcardrange must be = cardrange + 1 |
205 | heavyiron | 180 | mov eax, [cardrange] |
181 | inc eax |
||
182 | |||
183 | cmp [clickedcardrange], eax ; eax is such as needed |
||
184 | jne .end |
||
185 | |||
186 | |||
187 | cmp [cardfamily], 1 |
||
677 | ataualpa | 188 | ja .black_card |
205 | heavyiron | 189 | |
677 | ataualpa | 190 | ; if selected red card |
205 | heavyiron | 191 | cmp [clickedcardfamily], 1 |
677 | ataualpa | 192 | jbe .end ; if clicked red card (range <= 1) then exit |
205 | heavyiron | 193 | |
194 | jmp .valid_cards |
||
195 | |||
196 | .black_card: |
||
677 | ataualpa | 197 | ; if selected black card |
205 | heavyiron | 198 | cmp [clickedcardfamily], 1 |
677 | ataualpa | 199 | ja .end ; if clicked black card then exit |
205 | heavyiron | 200 | |
201 | jmp .valid_cards |
||
202 | |||
203 | .valid_cards: |
||
677 | ataualpa | 204 | ; moving card from its place on clicked card |
205 | heavyiron | 205 | |
206 | mov eax, [columnclicked] |
||
207 | mov [ncolumn], eax |
||
208 | call get_row_of_top_card_in_column |
||
209 | mov eax, [topcardrow] |
||
210 | inc eax |
||
211 | |||
212 | mov bl, 8 |
||
213 | mul bl |
||
214 | |||
215 | and eax, $0000FFFF |
||
216 | add eax, [columnclicked] |
||
217 | add eax, cards |
||
218 | |||
219 | mov bl, byte [selcardcode] |
||
220 | mov byte [eax], bl |
||
221 | |||
222 | mov eax, [selcardaddr] |
||
223 | mov byte [eax], 52 |
||
224 | |||
225 | mov [whereisselcard], scNotSelected |
||
226 | |||
227 | call draw_window |
||
228 | |||
229 | jmp .end |
||
230 | |||
231 | .put_in_blank_cell: |
||
232 | |||
233 | mov eax, cards |
||
234 | add eax, [columnclicked] |
||
235 | mov bl, byte [selcardcode] |
||
236 | mov byte [eax], bl |
||
237 | |||
238 | mov eax, [selcardaddr] |
||
239 | mov byte [eax], 52 |
||
240 | |||
241 | mov [whereisselcard], scNotSelected |
||
242 | |||
243 | call draw_window |
||
244 | |||
245 | .end: |
||
246 | |||
247 | ret |
||
248 | |||
249 | |||
250 | ;****************************************************************************** |
||
251 | ; temp_cell_click(columnclicked) |
||
252 | temp_cell_click: |
||
253 | call get_sel_card_code_and_addr |
||
254 | cmp [selcardcode], 52 |
||
677 | ataualpa | 255 | jb .something_selected |
205 | heavyiron | 256 | |
257 | |||
258 | mov [whereisselcard], scTempCells |
||
259 | mov eax, [columnclicked] |
||
260 | mov [columnofselcard], eax |
||
261 | call draw_window |
||
262 | jmp .end |
||
263 | |||
264 | .something_selected: |
||
677 | ataualpa | 265 | ; checking if selected and clicked cards equivalent |
205 | heavyiron | 266 | mov eax, [columnclicked] |
267 | add eax, tempcells |
||
268 | |||
269 | mov ebx, 0 |
||
270 | mov bl, byte [eax] |
||
271 | mov [cardclicked], ebx |
||
272 | |||
273 | mov eax, [selcardcode] |
||
274 | cmp [cardclicked], eax |
||
275 | jne .not_same_card |
||
276 | |||
277 | mov [whereisselcard], scNotSelected |
||
278 | call draw_window |
||
279 | |||
280 | .not_same_card: |
||
281 | |||
677 | ataualpa | 282 | ;putting cards in temp cells |
205 | heavyiron | 283 | |
284 | mov eax, [columnclicked] |
||
285 | add eax, tempcells |
||
286 | |||
287 | mov ebx, 0 |
||
288 | mov bl, byte [eax] |
||
289 | mov [cardclicked], ebx |
||
290 | |||
291 | |||
292 | cmp [cardclicked], 52 |
||
677 | ataualpa | 293 | jb .end |
294 | ; if nothing lay in this cell |
||
295 | ; move selected card to temp cell |
||
205 | heavyiron | 296 | mov eax, [columnclicked] |
297 | add eax, tempcells |
||
298 | mov bl, byte [selcardcode] |
||
299 | mov byte [eax], bl |
||
300 | |||
301 | mov eax, [selcardaddr] |
||
302 | mov byte [eax], 52 |
||
303 | |||
304 | mov [whereisselcard], scNotSelected |
||
305 | |||
306 | call draw_window |
||
307 | |||
308 | |||
309 | jmp .end |
||
310 | |||
311 | |||
312 | .end: |
||
313 | |||
314 | ret |
||
315 | |||
316 | ;****************************************************************************** |
||
317 | ; home_cell_click(column_clicked) |
||
318 | home_cell_click: |
||
319 | call get_sel_card_code_and_addr |
||
320 | |||
321 | mov eax, [columnclicked] |
||
322 | add eax, homecells |
||
323 | |||
324 | |||
325 | mov ebx, 0 |
||
326 | mov bl, byte [eax] |
||
327 | mov [cardclicked], ebx |
||
328 | |||
329 | mov eax, [selcardcode] |
||
330 | mov bl, 4 |
||
677 | ataualpa | 331 | div bl ; reminder in ah, quotient in al |
205 | heavyiron | 332 | |
333 | mov ebx, 0 |
||
334 | mov bl, ah |
||
335 | mov [cardfamily], ebx |
||
336 | |||
337 | mov ecx, 0 |
||
338 | mov cl, al |
||
339 | mov [cardrange], ecx |
||
340 | |||
341 | |||
342 | cmp [cardclicked], 52 |
||
677 | ataualpa | 343 | jb .not_blank |
344 | ; if nothing lay in this cell |
||
205 | heavyiron | 345 | cmp [cardrange], 0 |
346 | jne .end |
||
677 | ataualpa | 347 | ; move ace to home |
205 | heavyiron | 348 | mov eax, [columnclicked] |
349 | add eax, homecells |
||
350 | mov bl, byte [selcardcode] |
||
351 | mov byte [eax], bl |
||
352 | |||
353 | mov eax, [selcardaddr] |
||
354 | mov byte [eax], 52 |
||
355 | |||
356 | mov [whereisselcard], scNotSelected |
||
357 | |||
358 | call draw_window |
||
359 | |||
360 | |||
361 | jmp .end |
||
362 | |||
363 | .not_blank: |
||
364 | |||
365 | mov eax, [cardclicked] |
||
366 | mov bl, 4 |
||
677 | ataualpa | 367 | div bl ; reminder in ah, quotient in al |
205 | heavyiron | 368 | |
369 | mov ebx, 0 |
||
370 | mov bl, ah |
||
371 | mov [clickedcardfamily], ebx |
||
372 | |||
373 | mov ecx, 0 |
||
374 | mov cl, al |
||
375 | mov [clickedcardrange], ecx |
||
376 | |||
377 | cmp [cardfamily], ebx |
||
378 | jne .end |
||
379 | |||
380 | inc ecx |
||
381 | cmp [cardrange], ecx |
||
382 | jne .end |
||
383 | |||
677 | ataualpa | 384 | ; moving card from its place to home with replacing |
385 | ; of old card in home |
||
205 | heavyiron | 386 | mov eax, [columnclicked] |
387 | add eax, homecells |
||
388 | mov bl, byte [selcardcode] |
||
389 | mov byte [eax], bl |
||
390 | |||
391 | mov eax, [selcardaddr] |
||
392 | mov byte [eax], 52 |
||
393 | |||
394 | mov [whereisselcard], scNotSelected |
||
395 | |||
396 | call draw_window |
||
397 | |||
398 | |||
399 | |||
400 | .end: |
||
401 | |||
402 | ret |
||
403 | |||
404 | |||
405 | ;****************************************************************************** |
||
406 | new_game_click: |
||
407 | |||
408 | mov [i], 0 |
||
409 | .deleting_cards_from_common_cells: |
||
410 | mov eax, cards |
||
411 | add eax, [i] |
||
412 | mov byte [eax], 52 |
||
413 | |||
414 | |||
415 | inc [i] |
||
416 | cmp [i], 19*8 |
||
417 | jb .deleting_cards_from_common_cells |
||
418 | |||
419 | |||
420 | mov [i], 0 |
||
421 | .filling_pack: |
||
422 | mov eax, pack |
||
423 | add eax, [i] |
||
424 | mov bl, byte [i] |
||
425 | mov byte [eax], bl |
||
426 | |||
427 | inc [i] |
||
428 | cmp [i], 52 |
||
429 | jb .filling_pack |
||
430 | |||
431 | mov [i], 0 |
||
432 | |||
433 | .putting_cards: |
||
434 | |||
435 | mov [range], 52 |
||
436 | call random |
||
437 | mov eax, [random_value] |
||
438 | add eax, pack |
||
439 | |||
440 | mov ebx, 0 |
||
441 | mov bl, byte [eax] |
||
442 | mov [randomcard], ebx |
||
443 | |||
444 | mov eax, [random_value] |
||
445 | mov [j], eax |
||
446 | |||
447 | cmp [randomcard], 52 |
||
448 | jb .found_card |
||
449 | |||
450 | |||
451 | mov [range], 52 |
||
452 | call random |
||
453 | cmp [random_value], 26 |
||
454 | jae .decreasing_j |
||
455 | |||
456 | .increasing_j: |
||
457 | inc [j] |
||
677 | ataualpa | 458 | ; j mod 52 |
205 | heavyiron | 459 | mov eax, [j] |
460 | mov edx, 0 |
||
461 | mov ebx, 52 |
||
462 | div ebx |
||
463 | mov [j], edx |
||
464 | |||
465 | |||
466 | mov eax, [j] |
||
467 | add eax, pack |
||
468 | mov ebx, 0 |
||
469 | mov bl, byte [eax] |
||
470 | mov [randomcard], ebx |
||
471 | cmp [randomcard], 52 |
||
472 | jb .found_card |
||
473 | |||
474 | jmp .increasing_j |
||
475 | |||
476 | |||
477 | .decreasing_j: |
||
478 | dec [j] |
||
677 | ataualpa | 479 | ; i mod 32 |
205 | heavyiron | 480 | mov eax, [j] |
481 | mov edx, 0 |
||
482 | mov ebx, 52 |
||
483 | div ebx |
||
484 | mov [j], edx |
||
485 | |||
486 | mov eax, [j] |
||
487 | add eax, pack |
||
488 | mov ebx, 0 |
||
489 | mov bl, byte [eax] |
||
490 | mov [randomcard], ebx |
||
491 | cmp [randomcard], 52 |
||
492 | jb .found_card |
||
493 | |||
494 | jmp .decreasing_j |
||
495 | |||
496 | .found_card: |
||
677 | ataualpa | 497 | ; putting card from pack |
205 | heavyiron | 498 | mov eax, cards |
499 | add eax, [i] |
||
500 | mov bl, byte [randomcard] |
||
501 | mov byte [eax], bl |
||
677 | ataualpa | 502 | ; deleting card from pack |
205 | heavyiron | 503 | mov eax, pack |
504 | add eax, [j] |
||
505 | mov byte [eax], 52 |
||
506 | |||
507 | |||
508 | inc [i] |
||
509 | cmp [i], 52 |
||
510 | jb .putting_cards |
||
511 | |||
512 | |||
513 | |||
514 | |||
515 | mov [i], 0 |
||
516 | .deleting_cards_from_temp_cells: |
||
517 | mov eax, tempcells |
||
518 | add eax, [i] |
||
519 | mov byte [eax], 52 |
||
520 | |||
521 | |||
522 | inc [i] |
||
523 | cmp [i], 4 |
||
524 | jb .deleting_cards_from_temp_cells |
||
525 | |||
526 | mov [i], 0 |
||
527 | .deleting_cards_from_home_cells: |
||
528 | mov eax, homecells |
||
529 | add eax, [i] |
||
530 | mov byte [eax], 52 |
||
531 | |||
532 | |||
533 | inc [i] |
||
534 | cmp [i], 4 |
||
535 | jb .deleting_cards_from_home_cells |
||
536 | |||
537 | |||
538 | mov [whereisselcard], scNotSelected |
||
539 | call draw_window |
||
540 | |||
541 | |||
542 | ret |
||
543 | |||
544 | |||
545 | ;****************************************************************************** |
||
546 | ; get_sel_card_code_and_addr(): selcardcode, selcardaddr |
||
547 | ; if nothing selected, then selcardcode is 52 |
||
548 | get_sel_card_code_and_addr: |
||
549 | cmp [whereisselcard], scNotSelected |
||
550 | jne .something_selected |
||
551 | |||
552 | mov [selcardcode], 52 |
||
553 | jmp .end |
||
554 | |||
555 | .something_selected: |
||
556 | cmp [whereisselcard], scTempCells |
||
677 | ataualpa | 557 | je .temp_cells_selected |
205 | heavyiron | 558 | |
677 | ataualpa | 559 | ; common cells selected |
205 | heavyiron | 560 | mov eax, [columnofselcard] |
561 | mov [ncolumn], eax |
||
562 | call get_row_of_top_card_in_column |
||
563 | |||
564 | |||
565 | mov eax, [topcardrow]; eax = topcardrow * 8 + columnofselcard |
||
566 | mov bl, 8 |
||
677 | ataualpa | 567 | mul bl ; result of multiplication in ax |
205 | heavyiron | 568 | add eax, [columnofselcard] |
569 | add eax, cards |
||
570 | |||
571 | |||
572 | mov [selcardaddr], eax |
||
573 | xor ebx, ebx |
||
574 | mov bl, byte [eax] |
||
575 | mov [selcardcode], ebx |
||
576 | |||
577 | jmp .end |
||
578 | |||
579 | .temp_cells_selected: |
||
580 | |||
581 | mov eax, tempcells |
||
582 | add eax, [columnofselcard] |
||
583 | mov [selcardaddr], eax |
||
584 | mov ebx, 0 |
||
585 | mov bl, byte [eax] |
||
586 | mov [selcardcode], ebx |
||
587 | |||
588 | .end: |
||
589 | |||
590 | ret |
||
591 | |||
592 | ;****************************************************************************** |
||
593 | ; draw_window() |
||
594 | |||
595 | draw_window: |
||
596 | mov eax,48 ; get system colors |
||
597 | mov ebx,3 |
||
598 | mov ecx,syscolors |
||
599 | mov edx,sizeof.system_colors |
||
485 | heavyiron | 600 | mcall |
205 | heavyiron | 601 | |
602 | |||
677 | ataualpa | 603 | mov eax, 12 ; start drawing |
205 | heavyiron | 604 | mov ebx, 1 |
485 | heavyiron | 605 | mcall |
205 | heavyiron | 606 | |
677 | ataualpa | 607 | mov eax, 0 ; create and draw the window |
205 | heavyiron | 608 | mov ebx, 100 * 65536 + 8 * cardwidth + 10 + 7 * columnspace |
609 | mov ecx, 100 * 65536 + 500 |
||
610 | mov edx, 0x13008000 |
||
485 | heavyiron | 611 | mov edi, title |
612 | mcall |
||
205 | heavyiron | 613 | |
677 | ataualpa | 614 | mov eax, 9 ; getting window info |
205 | heavyiron | 615 | mov ebx, process_info |
677 | ataualpa | 616 | mov ecx, -1 ; we want to know info of our window |
485 | heavyiron | 617 | mcall |
205 | heavyiron | 618 | |
619 | |||
485 | heavyiron | 620 | mov eax, [process_info.box.height] |
205 | heavyiron | 621 | mov [WindowHeight], ax |
622 | |||
485 | heavyiron | 623 | mov eax, [process_info.box.width] |
205 | heavyiron | 624 | mov [WindowWidth], ax |
625 | |||
626 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
677 | ataualpa | 627 | ; draw top panel |
205 | heavyiron | 628 | |
629 | mov eax, 13 |
||
630 | mov ebx, 5 |
||
631 | shl ebx, 16 |
||
485 | heavyiron | 632 | add bx, word [process_info.box.width] |
205 | heavyiron | 633 | sub bx, 9 |
634 | mov ecx, 22 shl 16 + topbuttonsbarheight - 1 |
||
635 | mov edx, [syscolors.work_graph] |
||
485 | heavyiron | 636 | mcall |
205 | heavyiron | 637 | |
677 | ataualpa | 638 | ; draw button "new game" |
205 | heavyiron | 639 | |
640 | mov eax, 8 |
||
641 | mov ebx, 5 shl 16 + 80 |
||
642 | mov ecx, 22 shl 16 + topbuttonsbarheight - 2 |
||
643 | mov edx, 1 + 8 + 4 + 4 + 1 ;button id |
||
644 | mov esi, [syscolors.work_button] |
||
485 | heavyiron | 645 | mcall |
205 | heavyiron | 646 | |
647 | mov eax, 4 |
||
648 | mov ebx, 20 shl 16 + 22 + topbuttonsbarheight/2 - 4 |
||
649 | mov ecx, [syscolors.work_button_text] |
||
650 | mov edx, new_game |
||
651 | mov esi, new_game_len |
||
485 | heavyiron | 652 | mcall |
205 | heavyiron | 653 | |
654 | |||
655 | ; draw button "exit" |
||
656 | mov eax, 8 |
||
657 | mov ebx, (5 + 85) shl 16 + 80 + 5 |
||
658 | mov ecx, 22 shl 16 + topbuttonsbarheight - 2 |
||
659 | mov edx, 1 + 8 + 4 + 4 + 2 ;button id |
||
660 | mov esi, [syscolors.work_button] |
||
485 | heavyiron | 661 | mcall |
205 | heavyiron | 662 | |
663 | mov eax, 4 |
||
664 | mov ebx, (40 + 80) shl 16 + 22 + topbuttonsbarheight/2 - 4 |
||
665 | mov ecx, [syscolors.work_button_text] |
||
666 | mov edx, exit |
||
667 | mov esi, exit_len |
||
485 | heavyiron | 668 | mcall |
205 | heavyiron | 669 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
670 | ; draw separators between home, temp and common cells |
||
671 | mov eax, 13 |
||
672 | ; horizontal line |
||
673 | mov ebx, 5 |
||
674 | shl ebx, 16 |
||
485 | heavyiron | 675 | add bx, word [process_info.box.width] |
205 | heavyiron | 676 | sub bx, 9 |
677 | mov ecx, (21 + topbuttonsbarheight + cardheight + columnspace) shl 16+1 |
||
678 | |||
679 | mov edx, [syscolors.work_graph] |
||
485 | heavyiron | 680 | mcall |
205 | heavyiron | 681 | ; verical line |
485 | heavyiron | 682 | mov eax, [process_info.box.width] |
205 | heavyiron | 683 | mov edx, 0 |
684 | mov ecx, 2 |
||
685 | div ecx |
||
686 | |||
687 | mov ebx, eax |
||
688 | |||
689 | ; |
||
690 | shl ebx, 16 |
||
691 | add bx, 1 |
||
692 | mov ecx, (21 + topbuttonsbarheight) shl 16 + cardheight + columnspace |
||
693 | mov edx, [syscolors.work_graph] |
||
694 | mov eax, 13 |
||
485 | heavyiron | 695 | mcall |
205 | heavyiron | 696 | |
697 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
698 | ; draw temp buttons |
||
699 | |||
677 | ataualpa | 700 | mov [j], 0 ;counter that loops from 0 to 51 |
205 | heavyiron | 701 | |
702 | draw_a_temp_card: |
||
703 | |||
677 | ataualpa | 704 | ; code of card must be in ecx |
205 | heavyiron | 705 | mov eax, tempcells |
706 | add eax, [j] |
||
707 | xor ecx, ecx |
||
708 | mov cl, byte [eax] ; placing in cl value from memory |
||
677 | ataualpa | 709 | ; with address [tempcells + j] or |
710 | ; j-th element of array "tempcells" |
||
205 | heavyiron | 711 | |
712 | mov [cardcode], ecx |
||
713 | |||
714 | mov eax, [j] |
||
715 | xor edx, edx |
||
716 | mov ebx, 8 |
||
677 | ataualpa | 717 | div ebx ; divsion by 8 (8 columns), |
718 | ; so in eax quotient - number of row |
||
719 | ; and in edx remainder - |
||
720 | ; number of column where lay card |
||
205 | heavyiron | 721 | |
722 | mov [row], eax |
||
723 | mov [column], edx |
||
724 | |||
677 | ataualpa | 725 | mov eax, [process_info.box.width] ; width of window |
205 | heavyiron | 726 | sub eax, 10 |
727 | sub eax, cardwidth |
||
728 | mov ebx, 7 |
||
729 | mov edx, 0 |
||
730 | div ebx |
||
731 | mov ebx, [column] |
||
732 | mul ebx |
||
733 | add eax, 5 |
||
734 | |||
735 | mov [xpos], eax |
||
736 | |||
737 | |||
738 | mov eax, [row] |
||
739 | mov bl, rowsize |
||
740 | mul bl |
||
741 | add eax, 24 + topbuttonsbarheight |
||
742 | mov [ypos], eax |
||
743 | |||
677 | ataualpa | 744 | ; checking, if this card selected |
205 | heavyiron | 745 | |
746 | mov [negativedraw], 0 |
||
747 | |||
748 | cmp [whereisselcard], scTempCells |
||
749 | jne .this_temp_cell_isnt_selected |
||
750 | |||
751 | mov eax, [column] |
||
752 | cmp [columnofselcard], eax |
||
753 | jne .this_temp_cell_isnt_selected |
||
754 | |||
755 | mov [negativedraw], 1 |
||
756 | |||
757 | .this_temp_cell_isnt_selected: |
||
758 | |||
759 | call draw_card |
||
760 | |||
677 | ataualpa | 761 | ; define button on place of card |
205 | heavyiron | 762 | mov eax, 8 |
763 | mov ebx, [xpos] |
||
764 | shl ebx, 16 |
||
765 | add bx, cardwidth - 1 |
||
766 | mov ecx, [ypos] |
||
767 | shl ecx, 16 |
||
768 | add cx, cardheight - 1 |
||
769 | mov edx, [column] |
||
770 | add edx, 01000000000000000000000000000000b + 2 + 8; button id = column |
||
677 | ataualpa | 771 | ; id = 1 reserved as close button |
485 | heavyiron | 772 | mcall |
205 | heavyiron | 773 | |
774 | |||
775 | inc [j] |
||
776 | cmp [j], 4 |
||
677 | ataualpa | 777 | jb draw_a_temp_card |
205 | heavyiron | 778 | |
779 | |||
780 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
781 | ; draw home buttons |
||
677 | ataualpa | 782 | mov [j], 0 ;counter that loops from 0 to 51 |
205 | heavyiron | 783 | |
784 | draw_a_home_card: |
||
785 | |||
786 | |||
677 | ataualpa | 787 | ; code of card must be in ecx |
205 | heavyiron | 788 | mov eax, homecells |
789 | add eax, [j] |
||
790 | xor ecx, ecx |
||
791 | mov cl, byte [eax] ; placing in cl value from memory |
||
677 | ataualpa | 792 | ; with address [tempcells + j] or |
793 | ; j-th element of array "tempcells" |
||
205 | heavyiron | 794 | |
795 | mov [cardcode], ecx |
||
796 | |||
797 | mov eax, [j] |
||
798 | xor edx, edx |
||
799 | mov ebx, 8 |
||
677 | ataualpa | 800 | div ebx ; divsion by 8 (8 columns), |
801 | ; so in eax quotient - number of row |
||
802 | ; and in edx remainder - |
||
803 | ; number of column where lay card |
||
205 | heavyiron | 804 | |
805 | mov [row], eax |
||
806 | mov [column], edx |
||
807 | |||
677 | ataualpa | 808 | mov eax, [process_info.box.width] ; width of window |
205 | heavyiron | 809 | sub eax, 10 |
810 | sub eax, cardwidth |
||
811 | mov ebx, 7 |
||
812 | mov edx, 0 |
||
813 | div ebx |
||
814 | mov ebx, [column] |
||
815 | add ebx, 4 |
||
816 | mul ebx |
||
817 | add eax, 5 |
||
818 | |||
819 | mov [xpos], eax |
||
820 | |||
821 | mov eax, [row] |
||
822 | mov bl, rowsize |
||
823 | mul bl |
||
824 | add eax, 24 + topbuttonsbarheight |
||
825 | mov [ypos], eax |
||
826 | |||
827 | mov [negativedraw], 0 |
||
828 | |||
829 | call draw_card |
||
830 | |||
677 | ataualpa | 831 | ; define button on place of card |
205 | heavyiron | 832 | |
833 | mov eax, 8 |
||
834 | mov ebx, [xpos] |
||
835 | shl ebx, 16 |
||
836 | add bx, cardwidth - 1 |
||
837 | mov ecx, [ypos] |
||
838 | shl ecx, 16 |
||
839 | add cx, cardheight - 1 |
||
840 | mov edx, [column] |
||
841 | add edx, 01000000000000000000000000000000b + 2 + 8 + 4 ; button id |
||
842 | |||
677 | ataualpa | 843 | ; id = 1 reserved as close button |
485 | heavyiron | 844 | mcall |
205 | heavyiron | 845 | |
846 | |||
847 | inc [j] |
||
848 | cmp [j], 4 |
||
677 | ataualpa | 849 | jb draw_a_home_card |
205 | heavyiron | 850 | |
851 | |||
852 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
853 | ; draw common cards |
||
854 | |||
677 | ataualpa | 855 | mov [j], 0 ;counter that loops from 0 to 8 * 19 |
205 | heavyiron | 856 | |
857 | draw_a_card: |
||
858 | |||
859 | |||
677 | ataualpa | 860 | ; code of card must be in ecx |
205 | heavyiron | 861 | mov eax, cards |
862 | add eax, [j] |
||
863 | xor ecx, ecx |
||
864 | mov cl, byte [eax] ; placing in cl value from memory |
||
677 | ataualpa | 865 | ; with address [cards + j] or |
866 | ; j-th element of array "cards" |
||
205 | heavyiron | 867 | ; cmp ecx, 52 ; if code of card >= 52 then there is no card |
868 | ; jae no_draw |
||
869 | ; |
||
870 | ; cmp ecx, 0 ; if code of card < 0 then there is no card |
||
871 | ; jb no_draw |
||
872 | |||
873 | mov [cardcode], ecx |
||
874 | |||
875 | |||
876 | |||
877 | mov eax, [j] |
||
878 | xor edx, edx |
||
879 | mov ebx, 8 |
||
677 | ataualpa | 880 | div ebx ; divsion by 8 (8 columns), |
881 | ; so in eax quotient - number of row |
||
882 | ; and in edx remainder - |
||
883 | ; number of column where lay card |
||
205 | heavyiron | 884 | |
885 | mov [row], eax |
||
886 | mov [column], edx |
||
887 | |||
677 | ataualpa | 888 | mov eax, [process_info.box.width] ; width of window |
205 | heavyiron | 889 | sub eax, 10 |
890 | sub eax, cardwidth |
||
891 | mov ebx, 7 |
||
892 | mov edx, 0 |
||
893 | div ebx |
||
894 | mov ebx, [column] |
||
895 | mul ebx |
||
896 | add eax, 5 |
||
897 | |||
898 | mov [xpos], eax |
||
899 | |||
900 | mov eax, [row] |
||
901 | mov bl, rowsize |
||
902 | mul bl |
||
903 | add eax, cardheight + 24 + topbuttonsbarheight + columnspace |
||
904 | mov [ypos], eax |
||
905 | |||
906 | |||
907 | mov [negativedraw], 0 ;checking, if this is selected card |
||
908 | |||
909 | cmp [whereisselcard], scCommonCells |
||
910 | jne .this_card_isnt_selected |
||
911 | |||
912 | mov eax, [column] |
||
913 | cmp [columnofselcard], eax |
||
914 | jne .this_card_isnt_selected |
||
915 | |||
916 | |||
917 | mov eax, [column] |
||
918 | mov [ncolumn], eax |
||
919 | call get_row_of_top_card_in_column |
||
920 | mov eax, [row] |
||
921 | cmp [topcardrow], eax |
||
922 | jne .this_card_isnt_selected |
||
923 | |||
924 | mov [negativedraw], 1 |
||
925 | |||
926 | .this_card_isnt_selected: |
||
927 | |||
928 | call draw_card |
||
929 | |||
930 | |||
931 | |||
677 | ataualpa | 932 | ; now checking if it is top card in its column |
933 | ; if it does, we'll define button on its place |
||
205 | heavyiron | 934 | mov eax, [column] |
935 | mov [ncolumn], eax |
||
936 | call get_row_of_top_card_in_column |
||
937 | mov eax, [row] |
||
938 | cmp [topcardrow], eax |
||
677 | ataualpa | 939 | je .define_button |
205 | heavyiron | 940 | |
941 | cmp [topcardrow], 0 |
||
942 | jne .no_define_button |
||
943 | |||
944 | cmp [row], 0 |
||
945 | jne .no_define_button |
||
946 | |||
947 | |||
948 | .define_button: |
||
949 | mov eax, 8 |
||
950 | mov ebx, [xpos] |
||
951 | shl ebx, 16 |
||
952 | add bx, cardwidth - 1 |
||
953 | mov ecx, [ypos] |
||
954 | shl ecx, 16 |
||
955 | add cx, cardheight - 1 |
||
956 | mov edx, [column] |
||
957 | add edx, 01000000000000000000000000000000b + 2; button id = column + 2, |
||
677 | ataualpa | 958 | ; id = 1 reserved as close button |
485 | heavyiron | 959 | mcall |
205 | heavyiron | 960 | |
961 | |||
962 | .no_define_button: |
||
963 | |||
964 | inc [j] |
||
965 | cmp [j], 8 * 19 |
||
677 | ataualpa | 966 | jb draw_a_card |
205 | heavyiron | 967 | |
968 | |||
969 | |||
970 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
971 | |||
972 | |||
677 | ataualpa | 973 | mov eax, 12 ; finish drawing |
205 | heavyiron | 974 | mov ebx, 2 |
485 | heavyiron | 975 | mcall |
205 | heavyiron | 976 | |
977 | ret |
||
978 | |||
979 | |||
980 | ;****************************************************************************** |
||
981 | ; get_row_of_top_card_in_column(ncolumn): topcardrow |
||
982 | |||
983 | get_row_of_top_card_in_column: |
||
677 | ataualpa | 984 | ; number of column in ncolumn |
985 | ; returns in topcardrow |
||
205 | heavyiron | 986 | |
677 | ataualpa | 987 | mov [i], 0 ; i loops from 0 to 1, ... while card i * 8 + ncolumn |
988 | ; is valid card (0 <= its code < 52) |
||
205 | heavyiron | 989 | |
990 | .cycle: |
||
991 | xor eax, eax |
||
992 | mov al, 8 |
||
993 | mov ebx, [i] |
||
994 | mul bl |
||
995 | add eax, [ncolumn] |
||
996 | add eax, cards |
||
997 | xor ecx, ecx |
||
998 | mov cl, byte [eax] |
||
999 | |||
1000 | cmp ecx, 52 |
||
1001 | jae .endcycle |
||
1002 | |||
1003 | |||
1004 | cmp [i], 18 |
||
1005 | ja .endcycle |
||
1006 | |||
1007 | |||
1008 | inc [i] |
||
1009 | |||
1010 | jmp .cycle |
||
1011 | |||
1012 | .endcycle: |
||
1013 | |||
1014 | cmp [i], 0 |
||
1015 | je .dont_dec |
||
1016 | |||
1017 | dec [i] |
||
1018 | |||
1019 | .dont_dec: |
||
1020 | |||
1021 | mov eax, [i] |
||
1022 | mov [topcardrow], eax |
||
1023 | ret |
||
1024 | |||
1025 | |||
1026 | ;****************************************************************************** |
||
1027 | ; invert_image_colors(imagetoinvert, sizeofimagetoinvert) |
||
1028 | invert_image_colors: |
||
1029 | mov [i], 0 |
||
1030 | |||
1031 | .inverting: |
||
1032 | mov eax, [imagetoinvert] |
||
1033 | add eax, [i] |
||
1034 | |||
1035 | mov bl, byte [eax] |
||
1036 | ;xor ebx, ebx |
||
1037 | ;add ebx, 10 |
||
1038 | not ebx |
||
1039 | |||
1040 | mov byte [eax], bl |
||
1041 | |||
1042 | |||
1043 | inc [i] |
||
1044 | |||
1045 | mov ecx, [sizeofimagetoinvert] |
||
1046 | cmp [i], ecx |
||
677 | ataualpa | 1047 | jb .inverting |
205 | heavyiron | 1048 | |
1049 | jmp .later |
||
1050 | |||
1051 | |||
1052 | .exit: |
||
1053 | mov eax, -1 |
||
485 | heavyiron | 1054 | mcall |
205 | heavyiron | 1055 | |
1056 | .later: |
||
1057 | |||
1058 | |||
1059 | ret |
||
1060 | |||
1061 | |||
1062 | |||
1063 | ;****************************************************************************** |
||
1064 | ; draw_card(xpos, ypos, cardcode, negativedraw) |
||
1065 | ; if negativedraw = 1 then card drawn in inverted colors |
||
1066 | |||
1067 | draw_card: ; draws card with left top corner |
||
677 | ataualpa | 1068 | ; in point ([xpos],[ypos]), |
1069 | ; type of card in [cardcode] |
||
205 | heavyiron | 1070 | |
1071 | cmp [cardcode], 52 ; if code of card >= 52 then there is no card |
||
1072 | jae .no_draw_card |
||
1073 | |||
1074 | |||
1075 | cmp [negativedraw], 1 |
||
1076 | jne .no_invert1 |
||
677 | ataualpa | 1077 | ;doing if negativedraw |
205 | heavyiron | 1078 | mov [bgcolor], $00000000 |
1079 | mov [blackcolor], $00FFFFFF |
||
1080 | mov [redcolor], $0000FFFF |
||
1081 | |||
677 | ataualpa | 1082 | ;inverting all images |
205 | heavyiron | 1083 | call invert_all_images |
1084 | |||
1085 | jmp .colors_selection_done |
||
1086 | |||
1087 | .no_invert1: |
||
677 | ataualpa | 1088 | ;doing if not negativedraw |
205 | heavyiron | 1089 | mov [bgcolor], $00FFFFFF |
1090 | mov [blackcolor], $00000000 |
||
1091 | mov [redcolor], $00FF0000 |
||
1092 | |||
1093 | |||
1094 | .colors_selection_done: |
||
1095 | |||
1096 | mov eax, 13 |
||
1097 | |||
1098 | mov ebx, [xpos] ; filling card with bgcolor |
||
677 | ataualpa | 1099 | ; (big background rectangle) |
205 | heavyiron | 1100 | mov edx, [bgcolor] |
1101 | add ebx, 2 |
||
1102 | shl ebx, 16 |
||
1103 | mov bx, cardwidth - 4 |
||
1104 | |||
1105 | mov ecx, [ypos] |
||
1106 | add ecx, 2 |
||
1107 | shl ecx, 16 |
||
1108 | mov cx, cardheight - 4 |
||
485 | heavyiron | 1109 | mcall |
205 | heavyiron | 1110 | |
1111 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1112 | |||
1113 | mov ebx, [xpos] ; left black line |
||
1114 | shl ebx, 16 |
||
1115 | mov bx, 1 |
||
1116 | |||
1117 | mov ecx, [ypos] |
||
1118 | add ecx, 5 |
||
1119 | shl ecx, 16 |
||
1120 | xor cx, cx |
||
1121 | mov cx, cardheight - 2 * radius - 2 |
||
1122 | mov edx, [blackcolor] |
||
485 | heavyiron | 1123 | mcall |
205 | heavyiron | 1124 | |
1125 | mov ebx, [xpos] ; left white line |
||
1126 | inc ebx |
||
1127 | shl ebx, 16 |
||
1128 | mov bx, 1 |
||
1129 | mov edx, [bgcolor] |
||
485 | heavyiron | 1130 | mcall |
205 | heavyiron | 1131 | |
1132 | mov ebx, [xpos] ; right black line |
||
1133 | add ebx, cardwidth - 1 |
||
1134 | shl ebx, 16 |
||
1135 | mov bx, 1 |
||
1136 | mov edx, [blackcolor] |
||
485 | heavyiron | 1137 | mcall |
205 | heavyiron | 1138 | |
1139 | mov ebx, [xpos] ; right white line |
||
1140 | add ebx, cardwidth - 2 |
||
1141 | shl ebx, 16 |
||
1142 | mov bx, 1 |
||
1143 | mov edx, [bgcolor] |
||
485 | heavyiron | 1144 | mcall |
205 | heavyiron | 1145 | |
1146 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1147 | |||
1148 | mov ecx, [ypos] ; top black line |
||
1149 | shl ecx, 16 |
||
1150 | mov cx, 1 |
||
1151 | |||
1152 | mov ebx, [xpos] |
||
1153 | add ebx, 5 |
||
1154 | shl ebx, 16 |
||
1155 | mov bx, cardwidth - 2 * radius - 2 |
||
1156 | mov edx, [blackcolor] |
||
485 | heavyiron | 1157 | mcall |
205 | heavyiron | 1158 | |
1159 | mov ecx, [ypos] ; top white line |
||
1160 | inc ecx |
||
1161 | shl ecx, 16 |
||
1162 | mov cx, 1 |
||
1163 | mov edx, [bgcolor] |
||
485 | heavyiron | 1164 | mcall |
205 | heavyiron | 1165 | |
1166 | mov ecx, [ypos] ; bottom black line |
||
1167 | add ecx, cardheight - 1 |
||
1168 | shl ecx, 16 |
||
1169 | mov cx, 1 |
||
1170 | mov edx, [blackcolor] |
||
485 | heavyiron | 1171 | mcall |
205 | heavyiron | 1172 | |
1173 | mov ecx, [ypos] ; bottom white line |
||
1174 | add ecx, cardheight - 2 |
||
1175 | shl ecx, 16 |
||
1176 | mov cx, 1 |
||
1177 | mov edx, [bgcolor] |
||
485 | heavyiron | 1178 | mcall |
205 | heavyiron | 1179 | |
1180 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1181 | |||
677 | ataualpa | 1182 | mov eax, 1 ; drawing points |
205 | heavyiron | 1183 | mov edx, [blackcolor] ; black color for all pixels |
1184 | |||
677 | ataualpa | 1185 | mov ebx, [xpos] ; draw top left corner |
205 | heavyiron | 1186 | mov ecx, [ypos] |
1187 | inc ebx |
||
1188 | add ecx, 4 |
||
485 | heavyiron | 1189 | mcall |
205 | heavyiron | 1190 | |
1191 | dec ecx |
||
485 | heavyiron | 1192 | mcall |
205 | heavyiron | 1193 | |
1194 | dec ecx |
||
1195 | inc ebx |
||
485 | heavyiron | 1196 | mcall |
205 | heavyiron | 1197 | |
1198 | dec ecx |
||
1199 | inc ebx |
||
485 | heavyiron | 1200 | mcall |
205 | heavyiron | 1201 | |
1202 | inc ebx |
||
485 | heavyiron | 1203 | mcall |
205 | heavyiron | 1204 | |
677 | ataualpa | 1205 | mov ebx, [xpos] ;drawing top right corner |
205 | heavyiron | 1206 | mov ecx, [ypos] |
1207 | add ebx, cardwidth - 2 |
||
1208 | add ecx, 4 |
||
485 | heavyiron | 1209 | mcall |
205 | heavyiron | 1210 | |
1211 | dec ecx |
||
485 | heavyiron | 1212 | mcall |
205 | heavyiron | 1213 | |
1214 | dec ebx |
||
1215 | dec ecx |
||
485 | heavyiron | 1216 | mcall |
205 | heavyiron | 1217 | |
1218 | dec ebx |
||
1219 | dec ecx |
||
485 | heavyiron | 1220 | mcall |
205 | heavyiron | 1221 | |
1222 | dec ebx |
||
485 | heavyiron | 1223 | mcall |
677 | ataualpa | 1224 | ;drawing bottom left corner |
205 | heavyiron | 1225 | mov ebx, [xpos] |
1226 | mov ecx, [ypos] |
||
1227 | inc ebx |
||
1228 | add ecx, cardheight - 5 |
||
485 | heavyiron | 1229 | mcall |
205 | heavyiron | 1230 | |
1231 | inc ecx |
||
485 | heavyiron | 1232 | mcall |
205 | heavyiron | 1233 | |
1234 | inc ebx |
||
1235 | inc ecx |
||
485 | heavyiron | 1236 | mcall |
205 | heavyiron | 1237 | |
1238 | inc ebx |
||
1239 | inc ecx |
||
485 | heavyiron | 1240 | mcall |
205 | heavyiron | 1241 | |
1242 | inc ebx |
||
485 | heavyiron | 1243 | mcall |
677 | ataualpa | 1244 | ;drawing bottom right corner |
205 | heavyiron | 1245 | mov ebx, [xpos] |
1246 | mov ecx, [ypos] |
||
1247 | add ebx, cardwidth - 2 |
||
1248 | add ecx, cardheight - 5 |
||
485 | heavyiron | 1249 | mcall |
205 | heavyiron | 1250 | |
1251 | inc ecx |
||
485 | heavyiron | 1252 | mcall |
205 | heavyiron | 1253 | |
1254 | dec ebx |
||
1255 | inc ecx |
||
485 | heavyiron | 1256 | mcall |
205 | heavyiron | 1257 | |
1258 | dec ebx |
||
1259 | inc ecx |
||
485 | heavyiron | 1260 | mcall |
205 | heavyiron | 1261 | |
1262 | dec ebx |
||
485 | heavyiron | 1263 | mcall |
205 | heavyiron | 1264 | |
1265 | |||
1266 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1267 | ; drawing text and images |
||
1268 | |||
1269 | mov eax, [cardcode] |
||
1270 | mov edx, 0 |
||
1271 | mov ebx, 4 |
||
1272 | div ebx |
||
1273 | |||
1274 | mov [cardfamily], edx |
||
1275 | mov [cardrange], eax |
||
1276 | |||
677 | ataualpa | 1277 | ; counting position of small card image |
205 | heavyiron | 1278 | mov eax, 7 |
1279 | mov ecx, 8*65536+8 |
||
1280 | mov edx, [xpos] |
||
1281 | add edx, radius |
||
1282 | shl edx, 16 |
||
1283 | mov dx, word [ypos] |
||
1284 | add dx, radius + 8 |
||
1285 | |||
1286 | |||
1287 | |||
1288 | cmp [cardfamily], 0 |
||
677 | ataualpa | 1289 | je .heart |
205 | heavyiron | 1290 | |
1291 | cmp [cardfamily], 1 |
||
677 | ataualpa | 1292 | je .diamond |
205 | heavyiron | 1293 | |
1294 | cmp [cardfamily], 2 |
||
677 | ataualpa | 1295 | je .club |
205 | heavyiron | 1296 | |
1297 | cmp [cardfamily], 3 |
||
677 | ataualpa | 1298 | je .spade |
205 | heavyiron | 1299 | |
1300 | .heart: |
||
1301 | mov esi, [redcolor] |
||
1302 | mov [color], esi |
||
1303 | mov [imageaddr], heart |
||
1304 | mov [imageflipaddr], heart_updown |
||
1305 | |||
1306 | mov ebx, heart_small |
||
485 | heavyiron | 1307 | mcall |
205 | heavyiron | 1308 | |
1309 | jmp .selnumber |
||
1310 | |||
1311 | .diamond: |
||
1312 | mov esi, [redcolor] |
||
1313 | mov [color], esi |
||
1314 | mov [imageaddr], diamond |
||
1315 | mov [imageflipaddr], diamond_updown |
||
1316 | |||
1317 | mov ebx, diamond_small |
||
485 | heavyiron | 1318 | mcall |
205 | heavyiron | 1319 | |
1320 | jmp .selnumber |
||
1321 | |||
1322 | .club: |
||
1323 | mov esi, [blackcolor] |
||
1324 | mov [color], esi |
||
1325 | mov [imageaddr], club |
||
1326 | mov [imageflipaddr], club_updown |
||
1327 | |||
1328 | mov ebx, club_small |
||
485 | heavyiron | 1329 | mcall |
205 | heavyiron | 1330 | |
1331 | jmp .selnumber |
||
1332 | |||
1333 | .spade: |
||
1334 | mov esi, [blackcolor] |
||
1335 | mov [color], esi |
||
1336 | mov [imageaddr], spade |
||
1337 | mov [imageflipaddr], spade_updown |
||
1338 | |||
1339 | mov ebx, spade_small |
||
485 | heavyiron | 1340 | mcall |
205 | heavyiron | 1341 | |
1342 | |||
1343 | |||
1344 | .selnumber: |
||
1345 | |||
677 | ataualpa | 1346 | mov ebx, [xpos] ; counting position of text |
1347 | ; in ebx, same for all cards |
||
205 | heavyiron | 1348 | add ebx, radius |
1349 | shl ebx, 16 |
||
677 | ataualpa | 1350 | mov bx, word [ypos] |
1351 | add bx, radius |
||
205 | heavyiron | 1352 | |
1353 | |||
1354 | mov ecx, [color] |
||
1355 | |||
1356 | |||
1357 | cmp [cardrange], 0 |
||
677 | ataualpa | 1358 | je .ace |
205 | heavyiron | 1359 | |
1360 | cmp [cardrange], 1 |
||
677 | ataualpa | 1361 | je .two |
205 | heavyiron | 1362 | |
1363 | cmp [cardrange], 2 |
||
677 | ataualpa | 1364 | je .three |
205 | heavyiron | 1365 | |
1366 | cmp [cardrange], 3 |
||
677 | ataualpa | 1367 | je .four |
205 | heavyiron | 1368 | |
1369 | cmp [cardrange], 4 |
||
677 | ataualpa | 1370 | je .five |
205 | heavyiron | 1371 | |
1372 | cmp [cardrange], 5 |
||
677 | ataualpa | 1373 | je .six |
205 | heavyiron | 1374 | |
1375 | cmp [cardrange], 6 |
||
677 | ataualpa | 1376 | je .seven |
205 | heavyiron | 1377 | |
1378 | cmp [cardrange], 7 |
||
677 | ataualpa | 1379 | je .eight |
205 | heavyiron | 1380 | |
1381 | cmp [cardrange], 8 |
||
677 | ataualpa | 1382 | je .nine |
205 | heavyiron | 1383 | |
1384 | cmp [cardrange], 9 |
||
677 | ataualpa | 1385 | je .ten |
205 | heavyiron | 1386 | |
1387 | cmp [cardrange], 10 |
||
677 | ataualpa | 1388 | je .jack |
205 | heavyiron | 1389 | |
1390 | cmp [cardrange], 11 |
||
677 | ataualpa | 1391 | je .queen |
205 | heavyiron | 1392 | |
1393 | cmp [cardrange], 12 |
||
677 | ataualpa | 1394 | je .king |
205 | heavyiron | 1395 | |
1396 | ; +-------+-------+-------+ |
||
1397 | ; | 3 | 2 | 3 | ace = 1 |
||
1398 | ; +-------+-------+-------+ two = 2 |
||
1399 | ; | | | | three = 2 + 1 |
||
1400 | ; +-------+-------+-------+ four = 3 |
||
1401 | ; | | 6 | | five = 3 + 1 |
||
1402 | ; +-------+-------+-------+ six = 3 + 4 |
||
1403 | ; | 5 | | 5 | seven = 3 + 4 + 6 |
||
1404 | ; +-------+-------+-------+ eight = 3 + 5 |
||
1405 | ; | 4 | 1 | 4 | nine = 3 + 5 |
||
1406 | ; +-------+-------+-------+ ten = 3 + 5 + 6 + 7 |
||
1407 | ; | 5 | | 5 | |
||
1408 | ; +-------+-------+-------+ |
||
1409 | ; | | 7 | | 1 means draw_1 |
||
1410 | ; +-------+-------+-------+ |
||
1411 | ; | | | | |
||
1412 | ; +-------+-------+-------+ |
||
1413 | ; | 3 | 2 | 3 | |
||
1414 | ; +-------+-------+-------+ |
||
1415 | |||
1416 | |||
1417 | |||
1418 | .ace: |
||
1419 | mov eax, 4 |
||
1420 | mov [s], byte 'A' |
||
1421 | mov edx, s |
||
1422 | mov esi, 1 |
||
485 | heavyiron | 1423 | mcall |
205 | heavyiron | 1424 | |
1425 | call draw_1 |
||
1426 | jmp .end |
||
1427 | |||
1428 | .two: |
||
1429 | mov eax, 4 |
||
1430 | mov [s], byte '2' |
||
1431 | mov edx, s |
||
1432 | mov esi, 1 |
||
485 | heavyiron | 1433 | mcall |
205 | heavyiron | 1434 | |
1435 | call draw_2 |
||
1436 | jmp .end |
||
1437 | |||
1438 | |||
1439 | .three: |
||
1440 | mov eax, 4 |
||
1441 | mov [s], byte '3' |
||
1442 | mov edx, s |
||
1443 | mov esi, 1 |
||
485 | heavyiron | 1444 | mcall |
205 | heavyiron | 1445 | |
1446 | call draw_1 |
||
1447 | call draw_2 |
||
1448 | |||
1449 | jmp .end |
||
1450 | |||
1451 | .four: |
||
1452 | mov eax, 4 |
||
1453 | mov [s], byte '4' |
||
1454 | mov edx, s |
||
1455 | mov esi, 1 |
||
485 | heavyiron | 1456 | mcall |
205 | heavyiron | 1457 | |
1458 | call draw_3 |
||
1459 | jmp .end |
||
1460 | |||
1461 | .five: |
||
1462 | mov eax, 4 |
||
1463 | mov [s], byte '5' |
||
1464 | mov edx, s |
||
1465 | mov esi, 1 |
||
485 | heavyiron | 1466 | mcall |
205 | heavyiron | 1467 | |
1468 | call draw_1 |
||
1469 | call draw_3 |
||
1470 | |||
1471 | jmp .end |
||
1472 | |||
1473 | .six: |
||
1474 | mov eax, 4 |
||
1475 | mov [s], byte '6' |
||
1476 | mov edx, s |
||
1477 | mov esi, 1 |
||
485 | heavyiron | 1478 | mcall |
205 | heavyiron | 1479 | |
1480 | call draw_3 |
||
1481 | call draw_4 |
||
1482 | |||
1483 | jmp .end |
||
1484 | |||
1485 | .seven: |
||
1486 | mov eax, 4 |
||
1487 | mov [s], byte '7' |
||
1488 | mov edx, s |
||
1489 | mov esi, 1 |
||
485 | heavyiron | 1490 | mcall |
205 | heavyiron | 1491 | |
1492 | call draw_3 |
||
1493 | call draw_4 |
||
1494 | call draw_6 |
||
1495 | |||
1496 | jmp .end |
||
1497 | |||
1498 | .eight: |
||
1499 | mov eax, 4 |
||
1500 | mov [s], byte '8' |
||
1501 | mov edx, s |
||
1502 | mov esi, 1 |
||
485 | heavyiron | 1503 | mcall |
205 | heavyiron | 1504 | |
1505 | call draw_3 |
||
1506 | call draw_5 |
||
1507 | |||
1508 | jmp .end |
||
1509 | |||
1510 | .nine: |
||
1511 | mov eax, 4 |
||
1512 | mov [s], byte '9' |
||
1513 | mov edx, s |
||
1514 | mov esi, 1 |
||
485 | heavyiron | 1515 | mcall |
205 | heavyiron | 1516 | |
1517 | call draw_3 |
||
1518 | call draw_5 |
||
1519 | call draw_1 |
||
1520 | |||
1521 | jmp .end |
||
1522 | |||
1523 | .ten: |
||
1524 | mov eax, 4 |
||
1525 | mov [s], word '10' |
||
1526 | mov edx, s |
||
1527 | mov esi, 2 |
||
485 | heavyiron | 1528 | mcall |
205 | heavyiron | 1529 | |
1530 | call draw_3 |
||
1531 | call draw_5 |
||
1532 | call draw_6 |
||
1533 | call draw_7 |
||
1534 | |||
1535 | jmp .end |
||
1536 | |||
1537 | .jack: |
||
1538 | mov eax, 4 |
||
1539 | mov [s], byte 'J' |
||
1540 | mov edx, s |
||
1541 | mov esi, 1 |
||
485 | heavyiron | 1542 | mcall |
205 | heavyiron | 1543 | |
1544 | jmp .end |
||
1545 | |||
1546 | .queen: |
||
1547 | mov eax, 4 |
||
1548 | mov [s], byte 'Q' |
||
1549 | mov edx, s |
||
1550 | mov esi, 1 |
||
485 | heavyiron | 1551 | mcall |
205 | heavyiron | 1552 | |
1553 | jmp .end |
||
1554 | |||
1555 | .king: |
||
1556 | mov eax, 4 |
||
1557 | mov [s], byte 'K' |
||
1558 | mov edx,s |
||
1559 | mov esi, 1 |
||
485 | heavyiron | 1560 | mcall |
205 | heavyiron | 1561 | |
1562 | .end: |
||
1563 | |||
1564 | |||
1565 | cmp [negativedraw], 1 |
||
1566 | jne .no_invert2 |
||
1567 | |||
1568 | call invert_all_images |
||
1569 | |||
1570 | |||
1571 | .no_invert2: |
||
1572 | .no_draw_card: |
||
1573 | |||
1574 | ret |
||
1575 | |||
1576 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1577 | ; invert_all_images() |
||
1578 | invert_all_images: |
||
1579 | mov [sizeofimagetoinvert], 16 * 16 * 3 |
||
1580 | mov [imagetoinvert], heart |
||
1581 | call invert_image_colors |
||
1582 | |||
1583 | mov [sizeofimagetoinvert], 16 * 16 * 3 |
||
1584 | mov [imagetoinvert], diamond |
||
1585 | call invert_image_colors |
||
1586 | |||
1587 | mov [sizeofimagetoinvert], 16 * 16 * 3 |
||
1588 | mov [imagetoinvert], spade |
||
1589 | call invert_image_colors |
||
1590 | |||
1591 | mov [sizeofimagetoinvert], 16 * 16 * 3 |
||
1592 | mov [imagetoinvert], club |
||
1593 | call invert_image_colors |
||
1594 | |||
1595 | |||
1596 | mov [sizeofimagetoinvert], 16 * 16 * 3 |
||
1597 | mov [imagetoinvert], heart_updown |
||
1598 | call invert_image_colors |
||
1599 | |||
1600 | mov [sizeofimagetoinvert], 16 * 16 * 3 |
||
1601 | mov [imagetoinvert], diamond_updown |
||
1602 | call invert_image_colors |
||
1603 | |||
1604 | mov [sizeofimagetoinvert], 16 * 16 * 3 |
||
1605 | mov [imagetoinvert], spade_updown |
||
1606 | call invert_image_colors |
||
1607 | |||
1608 | mov [sizeofimagetoinvert], 16 * 16 * 3 |
||
1609 | mov [imagetoinvert], club_updown |
||
1610 | call invert_image_colors |
||
1611 | |||
1612 | |||
1613 | mov [sizeofimagetoinvert], 8 * 8 * 3 |
||
1614 | mov [imagetoinvert], heart_small |
||
1615 | call invert_image_colors |
||
1616 | |||
1617 | mov [sizeofimagetoinvert], 8 * 8 * 3 |
||
1618 | mov [imagetoinvert], diamond_small |
||
1619 | call invert_image_colors |
||
1620 | |||
1621 | mov [sizeofimagetoinvert], 8 * 8 * 3 |
||
1622 | mov [imagetoinvert], spade_small |
||
1623 | call invert_image_colors |
||
1624 | |||
1625 | mov [sizeofimagetoinvert], 8 * 8 * 3 |
||
1626 | mov [imagetoinvert], club_small |
||
1627 | call invert_image_colors |
||
1628 | |||
1629 | |||
1630 | |||
1631 | ret |
||
1632 | |||
1633 | |||
1634 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1635 | |||
1636 | draw_1: |
||
677 | ataualpa | 1637 | ;draw center image |
205 | heavyiron | 1638 | mov ebx, [imageaddr] |
1639 | mov ecx, 16 * 65536 + 16 |
||
1640 | mov edx, [xpos] |
||
1641 | add edx, cardwidth/2 - 8 |
||
1642 | shl edx, 16 |
||
1643 | mov dx, word [ypos] |
||
1644 | add dx, cardheight/2 - 8 |
||
1645 | mov eax, 7 |
||
485 | heavyiron | 1646 | mcall |
205 | heavyiron | 1647 | ret |
1648 | |||
1649 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1650 | |||
1651 | |||
1652 | draw_2: |
||
677 | ataualpa | 1653 | ;draw top image |
205 | heavyiron | 1654 | mov ebx, [imageaddr] |
1655 | mov ecx, 16 * 65536 + 16 |
||
1656 | mov edx, [xpos] |
||
1657 | add edx, 40 - 8 |
||
1658 | shl edx, 16 |
||
1659 | mov dx, word [ypos] |
||
1660 | add dx, margin |
||
1661 | mov eax, 7 |
||
485 | heavyiron | 1662 | mcall |
677 | ataualpa | 1663 | ;draw bottom image |
205 | heavyiron | 1664 | mov ebx, [imageflipaddr] |
1665 | mov edx, [xpos] |
||
1666 | add edx, cardwidth/2 - 8 |
||
1667 | shl edx, 16 |
||
1668 | mov dx, word [ypos] |
||
1669 | add dx, cardheight - 16 - margin |
||
1670 | mov eax, 7 |
||
485 | heavyiron | 1671 | mcall |
205 | heavyiron | 1672 | ret |
1673 | |||
1674 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1675 | |||
1676 | draw_3: |
||
677 | ataualpa | 1677 | ;draw top left image |
205 | heavyiron | 1678 | mov ebx, [imageaddr] |
1679 | mov ecx, 16 * 65536 + 16 |
||
1680 | mov edx, [xpos] |
||
1681 | add edx, margin |
||
1682 | shl edx, 16 |
||
1683 | mov dx, word [ypos] |
||
1684 | add dx, margin |
||
1685 | mov eax, 7 |
||
485 | heavyiron | 1686 | mcall |
677 | ataualpa | 1687 | ;draw bottom left image |
205 | heavyiron | 1688 | mov ebx, [imageflipaddr] |
1689 | mov edx, [xpos] |
||
1690 | add edx, margin |
||
1691 | shl edx, 16 |
||
1692 | mov dx, word [ypos] |
||
1693 | add dx, cardheight - margin - 16 |
||
1694 | mov eax, 7 |
||
485 | heavyiron | 1695 | mcall |
677 | ataualpa | 1696 | ;draw top right image |
205 | heavyiron | 1697 | mov ebx, [imageaddr] |
1698 | mov edx, [xpos] |
||
1699 | add edx, cardwidth - margin - 16 |
||
1700 | shl edx, 16 |
||
1701 | mov dx, word [ypos] |
||
1702 | add dx, margin |
||
1703 | mov eax, 7 |
||
485 | heavyiron | 1704 | mcall |
677 | ataualpa | 1705 | ;draw bottom right image |
205 | heavyiron | 1706 | mov ebx, [imageflipaddr] |
1707 | mov edx, [xpos] |
||
1708 | add edx, cardwidth - margin - 16 |
||
1709 | shl edx, 16 |
||
1710 | mov dx, word [ypos] |
||
1711 | add dx, cardheight - margin - 16 |
||
1712 | mov eax, 7 |
||
485 | heavyiron | 1713 | mcall |
205 | heavyiron | 1714 | ret |
1715 | |||
1716 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1717 | |||
1718 | draw_4: |
||
677 | ataualpa | 1719 | ;draw center left image |
205 | heavyiron | 1720 | mov ebx, [imageaddr] |
1721 | mov ecx, 16 * 65536 + 16 |
||
1722 | mov edx, [xpos] |
||
1723 | add edx, margin |
||
1724 | shl edx, 16 |
||
1725 | mov dx, word [ypos] |
||
1726 | add dx, cardheight/2 - 8 |
||
1727 | mov eax, 7 |
||
485 | heavyiron | 1728 | mcall |
677 | ataualpa | 1729 | ;draw center right image |
205 | heavyiron | 1730 | mov edx, [xpos] |
1731 | add edx, cardwidth - margin - 16 |
||
1732 | shl edx, 16 |
||
1733 | mov dx, word [ypos] |
||
1734 | add dx, cardheight/2 - 8 |
||
1735 | mov eax, 7 |
||
485 | heavyiron | 1736 | mcall |
205 | heavyiron | 1737 | ret |
1738 | |||
1739 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1740 | |||
1741 | draw_5: |
||
677 | ataualpa | 1742 | ;draw top left image |
205 | heavyiron | 1743 | mov ebx, [imageaddr] |
1744 | mov ecx, 16 * 65536 + 16 |
||
1745 | mov edx, [xpos] |
||
1746 | add edx, margin |
||
1747 | shl edx, 16 |
||
1748 | mov dx, word [ypos] |
||
1749 | add dx, cardheight * 3 / 9 |
||
1750 | mov eax, 7 |
||
485 | heavyiron | 1751 | mcall |
677 | ataualpa | 1752 | ;draw bottom left image |
205 | heavyiron | 1753 | mov ebx, [imageflipaddr] |
1754 | mov edx, [xpos] |
||
1755 | add edx, 16 |
||
1756 | shl edx, 16 |
||
1757 | mov dx, word [ypos] |
||
1758 | add dx, cardheight * 5 / 9 |
||
1759 | mov eax, 7 |
||
485 | heavyiron | 1760 | mcall |
677 | ataualpa | 1761 | ;draw top right image |
205 | heavyiron | 1762 | mov ebx, [imageaddr] |
1763 | mov edx, [xpos] |
||
1764 | add edx, cardwidth - margin - 16 |
||
1765 | shl edx, 16 |
||
1766 | mov dx, word [ypos] |
||
1767 | add dx, cardheight * 3 / 9 |
||
1768 | mov eax, 7 |
||
485 | heavyiron | 1769 | mcall |
677 | ataualpa | 1770 | ;draw bottom right image |
205 | heavyiron | 1771 | mov ebx, [imageflipaddr] |
1772 | mov edx, [xpos] |
||
1773 | add edx, cardwidth - margin - 16 |
||
1774 | shl edx, 16 |
||
1775 | mov dx, word [ypos] |
||
1776 | add dx, cardheight * 5 / 9 |
||
1777 | mov eax, 7 |
||
485 | heavyiron | 1778 | mcall |
205 | heavyiron | 1779 | ret |
1780 | |||
1781 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1782 | |||
1783 | draw_6: |
||
1784 | mov ebx, [imageaddr] |
||
1785 | mov ecx, 16 * 65536 + 16 |
||
1786 | mov edx, [xpos] |
||
1787 | add edx, cardwidth/2 - 8 |
||
1788 | shl edx, 16 |
||
1789 | mov dx, word [ypos] |
||
1790 | add dx, cardheight * 2 / 9 |
||
1791 | mov eax, 7 |
||
485 | heavyiron | 1792 | mcall |
205 | heavyiron | 1793 | ret |
1794 | |||
1795 | |||
1796 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
1797 | draw_7: |
||
1798 | mov ebx, [imageflipaddr] |
||
1799 | mov ecx, 16 * 65536 + 16 |
||
1800 | mov edx, [xpos] |
||
1801 | add edx, cardwidth/2 - 8 |
||
1802 | shl edx, 16 |
||
1803 | mov dx, word [ypos] |
||
1804 | add dx, cardheight * 6 / 9 |
||
1805 | mov eax, 7 |
||
485 | heavyiron | 1806 | mcall |
205 | heavyiron | 1807 | ret |
1808 | |||
1809 | |||
1810 | ;****************************************************************************** |
||
1811 | randomize: |
||
1812 | push eax |
||
1813 | |||
1814 | mov eax, 3 |
||
485 | heavyiron | 1815 | mcall |
205 | heavyiron | 1816 | |
1817 | mov ebx, $A59E3F1C |
||
1818 | mul ebx |
||
1819 | mov dword [randseed], eax |
||
1820 | pop eax |
||
1821 | ret |
||
1822 | |||
1823 | |||
1824 | |||
1825 | ;****************************************************************************** |
||
1826 | ; function Random(Range): RandomValue |
||
1827 | random: |
||
1828 | push ebx |
||
1829 | |||
1830 | mov eax, [randseed] |
||
1831 | mov edx, 0 |
||
1832 | mov ebx, 7 |
||
1833 | div ebx |
||
1834 | |||
1835 | cmp edx, 0 |
||
677 | ataualpa | 1836 | je _0 |
205 | heavyiron | 1837 | |
1838 | cmp edx, 1 |
||
677 | ataualpa | 1839 | je _1 |
205 | heavyiron | 1840 | |
1841 | cmp edx, 2 |
||
677 | ataualpa | 1842 | je _2 |
205 | heavyiron | 1843 | |
1844 | cmp edx, 3 |
||
677 | ataualpa | 1845 | je _3 |
205 | heavyiron | 1846 | |
1847 | cmp edx, 4 |
||
677 | ataualpa | 1848 | je _4 |
205 | heavyiron | 1849 | |
1850 | cmp edx, 5 |
||
677 | ataualpa | 1851 | je _5 |
205 | heavyiron | 1852 | |
1853 | cmp edx, 6 |
||
677 | ataualpa | 1854 | je _6 |
205 | heavyiron | 1855 | |
1856 | jmp _end |
||
1857 | |||
1858 | |||
1859 | _0: |
||
1860 | ;base := base + 58 + a[8]; |
||
1861 | mov eax, [randseed] |
||
1862 | add eax, 58 |
||
1863 | add eax, dword [a + 8 * 4] |
||
1864 | mov [randseed], eax |
||
1865 | jmp _end; |
||
1866 | |||
1867 | _1: |
||
1868 | ;base := base + 1 + a[9]; |
||
1869 | mov eax, [randseed] |
||
1870 | add eax, 1 |
||
1871 | add eax, dword [a + 9 * 4] |
||
1872 | mov [randseed], eax |
||
1873 | jmp _end; |
||
1874 | |||
1875 | _2: |
||
1876 | ;base := base + 4 + a[88]; |
||
1877 | mov eax, [randseed] |
||
1878 | add eax, 4 |
||
1879 | add eax, dword [a + 88 * 4] |
||
1880 | mov [randseed], eax |
||
1881 | jmp _end; |
||
1882 | |||
1883 | _3: |
||
1884 | ;randseed := randseed + 79 + a[43]; |
||
1885 | mov eax, [randseed] |
||
1886 | add eax, 79 |
||
1887 | add eax, dword [a + 43 * 4] |
||
1888 | mov [randseed], eax |
||
1889 | jmp _end; |
||
1890 | |||
1891 | _4: |
||
1892 | ;randseed := randseed + 3 + a[12]; |
||
1893 | mov eax, [randseed] |
||
1894 | add eax, 3 |
||
1895 | add eax, dword [a + 12 * 4] |
||
1896 | mov [randseed], eax |
||
1897 | jmp _end; |
||
1898 | |||
1899 | _5: |
||
1900 | ;randseed := randseed + 2 + a[63]; |
||
1901 | mov eax, [randseed] |
||
1902 | add eax, 2 |
||
1903 | add eax, dword [a + 63 * 4] |
||
1904 | mov [randseed], eax |
||
1905 | jmp _end; |
||
1906 | |||
1907 | _6: |
||
1908 | ;randseed := randseed + 151 + a[24]; |
||
1909 | mov eax, [randseed] |
||
1910 | add eax, 151 |
||
1911 | add eax, dword [a + 24 * 4] |
||
1912 | mov [randseed], eax |
||
1913 | |||
1914 | _end: |
||
1915 | |||
1916 | mov eax, [randseed] |
||
1917 | mov edx, eax |
||
1918 | shl edx, 16 |
||
1919 | mov bx, 100 |
||
677 | ataualpa | 1920 | div bx ; dx = randseed mod 100 |
205 | heavyiron | 1921 | |
677 | ataualpa | 1922 | mov ax, dx ; ax = randseed mod 100 |
205 | heavyiron | 1923 | mov bx, 4 |
677 | ataualpa | 1924 | mul bx ; dx:ax = (randseed mod 100) * 4 |
205 | heavyiron | 1925 | and eax, $0000FFFF |
1926 | shr edx, 16 |
||
1927 | and edx, $FFFF0000 |
||
677 | ataualpa | 1928 | or eax, edx |
205 | heavyiron | 1929 | |
1930 | mov eax, dword [a + eax] ; eax = dword[a + (randseed mod 100) * 4] |
||
677 | ataualpa | 1931 | ; ~ a[randseed mod 100] |
205 | heavyiron | 1932 | mov ebx, dword [a + 47 * 4] |
677 | ataualpa | 1933 | mul ebx ; eax = low(a[randseed mod 100] * a[47]) |
205 | heavyiron | 1934 | |
1935 | add eax, [randseed] |
||
1936 | add eax, $4AE783A |
||
1937 | mov [randseed], eax |
||
1938 | |||
1939 | mov eax, dword [a + 6 * 4] |
||
1940 | mov edx, 0 |
||
1941 | mov ebx, 100 |
||
1942 | div ebx |
||
1943 | mov eax, edx |
||
1944 | mov ebx, 4 |
||
677 | ataualpa | 1945 | mul ebx ; eax = (dword [a + 6 * 4] mod 100) * 4 ~ a[6] mod 100 |
205 | heavyiron | 1946 | |
1947 | |||
1948 | mov eax, dword [a + eax] ; eax = dword [a + (dword [a + 6 * 4] mod 100) * 4 |
||
1949 | |||
677 | ataualpa | 1950 | ; ~ a[a[6] mod 100] |
205 | heavyiron | 1951 | add eax, [randseed] |
1952 | mov [random_value], eax |
||
1953 | |||
1954 | mov edx, 0 |
||
1955 | |||
1956 | mov ebx, [range] |
||
1957 | div ebx |
||
1958 | mov [random_value], edx |
||
1959 | |||
1960 | mov al, [TimesCalled] |
||
1961 | xor ah, ah |
||
1962 | inc al |
||
1963 | mov bl, 100 |
||
1964 | div bl |
||
1965 | mov [TimesCalled], ah ; TimesCalled = (TimesCalled + 1 ) mod 100 |
||
1966 | |||
1967 | mov al, ah |
||
1968 | mov bl, 4 |
||
1969 | mul bl |
||
1970 | and eax, $0000FFFF |
||
1971 | |||
1972 | mov ebx, [randseed] |
||
1973 | mov dword [a + eax], ebx ; a[TimesCalled] = randseed |
||
1974 | |||
1975 | pop ebx |
||
1976 | ret |
||
1977 | |||
1978 | ;****************************************************************************** |
||
1979 | |||
1980 | ; <--- initialised data ---> |
||
677 | ataualpa | 1981 | if lang eq ru |
1982 | title db 'Солитер',0 |
||
1983 | |||
1984 | new_game: db "Новая игра" |
||
1985 | new_game_len = $ - new_game |
||
1986 | |||
1987 | exit: db "Выход" |
||
1988 | exit_len = $ - exit |
||
1989 | |||
1990 | s: db "10" |
||
1991 | |||
1992 | else |
||
485 | heavyiron | 1993 | title db 'Freecell',0 |
205 | heavyiron | 1994 | |
1995 | new_game: db "New game" |
||
1996 | new_game_len = $ - new_game |
||
1997 | |||
1998 | exit: db "Exit" |
||
1999 | exit_len = $ - exit |
||
2000 | |||
2001 | s: db "10" |
||
677 | ataualpa | 2002 | end if |
205 | heavyiron | 2003 | |
677 | ataualpa | 2004 | negativedraw db 0 ; for procedure draw_card |
205 | heavyiron | 2005 | |
2006 | |||
1728 | clevermous | 2007 | spade file 'Spade.bmp': 54 |
2008 | spade_updown file 'SpadeUD.bmp': 54 |
||
2009 | spade_small file 'SpadeSml.bmp': 54 |
||
205 | heavyiron | 2010 | |
1728 | clevermous | 2011 | club file 'Club.bmp': 54 |
2012 | club_updown file 'ClubUD.bmp': 54 |
||
2013 | club_small file 'ClubSml.bmp': 54 |
||
205 | heavyiron | 2014 | |
1728 | clevermous | 2015 | diamond file 'Diam.bmp': 54 |
2016 | diamond_updown file 'DiamUD.bmp': 54 |
||
2017 | diamond_small file 'DiamSml.bmp': 54 |
||
205 | heavyiron | 2018 | |
1728 | clevermous | 2019 | heart file 'Heart.bmp': 54 |
2020 | heart_updown file 'HeartUD.bmp': 54 |
||
2021 | heart_small file 'HeartSml.bmp': 54 |
||
205 | heavyiron | 2022 | |
2023 | |||
2024 | scNotSelected = 0 |
||
2025 | scCommonCells = 1 |
||
2026 | scTempCells = 2 |
||
2027 | |||
2028 | |||
2029 | whereisselcard dd scNotSelected |
||
677 | ataualpa | 2030 | columnofselcard dd 0 ; if WhereIsSelCard = scGeneralCells |
2031 | ; then this can be 0 .. 7, |
||
2032 | ; if scTempCells then - 0 .. 3 |
||
2033 | ; if scNotSelected - no matter |
||
205 | heavyiron | 2034 | |
2035 | tempcells: times 4 db 52; |
||
2036 | homecells: times 4 db 52 ; maximal card code is 51 |
||
2037 | cards: times 8 * 19 db 52; - % |
||
2038 | pack: times 52 db ? |
||
2039 | |||
2040 | |||
2041 | |||
2042 | udata |
||
2043 | process_info process_information |
||
2044 | syscolors system_colors |
||
2045 | |||
2046 | WindowHeight rw 1 |
||
2047 | WindowWidth rw 1 |
||
2048 | |||
2049 | xpos rd 1 |
||
2050 | ypos rd 1 |
||
2051 | bgcolor rd 1 |
||
2052 | blackcolor rd 1 |
||
2053 | redcolor rd 1 |
||
2054 | |||
2055 | |||
677 | ataualpa | 2056 | lastparam rd 1 ; |
205 | heavyiron | 2057 | |
677 | ataualpa | 2058 | randomcard rd 1 ; for new_game_click |
205 | heavyiron | 2059 | |
677 | ataualpa | 2060 | columnclicked rd 1 ; used in common_card_click, temp_cell_click, |
2061 | cardclicked rd 1 ; home_cell_click |
||
2062 | clickedcardrange rd 1 ; |
||
2063 | clickedcardfamily rd 1 ; |
||
205 | heavyiron | 2064 | |
2065 | |||
677 | ataualpa | 2066 | selcardcode rd 1 ; for procedure get_sel_card_code_and_addr |
2067 | selcardaddr rd 1 ; |
||
205 | heavyiron | 2068 | |
677 | ataualpa | 2069 | column rd 1 ; for procedure draw_window |
2070 | row rd 1 ; |
||
205 | heavyiron | 2071 | |
677 | ataualpa | 2072 | imagetoinvert rd 1 ; for procedure invert_image_colors |
2073 | sizeofimagetoinvert rd 1 ; |
||
205 | heavyiron | 2074 | |
677 | ataualpa | 2075 | ncolumn rd 1 ; for procedure get_row_of_top_card_in_column |
2076 | topcardrow rd 1 ; |
||
205 | heavyiron | 2077 | |
2078 | |||
677 | ataualpa | 2079 | color rd 1 ; for procedue draw_card |
2080 | imageaddr rd 1 ; |
||
2081 | imageflipaddr rd 1 ; |
||
205 | heavyiron | 2082 | |
677 | ataualpa | 2083 | cardcode rd 1 ; used in differrent procedures |
2084 | cardrange rd 1 ; cardcode = cardrange * 4 + cardfamily |
||
2085 | cardfamily rd 1 ; |
||
205 | heavyiron | 2086 | |
677 | ataualpa | 2087 | a: times 100 rd 1 ; for function Random |
2088 | range rd 1 ; |
||
2089 | random_value rd 1 ; |
||
2090 | randseed rd 1 ; |
||
2091 | TimesCalled rb 1 ; |
||
205 | heavyiron | 2092 | |
677 | ataualpa | 2093 | j rd 1 ; number of card (in array cards) drawn now |
2094 | i rd 1 ; used in many procedures of 1-st level |
||
205 | heavyiron | 2095 | k rd 1 |
2096 | |||
2097 | cardwidth = 80 |
||
2098 | cardheight = 120 |
||
677 | ataualpa | 2099 | radius = 4 ; not recommended to change |
2100 | rowsize = 30 ; distance between top poins |
||
2101 | ;of cards in neighboring rows |
||
2102 | columnspace = 5 ; minimal space between cards |
||
2103 | margin = 14 ; margin of every card |
||
205 | heavyiron | 2104 | |
2105 | topbuttonsbarheight = 20 |
||
2106 | |||
2107 | |||
2108 | meos_app_end--->>=>>=>=>>=>>---> |