kolibrios-gitea/programs/games/kox/trunk/data.inc
2011-01-29 22:35:52 +00:00

67 lines
2.2 KiB
PHP
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;#**************************
;#* X.0.X - DATA
;#************************** 21/10/2007
macro DATA_SECTION
{
; „€<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>Žƒ<EFBFBD>€ŒŒ
;-----------------------------------------------------------------------------
lootxt: db 'oops! - Looser...' ; los
text: db 'KOX v0.003 [ESC] - quit' ; winheader string
texts: db 'Congratulations! You are winner.' ; in window win
textend: db 'New' ;button id=200
px: dw 50 ;x,y -
py: dw 50 ; - for x_put/o_put
seed: dd 0 ;rnd
idx: dd 0 ;N cell
;============ X = Y ============= coords of cells
pole: dw 50, 50 ;+0 or - dd 50*65536+50
dw 100, 50 ;+4
dw 150, 50 ;+8
dw 50,100 ;+..
dw 100,100 ;+
dw 150,100 ;
dw 50,150 ;
dw 100,150 ;
dw 150,150 ;
pox: dd 0,0 ;POLE ( 3x3 )= 9 _bytes_: 'x' / 'o' / empty
pox_: db 0 ;9= 8+1
fill: db 0 ;turn counter 0..9
xwin: db 0 ;who is winner 0/1
owin: db 0 ;who is looser 0/1
poxl: dw 0 ;16 bits - x memory
pool: dw 0 ;16 bits - o memory
;----------------------------------------------------------------------------
oxwall: dw 100100100b,0010010010b,0001001001b ;vert.
dw 111000000b,0000111000b,0000000111b ;horiz
dw 100010001b,0001010100b ;diag -winning combinations
prav: ;==== ¯à ¢¨« -ª®¬¡¨­ æ¨¨=====
dw 000000110b,0 ;á¨âã æ¨ï - 室 ¢ á¨âã æ¨¨
dw 000000101b,1
dw 000000011b,2
dw 000110000b,3
dw 000101000b,4
dw 000011000b,5
dw 110000000b,6
dw 101000000b,7
dw 011000000b,8 ;horiz
dw 001001000b,0
dw 001000001b,3
dw 000001001b,6
dw 010010000b,1
dw 010000010b,4
dw 000010010b,7
dw 100100000b,2
dw 100000100b,5
dw 000100100b,8 ;vert
dw 000010001b,8
dw 100010000b,0
dw 100000001b,4
dw 000010100b,6
dw 001010000b,2
dw 001000100b,4 ;diag
}