WebSVN – Kolibri OS – Diff – /programs/games/arcanii/trunk/arcanii.asm


;               by jj
;        (jacek jerzy malinowski)
;
;   contact: 4nic8@casiocalc.org
;----------------------------------------
 
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:
    cmp  [is_rolled_up], 1
    jne  @f
    jmp  .no_game
  @@:
 
    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
    mov  [is_rolled_up], 0
    mcall 9,proc_info,-1
    test [proc_info+process_information.wnd_state], 0x04
    jz   @f
    mov  [is_rolled_up], 1
  @@:
    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    ;
    cmp  [is_rolled_up], 1
    jne  @f
    ret
  @@:
    label 146,200,'ARCANOID II  v0.30',0x100000FF
    label 120,220,'by jj (jacek jerzy malinowski)',0x050505
    if lang eq it
        label 100,240,'Premi spazio per iniziare una nuova partita',0x10FF0800
    else
        label 100,240,'press SPACE to start a new game',0x10FF0800
    end if
    label 15,240,'F1 + delay',0xFFA8FF
    label 15,260,'F2 + delay',0xFFA8FF
    delay 10
ret
 
;___________________
level_info:
    cmp  [is_rolled_up], 1
    jne  @f
    ret
  @@:
    if lang eq it
        label 170,230,'L I V E L LO',0x100000FF
    else
        label 170,230,'L E V E L',0x100000FF
    end if
 
 
    outcount [level],195,250,0x100000FF,2*65536
    if lang eq it
        label 100,270,'Premi spazio per iniziare il livello',0x10FF0800
    else
        label 100,270,'press SPACE to start the level',0x10FF0800
    end if
    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
    if lang eq it
        label 140,200,'Grazie per aver giocato',0x0FFF800
    else
        label 140,200,'Thanks for playing',0x0FFF800
    end if
    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:
 
    mcall 12,1
    mcall 0,<100,X_SIZE+8>,<100,Y_SIZE+21>,0x14ffffff, , VERSION
 
    if lang eq it
        label 200,8,'VITE:',0x10ffffff
    else
        label 200,8,'LIVES:',0x10ffffff
    end if
 
    outcount dword [lives],250,8,0x10ffffff,65536
 
    cmp [is_rolled_up], 1
    je  @f
    call fast_gfx
  @@:
 
    mcall 12,2
 
    ret
 
;-----------;####################
; DATA AREA ;####################
;-----------;####################
 
VERSION db 'ARCANOID II', 0
 
is_rolled_up dd 0
 
 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
proc_info:
    rb 1024
I_END:
 
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Rev 2683	Rev 3485
1	; by jj	1	; by jj
2	; (jacek jerzy malinowski)	2	; (jacek jerzy malinowski)
3	;	3	;
4	; contact: 4nic8@casiocalc.org	4	; contact: 4nic8@casiocalc.org
5	;----------------------------------------	5	;----------------------------------------
6		6
7	include 'lang.inc'	7	include 'lang.inc'
8	include '../../../macros.inc'	8	include '../../../macros.inc'
9	include 'ascl.inc'	9	include 'ascl.inc'
10	include 'ascgl.inc'	10	include 'ascgl.inc'
11	include 'asjc.inc'	11	include 'asjc.inc'
12		12
13	X_SIZE equ 400	13	X_SIZE equ 400
14	Y_SIZE equ 300	14	Y_SIZE equ 300
15		15
16	MAX_LEVEL equ 5	16	MAX_LEVEL equ 5
17		17
18	BACK_CL equ 0x00EFEF ; background color	18	BACK_CL equ 0x00EFEF ; background color
19		19
20	; THE MAIN PROGRAM:	20	; THE MAIN PROGRAM:
21	use32	21	use32
22		22
23	org 0x0	23	org 0x0
24		24
25	db 'MENUET01' ; 8 byte id	25	db 'MENUET01' ; 8 byte id
26	dd 0x01 ; header version	26	dd 0x01 ; header version
27	dd START ; start of code	27	dd START ; start of code
28	dd I_END ; size of image	28	dd I_END ; size of image
29	dd 0x200000 ; memory for app	29	dd 0x200000 ; memory for app
30	dd 0x7fff0 ; esp	30	dd 0x7fff0 ; esp
31	dd 0x0 , 0x0 ; I_Param , I_Icon	31	dd 0x0 , 0x0 ; I_Param , I_Icon
32		32
33	START: ; start of execution	33	START: ; start of execution
34		34
35	bmptoimg bmp_file,img_bmp ; loading ... ;]	35	bmptoimg bmp_file,img_bmp ; loading ... ;]
36	getimg img_bmp,0,0,10,10,img_ball	36	getimg img_bmp,0,0,10,10,img_ball
37	getimg img_bmp,20,0,20,10,img_bonus	37	getimg img_bmp,20,0,20,10,img_bonus
38	getimg img_bmp,0,10,40,20,img_brick1	38	getimg img_bmp,0,10,40,20,img_brick1
39	getimg img_bmp,0,30,40,20,img_brick2	39	getimg img_bmp,0,30,40,20,img_brick2
40	getimg img_bmp,0,50,40,20,img_brick3	40	getimg img_bmp,0,50,40,20,img_brick3
41	getimg img_bmp,0,70,40,20,img_brick4	41	getimg img_bmp,0,70,40,20,img_brick4
42		42
43	call draw_window	43	call draw_window
44		44
45	still:	45	still:
46	cmp [is_rolled_up], 1	46	cmp [is_rolled_up], 1
47	jne @f	47	jne @f
48	jmp .no_game	48	jmp .no_game
49	@@:	49	@@:
50		50
51	if_e dword [level],0,.no_intro	51	if_e dword [level],0,.no_intro
52	call intro	52	call intro
53	jmp .no_game	53	jmp .no_game
54	.no_intro:	54	.no_intro:
55		55
56	if_e dword [mode],2,.end_if1	56	if_e dword [mode],2,.end_if1
57	call level_info	57	call level_info
58	jmp .no_game	58	jmp .no_game
59	.end_if1:	59	.end_if1:
60		60
61	if_e dword [mode],4,.end_if2	61	if_e dword [mode],4,.end_if2
62	call game_over	62	call game_over
63	jmp .no_game	63	jmp .no_game
64	.end_if2:	64	.end_if2:
65		65
66	call fast_gfx ; <-- the main engine	66	call fast_gfx ; <-- the main engine
67	.no_game:	67	.no_game:
68		68
69	mov eax,11	69	mov eax,11
70	mcall	70	mcall
71		71
72	cmp eax,1 ; redraw request ?	72	cmp eax,1 ; redraw request ?
73	je red	73	je red
74	cmp eax,2 ; key in buffer ?	74	cmp eax,2 ; key in buffer ?
75	je key	75	je key
76	cmp eax,3 ; button in buffer ?	76	cmp eax,3 ; button in buffer ?
77	je button	77	je button
78		78
79	jmp still	79	jmp still
80		80
81	red: ; redraw	81	red: ; redraw
82	mov [is_rolled_up], 0	82	mov [is_rolled_up], 0
83	mcall 9,proc_info,-1	83	mcall 9,proc_info,-1
84	test [proc_info+process_information.wnd_state], 0x04	84	test [proc_info+process_information.wnd_state], 0x04
85	jz @f	85	jz @f
86	mov [is_rolled_up], 1	86	mov [is_rolled_up], 1
87	@@:	87	@@:
88	call draw_window	88	call draw_window
89	jmp still	89	jmp still
90		90
91	key: ; key	91	key: ; key
92	mov eax,2 ; just read it and ignore	92	mov eax,2 ; just read it and ignore
93	mcall	93	mcall
94	cmp ah,key_Esc ; if Esc ?	94	cmp ah,key_Esc ; if Esc ?
95	jne .no_q	95	jne .no_q
96	or eax,-1	96	or eax,-1
97	mcall	97	mcall
98	.no_q:	98	.no_q:
99		99
100	if_e dword [mode],4,.end_if6	100	if_e dword [mode],4,.end_if6
101	jmp still	101	jmp still
102	.end_if6:	102	.end_if6:
103		103
104	cmp ah,key_Space	104	cmp ah,key_Space
105	jne .no_space	105	jne .no_space
106	if_e dword [mode],2,.end_if1	106	if_e dword [mode],2,.end_if1
107	mov dword [mode],0	107	mov dword [mode],0
108	jmp .no_space	108	jmp .no_space
109	.end_if1:	109	.end_if1:
110	mov dword [mode],1	110	mov dword [mode],1
111	call fast_gfx	111	call fast_gfx
112	.no_space:	112	.no_space:
113	xor ebx,ebx	113	xor ebx,ebx
114	mov bl,ah	114	mov bl,ah
115	if_e ebx,key_F1,.no_f1	115	if_e ebx,key_F1,.no_f1
116	inc dword [del]	116	inc dword [del]
117	.no_f1:	117	.no_f1:
118	if_e ebx,key_F2,.no_f2	118	if_e ebx,key_F2,.no_f2
119	if_a dword [del],0,.end_if3	119	if_a dword [del],0,.end_if3
120	dec dword [del]	120	dec dword [del]
121	.end_if3:	121	.end_if3:
122	.no_f2:	122	.no_f2:
123		123
124		124
125	jmp still	125	jmp still
126		126
127	button: ; button	127	button: ; button
128	mov eax,17 ; get id	128	mov eax,17 ; get id
129	mcall	129	mcall
130		130
131	cmp ah,1 ; button id=1 ?	131	cmp ah,1 ; button id=1 ?
132	jne noclose	132	jne noclose
133		133
134	mov eax,-1 ; close this program	134	mov eax,-1 ; close this program
135	mcall	135	mcall
136	noclose:	136	noclose:
137		137
138	jmp still	138	jmp still
139		139
140	; *********************************************	140	; *********************************************
141	; ***** VIRTUAL SCREEN FUNCTIONS **********	141	; ***** VIRTUAL SCREEN FUNCTIONS **********
142	; *********************************************	142	; *********************************************
143		143
144	show_screen: ; flips the virtual screen to the window	144	show_screen: ; flips the virtual screen to the window
145	push_abc	145	push_abc
146		146
147	mov eax,7	147	mov eax,7
148	mov ebx,screen	148	mov ebx,screen
149	mov ecx,X_SIZE*65536+Y_SIZE	149	mov ecx,X_SIZE*65536+Y_SIZE
150	mov edx,4*65536+20	150	mov edx,4*65536+20
151	mcall	151	mcall
152		152
153	pop_abc	153	pop_abc
154	ret	154	ret
155		155
156	put_bmp_screen: ; eax - y , ebx - x, esi - bmp	156	put_bmp_screen: ; eax - y , ebx - x, esi - bmp
157	cmp ebx,X_SIZE-5	157	cmp ebx,X_SIZE-5
158	jb .ok1	158	jb .ok1
159	ret	159	ret
160	.ok1:	160	.ok1:
161	cmp eax,Y_SIZE-5	161	cmp eax,Y_SIZE-5
162	jb .ok2	162	jb .ok2
163	ret	163	ret
164	.ok2:	164	.ok2:
165		165
166	push_abc	166	push_abc
167	xor ecx,ecx	167	xor ecx,ecx
168	xor edx,edx	168	xor edx,edx
169	mov edi,screen	169	mov edi,screen
170	mov ecx,3	170	mov ecx,3
171	mul ecx ; xx = 3yX_SIZE+3*x	171	mul ecx ; xx = 3yX_SIZE+3*x
172	mov ecx,X_SIZE	172	mov ecx,X_SIZE
173	mul ecx	173	mul ecx
174	push eax ; #> 1	174	push eax ; #> 1
175	mov eax,ebx	175	mov eax,ebx
176	mov ecx,3	176	mov ecx,3
177	mul ecx	177	mul ecx
178	mov ebx,eax	178	mov ebx,eax
179	pop edx ; #< 1	179	pop edx ; #< 1
180	add edx,ebx	180	add edx,ebx
181	add edi,edx ; sets the pointer to x,y of the screen	181	add edi,edx ; sets the pointer to x,y of the screen
182		182
183	mov cx,[si] ; loops 1	183	mov cx,[si] ; loops 1
184	xor ebx,ebx	184	xor ebx,ebx
185	mov ax,cx	185	mov ax,cx
186	mov dx,3	186	mov dx,3
187	mul dx	187	mul dx
188	mov bx,ax	188	mov bx,ax
189		189
190	push ebx ;#>4	190	push ebx ;#>4
191		191
192	add si,4	192	add si,4
193	mov ax,[si] ; loops 2	193	mov ax,[si] ; loops 2
194	mov cx,[si]	194	mov cx,[si]
195	;shr ax,2	195	;shr ax,2
196	mov dx,3 ; dx = ax *3	196	mov dx,3 ; dx = ax *3
197	mul dx	197	mul dx
198	mov bx,ax	198	mov bx,ax
199	add si,4	199	add si,4
200		200
201		201
202	pop ebx ;#<4	202	pop ebx ;#<4
203	.l_y:	203	.l_y:
204	mov ax,cx	204	mov ax,cx
205	cld	205	cld
206	mov cx,bx	206	mov cx,bx
207	rep movs byte [edi],[esi]	207	rep movs byte [edi],[esi]
208	add edi,X_SIZE	208	add edi,X_SIZE
209	add edi,X_SIZE	209	add edi,X_SIZE
210	add edi,X_SIZE	210	add edi,X_SIZE
211	sub edi,ebx	211	sub edi,ebx
212	mov cx,ax	212	mov cx,ax
213	loop .l_y	213	loop .l_y
214		214
215	pop_abc	215	pop_abc
216	ret	216	ret
217		217
218	rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color	218	rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color
219	mov edi,ebx	219	mov edi,ebx
220	add ebx,ecx	220	add ebx,ecx
221	cmp ebx,X_SIZE	221	cmp ebx,X_SIZE
222	jb .ok1	222	jb .ok1
223	ret	223	ret
224	.ok1:	224	.ok1:
225	mov ebx,edi	225	mov ebx,edi
226		226
227	mov edi,eax	227	mov edi,eax
228	add eax,edx	228	add eax,edx
229	cmp eax,Y_SIZE	229	cmp eax,Y_SIZE
230	jb .ok2	230	jb .ok2
231	ret	231	ret
232	.ok2:	232	.ok2:
233	mov eax,edi	233	mov eax,edi
234	push_abc	234	push_abc
235	push ecx ;#>2	235	push ecx ;#>2
236	push edx ;#>3	236	push edx ;#>3
237		237
238	xor ecx,ecx	238	xor ecx,ecx
239	xor edx,edx	239	xor edx,edx
240	mov edi,screen	240	mov edi,screen
241	mov ecx,3	241	mov ecx,3
242	mul ecx ; xx = 3yX_SIZE+3*x	242	mul ecx ; xx = 3yX_SIZE+3*x
243	mov ecx,X_SIZE	243	mov ecx,X_SIZE
244	mul ecx	244	mul ecx
245	push eax ; #> 1	245	push eax ; #> 1
246	mov eax,ebx	246	mov eax,ebx
247	mov ecx,3	247	mov ecx,3
248	mul ecx	248	mul ecx
249	mov ebx,eax	249	mov ebx,eax
250	pop edx ; #< 1	250	pop edx ; #< 1
251	add edx,ebx	251	add edx,ebx
252		252
253	add edi,edx ; sets the pointer to x,y of the screen	253	add edi,edx ; sets the pointer to x,y of the screen
254		254
255	pop ecx ; #<3	255	pop ecx ; #<3
256	pop edx ; #<4	256	pop edx ; #<4
257	mov eax,esi	257	mov eax,esi
258	.l_y:	258	.l_y:
259	;mov ax,cx	259	;mov ax,cx
260	push ecx	260	push ecx
261	cld	261	cld
262	mov ecx,edx	262	mov ecx,edx
263	.l_x:	263	.l_x:
264	;rep movs byte [edi],[esi]	264	;rep movs byte [edi],[esi]
265	mov word [edi],ax	265	mov word [edi],ax
266	push eax	266	push eax
267	shr eax,16	267	shr eax,16
268	mov byte [edi+2],al	268	mov byte [edi+2],al
269	add edi,3	269	add edi,3
270	pop eax	270	pop eax
271	loop .l_x	271	loop .l_x
272		272
273	add edi,X_SIZE	273	add edi,X_SIZE
274	add edi,X_SIZE	274	add edi,X_SIZE
275	add edi,X_SIZE	275	add edi,X_SIZE
276	sub edi,edx	276	sub edi,edx
277	sub edi,edx	277	sub edi,edx
278	sub edi,edx	278	sub edi,edx
279	;mov cx,ax	279	;mov cx,ax
280	pop ecx	280	pop ecx
281	loop .l_y	281	loop .l_y
282		282
283	pop_abc	283	pop_abc
284	ret	284	ret
285		285
286	grad_rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color, d	286	grad_rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color, d
287	push edi ;#>0	287	push edi ;#>0
288	mov edi,ebx	288	mov edi,ebx
289	add ebx,ecx	289	add ebx,ecx
290	cmp ebx,X_SIZE	290	cmp ebx,X_SIZE
291	jb .ok1	291	jb .ok1
292	pop edi ;#<0	292	pop edi ;#<0
293	ret	293	ret
294	.ok1:	294	.ok1:
295	mov ebx,edi	295	mov ebx,edi
296		296
297	mov edi,eax	297	mov edi,eax
298	add eax,edx	298	add eax,edx
299	cmp eax,Y_SIZE	299	cmp eax,Y_SIZE
300	jb .ok2	300	jb .ok2
301	pop edi ;#<0	301	pop edi ;#<0
302	ret	302	ret
303	.ok2:	303	.ok2:
304	mov eax,edi	304	mov eax,edi
305		305
306	pop edi ;#<0	306	pop edi ;#<0
307	push_abc	307	push_abc
308		308
309	push edi ;#>5	309	push edi ;#>5
310	push ecx ;#>2	310	push ecx ;#>2
311	push edx ;#>3	311	push edx ;#>3
312		312
313	xor ecx,ecx	313	xor ecx,ecx
314	xor edx,edx	314	xor edx,edx
315	mov edi,screen	315	mov edi,screen
316	mov ecx,3	316	mov ecx,3
317	mul ecx ; xx = 3yX_SIZE+3*x	317	mul ecx ; xx = 3yX_SIZE+3*x
318	mov ecx,X_SIZE	318	mov ecx,X_SIZE
319	mul ecx	319	mul ecx
320	push eax ; #> 1	320	push eax ; #> 1
321	mov eax,ebx	321	mov eax,ebx
322	mov ecx,3	322	mov ecx,3
323	mul ecx	323	mul ecx
324	mov ebx,eax	324	mov ebx,eax
325	pop edx ; #< 1	325	pop edx ; #< 1
326	add edx,ebx	326	add edx,ebx
327		327
328	add edi,edx ; sets the pointer to x,y of the screen	328	add edi,edx ; sets the pointer to x,y of the screen
329		329
330	pop ecx ; #<3	330	pop ecx ; #<3
331	pop edx ; #<2	331	pop edx ; #<2
332	mov eax,esi	332	mov eax,esi
333	pop esi ; #<5	333	pop esi ; #<5
334	.l_y:	334	.l_y:
335	;mov ax,cx	335	;mov ax,cx
336	push ecx	336	push ecx
337	cld	337	cld
338	mov ecx,edx	338	mov ecx,edx
339	.l_x:	339	.l_x:
340	;rep movs byte [edi],[esi]	340	;rep movs byte [edi],[esi]
341	mov word [edi],ax	341	mov word [edi],ax
342	push eax	342	push eax
343	shr eax,16	343	shr eax,16
344	mov byte [edi+2],al	344	mov byte [edi+2],al
345	add edi,3	345	add edi,3
346	pop eax	346	pop eax
347	loop .l_x	347	loop .l_x
348		348
349	add edi,X_SIZE	349	add edi,X_SIZE
350	add edi,X_SIZE	350	add edi,X_SIZE
351	add edi,X_SIZE	351	add edi,X_SIZE
352	sub edi,edx	352	sub edi,edx
353	sub edi,edx	353	sub edi,edx
354	sub edi,edx	354	sub edi,edx
355	add eax,esi	355	add eax,esi
356	;mov cx,ax	356	;mov cx,ax
357	pop ecx	357	pop ecx
358	loop .l_y	358	loop .l_y
359		359
360	pop_abc	360	pop_abc
361	ret	361	ret
362		362
363		363
364	fill_screen: ; eax - screen color ( 0x00RRGGBB )	364	fill_screen: ; eax - screen color ( 0x00RRGGBB )
365	push_abc	365	push_abc
366	mov edi,screen	366	mov edi,screen
367	cld	367	cld
368	mov ecx,X_SIZE*Y_SIZE	368	mov ecx,X_SIZE*Y_SIZE
369	.lab1:	369	.lab1:
370	mov [edi],eax	370	mov [edi],eax
371	add edi,3	371	add edi,3
372	loop .lab1	372	loop .lab1
373	pop_abc	373	pop_abc
374	ret	374	ret
375		375
376	grad_fill_screen: ; eax - screen color ( 0x00RRGGBB ), ebx - mack	376	grad_fill_screen: ; eax - screen color ( 0x00RRGGBB ), ebx - mack
377	push_abc	377	push_abc
378	mov edi,screen	378	mov edi,screen
379	cld	379	cld
380	mov ecx,Y_SIZE	380	mov ecx,Y_SIZE
381	mov dl,0	381	mov dl,0
382	.lab1:	382	.lab1:
383	push ecx	383	push ecx
384	mov ecx,X_SIZE	384	mov ecx,X_SIZE
385	.lab2:	385	.lab2:
386	mov [edi],eax	386	mov [edi],eax
387	add edi,3	387	add edi,3
388	loop .lab2	388	loop .lab2
389	mov dh,1 ; dl = 1 - dl	389	mov dh,1 ; dl = 1 - dl
390	sub dh,dl	390	sub dh,dl
391	mov dl,dh	391	mov dl,dh
392	cmp dl,0	392	cmp dl,0
393	jne .no_ch ; if (dl==0)	393	jne .no_ch ; if (dl==0)
394	add eax,ebx ; change gradient	394	add eax,ebx ; change gradient
395	.no_ch:	395	.no_ch:
396	pop ecx	396	pop ecx
397	loop .lab1	397	loop .lab1
398	pop_abc	398	pop_abc
399	ret	399	ret
400		400
401		401
402	bmp_fill_screen: ; esi - pointer to a backgroung bmp	402	bmp_fill_screen: ; esi - pointer to a backgroung bmp
403	push_abc	403	push_abc
404	mov edi,screen	404	mov edi,screen
405	cld	405	cld
406	mov ecx,X_SIZE*Y_SIZE	406	mov ecx,X_SIZE*Y_SIZE
407	rep movs dword [edi],[esi]	407	rep movs dword [edi],[esi]
408	pop_abc	408	pop_abc
409	ret	409	ret
410		410
411	;___________________	411	;___________________
412	intro: ; INTRO ;	412	intro: ; INTRO ;
413	cmp [is_rolled_up], 1	413	cmp [is_rolled_up], 1
414	jne @f	414	jne @f
415	ret	415	ret
416	@@:	416	@@:
417	label 146,200,'ARCANOID II v0.30',0x100000FF	417	label 146,200,'ARCANOID II v0.30',0x100000FF
418	label 120,220,'by jj (jacek jerzy malinowski)',0x050505	418	label 120,220,'by jj (jacek jerzy malinowski)',0x050505
-		419	if lang eq it
-		420	label 100,240,'Premi spazio per iniziare una nuova partita',0x10FF0800
-		421	else
419	label 100,240,'press SPACE to start a new game',0x10FF0800	422	label 100,240,'press SPACE to start a new game',0x10FF0800
-		423	end if
420	label 15,240,'F1 + delay',0xFFA8FF	424	label 15,240,'F1 + delay',0xFFA8FF
421	label 15,260,'F2 + delay',0xFFA8FF	425	label 15,260,'F2 + delay',0xFFA8FF
422	delay 10	426	delay 10
423	ret	427	ret
424		428
425	;___________________	429	;___________________
426	level_info:	430	level_info:
427	cmp [is_rolled_up], 1	431	cmp [is_rolled_up], 1
428	jne @f	432	jne @f
429	ret	433	ret
430	@@:	434	@@:
-		435	if lang eq it
-		436	label 170,230,'L I V E L LO',0x100000FF
-		437	else
431	label 170,230,'L E V E L',0x100000FF	438	label 170,230,'L E V E L',0x100000FF
-		439	end if
-		440
-		441
432	outcount [level],195,250,0x100000FF,2*65536	442	outcount [level],195,250,0x100000FF,2*65536
-		443	if lang eq it
-		444	label 100,270,'Premi spazio per iniziare il livello',0x10FF0800
-		445	else
433	label 100,270,'press SPACE to start the level',0x10FF0800	446	label 100,270,'press SPACE to start the level',0x10FF0800
-		447	end if
434	delay 10	448	delay 10
435	ret	449	ret
436		450
437	;_________________________	451	;_________________________
438	game_over: ; GAME OVER ;	452	game_over: ; GAME OVER ;
439	mov eax,0x00FF00	453	mov eax,0x00FF00
440	mov ebx,0xFF01	454	mov ebx,0xFF01
441	.g_ok:	455	.g_ok:
442	call grad_fill_screen	456	call grad_fill_screen
443	call show_screen ; flips the screen	457	call show_screen ; flips the screen
444	label 120,150,'G A M E O V E R',0x10050505	458	label 120,150,'G A M E O V E R',0x10050505
-		459	if lang eq it
-		460	label 140,200,'Grazie per aver giocato',0x0FFF800
-		461	else
445	label 140,200,'Thanks for playing',0x0FFF800	462	label 140,200,'Thanks for playing',0x0FFF800
-		463	end if
446	delay 20	464	delay 20
447	ret	465	ret
448		466
449		467
450	;-----------------------------;	468	;-----------------------------;
451	; THE MAIN THE GAME'S ENGINE ;	469	; THE MAIN THE GAME'S ENGINE ;
452	;-----------------------------;	470	;-----------------------------;
453	fast_gfx:	471	fast_gfx:
454	; the background gradient	472	; the background gradient
455	if_e dword [level],0,.no_0	473	if_e dword [level],0,.no_0
456	mov eax,0xFF	474	mov eax,0xFF
457	mov ebx,0xFEFF	475	mov ebx,0xFEFF
458	jmp .g_ok	476	jmp .g_ok
459	.no_0:	477	.no_0:
460	if_e dword [level],1,.no_1	478	if_e dword [level],1,.no_1
461	mov eax,BACK_CL	479	mov eax,BACK_CL
462	mov ebx,0xFFFF	480	mov ebx,0xFFFF
463	jmp .g_ok	481	jmp .g_ok
464	.no_1:	482	.no_1:
465	if_e dword [level],2,.no_2	483	if_e dword [level],2,.no_2
466	mov eax,0xFF0000	484	mov eax,0xFF0000
467	mov ebx,0xFF00FF	485	mov ebx,0xFF00FF
468	jmp .g_ok	486	jmp .g_ok
469	.no_2:	487	.no_2:
470		488
471	mov eax,BACK_CL	489	mov eax,BACK_CL
472	mov ebx,0xFFFF	490	mov ebx,0xFFFF
473	.g_ok:	491	.g_ok:
474	call grad_fill_screen	492	call grad_fill_screen
475		493
476	mov eax,37 ; get mouse position	494	mov eax,37 ; get mouse position
477	mov ebx,1	495	mov ebx,1
478	mcall	496	mcall
479	shr eax,16	497	shr eax,16
480	mov [x],eax	498	mov [x],eax
481	add eax,[s_x]	499	add eax,[s_x]
482	cmp eax,X_SIZE ; controls if the pad is in the screen	500	cmp eax,X_SIZE ; controls if the pad is in the screen

Subversion Repositories Kolibri OS

(root)/programs/games/arcanii/trunk/arcanii.asm – Rev 2683 → 3485