kolibrios-gitea/programs/games/arcanii/trunk/arcanii.asm

VERSION equ 'ARCANOID II v. 0.30'
;               by jj
;        (jacek jerzy malinowski)
;
;   contact: 4nic8@casiocalc.org
;----------------------------------------
;   Compile with FASM for Menuet
;----------------------------------------

include 'lang.inc'
include '..\..\..\macros.inc'
include 'ascl.inc'
include 'ascgl.inc'
include 'asjc.inc'

X_SIZE equ 400
Y_SIZE equ 300

MAX_LEVEL equ 5

BACK_CL equ 0x00EFEF ; background color

;    THE MAIN PROGRAM:
use32

               org    0x0

               db     'MENUET01'              ; 8 byte id
               dd     0x01                    ; header version
               dd     START                   ; start of code
               dd     I_END                   ; size of image
               dd     0x200000                ; memory for app
               dd     0x7fff0                 ; esp
               dd     0x0 , 0x0               ; I_Param , I_Icon

START:                          ; start of execution

    bmptoimg bmp_file,img_bmp   ; loading ... ;]
    getimg img_bmp,0,0,10,10,img_ball
    getimg img_bmp,20,0,20,10,img_bonus
    getimg img_bmp,0,10,40,20,img_brick1
    getimg img_bmp,0,30,40,20,img_brick2
    getimg img_bmp,0,50,40,20,img_brick3
    getimg img_bmp,0,70,40,20,img_brick4

    call draw_window

still:
    if_e dword [level],0,.no_intro
       call intro
       jmp .no_game
    .no_intro:

    if_e dword [mode],2,.end_if1
       call level_info
       jmp .no_game
    .end_if1:

    if_e dword [mode],4,.end_if2
       call game_over
       jmp .no_game
    .end_if2:

    call fast_gfx ; <-- the main engine
    .no_game:

    mov  eax,11
    mcall

    cmp  eax,1                  ; redraw request ?
    je   red
    cmp  eax,2                  ; key in buffer ?
    je   key
    cmp  eax,3                  ; button in buffer ?
    je   button

    jmp  still

  red:                          ; redraw
    call draw_window
    jmp  still

  key:                          ; key
    mov  eax,2                  ; just read it and ignore
    mcall
    cmp  ah,key_Esc ; if Esc ?
    jne  .no_q
      or eax,-1
      mcall
    .no_q:

    if_e dword [mode],4,.end_if6
       jmp still
    .end_if6:

    cmp  ah,key_Space
    jne  .no_space
      if_e dword [mode],2,.end_if1
         mov dword [mode],0
         jmp .no_space
      .end_if1:
      mov dword [mode],1
      call fast_gfx
    .no_space:
    xor ebx,ebx
    mov bl,ah
    if_e ebx,key_F1,.no_f1
      inc dword [del]
    .no_f1:
    if_e ebx,key_F2,.no_f2
      if_a dword [del],0,.end_if3
         dec dword [del]
      .end_if3:
    .no_f2:


    jmp  still

  button:                       ; button
    mov  eax,17                 ; get id
    mcall

    cmp  ah,1                   ; button id=1 ?
    jne  noclose

    mov  eax,-1                 ; close this program
    mcall
  noclose:

    jmp  still

;   *********************************************
;   ******* VIRTUAL SCREEN FUNCTIONS ************
;   *********************************************

show_screen:  ; flips the virtual screen to the window
    push_abc

    mov  eax,7
    mov  ebx,screen
    mov  ecx,X_SIZE*65536+Y_SIZE
    mov  edx,4*65536+20
    mcall

    pop_abc
ret

put_bmp_screen: ; eax - y , ebx - x, esi - bmp
    cmp ebx,X_SIZE-5
    jb .ok1
      ret
    .ok1:
    cmp eax,Y_SIZE-5
    jb .ok2
      ret
    .ok2:

    push_abc
    xor  ecx,ecx
    xor  edx,edx
    mov  edi,screen
    mov  ecx,3
    mul  ecx  ; xx = 3*y*X_SIZE+3*x
    mov  ecx,X_SIZE
    mul  ecx
    push eax ; #> 1
    mov  eax,ebx
    mov  ecx,3
    mul  ecx
    mov  ebx,eax
    pop  edx ; #< 1
    add  edx,ebx
    add  edi,edx ; sets the pointer to x,y of the screen

    mov  cx,[si] ; loops 1
    xor  ebx,ebx
    mov  ax,cx
    mov  dx,3
    mul  dx
    mov  bx,ax

    push ebx ;#>4

    add  si,4
    mov  ax,[si] ; loops 2
    mov  cx,[si]
    ;shr  ax,2
    mov  dx,3   ; dx = ax *3
    mul  dx
    mov  bx,ax
    add  si,4


    pop  ebx ;#<4
    .l_y:
       mov ax,cx
       cld
       mov  cx,bx
       rep movs byte [edi],[esi]
       add edi,X_SIZE
       add edi,X_SIZE
       add edi,X_SIZE
       sub edi,ebx
       mov cx,ax
    loop .l_y

    pop_abc
ret

rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color
    mov edi,ebx
    add ebx,ecx
    cmp ebx,X_SIZE
    jb .ok1
      ret
    .ok1:
    mov ebx,edi

    mov edi,eax
    add eax,edx
    cmp eax,Y_SIZE
    jb .ok2
      ret
    .ok2:
    mov eax,edi
    push_abc
    push ecx  ;#>2
    push edx  ;#>3

    xor  ecx,ecx
    xor  edx,edx
    mov  edi,screen
    mov  ecx,3
    mul  ecx  ; xx = 3*y*X_SIZE+3*x
    mov  ecx,X_SIZE
    mul  ecx
    push eax ; #> 1
    mov  eax,ebx
    mov  ecx,3
    mul  ecx
    mov  ebx,eax
    pop  edx ; #< 1
    add  edx,ebx

    add  edi,edx ; sets the pointer to x,y of the screen

    pop ecx ; #<3
    pop edx ; #<4
    mov  eax,esi
    .l_y:
       ;mov ax,cx
       push  ecx
       cld
       mov  ecx,edx
       .l_x:
         ;rep movs byte [edi],[esi]
         mov  word [edi],ax
         push eax
         shr  eax,16
         mov  byte [edi+2],al
         add  edi,3
         pop  eax
       loop .l_x

       add edi,X_SIZE
       add edi,X_SIZE
       add edi,X_SIZE
       sub edi,edx
       sub edi,edx
       sub edi,edx
       ;mov cx,ax
       pop  ecx
    loop .l_y

    pop_abc
ret

grad_rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color, d
    push edi  ;#>0
    mov edi,ebx
    add ebx,ecx
    cmp ebx,X_SIZE
    jb .ok1
      pop edi ;#<0
      ret
    .ok1:
    mov ebx,edi

    mov edi,eax
    add eax,edx
    cmp eax,Y_SIZE
    jb .ok2
      pop edi ;#<0
      ret
    .ok2:
    mov eax,edi

    pop edi ;#<0
    push_abc

    push edi  ;#>5
    push ecx  ;#>2
    push edx  ;#>3

    xor  ecx,ecx
    xor  edx,edx
    mov  edi,screen
    mov  ecx,3
    mul  ecx  ; xx = 3*y*X_SIZE+3*x
    mov  ecx,X_SIZE
    mul  ecx
    push eax ; #> 1
    mov  eax,ebx
    mov  ecx,3
    mul  ecx
    mov  ebx,eax
    pop  edx ; #< 1
    add  edx,ebx

    add  edi,edx ; sets the pointer to x,y of the screen

    pop ecx ; #<3
    pop edx ; #<2
    mov  eax,esi
    pop esi ; #<5
    .l_y:
       ;mov ax,cx
       push  ecx
       cld
       mov  ecx,edx
       .l_x:
         ;rep movs byte [edi],[esi]
         mov  word [edi],ax
         push eax
         shr  eax,16
         mov  byte [edi+2],al
         add  edi,3
         pop  eax
       loop .l_x

       add edi,X_SIZE
       add edi,X_SIZE
       add edi,X_SIZE
       sub edi,edx
       sub edi,edx
       sub edi,edx
       add eax,esi
       ;mov cx,ax
       pop  ecx
    loop .l_y

    pop_abc
ret


fill_screen: ; eax - screen color ( 0x00RRGGBB )
    push_abc
    mov  edi,screen
    cld
    mov  ecx,X_SIZE*Y_SIZE
    .lab1:
        mov  [edi],eax
        add  edi,3
    loop .lab1
    pop_abc
ret

grad_fill_screen: ; eax - screen color ( 0x00RRGGBB ), ebx - mack
    push_abc
    mov  edi,screen
    cld
    mov  ecx,Y_SIZE
    mov  dl,0
    .lab1:
       push ecx
       mov ecx,X_SIZE
       .lab2:
         mov  [edi],eax
         add  edi,3
       loop .lab2
       mov dh,1  ; dl = 1 - dl
       sub dh,dl
       mov dl,dh
       cmp dl,0
       jne .no_ch  ; if (dl==0)
         add  eax,ebx ; change gradient
       .no_ch:
       pop ecx
    loop .lab1
    pop_abc
ret


bmp_fill_screen: ; esi - pointer to a backgroung bmp
    push_abc
    mov  edi,screen
    cld
    mov  ecx,X_SIZE*Y_SIZE
      rep movs dword  [edi],[esi]
    pop_abc
ret

;___________________
intro:  ; INTRO    ;
    label 140,200,VERSION,0x100000FF
    label 120,220,'by jj (jacek jerzy malinowski)',0x050505
    label 100,240,'press SPACE to start a new game',0x10FF0800
    label 15,240,'F1 + delay',0xFFA8FF
    label 15,260,'F2 + delay',0xFFA8FF
    delay 10
ret

;___________________
level_info:
    label 170,230,'L E V E L',0x100000FF
    outcount [level],195,250,0x100000FF,2*65536
    label 100,270,'press SPACE to start the level',0x10FF0800
    delay 10
ret

;_________________________
game_over:  ; GAME OVER  ;
    mov  eax,0x00FF00
    mov  ebx,0xFF01
    .g_ok:
    call grad_fill_screen
    call show_screen  ; flips the screen
    label 120,150,'G  A  M  E    O  V  E  R',0x10050505
    label 140,200,'Thanks for playing',0x0FFF800
    delay 20
ret


;-----------------------------;
; THE MAIN THE GAME'S ENGINE ;
;-----------------------------;
fast_gfx:
    ; the background gradient
    if_e  dword [level],0,.no_0
      mov  eax,0xFF
      mov  ebx,0xFEFF
      jmp .g_ok
    .no_0:
    if_e  dword [level],1,.no_1
      mov  eax,BACK_CL
      mov  ebx,0xFFFF
      jmp .g_ok
    .no_1:
    if_e  dword [level],2,.no_2
      mov  eax,0xFF0000
      mov  ebx,0xFF00FF
      jmp .g_ok
    .no_2:

    mov  eax,BACK_CL
    mov  ebx,0xFFFF
    .g_ok:
    call grad_fill_screen

    mov  eax,37  ; get mouse position
    mov  ebx,1
    mcall
    shr  eax,16
    mov  [x],eax
    add  eax,[s_x]
    cmp  eax,X_SIZE  ; controls if the pad is in the screen
    jb   .ok
      cmp eax,0x7FFF ; if < 0
      jb  .upper
        mov [x],0
        jmp .ok
      .upper:        ; if > X_SIZE - pad size
      mov dword [x],X_SIZE-1
      mov eax,[s_x]
      sub dword [x],eax
    .ok:
    mov  ebx,[x]
    mov  eax,[y]
    mov  ecx,[s_x]
    mov  edx,15
    mov  esi,0xFF0000
    mov  edi,0xF0000F
    call grad_rect_screen

    call draw_level

    cmp dword [mode],1
    jne .no_go ; is the game started ?
      mov eax,[v_x]
      add dword [b_x],eax
      mov eax,[v_y]
      add dword [b_y],eax
      jmp .go
    .no_go:
      mov eax,[x] ; b_x = x + x_s/2
      mov ebx,[s_x]
      shr ebx,1
      add eax,ebx
      mov dword [b_x],eax
      mov eax,[y] ; b_y = y - 10
      sub eax,10
      mov dword [b_y],eax

      mov dword [v_x],1
      mov dword [v_y],-1
    .go:
    ;TEST WHERE IS THE BALL:
    cmp dword [b_x],0x7FFFFFFF
    jb .b_ok2 ; if out of the screen (left)
      mov dword [b_x],0
      mov eax,0
      sub eax,[v_x]
      mov [v_x],eax
    .b_ok2:
    cmp dword [b_x],X_SIZE-10
    jb .b_ok1 ; if out of the screen (right)
      mov dword [b_x],X_SIZE-11
      mov eax,0
      sub eax,[v_x]
      mov [v_x],eax
    .b_ok1:
    cmp dword [b_y],0x7FFFFFFF
    jb .b_ok3 ; if out of the screen (up)
      mov dword [b_y],0
      mov eax,0
      sub eax,[v_y]
      mov [v_y],eax
    .b_ok3:
    cmp dword [b_y],Y_SIZE-10
    jb .b_ok4 ; if out of the screen (down)
      mov dword [mode],0
      if_e dword [lives],0,.end_if5
         mov dword [mode],4 ; GAME OVER
         jmp still
      .end_if5:
         dec dword [lives]
      .end_else4:
      call draw_window
    .b_ok4:

    imgtoimg img_ball,dword [b_x],dword [b_y],screen_img

    call show_screen  ; flips the screen
    delay dword [del]

    call do_tests ; does all needed tests
ret
;----------------------;
; BALL & BRICKS EVENTS ;
;----------------------;
MAX_SPEED equ 3
do_tests:
    ; BALL <-> PAD
    mov eax,[b_x]
    add eax,10
    cmp eax,[x] ; if (b_x+10)>[pad x]
    jb .skip        ; &&
    mov eax,[b_x]
    mov ebx,[s_x]
    add ebx,[x]
    cmp eax,ebx ; if b_x < x + s_x
    ja .skip     ; &&
    mov eax,[b_y]
    add eax,10
    cmp eax,[y] ; if (b_y+10) > y
    jb .skip
    sub eax,15
    cmp eax,[y] ; if b_y < y+15
    ja .skip
      cmp dword [v_y],0x7FFFFF ; if v_y > 0
      ja .skip
      cmp dword [v_y],MAX_SPEED; speedup:
      ja .skip_s
        inc dword [speed_t]
        cmp dword [speed_t],5
        jb .skip_s
        inc dword [v_y]
        mov dword [speed_t],0
      .skip_s:
      inc dword [speed_t]
      mov eax,0
      sub eax,[v_y]
      mov [v_y],eax
      ;counting v_x:--------
      mov eax,[b_x]
      sub eax,[x]
      sub eax,5
      mov ecx,eax
      if_a eax,100,.end_if3
        mov eax,0
        sub eax,[v_x]
        mov [v_x],eax
        jmp .skip
      .end_if3:
      if_a eax,20,.end_if2
        sub eax,20
        shr eax,2
        mov [v_x],eax
        jmp .skip
      .end_if2:
        mov ebx,20
        sub ebx,ecx
        shr ebx,2
        mov dword [v_x],0
        sub dword [v_x],ebx
    .skip:

    ; BALL <-> BRICK
    mov dword [coliz],0
    call colision
    if_e dword [coliz],1,.end_if6
       ;abs dword [v_y]
       ;abs dword [v_x]
       ret
    .end_if6:
    add dword [b_x],10
    call colision
    sub dword [b_x],10
    if_e dword [coliz],1,.end_if7
       ;abs dword [v_y]
       ;abs dword [v_x]
       ch_sign dword [v_x]
       ret
    .end_if7:
    add dword [b_y],10
    call colision
    sub dword [b_y],10
    if_e dword [coliz],1,.end_if8
       ;abs dword [v_y]
       ;abs dword [v_x]
       ;ch_sign dword [v_y]
       ret
    .end_if8:
    add dword [b_x],10
    add dword [b_y],10
    call colision
    sub dword [b_x],10
    sub dword [b_y],10
    if_e dword [coliz],1,.end_if9
       ;abs dword [v_y]
       ;abs dword [v_x]
       ;ch_sign dword [v_x]
       ;ch_sign dword [v_y]

       ret
    .end_if9:


ret

colision:

    mov  esi,levels
    mov  eax,[level] ; eax = levels*100
    mov  bx,100
    mul  bx
    add  esi,eax
    ;--------------
    xor  edx,edx
    mov  eax,[b_x]
    mov  ebx,40
    div  ebx
    mov  ecx,eax
    push edx ;#>1

    xor edx,edx
    mov  eax,[b_y]
    mov  ebx,20
    div  ebx
    push edx ;#>2
    cmp  eax,9 ; out of the bricks board
    ja .ok2
    mov  ebx,10
    mul  ebx
    add  eax,ecx
    add  esi,eax

    cmp byte [esi],0 ; 0 - no brick
    je .ok2
      if_ne byte [esi],4,.end_if1
        dec byte [esi]
      .end_if1:
      mov dword [coliz],1
      pop ebx ;#<2
      pop eax ;#<1
      cmp ecx,8 ; x < 5 || x >35 - x inv
      jb  .inv
      cmp ecx,33
      ja  .inv
      jmp .no_inv
      .inv:
        mov eax,0
        sub eax,[v_x]
        mov [v_x],eax
        ;jmp .no_ok
      .no_inv:
      cmp ebx,6 ; if y < 5 || y>15 - y inv
      jb .inv_y
      cmp ebx,14
      ja .inv_y
      jmp .no_ok
        .inv_y:
        mov eax,0
        sub eax,[v_y]
        mov [v_y],eax
      .no_ok:
      jmp .ok
    .ok2:
      pop eax ;#<1
      pop eax ;#<2
    .ok:


ret

;-----------------------------------;
; DRAWS CURRENT LEVEL ON THE SCREEN ;
;-----------------------------------;
draw_level:
    mov  esi,levels
    mov  eax,[level] ; eax = levels*100
    mov  bx,100
    mul  bx
    add  esi,eax
    mov  ecx,10
    mov  eax,0
    mov dword [l_end],1
    .l_y:
      push ecx ;#>1
      mov ebx,0
      mov ecx,10
      .l_x:
        cmp byte [esi],1 ; if 1 ?
        push esi;#>2
        jne .no_1
          mov  esi,img_brick1
          call put_bmp_screen
          mov dword [l_end],0
        .no_1:
        cmp byte [esi],2 ; if 2 ?
        jne .no_2
          mov  esi,img_brick2
          call put_bmp_screen
          mov dword [l_end],0
        .no_2:
        cmp byte [esi],3 ; if 3 ?
        jne .no_3
          mov  esi,img_brick3
          call put_bmp_screen
          mov dword [l_end],0
        .no_3:
        cmp byte [esi],4 ; if 4 ?
        jne .no_4
          mov  esi,img_brick4
          call put_bmp_screen
        .no_4:

        add ebx,40
        pop esi ;#<2
        inc esi
      loop .l_x
      add eax,20 ;#<1
      pop  ecx
    loop .l_y
;----------------
; NEXT LEVEL
    if_e dword [l_end],1,.end_if ; all bricks are taken
    if_e dword [mode],1,.end_if
        add dword [level],1
        if_a dword [level],MAX_LEVEL,.end_if2
           mov dword [mode],4 ; game over
           jmp still
        .end_if2:
        call fast_gfx
        mov dword [mode],2
    .end_if:
ret

;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************


draw_window:

    startwd

    window 100,100,X_SIZE+8,Y_SIZE+21,0x04ffffff
    label 8,8,VERSION,cl_White+font_Big
    label 200,8,'LIVES:',0x10ddeeff
    outcount dword [lives],250,8,0x10ddeeff,65536

    call fast_gfx

    endwd

    ret

;-----------;####################
; DATA AREA ;####################
;-----------;####################

 lives dd 5
 mode dd 0
 l_end dd 0 ; if 1 the level is over
; PAD x:
 x   dd 20
 y   dd Y_SIZE-20
; PAD length:
 s_x dd 40

; the ball stuff ;-)
 b_x dd 100
 b_y dd 250
 v_y dd 0
 v_x dd 3

 speed_t dd 0 ; 1/10 times speedup
 del dd 1 ; delay

 coliz dd 0 ; if 1 then colizion with a brick

; LEVELS:
level dd 0
levels:
;LEVEL 0:
db 0,0,0,0,0,0,0,0,0,0
db 0,4,0,0,4,4,0,0,0,4
db 4,0,4,0,4,0,4,0,4,0
db 4,0,4,0,4,0,4,0,4,0
db 4,4,4,0,4,4,0,0,4,0
db 4,0,4,0,4,0,4,0,4,0
db 4,0,4,0,4,0,4,0,0,4
db 0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0

;LEVEL 1:
db 1,1,1,1,1,1,1,1,1,1
db 0,3,0,0,3,3,0,0,0,3
db 3,0,3,0,3,0,3,0,3,0
db 3,0,3,0,3,0,3,0,3,0
db 3,3,3,0,3,3,0,0,3,0
db 3,0,3,0,3,0,3,0,3,0
db 3,0,3,0,3,0,3,0,0,3
db 2,2,2,2,2,2,2,2,2,2
db 1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1
;LEVEL 2:
db 3,3,3,3,0,0,3,3,3,3
db 3,1,1,1,0,0,1,1,1,3
db 3,1,2,1,3,3,1,2,1,3
db 0,1,0,1,3,3,1,0,1,0
db 2,1,2,1,1,1,1,2,1,2
db 0,1,0,1,2,2,1,0,1,0
db 2,1,2,1,1,1,1,2,1,2
db 0,1,0,1,1,1,1,0,1,0
db 0,0,0,1,0,0,1,0,0,0
db 0,0,0,1,0,0,1,0,0,0
;LEVEL 3:
db 1,2,3,1,2,3,1,3,2,1
db 2,3,1,2,3,1,3,3,1,2
db 3,1,2,3,1,2,3,1,2,3
db 1,2,3,1,2,3,1,3,2,1
db 2,3,1,2,3,1,3,3,1,2
db 3,1,2,3,1,2,3,1,2,3
db 1,2,1,2,1,2,1,2,1,2
db 1,0,1,0,1,0,1,0,1,0
db 0,0,3,0,0,0,0,3,0,0
db 0,0,3,0,0,0,0,3,0,0
;LEVEL 4:
db 0,0,0,1,1,1,1,0,0,0
db 0,0,1,2,2,2,2,1,0,0
db 1,1,1,2,2,2,2,1,1,1
db 1,0,1,0,2,2,0,1,0,1
db 0,1,1,2,2,2,2,1,1,0
db 0,0,1,2,2,2,2,1,0,0
db 0,0,1,2,2,2,2,1,0,0
db 0,0,1,2,3,3,2,1,0,0
db 0,0,1,2,2,2,2,1,0,0
db 0,0,0,1,1,1,1,0,0,0
;LEVEL 5:
db 1,1,1,1,1,1,1,1,1,1
db 1,2,0,0,3,2,0,0,2,1
db 1,2,0,0,2,3,0,0,2,1
db 2,2,0,0,3,2,0,0,2,2
db 0,0,0,0,2,3,0,0,0,0
db 0,0,0,1,1,1,1,0,0,0
db 0,0,1,1,0,0,1,1,0,0
db 0,0,1,1,0,0,1,1,0,0
db 2,1,2,1,2,1,2,1,2,1
db 1,2,1,2,1,2,1,2,1,2


; BITMAPs and IMAGEs
bmp_file:
    file 'arcanii.bmp'

img_bmp:
    rb 40*90*3+8
img_brick1:
    rb 40*20*3+8
img_brick2:
    rb 40*20*3+8
img_brick3:
    rb 40*20*3+8
img_brick4:
    rb 40*20*3+8
img_ball:
    rb 10*10*3+8
img_bonus:
    rb 20*10*3+8


screen_img:
    dd X_SIZE
    dd Y_SIZE
screen:
    rb X_SIZE*Y_SIZE*3

I_END: