Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1803 yogev_ezra 1 
;#**************************
2 
;#*     X.0.X - DATA
3 
;#************************** 21/10/2007
4 
 
5 
macro DATA_SECTION
6 
{
7 
; ДАННЫЕ ПРОГРАММЫ
8 
;-----------------------------------------------------------------------------
9 
lootxt:   db 'oops! - Looser...'                     ; los
10 
text:     db 'KOX v0.003          [ESC]     - quit'  ; winheader string
11 
texts:    db 'Congratulations! You are winner.'      ;  in window win
12 
textend:  db 'New'     ;button id=200
13 
px:       dw 50        ;x,y -
14 
py:       dw 50        ;    - for x_put/o_put
15 
seed:     dd  0        ;rnd
16 
idx:      dd  0        ;N cell
17 
;============ X = Y ============= coords of cells
18 
 pole:    dw  50, 50   ;+0    or - dd 50*65536+50
19 
          dw 100, 50   ;+4
20 
          dw 150, 50   ;+8
21 
          dw  50,100   ;+..
22 
          dw 100,100   ;+
23 
          dw 150,100   ;
24 
          dw  50,150   ;
25 
          dw 100,150   ;
26 
          dw 150,150   ;
27 
 pox:     dd 0,0       ;POLE  ( 3x3 )= 9 _bytes_:   'x' / 'o' / empty
28 
 pox_:    db 0         ;9= 8+1
29 
 fill:    db 0         ;turn counter  0..9
30 
 xwin:    db 0         ;who is winner 0/1
31 
 owin:    db 0         ;who is looser 0/1
32 
 poxl:    dw 0         ;16 bits - x memory
33 
 pool:    dw 0         ;16 bits - o memory
34 
;----------------------------------------------------------------------------
35 
 oxwall:  dw 100100100b,0010010010b,0001001001b    ;vert.
36 
          dw 111000000b,0000111000b,0000000111b    ;horiz
37 
          dw 100010001b,0001010100b                ;diag -winning combinations
38 
 prav:   ;==== правила-комбинации=====
39 
          dw 000000110b,0      ;ситуация - ход в ситуации
40 
          dw 000000101b,1
41 
          dw 000000011b,2
42 
          dw 000110000b,3
43 
          dw 000101000b,4
44 
          dw 000011000b,5
45 
          dw 110000000b,6
46 
          dw 101000000b,7
47 
          dw 011000000b,8      ;horiz
48 
 
49 
          dw 001001000b,0
50 
          dw 001000001b,3
51 
          dw 000001001b,6
52 
          dw 010010000b,1
53 
          dw 010000010b,4
54 
          dw 000010010b,7
55 
          dw 100100000b,2
56 
          dw 100000100b,5
57 
          dw 000100100b,8      ;vert
58 
 
59 
          dw 000010001b,8
60 
          dw 100010000b,0
61 
          dw 100000001b,4
62 
          dw 000010100b,6
63 
          dw 001010000b,2
64 
          dw 001000100b,4      ;diag
65 
 
66 
}