Subversion Repositories Kolibri OS

;

;   The famous game 15

;   Author: Lloyd, coded by Ivushkin Andrey

;   Compile with FASM

;

include 'lang.inc'

include '..\..\..\macros.inc' ; decreases program size (not required)

StatusColor equ 0x02ffffff

StatusColor2 equ 0x02dc1e14

BgdColor equ 0x14aabbcc

; Main window dimensions

XXwindow equ 200 shl 16+276

YYwindow equ 200 shl 16+300

; Status bar

XYstatus equ 35 shl 16+283

XXbar equ 35 shl 16+136

YYbar equ 280 shl 16+15

; Buttons

BtnTop equ 28

BtnLeft equ 13

BtnSize equ 60

BtnColor equ 0xafbb55

BtnColor2 equ 0x0228c314

NumColor equ 0x10000000

; Number shifting for nice look

NumShift equ 24 shl 16+27

NumShift2 equ 4 shl 16

; Shuffle button

XXSh equ 202 shl 16+60

YYSh equ 280 shl 16+12

XYShText equ 212 shl 16+283

; Conf button

XXCnf equ 13 shl 16+13

YYCnf equ 280 shl 16+12

XYCnfText equ 18 shl 16+283

; Position of the 'hole'

null equ (curconf+16)

; Amount of moves to perform shuffle

SH_CYCLES equ 400

; (Amount of tasks)-1

CONF_COUNT equ 2

use32

  org    0x0

  db     'MENUET01'

  dd     0x01

  dd     START

  dd     I_END

  dd     0x2000  ; 8 Kb

  dd     0x2000

  dd     0x0

  dd     0x0

START:

    mov  [cptr],CONF_COUNT  ; number of task

    mov  eax,3

    mcall

    mov  cl,16

    ror  eax,cl

    mov  [generator],eax    ; random generator from Tetris

  init:

    mov  ecx,17

    movzx  eax,[cptr]

    inc  eax

    cmp  eax,CONF_COUNT

    jna  init_ok

    xor  eax,eax            ; cycling 0..CONF_COUNT

  init_ok:

    mov  [cptr],al

    mov  esi,eax

    shl  esi,4

    add  esi,conf

    add  esi,eax

    add  al,0x31

    mov  [txtTitle+17],al     ;task number to program title

    mov  [task],esi

    mov  edi,curconf

    rep  movsb          ; initial configuration

    mov  [sts],4

    jmp  red

SHUF:

    call shuffle        ; immediate shuffle

red:                    ; window redraw

    call draw_window

still:                  ; MAIN PROGRAM CYCLE

    mov  eax,10         ; wait for event

    mcall

    cmp  eax,1          ; redraw? -

    je   red            ; goto red

    cmp  eax,2          ; key pressed? -

    je   key            ; goto key

    cmp  eax,3          ; button pressed? -

    je   button         ; goto button

    jmp  still          ; no more events to process

  key:                  ; Key pressed

    mov  eax,2

    mcall

    shr  eax,8

    cmp  eax,32         ;  = Shuffle

    je   SHUF

    cmp  eax,13         ;  = Choose task

    je   init

    cmp  eax,176

    jl   still

    sub  eax,176

    cmp  eax,3

    ja   still

    movzx eax,byte [eax+correct] ; 'delta' value from correct[]

    jmp  m_check

  button:              ; Button pressed

    mov  eax,17

    mcall

    shr  eax,8

    sub  eax,2

    cmp  eax,-1        ; id == 1 (closeme)?

    jne  noclose

    mcall

  noclose:

    jl   SHUF          ; Shuffle (id=0) pressed

    cmp  eax,18

    je   init          ; Conf button pressed

    sub  al,byte [null]

    mov  edi,correct

    mov  ecx,4

    repne scasb        ; checking for valid move-part 1

    jne  fail

  m_check:

    cmp  byte[sts],4 ; puzzle completed, blocking buttons

    ja   still

    call move_check    ; checking for valid move-part 2

    jnc  fail

    inc  [move_count]

    call draw_moves

fail:

    jmp  still          ; ¢®§¢à é ¥¬áï

;   *******************************

;   *******  WINDOW DRAWING *******

;   *******************************

draw_window:

    mcall 12, 1 ; begin draw

	mcall 0, XXwindow, YYwindow, BgdColor,, txtTitle ; CREATING WINDOW

    mov  eax,8                     ; SHUFFLE BUTTON

    mov  ebx,XXSh

    mov  ecx,YYSh

    xor  edx,edx

    mov  esi,BtnColor

    mcall

    mov  ebx,XXCnf                  ; CONF BUTTON

    mov  ecx,YYCnf

    mov  edx,20

    ;mov  esi,BtnColor

    mcall

    mov  ebx, XYShText             ; SHUFFLE TEXT

    mov  ecx, StatusColor

    mov  edx,txtSh

    mov  esi,lenSh-txtSh

    mov  eax,4

    mcall

    mov  ebx, XYCnfText             ; CONF TEXT

    mov  edx,lenVictory-1

    mov  esi,1

    mcall

    mov  ecx, 16                   ; FIELD BUTTONS

  dbut:

    call draw_button

    loop dbut

    call draw_moves

    mcall 12, 2 ; end of drawing

    ret

;   *********************************************

;   ******* DRAWING A FIELD BUTTON **************

;   *********************************************

;   ECX - button number

draw_button:

    pusha

    dec  ecx

  ; calculating button dimensions

    mov  edi, ecx

    lea  edx,[ecx+2]

    mov  ebx,ecx

    and  ebx,11b

    shr  ecx,2

    imul ebx,BtnSize+3

    add  ebx,BtnLeft

    shl  ebx,16

    add  ebx,BtnSize

    imul ecx,BtnSize+3

    add  ecx,BtnTop

    shl  ecx,16

    add  ecx,BtnSize

    movzx eax,byte [null]

    cmp  eax,edi

    jne   no_hole

    pusha

    inc  ebx

    inc  ecx

    mov  edx,BgdColor

    mov  eax,13         ; clearing - 'hole'

    mcall

    popa

    or   edx,0x80000000 ; and removing button under it

no_hole:

    mov  al,byte[edi+curconf]

    mov  esi,[task]

    cmp  al,byte[edi+esi]

    je   highlight

    mov  esi,BtnColor

    jmp  s_rbutton

highlight:

    mov  esi,BtnColor2

s_rbutton:

    mov  eax,8          ; set/remove button

    mcall