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

Subversion Repositories Kolibri OS

(root)/programs/games/arcanii/trunk/arcanii.asm – Rev 551 → 2066